vba常用代码

字符串转数字

CInt

CLng

Val

16进制字符串转数字，需要字符串前加"&H"前缀

--------------------------------------------------

数字转16进制字符串

Hex()

----------------------------------------------------------------------------------------------------------------

查找函数

InStr([start, ]string1, string2[, compare])
InStr 函数的语法具有下面的参数：
start        可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果指定了 compare 参数，则一定要有 start 参数。
string1        必要参数。接受搜索的字符串表达式。
string2        必要参数。被搜索的字符串表达式。
Compare可选参数。指定字符串比较。如果省略 compare，Option Compare 的设置将决定比较的类型。
compare 参数设置为：
常数                                值        描述
vbUseCompareOption        -1        使用Option Compare 语句设置执行一个比较。
vbBinaryCompare                0        执行一个二进制比较。
vbTextCompare                1        执行一个按照原文的比较。
vbDatabaseCompare                2        仅适用于Microsoft Access，执行一个基于数据库中信息的比较。

InStrRev(搜索的字符串,查找的字符或字符串,开始查找的位置(倒数的位置))

---------------------------------------------------------------------------------------

复制行

Sheets("数据来源").Rows(i).Copy Sheets("24正常").Range("a" & j)

------------------------------------------------------------------------------------------------------

调试显示即使值

Debug.Print varentname

--------------------------------------------------------------------------------------------

添加批注

Cells(1,2).AddComment(strComm)

Cells(1,2).Comment.Shape.Width=150  '修改批注 大小

Cells(1,2).Comment.Shape.Height=200

------------------------------------------------------------------------------------------

字符串变换大小写

StrTemp=LCase(StrTemp)

StrTemp=UCase(StrTemp)

----------------------------------------------------------------------------------

字符串内换行符

strTemp = "aaaaa" + Chr(10) +  "fffffff"

效果为

aaaaa

ffffffff

-------------------------------------------------------------------------------------

查找功能

Dim rng As Range

Set rng = wsAAA.Columns("B").Find("fff")  '给对像类赋值要有Set

if rng Is Nothing Then    'Is Nothing 是保留字

     MosgBox("can not find")

endif

------------------------------------------------------------------------------------------------

遍历文件夹中所有文件，打开工作簿

strPath="D:\AAA\"

strCurrentPath = Dir(strPath,vbDirectory)

Do While strCurrentPaht <> ""

    If strCurrentPaht<>"." And strCurrentPath <> ".." And strCurrentPath <> "" Then

    strCcurrentPath = strPath + strCurrentPath

    Set wbCurrent = Workbooks.Open(strCurrentPath)

    '-----------操作打开的表格

    wbCurrent.Close

    End If

    strCurrentPath = Dir' 每循环一次都得到下一个文件名

Loop