VBAの最近のブログ記事

例えば、テーブル名が全て "public_"で始まっている場合に　"public_"を削除する方法。

Excel VBAで、Writeステートメントを使ってCSV出力すると、日付が #2008-01-01# のような形式になってしまいます。
このCSVをAccessにインポートするのは大変です。
以下のような自作関数を使って変換しましょう。

現在のプレゼンテーションファイルの場所（パス）を取得する方法。

MsgBox ActivePresentation.Path 

ExcelやPowerPointやWordでVBAを実行するときに、マクロの実行時間を測定する方法。

ストップウォッチが手元にないときはこのコードを使いましょう。

マクロを使ってCSVでファイル保存をしたときなどに、下記のような確認・警告メッセージがでて、いちいち「はい」を押さないと先に進まないことがあります。

エクセルシートをタブ区切りtxt形式でエクスポートするマクロ。
書き方は前回の記事(CSVで保存)とほぼ同じです。

エクセルシートをCSV形式でエクスポートするマクロ。

PowerPoint VBAの使い方

VBAでゼロパディング（1→001に変換するやつ）のやり方を紹介します。
Excel, Access, Powerpoint等、Office製品の全てで共通に使えます。

１　を　００１に変換してみる

Sub test()

    MsgBox Right(1 + 10 ^ 3, 3)

End Sub

Function isMemberOfCollection(col As Collection, query) As Boolean
    Dim item
    
    For Each item In col
        If item = query Then
            isMemberOfCollection = True
            Exit Function
        End If
    Next
    
    isMemberOfCollection = False
    
End Function

If isMemberOfCollection(myCollection, myValue) Then
    MsgBox "エラー：" & vbLf & vbLf _
     & "値が重複しています。" &  myValue
    End
End If

foreachを使ってますか？

初級プログラマに意外と知られていないforeach。

何が便利かというと、
カウンタや添え字(index)を意識せずに、配列の全要素に対してアクセスし、何らかの処理をすることができます。

foreachを使わない場合、

for(i=0;i<=n;i++){ print 配列名[i]; }