Excel VBA質問箱 IV

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

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


21832 / 76734 ←次へ | 前へ→

【60290】Re:複数のセルを選択
発言  ichinose  - 09/2/7(土) 22:08 -

引用なし
パスワード
   こんばんは。


>今回の件で、全角と半角でも同じ値、「あ」と「ア」でも同じ値を
>返すには、どうしたらいいのでしょうか?
>少しのヒントでも構いません、なにかしらあれば
>教えていただけないでしょうか?
>
>ichinoseさんから教えていただいたコードに
>Strconv等の関数を更に付け加えればいけるのかなと思い、
>色々試してはみたのですが・・・・
Strconv関数をどのように試してダメだったかを必ず、記述して下さい
その記述がいずれは、貴重な資料になると思いますから・・・。


Sub sample()
  Dim crng As Range
  Dim kk As Variant
  Dim cnvstr As String
  With Range("b1:b5,B10:B11")
    With .Areas(1)
     .Cells(1).Value = "あいう"
     .Cells(2).Value = " TEST"
     .Cells(3).Value = "TEST"
     .Cells(4).Value = " アイウ"
     .Cells(5).Value = "aaaa"
    End With
    With .Areas(2)
     .Cells(1).Value = "aaaa"
     .Cells(2).Value = " TEST"
    End With
  End With
  MsgBox "上記のデータでテストします"
  With CreateObject("scripting.dictionary")
    For Each crng In Range("b1:b5,B10:B11")
     cnvstr = StrConv(StrConv(UCase(Trim(CStr(crng.Value))), vbWide), vbKatakana)
     If Not .Exists(cnvstr) Then
       Set .Item(cnvstr) = crng
     Else
       Set .Item(cnvstr) = Application.Union(.Item(cnvstr), crng)
     End If
    Next
    For Each kk In .Keys
    MsgBox kk & " という値で " & .Item(kk).Address & " が同じ"
    Next
  End With
End Sub


これで試してみて下さい。
2 hits

【59994】複数のセルを選択 なっちょめ 09/1/22(木) 20:54 質問
【59995】Re:複数のセルを選択 ichinose 09/1/22(木) 21:31 発言
【60007】Re:複数のセルを選択 なっちょめ 09/1/23(金) 12:41 質問
【60015】Re:複数のセルを選択 ichinose 09/1/23(金) 15:07 発言
【60219】Re:複数のセルを選択 なっちょめ 09/2/4(水) 23:23 質問
【60220】Re:複数のセルを選択 ichinose 09/2/4(水) 23:42 発言
【60272】Re:複数のセルを選択 なっちょめ 09/2/6(金) 17:51 質問
【60290】Re:複数のセルを選択 ichinose 09/2/7(土) 22:08 発言
【60307】Re:複数のセルを選択 なっちょめ 09/2/9(月) 11:59 お礼
【60016】Re:複数のセルを選択 プルート 09/1/23(金) 16:18 発言
【60021】Re:複数のセルを選択 なっちょめ 09/1/23(金) 18:17 お礼
【60028】Re:複数のセルを選択 なっちょめ 09/1/24(土) 14:09 お礼

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