こんばんは。
>でもダイアログシートがよくわかりません
シートタブ--右クリック--挿入
MS Excel 5.0 ダイアログ
フォーム全体の大きさをドラッグして小さくします。
青いキャプションのところを、Microsoft Excel と入れます。
右上に、ボタンが二つありますから、それをドラッグして、
横に並べます。
Yes と No と書き換えます。(Y,Nのアクセラレータは使えません)
フォームツールバーから、ラベルをひとつ選んで、ボタンの上に貼りつけます。
後は、VBEditor の標準モジュールに、
例えば、このようなコードを入れます。
'-------------------------------------------
Sub Test1()
With DialogSheets(1)
.Labels(1).Caption = "Please click 'Yes Button' or 'No Button'."
.Buttons(1).OnAction = "YesKey"
.Buttons(2).OnAction = "NoKey"
.Show
End With
End Sub
Sub YesKey()
MsgBox " You clicked 'Yes Button'", vbInformation
End Sub
Sub NoKey()
MsgBox " You clicked 'No Button' or Close Button", vbInformation
End Sub
'-------------------------------------------
最後に、ダイアログシートを、書式から、シート--表示しない
とします。
お礼
ありがとうございます!!!!!