常用的VBA函数及语句

最新推荐文章于 2024-01-05 07:06:58 发布

poloyzhang

最新推荐文章于 2024-01-05 07:06:58 发布

阅读量3.7k

点赞数 2

CC 4.0 BY-SA版权

分类专栏： DotNet_C# 文章标签： vba string null date 语言工作

本文链接：https://blog.csdn.net/poloyzhang/article/details/7012858

DotNet_C# 专栏收录该内容

97 篇文章

订阅专栏

清除行内容

Rows("2:2").Select
Selection.ClearContents

粘贴到另一个表中有字符的下一行或粘贴到最后一行字符的下一行:

该行的行号为: Sheets("sheet1").Range("A65536").End(xlUp).Row + 1

得到最后一行 : ActiveSheet.UsedRange. Item(ActiveSheet.UsedRange.Count).row

判断一个单元表是否存在

dim ws as worksheet
on error resume next
set ws = worksheets("sheet1")
if err then msgbox " sheet1工作表不存在"
on error goto 0

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

判断一个sheet表是否存在,如果存在则删除, 备份一下.

    Sub copyORGFCST() '
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = Worksheets("ORGFCST_2")
    If Err Then
        Sheets("ORGFCST").Select
        Sheets("ORGFCST").Copy After:=Sheets("ORGFCST")
        ActiveSheet.Name = "ORGFCST_2"
        On Error GoTo 0
    Else
        Sheets("ORGFCST_2").Delete
        Sheets("ORGFCST").Select
        Sheets("ORGFCST").Copy After:=Sheets("ORGFCST")
        ActiveSheet.Name = "ORGFCST_2"
    End If
End Sub

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

Sub copyORGFCST() '
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = Worksheets("ORGFCST_2")
    If Not Err Then
        Application.DisplayAlerts = False
       Sheets("ORGFCST_2").Delete
        Sheets("ORGFCST").Select
        Sheets("ORGFCST").Copy After:=Sheets("ORGFCST")
        ActiveSheet.Name = "ORGFCST_2"

    End If
    Application.DisplayAlerts = True
End Sub

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

Sub Macro1()

Dim i, j As Long
Dim dt As String
dt = "2011-12-26"
i = InStr(StrReverse(dt), "-")
Debug.Print (i)

j = Len(dt) - i
dt = Mid(dt, 1, j)

End Sub

结果为 2011-12

Sub test()
Dim i, j As Long
Dim dt, dtY, dtM As String
dt = "2011-12-26"

dtM = Month(dt)
dtY = Year(dt)

dt = dtY & "-" & dtM

End Sub
结果为 2011-12

string 类的字符

Trim(string) 去年string左右两端的空白

Len(string) 计算string长度

left(string,x) 取string左段x个字符组成的字符串.

Right(string, x ) 取string 右段 x个字符组成的字符串.

可使用InStr函数返回一字符串在另一字符串中的位置，因此，也可以使用该函数确定一个字符串中是否包含有另一个字符串。其语法为：
InStr([Start,]string1,string2[,compare])
其中，参数Start为可选参数，设置查找的起点，如果省略，则从第一个字符的位置开始查找，当指定了参数Compare时，则要指定此参数。参数string1为被查找的字符串，参数string2为要查找的字符串，这两个参数都是必需的。

instr( "2011-11-26", "-")

反向字符串
StrReverse函数返回与指定字符串顺序相反的字符串，其语法为：
StrReverse(expression)
其中，参数expression是一个字符串，应用StrReverse函数后将返回与该字符串顺序相反的字符串。如果expression是一个长度为零的字符串(“”)，则返回一个长度为零的字符串；如果expression为Null，则产生一个错误。

Mid函数

Mid(string, start[,length])

Mid 函数的语法具有下面的命名参数：

部分	说明
*string*	必要参数。字符串表达式，从中返回字符。如果 *string* 包含Null，将返回Null。
*start*	必要参数。为 Long。*string* 中被取出部分的字符位置。如果*start超过string的字符数，Mid* 返回零长度字符串 ("")。
*length*	可选参数；为 Variant (Long)。要返回的字符数。如果省略或*length超过文本的字符数（包括start处的字符），将返回字符串中从start*到尾端的所有字符。

说明

欲知 string 的字符数，可用 Len 函数。

注意 MidB 函数作用于字符串中包含的字节数据，如同在双字节字符集(DBCS)语言中一样。因此其参数指定的是字节数，而不是字符数。对于使用MidB的示例代码，请参阅示例主题中的第二个示例。

日期型函数

日期与时间关键字总结

请参阅

作用	关键字
设置当前日期或时间。	Date ,Now,Time
计算日期。	DateAdd, DateDiff, DatePart
返回日期。	DateSerial, DateValue
返回时间。	TimeSerial, TimeValue
设置日期或时间。	Date, Time
计时。	Timer