2017-11-04から1日間の記事一覧

VBA 引数が省略された時の　２通りの処理

VBA VBA スタンダード　資格

① 初期値を設定する Sub Sample10() Call hiki1("Excel") ①の呼び出し Call hiki2("VBA") ②の呼び出しEnd Sub Sub hiki1(msg As String, Optional n As Long = 7) Dim i As Long, buf As String For i = 1 To n buf = buf & msg & vbCrLf Next MsgBox bufEnd…

VBA 引数定義

VBA VBA スタンダード　資格

・plSampleから、plプロシージャを呼び出し ・vbCrLf => 改行 Sub plSample() Call pl("Excel", 5)End Sub ------ Sub pl(msg As String, n As Long) Dim i As Long, buf As String For i = 1 To n buf = buf & msg & vbCrLf 'vbCrLf => 改行 Next MsgBox bu…

VBA 参照渡し　値渡し

VBA VBA スタンダード　資格 VBA 書籍

Sub sansyou() '参照渡し=>変数そのものを渡す ・値渡し=>変数の値を渡す Dim buf As String Dim buf2 As String buf = "Excel VBA" buf2 = "Excel VBA" Call sansyou1(buf) Call sansyou2(buf) MsgBox buf MsgBox buf2End Sub Sub sansyou1(ByRef msg As St…