http://okwave.jp/qa/q4890392.html
MsgBox関数は半角で最大1024文字しか扱うことができないようです。
これ以上の文字数を扱いたいのですが
恐らくWindows APIを使えばできるのではないかと考えました。
APIを使った方法は
http://www.ne.jp/asahi/hishidama/home/tech/excel …
http://soudan1.biglobe.ne.jp/qa6488258.html
この辺りに書かれてあります。
それで
Declare Function MessageBoxPtr Lib "user32.dll" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal text As Long, ByVal caption As Long, ByVal nType As Integer) As Integer
Sub aaa()
Dim text() As Byte
Dim caption() As Byte
Dim ret As Integer
caption() = StrConv("dd7優勝a", vbFromUnicode)
text() = StrConv("b日本aaa", vbFromUnicode)
ret = MessageBoxPtr(0, VarPtr(text(0)), VarPtr(caption(0)), vbOKOnly)
End Sub
を実行してみたのですが
なぜか全角文字と半角文字を両方含んでいると
文字化けしてしまいます。
しかもなぜか実行するたびにその文字化けが変化していきます。
例えば以下のようです。
b日本aaawPAセ
b日本aaaユ君・
優勝{aaaユ君・
b日本aaa蛹N・
VarPtrがメモリのアドレスを取得する関数なそうなのですが
これがリセットされていないことが原因なのでしょうか?
一体どうすれば正常に取得できるか教えていただけないでしょうか?
ちなみに環境はWin8 Excel2010です。
よろしくお願いいたします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんにちは。
MessageBoxPrt が、半角・全角混在で、できないなら、元のMessageBox でやってみたらいかがですか?
Private Declare Function MessageBox Lib "User32.dll" Alias "MessageBoxA" ( _
ByVal hWnd As Long, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal uType As Long) As Integer
と書いて気が付きました。#1様の示されたリンク先と同じですよね。
ただ、Form などでTextBox に、スクロールを付けて使ったほうが便利そうです。
No.1
- 回答日時:
こちらの
https://oshiete.goo.ne.jp/qa/4876776.html
#4さんの回答では?
試してみたところ、
lpText = "テスト" を
lpText = "始め" & String(1200, "@") & "最後"
では『始め』の後で改行?が入りました
"@" を "@" と全角にすると消える?
残念ながら、当方これ以上わかりません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) Vbaで数式をポーランド記法に変換するコードを作って実行しようとするとフリーズします。 1 2022/05/24 17:53
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Visual Basic(VBA) Vba LongPtrについて教えてください 2 2022/08/19 11:14
- Visual Basic(VBA) エクセルVBAで以下のようなコードを書いたらエラーになりました。何処が間違っているの教えて? 1 2023/02/10 18:30
- Access(アクセス) Vba Userformを前面に出すについて 3 2022/04/15 12:29
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
Msgboxで表示できる文字数の上限は939文字ですか?
Word(ワード)
-
VBAにてメッセージボックスを最前面に表示させる
その他(プログラミング・Web制作)
-
文字列型変数に1024を超えた文字列を代入した時に
Visual Basic(VBA)
-
-
4
VBAで文字を反映させると255文字の制限になってしまいます。
Visual Basic(VBA)
-
5
フォントの大きさ
Visual Basic(VBA)
-
6
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
VBA プロシージャの名前の取得
その他(Microsoft Office)
-
9
split関数で区切り文字がない場合
Visual Basic(VBA)
-
10
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
11
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
12
メッセージボックスを大きくする方法
Visual Basic(VBA)
-
13
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
14
DATE型変数を初期化する方法
Visual Basic(VBA)
-
15
エクセルVBAによりメッセージボックスを表示させた場合について
Excel(エクセル)
-
16
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
17
ウォッチ式の文字数制限について
Visual Basic(VBA)
-
18
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
19
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
20
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのCOUNTIFが正しくカウ...
-
VBScriptである文字列に半角文...
-
メッセージボックスで1025文字...
-
半角記号、全角記号を含む正規...
-
Excel関数「COUNTIF」で”文字”...
-
文字の入力で横バー上段、中断...
-
Excel2002 一桁数字だけ全角に置換
-
CapCutってどうやったら文字を...
-
PHP 全角・半角・英数字 エラ...
-
パソコンで全角、半角文字の切...
-
正規表現に関して
-
XMLのタグ名の禁則文字
-
全て全角文字かチェックしたい
-
全角括弧と全角読点の間隔を狭...
-
半角スペースを全角スペースに
-
Accessの文字数を調べたい
-
IT企業の技術屋にとって全角英...
-
Replace関数は文字数の制限ある...
-
なぜインターネットでは半角カ...
-
エスケープ文字にstr_replaceが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel関数「COUNTIF」で”文字”...
-
文字の入力で横バー上段、中断...
-
メッセージボックスで1025文字...
-
エクセルのCOUNTIFが正しくカウ...
-
半角記号、全角記号を含む正規...
-
全角括弧と全角読点の間隔を狭...
-
VBAで英数字入力チェックしたい。
-
全角英数文字が嫌われる理由を...
-
記号は半角と全角どちらがよい...
-
XMLのタグ名の禁則文字
-
Replace関数は文字数の制限ある...
-
文字列中の両丸括弧を取り除くV...
-
携帯電話の相手の電話番号にメ...
-
エクセルでの漢字、カタカナ、...
-
2つ以上の連続する空白文字を除去
-
Excel2002 一桁数字だけ全角に置換
-
VBScriptである文字列に半角文...
-
IT企業の技術屋にとって全角英...
-
特定の文字を簡単な操作で半角...
-
半角文字と全角文字の判別の仕方
おすすめ情報