JSON記法がどうも頭に入らなかった(ホント、どんどんあほになってってるなぁ…orz)ので、 憶えるためってのと、業務で使う予定なので作ってみた。 ソース 以下はThisWorkbookモジュールに記述 Option Explicit Private Const cnsMenuName As String = "Cell To JSON" 'Cellバーに追加する際のメニュー名 Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Application.CommandBars("Cell").Controls(cnsMenuName).Delete On Error GoTo 0 End Sub Private Sub Workbook_Open() Const cnsFaceID As Long