[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『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
Dim s As String s = String(100, vbLf) & "テスト" MsgBox s MsgBox WorksheetFunction.Clean(s) End Sub
こういうことじゃないのかな?
要は文字列を作った時に改行を示す文字が大量にまざった。。。とか?
(まっつわん) 2017/01/09(月) 11:56
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.