Excel VBAをJavaScriptに翻訳 その５

はじめに

前回は、VBAを字句解析する簡単なサンプルプログラムを作成しました。
今回は、VBAの構文解析する前提としてVBAの予約語を定義したいと思います。
あわせてVBA翻訳のサンプルVBAを提示します。

前提

• OS : Windows7以上
• PoweShellのターミナルで実行
• VSCodeでコード編集
• node.js環境構築済み

VBEのオブジェクトブラウザーからVBAの予約語を取り出す

VBEとはVBAを編集するためのExcelに同梱されたエディターです。
ExcelからAtl+F11で起動できます。
VBAのライブラリの定義をここから参照して予約語をまとめます。

赤丸のボタンをマウスでクリックします。

すべてのライブラリと表示のあるドロップボックスのリストからVBAを選択します。


クラスのリストボックスのCollectionを選択します。Collectionのメンバーのリストが表示されます。

この内容を以下のように定義してみます。

var vba_Module_Collection = [Add, Count, Item, Remove];

同様にクラスのリストに含まれる、モジュール、クラス、Enumの各メンバーを定義したのが
以下となります。

var vba_Module_Collection = [Add, Count, Item, Remove];
var vba_Module_ColorConstans = [vbBlack, vbBlue, vbCyan, vbGreen, vbMagenta, vbRed,vbWhite, vbYellow];
var vba_Module_Constans = [vbBack, vbCr,vbCrLf, vbFormFeed, vbLf, vbNewLine, vbNullChar, vbNullString, vbObjectError, vbTab, vbVerticalTab];
var vba_Module_Conversion = [Cbool, CByte, Ccur, CDate, CDbl, CDec, Cint, Clng, CLngPtr, CSng, CStr, CVar, CVDate, CVErr, Error, Error$, Fix, Hex, Hex$, Int, Oct, Oct$, Str, Str$, Val];
var vba_Module_DateTime = [Calendar, Date, Date$, DateAdd, DateDiff, DatePart, DteSerial, DateValue, Day, Hour, Minute, Month, Now, Second, Time, Time$, Timer, TimeSerial, TimeValue, Weekday, Year];
var vba_Class_ErrObject = [Clear, Description, HelpContext, HelpFile, LastDllError, Number, Raise, Source];
var vba_Module_FileSystem = [ChrDir, ChrDrive, CurDrive, CurDir, CurDir$, Dir, EOF, FileAttr, FileCopy, FileDateTime, FileLen, GetAttr, Kill, Loc, LOF, MkDir, Reset, RmDir, Seek, SetAttr];
var vba_Class_Financial = [DDB, FV, Ipmt, IRR, MIRR, NPer, NPV, Pmt, PPmt, PV, Rate, SLN, SYD];
var vba_Enum_FromShowConstants = [vbModal, vbModeless];
var vba_Class_Global = [Load, Unload, UserForms];
var vba_Module_Information = [Err, IMEState, IsArray, IsDate, IsEmpty, IsError, IsMissing, IsNull, IsNumeric, IsObject, QBClor, RGB, TypeName, VarType];
var vba_Module_Interaction = [AppActivate, Beep, CallByName, Choose, Command, Command$,CreateObject, DeleteSetting, DoEvents, Environ, Environ$, GetAllSettings, GetObject, GetSetting, IIF, InputBox, MsgBox, Patition, SaveSetting, SendKeys, Shell, Switch];
var vba_Module_KeyCodeConstants = [vbKey0, vbKey1, vbKey2, vbKey3, vbKey4, vbKey5, vbKey6, vbKey7, vbKey8, vbKey9, vbKeyA, vbKeyAdd, vbKeyB, vbKeyBack, vbKeyC, vbKeyCancel, vbKeyCapital, vbKeyClear, vbKeyControl, vbKeyD, vbKeyDecimal, vbKeyDelete, vbKeyDivide, vbKeyDown, vbKeyE, vbKeyEnd, vbKeyEscape, vbKeyExecute, vbKeyF, vbKeyF1, vbKeyF10, vbKeyF11, vbKeyF12, vbKeyF13, vbKeyF14, vbKeyF15, vbKeyF16, vbKeyF2, vbKeyF3, vbKeyF4, vbKeyF5, vbKeyF6, vbKeyF7, vbKeyF8, vbKeyF9, vbKeyG, vbKeyH, vbKeyHelp, vbKeyHome, vbKeyI, vbKeyInsert, vbKeyJ, vbKeyK, vbKeyL, vbKeyLButton, vbKeyLeft, vbKeyM, vbKeyMButton, vbKeyMenu, vbKeyMultiply, vbKeyN, vbKeyNumLock, vbKeyNumpad0, vbKeynumpad1,vbKeynumpad2, vbKeynumpad3, vbKeynumpad4, vbKeynumpad5, vbKeynumpad6, vbKeynumpad7, vbKeynumpad8, vbKeynumpad9, vbKeyO, vbKeyP, vbKeyPageDown, vbKeyPageUp, vbKeyPause, vbKeyPrint, vbKeyQ, vbKeyR, vbKeyRButton, vbKeyReturn, vbKeyRight, vbKeyS, vbKeySelect, vbKeySeparator, vbKeyShift, vbKeySnapshot, vbKeySpace, vbKeySubtract, vbKeyT, vbKeyTab, vbKeyU, vbKeyUp, vbKeyV, vbKeyW, vbKeyX, vbKeyY, vbKeyZ];
var vba_Module_Math = [Abs, Atn, Cos, Exp, Log, Randomize, Rnd, Round, Sgn, Sin, Sqr, Tan];
var vba_Module_Strings = [Asc, AscB, AscW, Chr, Chr$, ChrB, ChrB$, ChrW, ChrW$, Filter, Format, Format$, FormatCurrncy, FormatDateTime, FormatNumber, FormatPercent, InStr, InStrB, InStrRev, join, LCase, LCase$, Left, Left$, LeftB, LeftB$, Len, LenB, LTrim, LTrim$, Mid, Mid$, MidB, MidB$, MonthName, Replace, Right, Right$, RightB, RightB$, RTrim, RTrim$, Space, Space$, Split, StrComp, StrConv, String, String$, StrReverse, Trim, Trim$, UCase, UCase$, WeekdayName];
var vba_Module_SystemColorConstants = [vb3DDKShadow, vb3DFace, vb3DHighlight, vb3DLight, vb3DShadow, vbActiveBorder, vbActiveTitleBar, vbApplicationWorkspace, vbButtonFace, vbButtonShadow, vbButtonText, vbDesktop, vbGrayText, vbHiglight, vbHiglightText, vbInactiveBorder, vbInactiveCaptionText, vbInactiveTitleBar, vbInfoBackground, vbInfoText, vbMenuBar, vbMenuText, vbMsgBox, vbMsgBoxText, vbScrollBars, vbTitleBarText, vbWindowBackground, vbWindowFrame, vbWindowText];
var vba_Enum_vbAppWinStyle = [vbHide, vbMaximizedFocus, vbMinimizedFocus, vbMinimizedNoFocus, vbNormalFocus, vbNormalNoFocus];
var vba_Enum_vbCalendar = [vbCalGreg, vbCalHijri];
var vba_Enum_vbCallType = [vbGet, vbLet, vbMethod, vbSet];
var vba_Enum_vbComperMrthod = [vbBinaryCompare, vbDatabaseCompare, vbTextCompare];
var vba_Enum_vbDateTimeFormat = [vbGreneralDate, vbLongDate, vbLongTime, vbShortDate, vbShortTime];
var vba_Enum_vbDayOfWeek = [vbFriday, vbMonday, vbSturday, vbSunday, vbThursday,vbTuesday,vbUseSystemDayOfWeek, vbWendnesday];
var vba_Enum_vbFileAttribute = [vbAlias, vbArchive, vbDirectory, vbHidden, vbNormal, vbReadOnly, vbSystem, vbVolume];
var vba_Enum_vbFirstWeekOfYear = [vbFirstFourDays, vbFirstFullWeek, vbFirstJan1, vbUseSystem];
var vba_Enum_vbIMEStatus = [vbIMEAlphaDbl, vbIMEAlphaSng, vbIMEDisable, vbIMEHiragana, vbIMEKatakanaDbl, vbIMEKatakanaSng, vbIMEModeAlpha, vbIMEModeAlphaFull, vbIMEModeDisable, vbIMEModeHangul, vbIMEModeHangulFull, vbIMEModeHiragana, vbIMEModeKatakana, vbIMEModeKatakanaHalf, vbIMEModeNoControl, vbIMENodeOff, vbIMENodeOn, vbIMENoOp, vbIMEOff, vbIMEOn];
var vba_Enum_vbMsgBoxResult = [vbAbout, vbCancel, vbIgnore, vbNo, vbOK, vbRetry, vbYes]
var vba_Enum_vbMsgBoxStyle = [vbAboortRetryIgnore, vbApplicationModal, vbCritical, vbDefaultButton1, vbDefaultButton2, vbDefaultButton3, vbDefaultButton4, vbExclamation, vbInformation, vbMsgBoxHelpButton, vbMsgBoxRight, vbMsgBoxRtlReading, vbMsgBoxSerForeground, vbOKCancel, vbOKOnly, vbQuestion, vbRetryCancel, vbSystemModal, vbYesNo,vbYesNoCancel];
var vba_Enum_vbQueryClose = [vbAppTaskManager, vbAPPWindows, vbFormCode, vbFormControlMenu, vbFormMDIForm];
var vba_Enum_vbStrConv = [vbFormUnicode, vbHiragana, vbKatakana, vbLowerCase, vbNorrow, vbProperCase, vbUnicode, vbUpperCase, vbWide];
var vba_Enum_vbTriState = [vbFalse, vbTrue, vbUseDefault];
var vba_Enum_vbVarType = [vbArray, vbBoolean, vbByte, vbCurrency, vbDataObject, vbDate, vbDecimal, vbDouble, vbEmpty, vbError, vbInteger, vbLong, vbNull, vbObject, vbSingle, vbUserDifinedType, vbVariant];

