みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Excel VBAで半角

Excel VBAで半角


A列が半角のときに、B列にoと表示させるために下記のソースを考えたのですがうまくいきません。初歩的な質問だとは思いますがよろしくお願いします。


Sub 半角判定()
Dim i

For i = 2 To Range("g65536").End(xlUp).Row

If Application.Len(Cells(i, 1)) = Application.LenB(Cells(i, 1)) Then

Cells(i, 2) ="o"
End If

Next
End Sub

投稿日時 - 2010-06-08 15:09:31

QNo.5953750

すぐに回答ほしいです

質問者が選んだベストアンサー

以下の様にしてみて下さい。

Sub 半角判定()
Dim i

For i = 2 To Range("g65536").End(xlUp).Row

If Len(Cells(i, 1).Value) = LenB(StrConv(Cells(i, 1).Value, vbFromUnicode)) Then

Cells(i, 2) = "o"
End If

Next
End Sub

投稿日時 - 2010-06-08 15:34:00

ANo.1

このQ&Aは役に立ちましたか?

6人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

どの行がうまくいかないと思ってたのか、そこも提示した方が良いです。

LENとLENBを使うのはよかったと思います。

既存の回答で何がどうなっているかわからなかったら
解説ももらうことです。

投稿日時 - 2010-06-08 20:11:59

あなたにオススメの質問