*:・'゜*:・'゜*。.:**:・'゜*:・'゜*。.:*∴‥∵‥∴‥∵‥∴
難しいから真面目に読むと疲れます。
Excelのマクロ作成画面で↓のようなスクリプトを打って表示したいメッセージボックスを表示させよう。
表示させたらプリントスクリーンで画面ごとコピーして、ペイントに貼り付け、メッセージボックスの部分だけ切り取り、新規作成画面に貼り付けよう。
使い勝手を考え、ファイルタイプをJPEGで名前を付けて保存したら自分の携帯電話に送って活用しよう。
Sub_メッセージボックス作成()
a = InputBox("伝言板です!" + Chr(13) + "誰にメッセージを送りますか?", "gooブログSystems")
'If "" く> passwd Then
b = InputBox("伝言板です!" + Chr(13) + "何て伝えますか?", "gooブログSystems")
MsgBox a + Chr(13) + b, 2 + 64, "gooブログ"
'MsgBox a + Chr(13) + b, 5 + vbInformation, "gooブログ"
'MsgBox a + Chr(13) + b, 2 + vbQuestion, "gooブログ"
'MsgBox a + Chr(13) + b, 16 + vbYesNoCancel, "gooブログ"
'End If
End Sub
'MsgBox a + Chr(13) + b, 3, "gooブログ"
'
難しいから真面目に読むと疲れます。
Excelのマクロ作成画面で↓のようなスクリプトを打って表示したいメッセージボックスを表示させよう。
表示させたらプリントスクリーンで画面ごとコピーして、ペイントに貼り付け、メッセージボックスの部分だけ切り取り、新規作成画面に貼り付けよう。
使い勝手を考え、ファイルタイプをJPEGで名前を付けて保存したら自分の携帯電話に送って活用しよう。
Sub_メッセージボックス作成()
a = InputBox("伝言板です!" + Chr(13) + "誰にメッセージを送りますか?", "gooブログSystems")
'If "" く> passwd Then
b = InputBox("伝言板です!" + Chr(13) + "何て伝えますか?", "gooブログSystems")
MsgBox a + Chr(13) + b, 2 + 64, "gooブログ"
'MsgBox a + Chr(13) + b, 5 + vbInformation, "gooブログ"
'MsgBox a + Chr(13) + b, 2 + vbQuestion, "gooブログ"
'MsgBox a + Chr(13) + b, 16 + vbYesNoCancel, "gooブログ"
'End If
End Sub
'MsgBox a + Chr(13) + b, 3, "gooブログ"
'