Excel VBA質問箱 IV

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

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


61219 / 76732 ←次へ | 前へ→

【20136】Re:シートから全角文字をサーチしてあればセ...
発言  kazu  - 04/11/29(月) 15:22 -

引用なし
パスワード
   ▼月の輪熊 さん:
>初めて質問させて頂きます。宜しくお願い致します。
>
>シートの中に入力されるデータで、全角文字と半角文字が混在するセルが
>あった場合、該当セルに色を付ける(もしくはフォントを変える)ような
>方法はないでしょうか?
>
>全角文字を半角文字に変える、セルに色を付ける、文字フォントを変える
>という単独機能を実現する方法は見つけたのですが、この組み合わせで
>実現させる方法が解らなくて困っています。
>
>どうか、宜しくお願いいたします。


こんな感じでどうでしょうか?


Sub TEST()
  'For Each CEL In ActiveSheet.Cellsでも可能ですが、
  '実用的ではない為各列の最終行迄処理をする様にしています。
  '半角 or 全角 のみでないセルは黄色に塗られます。
  With ActiveSheet
  For I = 1 To 256
    R = .Cells(65536, I).End(xlUp).Row
    For J = 1 To R Step 1
      If .Cells(J, I).Value <> "" Then
        '対象セルの値
        A = .Cells(J, I).Value
        '対象セルの値を全て全角に変換した値
        B = StrConv(.Cells(J, I).Value, vbWide)
        '対象セルの値を全て半角に変換した値
        C = StrConv(.Cells(J, I).Value, vbNarrow)
        'Not (A = B Or A = C) ← A <> B And A <> C
        'どちらかでも等しければ全て全角又は全て半角
        If A <> B And A <> C Then
          'セルを黄色く塗りつぶす処理
          With .Cells(J, I).Interior
            .ColorIndex = 6
            .Pattern = xlSolid
          End With
        End If
      End If
    Next
  Next
  End With
End Sub
2 hits

【20133】シートから全角文字をサーチしてあればセ... 月の輪熊 04/11/29(月) 14:33 質問
【20134】Re:シートから全角文字をサーチしてあれば... ichinose 04/11/29(月) 14:52 回答
【20137】Re:シートから全角文字をサーチしてあれ... 月の輪熊 04/11/29(月) 15:30 お礼
【20146】Re:シートから全角文字をサーチしてあれ... ichinose 04/11/29(月) 17:19 発言
【20177】Re:シートから全角文字をサーチしてあれ... 月の輪熊 04/11/30(火) 13:49 発言
【20136】Re:シートから全角文字をサーチしてあれば... kazu 04/11/29(月) 15:22 発言
【20138】Re:シートから全角文字をサーチしてあれ... 月の輪熊 04/11/29(月) 15:32 お礼
【20140】Re:シートから全角文字をサーチしてあれ... 月の輪熊 04/11/29(月) 15:56 お礼

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