.


:




:

































 

 

 

 


. StrComp, InStr




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 Explicit
 
 

Sub 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 .





:


: 2016-12-05; !; : 345 |


:

:

, , 1:10
==> ...

957 - | 915 -


© 2015-2024 lektsii.org - -

: 0.018 .