| |
こんばんわ、しかちゃん。ちんといいます。
だいぶ前の質問で、レスが付いてないので、もう解決したかもしれませんが、
とりあえず、参考までに記載します。
▼しかちゃん さん：
>A1〜A10セルに文字列が入力されています。
>A1セルの文字列に全角アルファベット、全角の数字、全角の（と）が含まれていれば
>それらを半角になおし、B1セルに出力するという作業をA2〜A10セルについても繰り返そうと思うのですが、
>どのようなプログラムにすればいいのでしょうか？
>ただし、カタカナは全角のままにしたいのです。
>よろしくお願いいたします。
Sub a()
For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp))
a1 = 0 '全角アルファベット
a2 = 0 '全角の数字
a3 = 0 '全角の（と）
For i1 = 1 To Len(c)
If Mid(c.Value, i1, 1) >= "Ａ" And Mid(c.Value, i1, 1) <= "Ｚ" Then
a1 = 1 '***全角アルファベット みっけ
ElseIf Mid(c.Value, i1, 1) >= "ａ" And Mid(c.Value, i1, 1) <= "ｚ" Then
a1 = 1 '***全角アルファベット みっけ
ElseIf Mid(c.Value, i1, 1) >= "０" And Mid(c.Value, i1, 1) <= "９" Then
a2 = 1 '***全角アルファベット みっけ
ElseIf Mid(c.Value, i1, 1) = "と" Then
a3 = 1 '***全角（と） みっけ
End If
Next i1
If a1 = 1 And a2 = 1 And a3 = 1 Then
'*** 対象データ 発見
'*** コード変換処理
End If
a1 = 0
a2 = 0
a3 = 0
Next
End Sub
判定までのロジックを書きました。変換については、再度質問してくれれば、改めて書き込みます。
以上、参考までに・・・
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
