Excel VBA質問箱 IV

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

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


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

41949 / 76732

←次へ　｜　前へ→


	【39857】Re:文字列を30バイトで切るには？

ichinose - 06/7/3(月) 11:49 -


	引用なし

	パスワード

▼mutu さん：
こんにちは。

Evaluateをとおして、ワークシート関数を使う方法もです。

新規ブックの標準モジュールに
'==============================================================
Sub main()
　　Dim teststr As String
　　With Range("a1")
　　　.NumberFormatLocal = "@"
　　　.Value = "1234567８9"
　　　MsgBox "セルＡ１ = ""1234567８9"" ９バイト取得" & vbCrLf & _
　　　　　　 "Evaluate(""leftb(a1,9)"") = " & _
　　　　　　　　 Evaluate("leftb(a1,9)") & vbCrLf & _
　　　　　　 "StrConv(LeftB(StrConv(.Value, vbFromUnicode), 9), vbUnicode) = " & _
　　　　　　　　 StrConv(LeftB(StrConv(.Value, vbFromUnicode), 9), vbUnicode) & vbCrLf & _
　　　　　　 "LeftB(.Value, 9) = " & LeftB(.Value, 9)

　　　teststr = "1234567８9"
　　　MsgBox "teststr = ""1234567８9""　９バイト取得" & vbCrLf & _
　　　　　　 "Evaluate(""leftb("" & teststr & "",9)"") = " & _
　　　　　　　　Evaluate("leftb(""" & teststr & """,9)") & vbCrLf & _
　　　　　　 "StrConv(LeftB(StrConv(.Value, vbFromUnicode), 9), vbUnicode) = " _
　　　　　　　　& StrConv(LeftB(StrConv(teststr, vbFromUnicode), 9), vbUnicode) & vbCrLf & _
　　　　　　 "LeftB(.Value, 9) = " & LeftB(teststr, 9)
　　　End With
End Sub

確認してみてください。

0 hits

▼

【39849】文字列を30バイトで切るには？ mutu 06/7/3(月) 10:01