★フォーム開くプログラム！
続いてフォームを開くプログラムを書きます。 　Private Sub Workbook_SheetBeforeDoubleClick・・・・ 　End Sub の間に 　これがフォーム.Show って書けばいいんですが、これがフォームのあとに　．　ドットを入れると勝手に下のようなスライドが出てきますね。Sって入れるとSで始まる文字に、Shって入れるとShoｗが選択されますね。 これでShowを選択すれば出来上がりです。
次のようなコードのなりましたね。 「これがフォーム．Show」のShowっていうのは「見せて」ってことだから、「シートをダブルクリックするとこれがフォームっていうユーザーフォームを表示しなさい。」っていうことになるのですね。
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) これがフォーム.Show End Sub
さぁ、これで完成です。あとはExcelのシート画面に戻って、シートのどこでもいいので、ダブルクリックしてみましょう。 うまくいったら拍手喝さいです。
じゃーん！初めてこの画面が出た時には、とても感動したのですが、皆さんはいかがですか？ まだ、フォームの中は空っぽなので、何も使えませんが、これにいろいろなコントロールを貼り付けていけば、カッコいいフォームができていきますよ。
[トップ][前へ][ユーザーフォーム][次へ]