これは超簡単できれい！VBAのキーワードだってカラーで表示できる「WP-Syntax」

2012/04/04 2015/10/29

Code © by Riebart

昨日書いたWordPress3.3.1×CoreServerで予約投稿機能の失敗を解決する記事でコードをハイライト表示する機会があったので、WP-Syntaxというプラグインを試してみました。

Excel VBA等に関連するホームページやブログを運営している皆さん、ブログシステムのWordPressとWP-Syntaxプラグイン（簡単に導入できる付加機能）を使えば、超簡単にマクロのコードをハイライト（キーワードを色つきで）表示できちゃうんです。オープンソース系のプログラマーだけのツールじゃないんです。

これを知らないで毎回プレーンなテキストとかhtmlでチマチマと書いているあなた、確実に損してますよ～！！

実際のハイライト表示

何はともあれ、まず現物を見て頂きましょう。

    'For Next構文
    For i = 1 To 1000
        Cells(i, 1).Value = i
    Next

えっ？行番号ですか？
モチロン表示できます！！

Option Explicit
 
'テスト用に意味の無いマクロを書いてみますね！
Sub Test()
 
    '変数の宣言だって・・・
    Dim i As Long
 
    'エラー処理だって・・・
    On Error Resume Next
 
    'Do Loop構文だって・・・
    i = 1
    Do While i <= 1000
        Cells(i, 1).Text = i
        i = i + 1 'おっと、これを忘れると無限ループになっちゃうね！
    Loop
 
    'If Then Else構文だって・・・
    If i = 1000 Then
        MsgBox "変数iには1000が入っています", vbInformation
    Else
        MsgBox "変数iには1000が入っていません！！", vbExclamation
    End If
 
    'Select Case構文だって・・・
    Select Case i
    Case 1000
        MsgBox "変数iには1000が入っています", vbInformation
    Case 1
        MsgBox "変数iには1が入っています", vbInformation
    Case Else
        MsgBox "変数iには1000も1も入っていません", vbCritical
    End Select
 
    'With構文だって・・・
    With ThisWorkbook
        MsgBox "このブックの名前は" & .Name & "です", vbInformation
        With .Sheets(1)
            MsgBox "一つ目のシート名は" & .Name & "です", vbInformation
            With .Cells(1, 1)
                MsgBox "さらにセルA1の値は" & .Value & "です", vbInformation
                MsgBox "セルA1の数式は" & .Formula & "です", vbInformation
                MsgBox "セルA1の文字列は" & .Text & "です", vbInformation
            End With
        End With
    End With
 
    'ほらね（＾＾）
    MsgBox "ちゃ～んと色つきで表示できちゃいます！！", vbInformation
 
End Sub