Excel VBA教程：单元格错误值
Excel VBA教程：单元格错误值
- 单元格错误值
Excel VBA教程：单元格错误值
可将单元格错误值插入单元格，或者用 CVErr函数测试单元格的值是否为某个错误值。单元格错误值可为以下 XlCVError 常量之一。
单元格错误值
xlErrValue
Excel VBA教程：单元格错误值·示例
本示例将七个单元格错误值分别插入到工作表 Sheet1 的 A1:A7 单元格区域中。
myArray = Array(xlErrDiv0, xlErrNA, xlErrName, xlErrNull, _
&&& xlErrNum, xlErrRef, xlErrValue)
For i = 1 To 7
&&& Worksheets("Sheet1").Cells(i, 1).Value = CVErr(myArray(i - 1))
本示例检查工作表 Sheet1 的活动单元格是否包含单元格错误值，如果有，则显示一则消息。本示例可作为针对单元格错误值的错误处理程序的模型结构。
Worksheets("Sheet1").Activate
If IsError(ActiveCell.Value) Then
&&& errval = ActiveCell.Value
&&& Select Case errval
&&&&&&& Case CVErr(xlErrDiv0)
&&&&&&&&&&& MsgBox "#DIV/0! error"
&&&&&&& Case CVErr(xlErrNA)
&&&&&&&&&&& MsgBox "#N/A error"
&&&&&&& Case CVErr(xlErrName)
&&&&&&&&&&& MsgBox "#NAME? error"
&&&&&&& Case CVErr(xlErrNull)
&&&&&&&&&&& MsgBox "#NULL! error"
&&&&&&& Case CVErr(xlErrNum)
&&&&&&&&&&& MsgBox "#NUM! error"
&&&&&&& Case CVErr(xlErrRef)
&&&&&&&&&&& MsgBox "#REF! error"
&&&&&&& Case CVErr(xlErrValue)
&&&&&&&&&&& MsgBox "#VALUE! error"
&&&&&&& Case Else
&&&&&&&&&&& MsgBox "This should never happen!!"
&&& End Select
上页： 下页：
Excel VBA教程：单元格错误值
- 单元格错误值
版权所有 & 　证书：粤ICP备号如果某单元格值为1 就删掉这一列 如何做!
问题描述：如果某一单元格的值为1 就删掉这一列 如何做!或 把实际值设为0
推荐回答：可以对单元格设置条件属性，如果值为1，则设置列宽为0，即隐藏当前列 查看更多答案
问题：用数组公式获取一列中的第一个非空单元格值
回答：可以用多种方法获取一列或一行中的第一个非空单元格值，例如下面的几个数组公式：
获取一列中第一个非空单元格值，假设数据在A1:A10区域中：
=INDEX(A1:A10,MATCH(TRUE,LEN(A1:A10)&&0,0),1)
=INDEX(A1:A10,MATCH(,0/(A1:A10&& ),))
问题：用数组公式从一列中提取非空单元格值
回答：...数组中的空值，最后用INDEX函数返回一列连续的非空单元格值。本例由于A2:A20区域
问题：Excel从多列各取一个单元格值进行组合一例
回答：...工作中遇到一个问题，需要在Excel中从多列各取一个单元格值进行组合，得到全部的组合数据。如图所示，要得到“颜色”、“领型”和“尺码”的全部组合，放到以E2为左上角的区域中。经过一番摸索后总结了几种方法，分别...
问题：用VBA根据单元格值动态改变图片
回答：在Excel中通过改变单元格的值来更换图片，通常需要把图片插入到工作簿中，再用公式来更换。该方法在图片较多时有些不便，这时可用VBA代码来进行图片更换，而无需插入这些图片。步骤如下：1.将所有图片放在一个文件夹中...
问题：在Excel工作表单元格中自动输入数据
回答：...完成键入的项，可以封锁此选项。
如何打开或封锁单位格值的自动完乐成能
1、单击“Microsoft Office 按钮”，然后单击“Excel 选项”。
2、单击“高级”，然后在“编辑选项”下，排除或选中“为单位格值启用影象式键入”...
问题：重点显示出Excel2013某数字范围的单元格
回答：...选择第二种：只为包含以下内容的单元格设置格式，单元格值介于200到600之间。
③下面进行单元格的设置，在填充选项卡中，选择一种颜色，确定。
④这样就突出某数值区间的单元格，如果大家要突出大于指定值的单元格...
相关知识：
为您推荐：
在表格中B列是日期，E列是金额。怎么样...
请高手解惑： 这个要编写VBA代码，是一...
CRM系统是国内的好还是国外的好，各有...
在图层上右键-创建剪帖蒙板，快键方法...查看: 3003|回复: 4
[已解决]vba 中单元格如何获取到MsgBox 的返回值
MsgBox Environ(&COMPUTERNAME&)
XLS&&vba 中单元格如何获取到MsgBox 的返回值
hwc2ycy发布于
range(&a1&)=Environ(&COMPUTERNAME&)
&&&本楼为最佳答案&&&
range(&a1&)=Environ(&COMPUTERNAME&)
这样就在A1单元格显示系统环境变量COMPUTERNAME的值了。
MsgBox Environ(&COMPUTERNAME&)
range(&a1&)=Environ(&COMPUTERNAME&)
兄弟留下你的QQ号码
有事就论坛发贴吧。&
Powered by后使用快捷导航没有帐号？
请完成以下验证码
:victory: 是罗刚君的书吧？
原帖由 sblp007 于
21:02 发表
:victory: 是罗刚君的书吧？
是的，摘录其中有关单元格的一些引用方式
认真的看完了全部，非常的受教
講的很詳細哦,貼子看完了.
补充资料很全面，很详细，谢谢！
[ 本帖最后由 hy 于
09:17 编辑 ]
感谢分享:handshake
相对比较全面，但还是有个别知识点没提到！如连续与非连续区域引用的一些区别等，哈哈:lol
在论坛逛发现的fanjy版主写的VBA单元格引用方式的贴子，很好，与楼主的贴子归在一起方便阅读，现转帖如下：
& & [转]在VBA代码中引用工作表单元格区域的方式小结
& && &&&在使用ExcelVBA进行编程时，我们通常需要频繁地引用单元格区域，然后再使用相应的属性和方法对区域进行操作。所谓单元格区域，指的是单个的单元格、或者是由多
个单元格组成的区域、或者是整行、整列等。下面，我们设定一些情形，以问答的形式对引用单元格区域的方式进行归纳。
问题一：在VBA代码中，如何引用当前工作表中的单个单元格(例如引用单元格C3)？
回答：可以使用下面列举的任一方式对当前工作表中的单元格(C3)进行引用。
(1) Range(&C3&)
(3) Cells(3, 3)
(4) Cells(3, &C&)
(5) Range(&C4&).Offset(-1)
Range(&D3&).Offset(, -1)
Range(&A1&).Offset(2, 2)
(6) 若C3为当前单元格，则可使用：ActiveCell
(7) 若将C3单元格命名为“Range1”，则可使用：Range(&Range1&)或[Range1]
(8) Cells(4, 3).Offset(-1)
(9) Range(&A1&).Range(&C3&)
问题二：在VBA代码中，我要引用当前工作表中的B2:D6单元格区域，有哪些方式？
回答：可以使用下面列举的任一方式对当前工作表中单元格区域B2:D6进行引用。
(1) Range(“B2:D6”)
(2) Range(&B2&, &D6&)
(3) [B2:D6]
(4) Range(Range(&B2&), Range(&D6&))
(5) Range(Cells(2, 2), Cells(6, 4))
(6) 若将B2:D6区域命名为“MyRange”，则又可以使用下面的语句引用该区域：
① Range(&MyRange&)
② [MyRange]
(7) Range(&B2&).Resize(5, 3)
(8) Range(&A1:C5&).Offset(1, 1)
(9) 若单元格B2为当前单元格，则可使用语句：Range(ActiveCell, ActiveCell.Offset(4, 2))
(10) 若单元格D6为当前单元格，则可使用语句：Range(&B2&, ActiveCell)
问题三：在VBA代码中，如何使用变量实现对当前工作表中不确定单元格区域的引用？
回答：有时，我们需要在代码中依次获取工作表中特定区域内的单元格，这通常可以采取下面的几种方式：
(1) Range(“A” & i)
(2) Range(“A” & i & “:C” & i)
(3) Cells(i,1)
(4) Cells(i,j)
其中，i、j为变量，在循环语句中指定i和j的范围后，依次获取相应单元格。
问题四：在VBA代码中，如何扩展引用当前工作表中的单元格区域？
回答：可以使用Resize属性，例如：
(1) ActiveCell.Resize(4, 4)，表示自当前单元格开始创建一个4行4列的区域。
(2) Range(&B2&).Resize(2, 2)，表示创建B2:C3单元格区域。
(3) Range(&B2&).Resize(2)，表示创建B2:B3单元格区域。
(4) Range(&B2&).Resize(, 2)，表示创建B2:C2单元格区域。
如果是在一个单元格区域(如B3:E6)，或一个命名区域中(如将单元格区域B3:E6命名为“MyRange”)使用Resize属性，则只是相对于单元格区域左上角单元格扩展区域，例如：
代码Range(&C3:E6&).Resize(, 2)，表示单元格区域C3：D6，并且扩展的单元格区域可不在原单元格区域内。
因此，可以知道Resize属性是相对于当前活动单元格或某单元格区域中左上角单元格按指定的行数或列数扩展单元格区域。
问题五：在VBA代码中，如何在当前工作表中基于当前单元格区域或指定单元格区域处理其它单元格区域？
回答：可以使用Offset属性，例如：
(1) Range(&A1&).Offset(2, 2)，表示单元格C3。
(2) ActiveCell.Offset(, 1)，表示当前单元格下一列的单元格。
(3) ActiveCell.Offset(1)，表示当前单元格下一行的单元格。
(4) Range(&C3:D5&).Offset(, 1)，表示单元格区域D3:E5，即将整个区域偏移一列。
从上面的代码示例可知，Offset属性从所指定的单元格开始按指定的行数和列数偏移，从而到达目的单元格，但偏移的行数和列数不包括指定单元格本身。
问题六：在VBA代码中，如何在当前工作表中引用交叉区域？
回答：可以使用Intersect方法，例如：
Intersect(Range(&C3:E6&), Range(&D5:F8&))，表示单元格区域D5:E6，即单元格区域C3:E6与D5:F8相重迭的区域。
问题七：在VBA代码中，如何在当前工作表中引用多个区域？
(1) 可以使用Union方法，例如：
Union(Range(&C3:D4&), Range(&E5:F6&))，表示单元格区域C3:D4和E5:F6所组成的区域。
Union方法可以将多个非连续区域连接起来成为一个区域，从而可以实现对多个非连续区域一起进行操作。
(2) 也可以使用下面的代码：
Range(&C3:D4, E5:F6&)或[C3:D4, E5:F6]
注意：Range(&C3:D4&, &F5:G6&)，表示单元格区域C3:G6，即将两个区域以第一个区域左上角单元格为起点，以第二个区域右下角单元格为终点连接成一个新区域。
同时，在引用区域后使用Rows属性和Columns属性时，注意下面代码的区别：
①Range(&C3:D4&, &F8:G10&).Rows.Count，返回的值为8；
②Range(&C3:D4,F8:G10&).Rows.Count，返回的值为2，即只计算第一个单元格区域。
问题八：在VBA代码中，如何引用当前工作表中活动单元格或指定单元格所在的区域(当前区域)？
回答：可以使用CurrentRegion属性，例如：
(1) ActiveCell.CurrentRegion，表示活动单元格所在的当前区域。
(2) Range(&D5&).CurrentRegion，表示单元格D5所在的当前区域。
当前区域是指周围由空行或空列所围成的区域。该属性的详细使用参见《》一文。
问题九：在VBA代码中，如何引用当前工作表中已使用的区域？
回答：可以使用UsedRange属性，例如：
(1) Activesheet.UsedRange，表示当前工作表中已使用的区域。
(2) Worksheets(&sheet1&).UsedRange，表示工作表sheet1中已使用的区域。
与CurrentRegion属性不同的是，该属性代表工作表中已使用的单元格区域，包括显示为空行，但已进行过格式的单元格区域。该属性的详细使用参见《》一文。
问题十：如何在单元格区域内指定特定的单元格？
回答：可以使用Item属性，例如：
(1) Range(&A1:B10&).Item(5,3)指定单元格C5，这个单元格处于以区域中左上角单元格A1(即区域中第1行第1列的单元格)为起点的第5行第3列。因为Item属性为默认属性，因
此也可以简写为：Range(&A1:B10&)(5,3)。
如果将A1:B10区域命名为”MyRange”，那么Range(&MyRange&)(5,3)也指定单元格C5。
(2) Range(&A1:B10&)(12,13)指定单元格M12，即用这种方式引用单元格，该单元格不必一定要包含在区域内。
同时，也不需要索引数值是正值，例如：
① Range(&D4:F6&)(0,0)代表单元格C3；
② Range(&D4:F6&)(-1,-2)代表单元格A2。
而Range(&D4:F6&)(1,1)代表单元格D4。
(3) 也可以在单元格区域中循环，例如：
Range(&D4:F6&)(2,2)(3,4)代表单元格H7，即该单元格位于作为左上角单元格E5的第3行第4列(因为E5是开始于区域中左上角单元格D4起的第2行第2列)。
(4) 也能使用一个单个的索引数值进行引用。计数方式为从左向右，即在区域中的第一行开始从左向右计数，第一行结束后，然后从第二行开始从左到右接着计数，依次类推。
(注：从区域中第一行第一个单元格开始计数，当第一行结束时，转入第二行最左边的单元格，这样按一行一行从左向右依次计数。以单元格区域中第1个单元格开始，按上述
规则依次为第2个单元格、第3个单元格….等等)，例如：
Range(&A1:B2&)(1) 代表单元格A1；
Range(&A1:B2&)(2) 代表单元格B1；
Range(&A1:B2&)(3) 代表单元格A2；
Range(&A1:B2&)(4) 代表单元格B2。
这种方法可在工作表中连续向下引用单元格(即不一定是在单元格区域内，但在遵循相同的规律)，例如：
Range(&A1:B2&)(5)代表单元格A3；
Range(&A1:B2&)(14)代表单元格B7，等等。
也可以使用单个的负数索引值。
这种使用单个索引值的方法对遍历列是有用的，例如，Range(&D4&)(1)代表单元格D4，Range(&D4&)(2)代表单元格D5，Range (&D4&)(11)代表单元格D14，等等。
同理，稍作调整后也可遍历行，例如：
Range(&D4&).Columns(2)代表单元格E4，Range(&D4&).Columns(5)指定单元格H4，等等。
(5)当与对象变量配合使用时，Item属性能提供简洁并有效的代码，例如：
Set rng = Worksheets(1).[a1]
定义了对象变量后，像单元格方法一样，Item属性允许使用两个索引数值引用工作表中的任一单元格，例如，rng(3,4)指定单元格D3。(By Chip Pearson)
问题十一：在VBA代码中，如何引用当前工作表中的整行或整列？
回答：见下面的示例代码：
(1) Range(&C:C&).Select，表示选择C列。
& &Range(&C:E&).Select，表示选择C列至E列。
(2) Range(&1:1&).Select，表示选择第一行。
& &Range(&1:3&).Select，表示选择第1行至第3行。
(3) Range(&C:C&).EntireColumn，表示C列；
& &Range(&D1&).EntireColumn，表示D列。
同样的方式，也可以选择整行，然后可以使用如AutoFit方法对整列或整行进行调整。
问题十二：在VBA代码中，如何引用当前工作表中的所有单元格？
回答：可以使用下面的代码：
(1) Cells，表示当前工作表中的所有单元格。
(2) Range(Cells(1, 1), Cells(Cells.Rows.Count, Cells. Columns.Count))，其中Cells.Rows表示工作表所有行，Cells. Columns表示工作表所有列。
问题十三：在VBA代码中，如何引用工作表中的特定单元格区域？
回答：在工作表中，您可能使用过“定位条件”对话框。可以通过选择菜单“编辑——定位”，单击“定位”对话框中的“定位条件”按钮显示该对话框。这个对话框可以
允许用户选择特定的单元格。例如：
(1) Worksheets(&sheet1&).Cells.SpecialCells(xlCellTypeAllFormatConditions)，表示工作表sheet1中由带有条件格式的单元格所组成的区域。
(2) ActiveCell.CurrentRegion.SpecialCells(xlCellTypeBlanks)，表示当前工作表中活动单元格所在区域中所有空白单元格所组成的区域。
当然，还有很多常量和值的组合，可以让您实现特定单元格的查找并引用。参见《》一文。
问题十四：在VBA代码中，如何引用其它工作表或其它工作簿中的单元格区域？
回答：要引用其它工作表或其它工作簿中的单元格区域，只需在单元格对象前加上相应的引用对象即可，例如：
(1) Worksheets(“Sheet3”).Range(“C3:D5”)，表示引用工作表sheet3中的单元格区域C3:D5。
(2) Workbooks(“MyBook.xls”).Worksheets(“sheet1”).Range(“B2”)，表示引用MyBook工作簿中工作表Sheet1上的单元格B2。
问题十五：还有其它的一些情形吗？
回答：列举如下：
(1) Cells(15)，表示单元格O1，即可在Cells属性中指定单元格数字来选择单元格，其计数顺序为自左至右、从上到下，又如Cells(257)，表示单元格B1。
(2) Cells(, 256)，表示单元格IV1，但是如果Cells(, 257)，则会返回错误。
& && &&&我们用VBA对Excel进行处理，一般是对其工作表中的数据进行处理，因此，引用单元格区域是ExcelVBA编程中最基本的操作之一，只有确定了所处理的单元格区域，
才能使用相应的属性和方法进行下一步的操作。
& && &&&上面列举了一些引用单元格区域的情形和方式，可以看出，引用单元格区域有很多方式，有一些可能不常用，可以根据工作表的所处的环境和个人编程习惯进行选择
使用。当然，在编写程序时，也可能会将上面的一些属性联合使用，以达到选取特定操作对象的目的，例如Offset属性、Resize属性、CurrentRegion属性、UsedRange属性等
By fanjy in
另有一个补充：使用VBA代码选择单元格/区域
[ 本帖最后由 hy 于
10:04 编辑 ]
谢谢分享。
9楼收集的也很详细，谢谢分享
站长推荐 /1
郭辉 讲师——ExcelHome版主，某大型集团公司财务总监，20年财务工作经验，15年Excel学习经历。<font color=#月28/29日 20:00开讲，敬请关注！}