VB 字串函數

最近用c#在寫 code，已經有一段時間沒有寫 VB Code，最近寫一些 VBA 程式連一些很基本字串函數快要忘光或搞混掉。順便作一下筆記整理整理，以便以後不時之需。

計算字串長度

Len(string)--------->return 整數值

範例
Dim x As String
Dim i As Integer
i = Len("string")---------> i=6

轉換英文字母大小寫

UCase(string)---------->將字串的小寫英文字母轉換成大寫
LCase(string)---------->將字串的大寫英文字母轉換成小寫

範例
UCase("Abc")--------->return ABC
LCase("Abc")--------->return abc

取字串

Left(string,n)-------->從字串左邊取出n個字元
Right(string,n)------->從字串右邊取出n個字元
Mid(string,n)--------->從字串第n個字元開始，取出所有字元
Mid(string,n,m)------->從字串第n個字元開始，取出m個字元

範例
Left("123456",3)-------->return 123
Right("123456")--------->return 456
Mid("123456",3)--------->return 3456
Mid("123456",3,3)------->return 345

字串取代

Replace(字串,被取代的字串, 取代的字串)--------->將字串中某些字串取代成別的字串

範例
Replace("AA_BB_CC","_","-")--------->return "AA-BB-CC"

尋找字串

InStr(字串,尋找的字串)------------>從前面尋找字串第一次出現的位置
InStrRev(字串,尋找的字串)-------->從後面尋找字串第一次出現的位置

範例
InStr("AA_BB_CC", "_")-------->return 3
InStrRev("AA_BB_CC", "_")---->return 6

反轉字串

StrReverse(字串)------------->將字串反轉

範例
StrReverse("AA_BB_CC")------>return CC_BB_AA

產生空白字串

Space(n)---------->產生n個字元空白字串

範例
x= "AA" + Space(2) + "BB"--------->return AA BB

Excel 複製 WorkSheet by 程式

在Excel中用程式的方法複製工作表並更新工作表名稱語法。

Sheets("2").Select
Sheets("2").Copy After:=Sheets("2")
Sheets("2 (2)").Select
Sheets("2 (2)").Name = "WorkSheetName"