VBA常用技巧代码解析

周晗露

在查询表M,N,O,数值提取不出来，望帮忙解决。谢谢！

yuanzhuping

原帖由 hyjp2002 于 2009-5-24 14:53 发表
斑竹，哪个选中区域自动重算的代码我复制后直接打开查看代码然后黏贴上去，结果测试了不行啊，是哪个环节出错了？

不是有附件的吗？是从贴子中直接复制代码的吗？前面有行号的。

yuanzhuping

原帖由 djx-0 于 2009-5-23 11:52 发表
点击以后到102页了

是有这情况，好像有时相差10页，应该是论坛的问题。
比如现在的118和119页是一样的。

[ 本帖最后由 yuanzhuping 于 2009-5-24 21:59 编辑 ]

zghui2003

感谢共享！！

jfyf

楼主真是太好人，从这里看，目前好人还是大大的存在的嘛，哈哈。
纯精神上支持一下版主。

gljzyp

万丈高楼平地起！
感谢楼主！

yuanzhuping

技巧160         判断是否为数值
       使用IsNumeric函数可以判断表达式的运算结果是否为数值，如下面的代码所示。

1. #001  Sub Numeric()
   
2. #002      Dim i As Integer
   
3. #003      Dim n As String
   
4. #004      Dim s As String
   
5. #005      With Sheet1
   
6. #006          For i = 1 To .Range("A65536").End(xlUp).Row
   
7. #007              If IsNumeric(.Cells(i, 1)) Then
   
8. #008                  n = n & .Cells(i, 1).Address(0, 0) & Chr(9) & .Cells(i, 1) & Chr(13)
   
9. #009              Else
   
10. #010                  s = s & .Cells(i, 1).Address(0, 0) & Chr(9) & .Cells(i, 1) & Chr(13)
    
11. #011              End If
    
12. #012          Next
    
13. #013      End With
    
14. #014      MsgBox "A列中数值单元格：" & Chr(13) & n & Chr(13) _
    
15. #015          & "A列中非数值单元格：" & Chr(13) & s
    
16. #016  End Sub

复制代码

代码解析：
       Numeric过程使用IsNumeric函数判断工作表的A列单元格是否为数值，并使用消息框显示。
       第7行代码判断工作表的A列单元格是否为数值。IsNumeric函数返回Boolean值，指出表达式的运算结果是否为数，语法如下：
      IsNumeric(expression)
       参数expression是必需的，Variant类型，包含数值表达式或字符串表达式。
       如果参数expression的运算结果为数字，则IsNumeric返回True，否则返回False。
       第8行代码将数值单元格的地址和数值保存在变量 e中。
       第10行代码将非数值单元格的地址和内容保存在变量 s中。在保存时插入制表符对数据列进行分隔，使之排列整齐，请参阅技巧73-5。
       运行Numeric过程结果如图所示。
      

fshpyang

太感谢你们了

sunahappy

非常感谢!下载学习

lennylau001

太感谢了！总找不到好的学习资料，这下可要好好研究一下啦！再次感谢！