Excel VBA質問箱 IV

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

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


28555 / 76738 ←次へ | 前へ→

【53479】Re:if文で全角か半角かを判断したい
発言  わさび  - 08/1/16(水) 12:57 -

引用なし
パスワード
   ▼syoshin さん:

以前、作成したコードですが、
参考になりますでしょうか。

-----

Sub test()

  Dim mojiretsu As String
 
  mojiretsu = ActiveSheet.Range("A1").Value
  
  If LenB(StrConv(mojiretsu, vbFromUnicode)) = Len(mojiretsu) * 2 Then
    MsgBox "全て全角です。"
  ElseIf LenB(StrConv(mojiretsu, vbFromUnicode)) = Len(mojiretsu) Then
    MsgBox "全て半角です。"
  Else
    MsgBox "混在しています。"
  End If


End Sub

0 hits

【53478】if文で全角か半角かを判断したい syoshin 08/1/16(水) 12:22 質問
【53479】Re:if文で全角か半角かを判断したい わさび 08/1/16(水) 12:57 発言
【53480】Re:if文で全角か半角かを判断したい neptune 08/1/16(水) 13:06 回答
【53482】Re:if文で全角か半角かを判断したい 右も左も分からない 08/1/16(水) 14:47 お礼

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