文字操作 指定した文字全部を指定した数だけ並べる(繰り返す)
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Sub RepeatLetter() '********************************************* '指定した文字を指定した数だけ並べる(繰り返す) '********************************************* 'String関数 '先頭文字を、指定した文字数だけ並べた文字列を返す文字列処理関数 Dim MyString As String '文字列の先頭文字を、指定した文字数だけ並べた文字列 MyString = String(5, "*") ' "*****" を返します。 MsgBox MyString '指定した文字コード (ASCII またはシフト JIS コード) の示す文字 MyString = String(5, 42) ' "*****" を返します。 MsgBox MyString '文字列の先頭文字を、指定した文字数だけ並べた文字列 MyString = String(10, "ABC") ' "AAAAAAAAAA" を返します。 MsgBox MyString '文字コード 'ANSI 文字セットなどの文字セット内の各文字を表す番号。 End Sub Function RepeatAllLetter(Number As Long, strLetter As String) As String '************************************************* '指定した文字全部を指定した数だけ並べる(繰り返す) '************************************************* 'オリジナル関数 '文字全部を、指定した文字数だけ並べた文字列を返す文字列処理関数 Dim MyString As String, i As Long MyString = "" For i = 1 To Number MyString = MyString & strLetter Next i RepeatAllLetter = MyString End Function Private Sub test() ' "ABCABCABCABC" を返します。 MsgBox RepeatAllLetter(4, "ABC") End Sub |