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