「Windows」の「Excel VBA」だと、シートを表示させずにフォームを表示出来るため、擬似的に「Visual Basic」で開発したアプリのような動作をさせる事ができますが、同じことを「Mac」の「Excel」で実行すればアプリの様に見えるかも？とふと疑問に思ったので検証してみました。

「Windows」の「Excel VBA」でシートを表示させずにフォーム表示

まずは普通に「Windows」の「Excel VBA」の場合。テストした環境は「Windows１０」と「Excel 2016」です。

フォーム上の各ボタンにはこのように記述しています。

'フォームに記述
Private Sub Button1_Click() 'Hello World ボタン
    MsgBox ("Hello World")
End Sub

Private Sub Button2_Click() 'Excel シート を開く ボタン
    Application.Visible = True
    Me.Hide
End Sub

メッセージボックスは今回のテストに全く必要ありませんが何となくつけてみました(笑)。

フォームの表示は標準モジュールに記述しました。

'標準モジュールに記述
Public Sub Form_Open()
    Application.Visible = False
    UserForm.Show vbModeless
End Sub

こちらをThisWorkbookのモジュールから呼び出します。

'ThisWorkbookに記述
Private Sub Workbook_Open()
    Call Form_Open
End Sub

一応、後から再表示出来る様に、シート上のボタンにも割り当てました。

「Application.Visible」が動作しない

テストの前に「Excel」の「環境設定」で「」のチェックを外しておきます。（セキュリティ上はチェックを入れておいたほうがいいので、とりあえずテストの間だけ。）

設定変更後、上のコードを記述したエクセルファイルを「Mac」で開くと…

シートが普通に表示されてしまいました。

「Mac」の「Excel VBA」でシートを表示させずにフォーム表示

「Application.Visible」が使えないので、「Windows」版と同じような動作は出来ませんが、何とか擬似的にやってみたいと思い、最小化するようにしてみました。

'フォームに記述
Private Sub Button1_Click() 'Hello World ボタン
    MsgBox ("Hello World")
End Sub

Private Sub Button2_Click() 'Excel シート を開く ボタン
    'Application.Visible = True
    ActiveWindow.WindowState = xlMaximized '最大化
    Me.Hide
End Sub

'標準モジュールに記述
Sub Form_Open()
    'Application.Visible = False
    ActiveWindow.WindowState = xlMinimized '最小化
    UserForm.Show vbModeless
End Sub

「Dock」に「Excel」が出てしまっていますが、それっぽくは見えます。

当初の目論見通りには行きませんでしたが、これはこれで使えそうです。

自己紹介

松田大と申しますm(_ _)m
インディーズでミュージシャンをやっていたのですがいつのまにか…

とある企業でショップのアルバイトスタッフから正社員、支店長を経てシステム部門に異動するという、開発担当としては変わった経緯を持っている方だと思います。

「Excel VBA」からスタートして、Yamaha RTX シリーズで VPN環境構築、Hyper-V環境構築、Windowsアプリ開発などを経験した後、「 WordPress 」に出会い、どっぷりハマっています。

現在勤めているETBS合同会社では、「 WordPress 」を活用したWEBサイト、業務用WEBアプリケーション開発を中心に、記事の執筆代行や掲載に必要な情報のリサーチ、映像のテロップ入れや切りはりなどの簡単な動画編集なども、まとめて行なっています。

宮崎県都城市出身。東京都葛飾区在住。現在、代表兼二児のパパ。子育てを通じて、こどもたちにもプログラミングの楽しさに触れてほしいと思うようになり、「こどもICTかつしか教室」を開講中。最近は童心に帰り、簡単なゲーム制作なんかも楽しんでいます(^_^)。

お問い合わせ