[[20170109092339]]　『MsgBox縦に長く』（アメリカーノ）　ページの最後に飛ぶ

『MsgBox縦に長く』（アメリカーノ）

 メッセージボックスが縦長になってしまい、
 okボタンを押せないくらいになっています。
 メッセージの内容は最大、5行くらいなんですが？
 教えてください。

＜使用 Excel：Excel2010、使用 OS：Windows8 ＞

どのような文字列を、
どのようなコードで表示しているのか、
示して下さい。
こちらでも再現できるかを確認します。

（γ） 2017/01/09(月) 09:48

 どんな文言なんでしょうか？

 以下、いずれも　ちゃんと　ボタンが押せますが？

 Sub Test1()
    Dim msg As String

    msg = "あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわん"
    msg = msg & msg & msg & msg & msg & msg

    MsgBox msg

 End Sub

 Sub Test2()
    Dim msg As String

    msg = "あいうえお" & vbLf & "かきくけこ" & vbLf & "さしすせそ" & vbLf & "たちつてと" & vbLf & "なにぬねの" & vbLf & "はひふへほ" & vbLf & "まみむめも" & vbLf & "やゆよらりるれろわん"
    msg = msg & msg & msg & msg & msg & msg

    MsgBox msg
 End Sub

（β） 2017/01/09(月) 09:55

 確かに以下のようなものだと、ボタンが見えず、画面スクロールもできませんね。
 （エンターキーでデフォルトボタンがクリックを代用することはできますが）

 Sub Test3()
    Dim msg As String

    msg = "あいうえお" & vbLf & "かきくけこ" & vbLf & "さしすせそ" & vbLf & "たちつてと" & vbLf & "なにぬねの" & vbLf & "はひふへほ" & vbLf & "まみむめも" & vbLf & "やゆよらりるれろわん"
    msg = msg & msg & msg & msg & msg & msg & msg & msg & msg & msg & msg

    MsgBox msg
 End Sub

（β） 2017/01/09(月) 09:57

 質問とは直接は関係ありませんが。

 MsgBoxで表示できる文字数には制限があります。
 参考HPです｡

http://officetanaka.net/excel/vba/function/MsgBox.htm
（カリーニン） 2017/01/09(月) 10:11

Sub test()

    Dim s As String
    s = String(100, vbLf) & "テスト"
    MsgBox s
    MsgBox WorksheetFunction.Clean(s)
End Sub

こういうことじゃないのかな？

要は文字列を作った時に改行を示す文字が大量にまざった。。。とか？

（まっつわん） 2017/01/09(月) 11:56

コメント返信：

[ 一覧(最新更新順) ]

[[20170109092339]] 『MsgBox縦に長く』（アメリカーノ） ページの最後に飛ぶ

[[20170109092339]]　『MsgBox縦に長く』（アメリカーノ）　ページの最後に飛ぶ