オブジェクトライブラリ以外の予約語

VBAを構成する構文解析で登場するキーワードをざっくりと定義します。
もちろん上記のVBAオブジェクトライブラリ定義以外となります。
悪戦苦闘で以下のように定義しました。（最終的には完結予定）

// 予約語
var vba_reserved_word = [
        AddressOfAnd, Any, Array, As, Attribute, Append,
        Base, Binary, Boolean, ByRef, Byte, ByVal,
        Call, Case, Circle, Close, Compare, Const,
        Debug, Decimal, Declare, DefBool, DefByte, DefCur, 
        DefDate, DefDbl, DefDec, DefInt, DefLng, DefLngLng, 
        DefLngPtr, DefObj, DefSng, DefStr, DefVar, Dim, Do, Double,
        Each, Else, ElseIf, Empty, End, EndIf, Enum, Eqv, Erase, 
        Event, Exit, Explicit,
        FALSE, For, Friend, Function,
        Get, Global, GoSub, GoTo,
        If, Imp, Implements, In, Input, InputB, Integer, Is,
        Lbound, Let, Like, LINEINPUT, Lock, Long, LongLong, 
        LongPtr, Loop, Lset,
        Me, Mod,
        New, Next, Not, Nothing, Null,
        On, Open, Option, Optional, Or, Output,
        ParamArray, Preserve, Print, Private, Property, PSet, 
        Public, Put,
        Random, RaiseEvent, ReDim, Rem, Resume, Return, Rset,
        Scale, Selec, Set, Shared, Single, Spc, Static, Step, Stop, Sub,
        Tab, Then, To, TRUE, Type, TypeOf,
        Ubound, Unlock, Until,
        Variant, VB_Base, VB_Control, VB_Creatable, VB_Customizable,
        VB_Description, VB_Exposed, VB_Ext_KEY, VB_GlobalNameSpace, 
        VB_HelpID, VB_Invoke_Func, VB_Invoke_Property, VB_Invoke_PropertyPut,
        VB_Invoke_PropertyPutRef, VB_MemberFlags, VB_Name, VB_PredeclaredId,
        VB_ProcData, VB_TemplateDerived, VB_UserMemId, VB_VarDescription,
        VB_VarHelpID, VB_VarMemberFlags, VB_VarProcData, VB_VarUserMemId,
        Wend, While, With, WithEvents, Write,
        Xor
];        
// VBA演算子        
var vba_operator = ["+", "-", "*", "/", "\", "^"];
// VBA比較演算子
var vba_comparison_operator = ["<", "<=", ">", ">=", "=", "<>"];

予約語について

VBAで登場する予約語をまとめました。
たぶん抜けや誤字・脱字がありそうです。調整しながら進んでいきます。

最初のExcelと翻訳対象VBAコード

構文解析ロジックを組み立てる上で元になるExcelとVBAのサンプルを用意します。
これを最初にJavaScriptへ翻訳して構文解析ロジックの正規化を図りたいと思います。

問題集を作るExcel

① 元文

問題のテキスト(wikiなどからコピペ)。
穴埋め問題にしたいテキストを赤文字に変更します。

②問題

セルA5に**=AnzColor(A1,3)**を入力します。
※カラーインデックス=3は赤

関数	引数	機能
AnzColor	セルアドレス、カラーインデックス	元文の指定したカラー文字を□に置換します

③解答

セルA8に**=AnsColor(A1,3)**を入力します。
※カラーインデックス=3は赤

関数	引数	機能
AnsColor	セルアドレス、カラーインデックス	元文の指定したカラー文字を抽出します

問題集を作るVBAコード

'
' 特定範囲の文字色を判定し、□に変更して返す
' adrs : Cell
' clr  : ColorIndex
'
Function AnzColor(adrs, clr) As String

    Dim iLen    As Integer
    Dim ix      As Integer
    Dim Buf     As String
    
    Sheets("Question").Select
    
    Buf = ""
    For Each ad In adrs
        iLen = Len(ad)
        For ix = 1 To iLen
            
            ' 指定した色の場合
            If ad.Characters(ix, 1).Font.ColorIndex = clr Then
                Buf = Buf & "□"
            Else
                Buf = Buf & Mid(ad, ix, 1)
            End If
        Next ix
    Next
    
    AnzColor = Buf
        
End Function

'
' 特定範囲の文字色を判定し、文字色に一致する文字列群を返す
' adrs : Cell
' clr  : ColorIndex
'
Function AnsColor(adrs, clr) As String

    Dim iLen    As Integer
    Dim ix      As Integer
    Dim Buf     As String
    Dim sw      As Boolean
    
    Sheets("Question").Select
    Buf = ""
    sw = True
    
    For Each ad In adrs
        iLen = Len(ad)
        For ix = 1 To iLen
            
            ' 指定した色の場合
            If ad.Characters(ix, 1).Font.ColorIndex = clr Then
                Buf = Buf & IIf(sw = False, ",", "") & Mid(ad, ix, 1)
                sw = True
            Else
                sw = False
            End If
        Next ix
    Next
    
    AnsColor = IIf(Left(Buf, 1) = ",", Mid(Buf, 2), Buf)
        
End Function

まとめ

ばたばたと予約語と翻訳対象のVBAを作成しました。
途中で路線変更しそうな予感です。
このあたりが一番退屈なところかもしれません。
予約語はこんな感じぐらいで認識しましょう。