新しいものを表示

ソース 

Sub ボタン1_Click()
 
Dim Result as Long
Result = MsgBox("にゃーん",vbYesNo + vbquestion)
 
If result = vbyes then
Msgbox("ねこですよろしくおねがいします")
Else
MsgBox("ネコと和解せよ")
 
End if
 
End sub

ちなみに、「いいえ」をクリックするとこうなる

まあ銀行だと受付の人が用件聞くからそこで言えばいいのではと

2円普通切手・エゾユキウサギ|郵便局のネットショップ shop.post.japanpost.jp/shop/g/
2円切手のウサギかわいくない?

曜ちゃん「先にジャンボエンチョーに行かないと」

"【MT企画】おもしろ実験!安全靴でサッカーボールを蹴ってみた/スローモーション付き" を YouTube で見る youtu.be/VrKIHaHEHnU
やったやつはいた模様

古いものを表示
friends.cafe

ちょっとしたティータイムに、ちょっとした待ち合わせに。そんな、ちょっとした時間に立ち寄ってお友達とお話してみませんか?friends.cafeへようこそ☕
⚠️ユーザ登録は承認制となっています。登録をご希望の方はサーバーのルールをお読み頂き,「意気込み」欄へ質問の回答を記入してください。❤️