他山之石——VBA中的字符串操作

字符串操作是编程中最基本的操作，同时因其方法众多、参数多变，并不是很好掌握的。如果编程中遇到具体问题不会的，还是要多搜搜别人的解决方案的。

'字符串截取

'left,right,mid,Len
Sub z1()
  Dim sr
  sr = "Excel精英培训网"
  Debug.Print Left(sr, 5)
  Debug.Print Right(sr, 5)
  Debug.Print Mid(sr, 3, 5)
  Debug.Print Left(sr, Len(sr) - 1)
End Sub

'split
 
Sub z2()
  Dim sr, arr
  sr = "Excel的精的英的培训网"
  arr = Split(sr, "的")
  Debug.Print UBound(arr)
End Sub


'val

 Sub z3()
  Dim sr
  sr = "89.90美元"
  Debug.Print Val(sr)
 End Sub

'字符串组合
 '&
 Sub a4()
  Debug.Print "a" & "b"
 End Sub
 'join
  
 Sub a5()
  Dim sr, arr
  sr = "Excel-精英-培训网"
  arr = Split(sr, "-")
  Debug.Print Join(arr, "+")
End Sub


'LCase 转换成小写

Sub z1()
  Debug.Print LCase("ABC")
End Sub

'UCcae 转换成大写

Sub z2()

  Debug.Print UCase("Abc")
  
End Sub

'StrConv 函数

'常数 值 说明
'vbUpperCase 1 将字符串文字转成大写。
'vbLowerCase 2 将字符串文字转成小写。
'vbProperCase 3 将字符串中每个字的开头字母转成大写
Sub 转换()

  Debug.Print VBA.StrConv("wHo ARE you?", vbProperCase)
  
End Sub

Sub 转换2()
 Dim i As Long
Dim x() As Byte
x = StrConv("ABCDEFG", vbFromUnicode)    ' 转换字符串。
Debug.Print Application.Min(x)
For i = 0 To UBound(x)
    Debug.Print x(i)
Next

End Sub




'TRim删除两端空格
'Ltrim 删除左边空格
'Rtrim 删除右边空格
 Sub z3()
 Dim sr
 
 sr = " A B BC "
 Debug.Print Trim(sr)
 Debug.Print LTrim(sr)
 Debug.Print RTrim(sr)
 End Sub
 
'ASC 返回一个 Integer，代表字符串中首字母的字符代码,ANSI 字符集
'CHr 返回 String，其中包含有与指定的字符代码相关的字符
Sub z4()
  Debug.Print Asc("Z")
  Debug.Print Chr(90)
End Sub

'Space 和 string生成重复的字符

 Sub z5()
 
    Debug.Print "A" & Space(10) & "B"
    Debug.Print "C" & String(10, "a") & "D"
    
 End Sub


'instr 从前向后查

Sub c1()
  Dim sr
  sr = "Excel精英培训"
  Debug.Print InStr(sr, "精英") > 0
End Sub

'InStrRev 从后向前

Sub c2()
  Dim sr
  sr = "Excel精英培训培训论坛"
  Debug.Print InStr(sr, "培")
End Sub
'Replace替换

Sub c5()
 Dim sr
  sr = "Excel精英培训网"
  sr = Replace(sr, "培训网", "论坛")
  Debug.Print sr
End Sub

'mid语句替换

Sub c6()
 Dim sr
  sr = "Excel精英培训网"
  Mid(sr, 8, 3) = "论坛"
  Debug.Print sr
End Sub