2014年

アプリ&PCガジェット

VBA で配列を持つ場合

VBAでは配列を持つ場合、どうもしっくりこなくて、結局以下のようなやり方がいいみたい。'23区を返すような配列Function strHairetsu(ByVal pIndex As Integer) As String Dim ans As String '---------------- Select Case pIndex Case 0: ans = "新宿区" Case 1: ans = "千代田区" Case 2: ans = "中央区" Case 3: ans = "港区" Case 4: ans = "品川区"'随時他の区を記述する Case 22: ans = "荒川区" End Select '---------------- strHairetsu = ans End Function------------------そして呼び出したい箇所で本関数を実行する For i = 0 To 22 debug.print = strHairetsu(i) next i

NO IMAGEアプリ&PCガジェット

VBA忘備録 ~指定したファイルが存在しているかどうかのチェック  

指定したファイル名が存在するかどうかをチェックし、存在していたら削除する場合の処理--------------------------------------------If (Dir$(PATH & fName & ".xls") "") Then Kill PATH & fName & ".xls"End If--------------------------------------------PATHには指定するパスをグローバル変数として用意しておく。