Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4933 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【53478】if文で全角か半角かを判断したい
質問  syoshin  - 08/1/16(水) 12:22 -
引用なし
パスワード
   こんにちは、syoshinいう者です。
UserForm1の中に、TextBox1とCommandButton1を用意します。

・TextBox1の中身が全角であればExitSubで抜ける。
・TextBox1の中身が半角ならば抜けないでその下の命令を実行する。

この二つを判断するいいif文はないものでしょうか？
ちなみにCommandButton1をクリックすると判断が開始されるものなのですが。
分かる方教えていただけませんか？
【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
【53480】Re:if文で全角か半角かを判断したい
回答  neptune  - 08/1/16(水) 13:06 -
引用なし
パスワード
   ▼syoshin さん：
こんにちは

要は全角半角の判断をしたいと言う事ですね。
文字コードが絡んでくるので結構鬱陶しいです。
//hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200703/07030051.txt
//hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200311/03110098.txt

そのほか
「全角 半角 判断 VB」でググッたら沢山ヒットしますので参考になります。
【53482】Re:if文で全角か半角かを判断したい
お礼  右も左も分からない  - 08/1/16(水) 14:47 -
引用なし
パスワード
   ▼syoshin さん：
>こんにちは、syoshinいう者です。
>UserForm1の中に、TextBox1とCommandButton1を用意します。
>
>・TextBox1の中身が全角であればExitSubで抜ける。
>・TextBox1の中身が半角ならば抜けないでその下の命令を実行する。
>
>この二つを判断するいいif文はないものでしょうか？
>ちなみにCommandButton1をクリックすると判断が開始されるものなのですが。
>分かる方教えていただけませんか？

解決できました。ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4933 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free