文字操作 指定した文字全部を指定した数だけ並べる(繰り返す)

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][文字操作 指定した文字全部を指定した数だけ並べる(繰り返す)]
Option Explicit


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 StringAs 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





Production Japan Import Application. Since 1998