[[20141030062457]] 『メッセージの改行』(ちぃさん) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『メッセージの改行』(ちぃさん)

お世話になります。

BOOKを開いた時にメッセージを表示させています。
必要な部分で改行させる事は可能でしょうか?
又、設定方法を教えていただきたいです。

どうぞ宜しくお願い致します。

< 使用 Excel:Excel2003、使用 OS:WindowsXP >


Sub test()
    MsgBox "Good Morning" & vbLf & "How are you?"
End Sub

とか

(ねぼすけ) 2014/10/30(木) 07:41


 ブックを開いた時に、なのでThisWorkbookモジュールに

 Private Sub Workbook_Open()

     MsgBox "○○○○○" & vbLf & "△△△△△"

 End Sub

 ちなみにメッセージボックスのタイトルも変えたりすることもできます。
http://officetanaka.net/excel/vba/function/MsgBox.htm
(se_9) 2014/10/30(木) 07:48

(ねぼすけ)さん、(se_9)さん回答ありがとうございます。

できました。

>ちなみにメッセージボックスのタイトルも変えたりすることもできます。
そのような事もできるのですね。
http://officetanaka.net/excel/vba/function/MsgBox.htm

コチラにありましたサンプルコードを試してみました。

Sub Sample()

    Dim rc As Integer
    rc = MsgBox("処理を行いますか?", vbYesNo + vbQuestion, "確認")
    If rc = vbYes Then
        MsgBox "処理を行います"
    Else
        MsgBox "処理を中断します"
    End If
End Sub


これは「いいえ」を選択した場合どこに処理内容を入れれば処理がとまるのでしょうか?(汗)
私が未熟すぎて処理が止まらないです。
わからないので教えてほしいです。

ちなみに、処理内容は選択範囲の消去で試してみました。

Sub Sample()

    Dim rc As Integer
    rc = MsgBox("処理を行いますか?", vbYesNo + vbQuestion, "確認")
    If rc = vbYes Then
        MsgBox "処理を行います"
    Else
        MsgBox "処理を中断します"
    End If
       Sheets("Sheet1").Range("C9:I297") = "" '←処理内容を入れている所です
End Sub

どうか宜しくお願いいたします。
(ちぃさん) 2014/10/30(木) 11:10


処理を vbYesだったときのところに書かないと、せっかくの判定が無意味に…。
(???) 2014/10/30(木) 11:19

または、MsgBox "処理を中断します"を表示した後に Exit Sub で抜けてしまってもOK。
(???) 2014/10/30(木) 11:22

(???)さん解答ありがとうございます。

お恥ずかしいです。
未熟ですのでお許しください。

指摘していただいた内容でできました。

当初、思っていたものよりかなりイイものができて満足です。

ありがとうございました。
(ちぃさん) 2014/10/30(木) 11:38


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.