◆構文
列番号to列記号( number )◆解説
引数 number を、列番号で用いるアルファベット記号に変換します。
◆ソースコード
Function 列番号to列記号(lVal As Long) As String Dim sVal As String Dim Num As Long Dim eNumi As Long Dim tmp sVal = "" Num = lVal \ 26 '割り算の
◆構文
uSplit(文字列, 区切文字, 番号)◆解説
ある区切り文字で区切られた文字列を、その区切り文字で区切り、区切られた各文字列を、一次元配列型に格納し、その番号となる文字列を返します。
◆ソースコード
Function uSplit(文字列 As String, 区切文字 As String, 番号 As Integer) Dim myStr As String, myData myData = Split(文字列, 区切文字) Spli
◆構文
uNumInStr(文字列, 対象記号)◆解説
ある文字列の中から 対象記号 がいくつ入っているかを調べる。
◆ソースコード
Function uNumInStr(文字列 As String, 対象記号 As String) Dim i As Long Dim cnt As Long cnt = 0 For i = 1 To Len(文字列) If Mid(文字列, i, 1) = 対象記号 Then
