Excel VBA質問箱 IV

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

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


5834 / 13645 ツリー ←次へ | 前へ→

【48634】VBAでバイト数チェックをするには のりぞう 07/4/26(木) 20:52 質問[未読]
【48636】Re:VBAでバイト数チェックをするには ponpon 07/4/26(木) 21:56 発言[未読]
【48637】Re:VBAでバイト数チェックをするには ponpon 07/4/26(木) 22:00 発言[未読]

【48634】VBAでバイト数チェックをするには
質問  のりぞう  - 07/4/26(木) 20:52 -

引用なし
パスワード
   お世話になります。
VBAでDBに項目を格納するのにセルの中の半角・全角が混在している文字が何バイトあるかチェックしたいのですが、どうすればよいでしょうか?
LENだと文字数になってしまうし・・・
知っている方がいましたら教えてください。

【48636】Re:VBAでバイト数チェックをするには
発言  ponpon  - 07/4/26(木) 21:56 -

引用なし
パスワード
   こんばんは。
確かエクセルの文字はユニコードではなかったかな?
この場合、全角も半角も2バイトでは?
そこで、StrConvを使って、

Sub test()
  Dim A As String
  Dim B As String
  
  A = "12345"
  B = "あいおうお"
    
  MsgBox LenB(StrConv(A, vbFromUnicode))
  MsgBox LenB(StrConv(B, vbFromUnicode))
  
End Sub

【48637】Re:VBAでバイト数チェックをするには
発言  ponpon  - 07/4/26(木) 22:00 -

引用なし
パスワード
   >確かエクセルの文字はユニコードではなかったかな?
エクセル2000以降だと思います。

5834 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free