VBA , : StrComp InStr.
StrComp:
StrComp (String1, String2 [, Compare ])
String1, String2 - , . Compare - , :
- vbBinaryCompare - ;
- vbTextCompare - .
, . VBA .
Compare , Option Compare (. 3 ).
StrComp :
- -1, String1 String2;
- 0, String1 String2 ;
- 1, String1 String2.
Comp_Str vbTextCompare, Text.
Sub Comp_Str()
Dim R1 As String, R2 As String, R3 As String
R1 = StrComp("1", "2", vbTextCompare)
R2 = StrComp("1", "1", vbTextCompare)
R3 = StrComp("2", "1", vbTextCompare)
MsgBox "R1=" & R1 & " " & "R2=" & R2 & " " & "R3=" & R3
End Sub
Comp_Str: 1 , 2, R1=1, (R2=0) 2 , 1 (R3=1). InStr , . :InStr([ Start,] String1, String2 [, Compare])
String1, String2 . , String1 String2.
Start , String1, . Start , Compare.
Compare , StrComp.
InStr , String1, String2. InStr String2 String1, 0. String1 ( String2) Null (), Null.
In_Str InStr.
Sub In_Str()
Dim R1 As String, R2 As String
R1 = "
R2 = ""
MsgBox "R2 R1 " & InStr(1, R1, R2, _
vbTextCompare)
End Sub
In_Str:. Left, Right Mid.
VBA : Left, Right Mid.
Left:
|
|
Left(String, Length)
String ;
Length .
String, , Length. Length , , String, String.
Right:
Right (String, Length)
String ;
Length .
String, , Length. Length , , String, String. Right .
Mid:
Mid(String, Start, [, Length])
String ;
Length, Start .
Mid String, String, Start. Length Mid String. Start , String, .
SelectPart .
Sub SelectPart()
Dim R1 As String, R2 As String, _
R3 As String, R4 As String
R4 = " "
R1 = Left(R4, 4)
R2 = Mid(R4, 6, 6)
R3 = Right(R4, 7)
MsgBox "R4=" & R4 & Chr(13) & _
"R1=" & R1 & Chr(13) & _
"R2=" & R2 & Chr(13) & _
"R3=" & R3
End Sub
SelectPart:. Format.
Format, Format Excel - . :Format(Expression [, Format [, FirstDayOfWeek _ [, FirstWeekOfYear ]]]) Expression - ( ). Format - . FirstDayOfWeek - , . FirstWeekOfYear - , . Format, , , -. - 0, #, $, m, d, q , Excel. Ex_Format MyDate, , MyTime, MyVar .Option ExplicitSub Ex_Format()Dim MyDate As DateDim MyTime As DateDim MyVar As Single MyDate = #3/6/2016# ' 06.03.16MyTime = #4:07:45 PM# ' 16:07:45MyVar = 1372.547MsgBox Format(MyDate) & vbCr _& Format(MyDate, "Long Date") & vbCr _& Format(MyDate, "Medium Date") & vbCr _& Format(MyDate, "Short Date") & vbCr _& Format(MyDate, "dd mmmm yy") & vbCr _& Format(MyDate, "dd mm yy") & vbCr _& Format(MyDate, "dd mm yyyy") & vbCr _& Format(MyTime, "h:m:s") & vbCr _& Format(MyTime, "hh:mm:ss AMPM") & vbCr _& Format(MyDate, "dddd, mmm d yyyy") & vbCr _& Format(MyDate, "dddd, d mmmm yyyy") & vbCr _& Format(Date, "dddd, d mmm yyyy") & vbCr _& Format(MyVar) & vbCr & vbCr _& Format(" :", ">") & vbCr _& Format(MyVar, "00000.0000") & vbCr _& Format(MyVar, "#####.####") & vbCr _& Format(MyVar, "##,##0.00") & vbCr _& Format(MyVar, "fixed") & vbCr _& Format(MyVar, "0.00") & vbCr _& Format(MyVar, "$###,###.00") & vbCr _& Format(MyVar, "#.####E+00") & vbCr _& Format(0.7, "0.00") & vbCr _& Format(0.12345, "Percent") & vbCr _& Format(0.12345, "0.00%")End Sub Ex_Format:
|
|
1
1. VBA RemoveBlank, LenStr_1, LenStr_2, LenStr_3, Comp_Str, In_Str, SelectPart, Ex_Format.
2. .
3. , , , InputBox. ExNew_Format .