SoftwareEngineering/Visual Basic for Applications/共通 の履歴(No.2)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• SoftwareEngineering/Visual Basic for Applications/共通 へ行く。
  • 1 (2010-07-16 (金) 20:39:10)
  • 2 (2010-10-28 (木) 09:48:20)
  • 3 (2010-11-02 (火) 14:36:53)
  • 4 (2011-05-16 (月) 09:46:20)

SoftwareEngineering

ファイルに書き込む†

Dim freeFileNo As Integer

' ファイルの空き番号を取得
freeFileNo = FreeFile


Open "D:\UDF\VBA\ファイル書き込みテスト.txt" For Output As #freeFileNo

Print #freeFileNo, "あいうえお"
Print #freeFileNo, "かきくけこ"
Print #freeFileNo, "さしすせそ"

Close #freeFileNo

引数の数を可変にする方法†

Public Sub Test_sprintf()
    Debug.Print sprintf("_{0}_{1}_{2}_{0}_{1}_{2}", "A", "b", "C")
End Sub

Private Function sprintf(template As String, ParamArray args() As Variant) As String
    Dim index As Integer
    
    value = template

    index = 0
    For Each arg In args
        value = Replace(value, "{" & index & "}", arg)
        
        index = index + 1
    Next
    
    sprintf = value
End Function