查看: 733|回复: 6
请问，这段代码执行错误？
阅读权限30
在线时间 小时
请问老师，下面代码在模块中运行正常，移到工作表中后，提示错误，请帮助修改。 Sub 结存单据() &&a = MsgBox(&确定“保存销售记录”吗？！！！&, vbYesNo)& && & If a = vbNo Then Exit Sub '点击&否&退出&&Dim fz, zt As Integer & & fz = Cells(150, 9).End(xlUp).Row& & zt = Windows(&腾远客户账簿.xlsm&).ActiveSheet.Cells(1000, 3).End(xlUp).Row &&Range(Cells(3, 1), Cells(fz, 10)).Select &&Selection.Copy '复制&&Windows(&腾远客户账簿.xlsm&).Activate &&Cells(zt + 1, 1).Select& && &Selection.PasteSpecial Paste:=xlPasteValues & && &Selection.PasteSpecial Paste:=xlPasteFormats &&Cells(zt + 1, 1).Select&&Windows(&腾远进销存.xlsm&).Activate &&Sheets(&记录单&).Select& & Range(Cells(fz + 1, 1), Cells(fz + 1, 10)).Select & & Application.CutCopyMode = False& & Selection.AutoFill Destination:=Range(Cells(3, 1), Cells(fz + 1, 10)), Type:=xlFillDefault & & Range(&A1:C1&).ClearContents & & Range(&A3&) = Date & & Range(&A3&).Select&&Windows(&腾远客户账簿.xlsm&).Activate & & Dim XH, RQH, CQ As Integer & && &XH = Windows(&腾远客户账簿.xlsm&).ActiveSheet.Cells(1000, 2).End(xlUp).Row & && &RQH = Windows(&腾远客户账簿.xlsm&).ActiveSheet.Cells(1000, 1).End(xlUp).Row & && &CQ = Cells(3, 3).Row & & Range(Cells(XH + 1, 1), Cells(XH + 3, 10)).Select & && &&&With Selection& && && && &.ClearContents & && && && &.Validation.Delete & && && && &.HorizontalAlignment = xlGeneral & && && && &.Interior.Color =
& && && && &.RowHeight = 15.25 & && && && &.Font.Name = &宋体&& && && && &.Font.Size = 10 & && && && &.Font.ColorIndex = 1 & && && && &.Font.FontStyle = &常规& & && && && &.Borders(xlEdgeTop).Weight = xlHairline & && && && &.Borders(xlEdgeBottom).Weight = xlHairline & && &&&End With& & T = Array(Array(&收款&, &&, &已收本金&, &&, &收款前利息&, &&, &修配金额&, &&, &收款日期&), Array(&再收款&, &&, &未收本金&, &&, &再收款利息&, &&, &利息合计&, &&, &再收款日期&), Array(&结账属性&, &&, &未收款合计&, &&, &去零金额&, &&, &应收款&, &&, &备注&))& & Range(Cells(XH + 1, 1), Cells(XH + 3, 9)) = Application.Transpose(Application.Transpose(T)) & & Cells(XH + 1, 1).Select& && &&&Selection.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=&收款,陈欠收款& & & Cells(XH + 3, 2).Select& && &&&Selection.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=&现结,现分,帐结,帐分& & && &&&Selection.HorizontalAlignment = xlCenter '水平居中& & Union(Range(Cells(XH + 1, 2), Cells(XH + 2, 2)), Range(Cells(XH + 1, 4), Cells(XH + 3, 4)), Range(Cells(XH + 1, 6), Cells(XH + 2, 6)), Range(Cells(XH + 1, 8), Cells(XH + 2, 8))).Select& && &&&Selection.NumberFormatLocal = &0.00_ ;[红色]-0.00;- & Range(Cells(XH + 1, 10), Cells(XH + 2, 10)).NumberFormatLocal = &yyyy-mm-dd& & & Range(Cells(XH + 3, 3), Cells(XH + 3, 4)).Select & && &&&With Selection& && && && &.RowHeight = 17.25 & && && && &.Font.Bold = True & && && && &.Font.Size = 12 & && && && &.Font.ColorIndex = 5&&& && &&&End With& & Cells(XH + 1, 4).FormulaR1C1 = &=RC2+R[+1]C2& & & Cells(XH + 1, 6).FormulaR1C1 = &=ROUNDUP(IF(RC1=&&陈欠收款&&,DATEDIF(&&1-1&&,RC10,&&D&&)*0.0004*RC8,IF(DATEDIF(R& & RQH & &C1,TODAY(),&&D&&)&30,& _& & & &IF(RC2=&&&&,DATEDIF(R& & RQH & &C1,TODAY(),&&D&&)*0.0004*RC8,DATEDIF(R& & RQH & &C1,RC10,&&D&&)*0.0004*RC8),0)),0)& & & & & Cells(XH + 1, 7).FormulaR1C1 = &=IF(RC1=&&陈欠收款&&,&&陈欠金额&&,&&修配金额&&)& & & Cells(XH + 1, 8).FormulaR1C1 = &=IF(RC1=&&陈欠收款&&,R& & CQ & &C3,ROUNDUP(SUM(R& & RQH & &C8:R[-1]C8),0))& & & Cells(XH + 2, 4).FormulaR1C1 = &=IF(OR(AND(R[-1]C8&0,R[-1]C8-R[-1]C4&0),AND(R[-1]C8&0,R[-1]C8-R[-1]C4&0)),0,R[-1]C8-R[-1]C4)& & & Cells(XH + 2, 6).FormulaR1C1 = &=ROUNDUP(IF(R[-1]C2=&&&&,0,IF(RC2=&&&&,DATEDIF(R[-1]C10,TODAY(),&&D&&)*0.0004*RC4,DATEDIF(R[-1]C10,RC10,&&D&&)*0.0004*(R[-1]C8-R[-1]C2))),0)& & & Cells(XH + 2, 8).FormulaR1C1 = &=R[-1]C6+RC6&& & Cells(XH + 3, 4).FormulaR1C1 = &=IF(OR(RC2=&&现结&&,RC2=&&帐结&&),0,RC8-R[-2]C4)& & & Cells(XH + 3, 6).FormulaR1C1 = &=IF(OR(RC2=&&现结&&,RC2=&&帐结&&),RC8-R[-2]C4,0)& & & Cells(XH + 3, 8).FormulaR1C1 = &=R[-2]C8+R[-1]C8&&&& & Cells(XH + 1, 2).Select&&Range(&B& & XH + 1).SelectEnd Sub
阅读权限95
在线时间 小时
代码太长没有看，我只说明一点：
代码在模块和工作表中有点区别，如果不指明工作表对象使用Range或Cells，模块默认工作表是活动工作表——ActiveSheet，而工作表中代码默认工作表对象是代码所在工作表——Me
解决方法是——在所有的Range或Cells前，全部加上工作表对象：
Sheets(&Sheet2&).Range(&A2&)
阅读权限30
在线时间 小时
& & & & & & & &
本帖最后由 wyzdddl 于
22:29 编辑
zhaogang1960 发表于
代码太长没有看，我只说明一点：
代码在模块和工作表中有点区别，如果不指明工作表对象使用Range或Cells， ...
赵老师，那是不是需要添加一个变量，定义“腾远客户账簿”工作簿中，活动的工作表
这个语句怎样写
阅读权限95
在线时间 小时
wyzdddl 发表于
赵老师，那是不是需要添加一个变量，定义“腾远客户账簿”工作簿中，活动的工作表
这个语句怎样写
可以不用变量，直接用ActiveSheet.Range(&a1&)
也可以声明一个变量：
Dim sht As Worksheet
Set sht = ActiveSheet
sht.Range(&a1&)
阅读权限30
在线时间 小时
zhaogang1960 发表于
可以不用变量，直接用ActiveSheet.Range(&a1&)
也可以声明一个变量：
Dim sht As Worksheet
谢谢您，赵老师。经常看到Set，为什么这个变量前加一个Set。
阅读权限95
在线时间 小时
wyzdddl 发表于
谢谢您，赵老师。经常看到Set，为什么这个变量前加一个Set。
如果把对象赋值给变量需要加Set，数字、文本等非对象用Let，Let可以省略
阅读权限30
在线时间 小时
zhaogang1960 发表于
如果把对象赋值给变量需要加Set，数字、文本等非对象用Let，Let可以省略
是这样，谢谢您，赵老师
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师给你个提示，最好自己去动手1先建立高斯算子fspecial2滤波imfilter请参考,
求助~~matlab高斯滤波程序，请问这段程序哪里有错？为什么运行之后没有滤波？谢谢
-爱问知识网
给你个提示，最好自己去动手1 先建立高斯算子
fspecial2 滤波
imfilter 请参考请问我这段程序哪里错了？-ASP
小白要考自考，然后要学asp，写了一段程序，但是报错，不知道哪里有问题，请大神帮忙看看，谢谢！！&% Option Explicit %&&html& &head&
&title&今日运程&/title& &/head& &body&
&h1 align ="center"&今日运程&/h1&
Dim a，intMYyc
Randomize Timer()
a="您来访的时间是:"& Date()
intMYyc=Int((10*Rnd())+1)
If intMYyc&=7 Then
Response.write"大吉大利，好事连连"
ElseIf intMYyc&=4 And intMYyc&7 Then
Response.write"财源广进啦，靓仔"
Else intMYyc&=1 And intMYyc&4 Then
Response.write"年轻人，有桃花运啊"
Response.write a
&/html&ie浏览器报错如下
报什么错？
你还没有登录，请先登录或注册慕课网帐号
14485人关注
Copyright (C) 2018 imooc.com All Rights Reserved | 京ICP备 号-1113:26 提问
用vs编写了一个程序，运行时窗口显示不出来，但是这个程序确实在运行，请问哪里出错了呢？
//定义按钮的风格和显示文本
button[] = //定义9类按钮
BS_PUSHBUTTON, "按键按钮",
BS_DEFPUSHBUTTON, "默认按键按钮",
BS_CHECKBOX, "检查按钮",
BS_AUTOCHECKBOX, "自动检查按钮",
BS_GROUPBOX, "复选框",
BS_3STATE, "检查按钮",
BS_AUTO3STATE, "三状态自动检查按钮",
BS_AUTORADIOBUTTON, "自动圆按钮",
BS_RADIOBUTTON, "圆按钮",
//取得按钮的数目
#define NUM (sizeof button/sizeof button[0])
//定义应用程序的名字
static char szAppName[] = "BtnLook";
//预先声明消息处理、窗口类申请和初始化函数
LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
ATOM MyRegisterClass(HINSTANCE hInstance);
BOOL InitInstance(HINSTANCE, int);
//函数：WinMain
//作用：主应用函数
int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, PSTR szCmdLine, int iCmdShow)
//申请窗口类
MyRegisterClass(hInstance);
//应用程序的初始化
InitInstance(hInstance, iCmdShow);
while (GetMessage(&msg, NULL, 0, 0))
TranslateMessage(&msg);
DispatchMessage(&msg);
return msg.wP
//函数：MyRegisterClass
//作用：注册窗口类
ATOM MyRegisterClass(HINSTANCE hInstance)
WNDCLASSEX
wndclass.cbSize = sizeof(wndclass);
wndclass.style = CS_HREDRAW | CS_VREDRAW;
wndclass.lpfnWndProc = WndP
wndclass.cbClsExtra = 0;
wndclass.cbWndExtra = 0;
wndclass.hInstance = hI
wndclass.hIcon = LoadIcon(NULL, IDI_APPLICATION);
wndclass.hCursor = LoadCursor(NULL, IDC_ARROW);
wndclass.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH);
wndclass.lpszMenuName = NULL;
wndclass.lpszClassName = szAppN
return RegisterClassEx(&wndclass);
//函数：InitInstance
//作用：初始化应用程序
BOOL InitInstance(HINSTANCE hInstance, int nCmdShow)
hwnd = CreateWindow(szAppName, "按钮设计",
WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, CW_USEDEFAULT,
CW_USEDEFAULT, CW_USEDEFAULT,
NULL, NULL, hInstance, NULL);
ShowWindow(hwnd, SW_SHOWNORMAL);
UpdateWindow(hwnd);
return TRUE;
//函数：WndProc
//作用：消息处理函数
LRESULT CALLBACK WndProc(HWND hwnd, UINT iMsg, WPARAM wParam, LPARAM lParam)
{//窗口上显示提示信息
static char szTop[] = "消息 参数wParam 参数lParam",
szUnd[] = "____ ______ ______",
szFormat[] = "%-16s%04X-%04X %04X-%04X",
szBuffer[50];
//定义需要建立的按钮
static HWND hwndButton[NUM];
static RECT
static int cxChar, cyC
PAINTSTRUCT
TEXTMETRIC
switch (iMsg)
case WM_CREATE:
//取得图形设备描述表的句柄
hdc = GetDC(hwnd);
SelectObject(hdc, GetStockObject(SYSTEM_FIXED_FONT));
GetTextMetrics(hdc, &tm);
cxChar = tm.tmAveCharW
cyChar = tm.tmHeight + tm.tmExternalL
ReleaseDC(hwnd, hdc);
//创建按钮
for (i = 0; i & NUM; i++)
hwndButton[i] = CreateWindow("button",
button[i].text,
WS_CHILD | WS_VISIBLE | button[i].style,
cxChar, cyChar * (6 + 2 * i), 22 * cxChar,
7 * cyChar / 4,
((LPCREATESTRUCT)lParam)-&hInstance,
//取得文本显示区域的大小
case WM_SIZE:rect.left = 24 * cxC
rect.top = 2 * cyC
rect.right = LOWORD(lParam);
rect.bottom = HIWORD(lParam);
//重画文本
case WM_PAINT:InvalidateRect(hwnd, &rect, TRUE);
hdc = BeginPaint(hwnd, &ps);
SelectObject(hdc, GetStockObject(SYSTEM_FIXED_FONT));
SetBkMode(hdc, TRANSPARENT);
//输出文本头
TextOut(hdc, 24 * cxChar, cyChar, szTop, sizeof(szTop) - 1);
TextOut(hdc, 24 * cxChar, cyChar, szUnd, sizeof(szUnd) - 1);
EndPaint(hwnd, &ps);
case WM_DRAWITEM:
case WM_COMMAND:
ScrollWindow(hwnd, 0, -cyChar, &rect, &rect);
hdc = GetDC(hwnd);
SelectObject(hdc, GetStockObject(SYSTEM_FIXED_FONT));
//输出新的消息
TextOut(hdc, 24 * cxChar,
cyChar * (rect.bottom / cyChar - 1),
szBuffer, wsprintf(szBuffer,
iMsg == WM_DRAWITEM ? "WM_DRAWITEM" : "WM_COMMAND",
(int)(wParam), (int)(wParam),
HIWORD(lParam), LOWORD(lParam)));
//释放图形设备资源
ReleaseDC(hwnd, hdc);
//重新描绘客户区域
ValidateRect(hwnd, &rect);
//弹出消息对话框
switch (LOWORD(wParam))
MessageBox(hwnd, "Good", "Yes", MB_OKCANCEL);
//推出应用程序
case WM_DESTROY:
PostQuitMessage(0);
return DefWindowProc(hwnd, iMsg, wParam, lParam);
按赞数排序
产生该问题的根本原因请参考：
好久不写c++的代码了，亲自新建了一个项目调试了一下：
我测试的完整代码：
准确详细的回答，更有利于被提问者采纳，从而获得C币。复制、灌水、广告等回答会被删除，是时候展现真正的技术了！
其他相关推荐&%@ page contentType="text/ charset=GBK" language="java" errorPage="" %&
&html&
&head&
&meta http-equiv="Conte
&%@ page contentType="text/ charset=GBK" language="java" errorPage="" %&
&html&
&head&
&meta http-equiv="Content-Type" content="text/ charset=gb2312"&
&/head&
&body&
&%String userName= tParameter("username");
if(userName.equals("admin")){
int("你好，管理员!");
}
else{
int("用户错误!");
}
%&
&/body&
&/html&
%@ page contentTy相关信息="text chaset=g2312" language="java"%
html
head
meta http-equiv="Content-Type" content="text chaset=g2312"
head
ody
%Sting useName= tPaamete("usename");
if(useName.equals("admin")){
int("你好，管理员!");
}
else{
int("用户错误!");
}
%
ody
html
主要是把System.out改为out
out是JSP内建对象，被封装成 vlet.jsp.JspWite接口。它表示客户打开的输出流
System.out指的是标准输出。...
%@ page contentTy相关信息="text chaset=g2312" language="java"%
html
head
meta http-equiv="Content-Type" content="text chaset=g2312"
head
ody
%Sting useName= tPaamete("usename");
if(useName.equals("admin")){
int("你好，管理员!");
}
else{
int("用户错误!");
}
%
ody
html
主要是把System.out改为out
out是JSP内建对象，被封装成 vlet.jsp.JspWite接口。它表示客户打开的输出流
System.out指的是标准输出。
其他答案（共1个回答）
问题.另外,impot都全了没?
TC2.0是DOS程序，在dos程序眼里是没有内存保护，真的dos下，是没有内存保护的。
windows的dos模式下是windows欺骗dos模式的程序：你可...
不知道你要用什么语言来实现。
还有，这些基础的练习最好自己翻书去查，然后一句句自己用键盘敲进去~~~~
里面有三个for 循环：
1:for(i=1;i&=3;i++)最大的循环体，它循环执行以下程序：
for(j=1;j&=3-i+5;j++)
printf("...
可能是里面的程序文件丢失了再去下一个吧，我也做过cad课程设计，还蛮好玩的
答: 没有析构函数 ,但是有finalize用来释放资源。
希望能给你帮助。
答: 多线程 网络编程都忘光了 现在再翻书看做出来好累哦..
答: 所谓的网络编程，不论c还是java，本质上都是通过socket进行数据传输；
一般情况下可以使用的传输协议有tcp、udp、ftp等等，这些协议为网络变成提供基...
大家还关注
Copyright &
Corporation, All Rights Reserved
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区
相关问答：123456789101112131415