Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12275 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

【11398】String型格納文字数 よっし 04/3/8(月) 16:12

【11399】Re:String型格納文字数 Jaka 04/3/8(月) 16:17

【11402】Re:String型格納文字数 よっし 04/3/8(月) 16:31


	【11398】String型格納文字数

よっし - 04/3/8(月) 16:12 -


	引用なし

	パスワード

　初歩的なことでしたら申し訳ないです。
Excel2000VBAで以下の記述をした場合、
格納される文字数が、256文字で切れてしまいます。
VBAのヘルプでは、「可変長文字列には、約 2GB (2^31) までの文字を
格納することができます。」とあります。
何か宣言で問題あるのでしょうか。

Sub a()
Dim a As String
a = ""
a = a & "11111111112222222222333333333344444444445555555555"
a = a & "6666666666777777777788888888889999999999aaaaaaaaaa"
a = a & "bbbbbbbbbbccccccccccddddddddddeeeeeeeeeeffffffffff"
a = a & "gggggggggghhhhhhhhhhiiiiiiiiiijjjjjjjjjjkkkkkkkkkk"
a = a & "llllllllllmmmmmmmmmmnnnnnnnnnnoooooooooopppppppppp"
a = a & "qqqqqqqqqq"

End Sub


	【11399】Re:String型格納文字数

Jaka - 04/3/8(月) 16:17 -


	引用なし

	パスワード

こんにちは。
意味が良くわかんないけど、確認して見てください。

Sub a()
Dim a As String
a = ""
a = a & "11111111112222222222333333333344444444445555555555"
a = a & "6666666666777777777788888888889999999999aaaaaaaaaa"
a = a & "bbbbbbbbbbccccccccccddddddddddeeeeeeeeeeffffffffff"
a = a & "gggggggggghhhhhhhhhhiiiiiiiiiijjjjjjjjjjkkkkkkkkkk"
a = a & "llllllllllmmmmmmmmmmnnnnnnnnnnoooooooooopppppppppp"
a = a & "qqqqqqqqqqあ"

MsgBox Len(a) & "-" & a
End Sub


	【11402】Re:String型格納文字数

よっし - 04/3/8(月) 16:31 -


	引用なし

	パスワード

回答ありがとうございます。
長さは261文字と表示されました。”あ”も表示されました。

デバッグする際のローカルウィンドウで変数の値を確認した際に、
256文字しか表示されなかったので、切り取られていると、
早合点してしまいました。

お手数かけましてすいませんでした。
今後はもっと確認するように気をつけます。

▼Jaka さん：
>こんにちは。
>意味が良くわかんないけど、確認して見てください。
>
>Sub a()
>Dim a As String
>a = ""
>a = a & "11111111112222222222333333333344444444445555555555"
>a = a & "6666666666777777777788888888889999999999aaaaaaaaaa"
>a = a & "bbbbbbbbbbccccccccccddddddddddeeeeeeeeeeffffffffff"
>a = a & "gggggggggghhhhhhhhhhiiiiiiiiiijjjjjjjjjjkkkkkkkkkk"
>a = a & "llllllllllmmmmmmmmmmnnnnnnnnnnoooooooooopppppppppp"
>a = a & "qqqqqqqqqqあ"
>
>MsgBox Len(a) & "-" & a
>End Sub


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12275 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free