excel vba if问题。如果a1单元格等于空白 则执行条件结束 负责执行后面语句。怎么写代码_百度知道
excel vba if问题。如果a1单元格等于空白 则执行条件结束 负责执行后面语句。怎么写代码
excel vba if问题。如果a1单元格等于空白 则执行条件结束 负责执行后面语句。怎么写代码？
我有更好的答案
'那不就是,不为空才执行么if&[a1]&&&&&then&&&&msgbox&1end&if
采纳率：67%
来自团队：
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。excel用vba时出现运行错误6-溢出，请帮忙看下我的程序是不是有问题_百度知道
excel用vba时出现运行错误6-溢出，请帮忙看下我的程序是不是有问题
Dim A1 As Worksheet, A2 As Worksheet, p As Integer, ts As Integer, i As Integer, j As Integer
Set A1 = Worksheets(&样本1&)
Set A2 = Worksheets(&日收益率数据1&)
Worksheets(&数据匹配1&).Select
m = A1.UsedRange.Rows.Coun...
我有更好的答案
dim语句中的integer都改为Long，因为Integer正数最大为32767 另外，大量循环应该考虑将表格读入数组，用数组参与循环，提高速度。 比如使用语句：A1=Worksheets(&样本1&).usedrange则生成A1数组，A1(i,1)就相当于cells(i,1) 另外可以学习VBA的字典法，进一步提高匹配速度
采纳率：49%
变量定义为整型integer，范围是-32768到 32767 ，所以45000肯定超限了。改成 long，长整型就好了。
代码都没用，咋看？
为您推荐：
其他类似问题
excel的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 837|回复: 5
当达到指定条件时按钮才会向下执行，否则报错。
阅读权限10
在线时间 小时
& & & & & & & &
求助各位老师：&&
& && & 我的excel表格是有两个工作表，其中一个名称为“配送计划”，另一个名称为“汇总”
& && & 在“配送计划”中有个按钮，代码如下：
Sub 按钮3_Click()
x = InputBox(&请输入密码&)
& & ActiveSheet.Unprotect (&wl&)
& & Rows(&4:36&).Select
& & ActiveWindow.SmallScroll Down:=-42
& & ActiveWorkbook.Worksheets(&配送计划&).Sort.SortFields.Clear
& & ActiveWorkbook.Worksheets(&配送计划&).Sort.SortFields.Add Key:=Range(&E4:E36&), _
& && &&&SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
& & With ActiveWorkbook.Worksheets(&配送计划&).Sort
& && &&&.SetRange Range(&A3:O36&)
& && &&&.Header = xlYes
& && &&&.MatchCase = False
& && &&&.Orientation = xlTopToBottom
& && &&&.SortMethod = xlPinYin
& && &&&.Apply
& & End With
& & Range(&B4&).Select
For i = [M65536].End(xlUp).Row To 3 Step -1 '从L栏最后有数据单元格往上到第3行
& & If Cells(i, 14) = &删除& Then Rows(i).Delete '如果N栏单元格等于“删除”，就刪除该列
ActiveSheet.Protect (&wl&), DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
我想实现的功能为：
点击按钮后
1.系统自动统计“汇总”表中，从第4行（包括)以下B列有内容的行；
2.在“汇总”表有内容的行里，判断I列，如果I列中任何一个单元格为0，则停止往下执行并弹出错误提示“对不起，加油站报送的库存不完整，请补充完数据后重新执行！”，否则继续执行我上边的代码。
我是刚开始学习的菜鸟，在此感谢各位老师的热心帮助。还麻烦老师们尽量说详细一些，比如，要插入什么代码，插入在什么地方？在此感激不尽！
阅读权限10
在线时间 小时
& & & & & & & &
本帖最后由 hopemao 于
21:55 编辑
现将附件上传，再次感谢各位老师的热心帮助！
不过，不好意思，判断的不应该是I列，应该是G列。
点击按钮后
1.系统自动统计“汇总”表中，从第4行（包括)以下B列有内容的行；
2.在“汇总”表有内容的行里，判断G列，如果G列中任何一个单元格为0，则停止往下执行并弹出错误提示“对不起，加油站报送的库存不完整，请补充完数据后重新执行！”，否则继续执行我上边的代码。
我是刚开始学习的菜鸟，在此感谢各位老师的热心帮助。还麻烦老师们尽量说详细一些，比如，要插入什么代码，插入在什么地方？在此感激不尽！
本人在线等待！
21：54分了，还是没有等到，本人继续等！！
20:29 上传
点击文件名下载附件
30.46 KB, 下载次数: 6
阅读权限70
在线时间 小时
hopemao 发表于
现将附件上传，再次感谢各位老师的热心帮助！
不过，不好意思，判断的不应该是I列，应该是G列。
先將你第一個問題的解答附上。你看這個程式要在你程式的哪個地方呼叫﹐只要Call它即可。
Sub 將配送計劃彙整到匯總()
&&Dim i As Byte
&&Dim j As Byte
&&With Sheets(&配送計劃&)
& & For i = 4 To 36
& && &If .Range(&B& & i) && 0 Then
& && &For j = 1 To 5
& && &&&Select Case True
& && && & Case j = 1 Or j = 2
& && && && &Sheets(&匯總&).Cells(i, j) = .Cells(i, j)
& && && & Case j = 3
& && && && &Sheets(&匯總&).Cells(i, j) = .Cells(i, j + 1)
& && && & Case j = 4
& && && && &Sheets(&匯總&).Cells(i, j + 4) = Month(.Cells(i, j + 1)) & &/& & Day(.Cells(i, j + 1)) & &/& & CStr(.Cells(i, j + 3))
& && && & Case Else
& && && && &Sheets(&匯總&).Cells(i, j + 4) = .Cells(i, j + 1)
& && &&&End Select
& && &Next j
& && &End If
& & Next i
&&End With
阅读权限10
在线时间 小时
phsu 发表于
先將你第一個問題的解答附上。你看這個程式要在你程式的哪個地方呼叫﹐只要Call它即可。
Sub 將配送計劃 ...
非常感谢老师，您看能不能直接在附件上改，谢谢！
阅读权限90
在线时间 小时
hopemao 发表于
非常感谢老师，您看能不能直接在附件上改，谢谢！
你搞那么多合并单元格做什么 ？这样不好处理数据。
阅读权限70
在线时间 小时
hopemao 发表于
非常感谢老师，您看能不能直接在附件上改，谢谢！
由於使用繁體字﹐直接改之後怕你無法使用。你只要把
Call 將配送計劃彙整到匯總
這行陳述式加入你打算匯總的地方即可。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师EXCEL中用VBA实现多个条件筛选 ，并统计的问题？
[问题点数：200分，结帖人jone999]
EXCEL中用VBA实现多个条件筛选 ，并统计的问题？
[问题点数：200分，结帖人jone999]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
匿名用户不能发表回复！|查看: 13681|回复: 10
请帮助看一下，运行时错误424：要求对象
阅读权限30
在线时间 小时
本帖最后由 wyzdddl 于
16:14 编辑
(31.94 KB, 下载次数: 41)
09:17 上传
点击文件名下载附件
为什么下面代码中加了”Windows(&腾远配件资料.xlsm&).Activate这句后“，运行时出现“运行时错误424：要求对象”的提示？
Sub 查看该配件资料()Dim i& '声明变量Ai = ActiveCell.Row + 1 With Sheets(&配件资料&)& & .Activate& & .Range(&A& & i & &:Z& & i).Select End WithEnd Sub这个可以正常运行
而加了“Windows(&腾远配件资料.xlsm&).Activate”它之后，就提示“错误424”，如下：
Sub 查看该配件资料()
Dim i& i = ActiveCell.Row
With Windows(&腾远配件资料.xlsm&).Activate
& & Sheets(&配件资料&).Activate
& & .Range(&A& & i & &:Z& & i).Select
阅读权限95
在线时间 小时
本帖最后由 zez 于
08:48 编辑
虽然我打不开xlsm文件，但从方便愿意帮助你的人着想，还是建议楼主上传附件！
阅读权限30
在线时间 小时
本帖最后由 wyzdddl 于
09:21 编辑
zez 发表于
虽然我打不开xlsm文件，但从方便愿意帮助你的人着想，还是建议楼主上传附件！
您好，谢谢您，已经上传了xls格式的附件
附件在一楼
阅读权限95
在线时间 小时
Sub 查看该配件资料()
i = ActiveCell.Row
With Workbooks(&腾远配件资料.xls&)
& & Application.Goto .Sheets(&配件资料&).Range(&A& & i & &:Z& & i)
阅读权限100
在线时间 小时
&配件资料&工作表在Windows(&腾远配件资料.xlsm&)里面还是在代码所在的工作簿里面的？
阅读权限30
在线时间 小时
蓝桥玄霜 发表于
&配件资料&工作表在Windows(&腾远配件资料.xlsm&)里面还是在代码所在的工作簿里面的？
在“腾远配件资料”工作簿，不在，当前工作簿
阅读权限30
在线时间 小时
doitbest 发表于
Sub 查看该配件资料()
i = ActiveCell.Row
提示“下标越界”
阅读权限20
在线时间 小时
Sub 查看该配件资料()
Dim i& i = ActiveCell.Row
With Windows(&腾远配件资料.xlsm&).Activate
& & Sheets(&配件资料&).Activate
& & .Range(&A& & i & &:Z& & i).Select
&&with&&循环体内容错误了，导致 .Range(&A& & i & &:Z& & i).Select 无法运行，你自己再改一下。
阅读权限95
在线时间 小时
我把代码放在&求助&中运行正常，而且你附件中的是“腾远配件资料.xls”，而不是“腾远配件资料.xlsm”
阅读权限95
在线时间 小时
选择同一工作簿中其它工作表上的单元格或者选择不同工作簿中的单元格，用GOTO，或者先激活要选择的工作簿的工作表再用SELECT。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师