Excel VBA質問箱 IV

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

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


21906 / 76738 ←次へ | 前へ→

【60219】Re:複数のセルを選択
質問  なっちょめ E-MAIL  - 09/2/4(水) 23:23 -

引用なし
パスワード
   ▼ichinose さん:
▼プルート さん:
お世話になっております。

先日、教えていただいた内容で再度ご教授を
お願いしたい点があり投稿させて頂いています。

私の勘違いで比較のやり方が失敗していました。
"TEST"と"test"で同じ値。"test"と" test"でも(ブランクがあっても)同じ値。
というふうに結果を返したいのですが、先日教えていただいたコードを
少し変えるだけで対応可能なのでしょうか?
何度も申し訳ありませんが、よろしければご教授お願いいたします。


>こんにちは。
>
>仕事中なのできちんとは検証してませんが、
>
>
>>同じ”値”が入っているかどうかという事で、
>>投稿させてもらっていましたが、これには文字列も比較対照に
>>入っています。
>>例えば”TEST"という文字と、"TEST"だと、同じ値。
>>"TEST”という文字と" TEST"だと、後者にはスペースが入っているので
>>違う値。という風に出したいです。
>そうなっているはずですが・・・。
>以下のテストデータで試してみてください
>
>Sub sample()
>  Dim crng As Range
>  Dim kk As Variant
>  With Range("b1:b5,B10:B11")
>    With .Areas(1)
>     .Cells(1).Value = "TEST"
>     .Cells(2).Value = " TEST"
>     .Cells(3).Value = "TEST"
>     .Cells(4).Value = " TEST"
>     .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")
>     If Not .Exists(CStr(crng.Value)) Then
>       Set .Item(CStr(crng.Value)) = crng
>     Else
>       Set .Item(CStr(crng.Value)) = Application.Union(.Item(CStr(crng.Value)), crng)
>     End If
>    Next
>    For Each kk In .Keys
>    MsgBox kk & " という値で " & .Item(kk).Address & " が同じ"
>    Next
>  End With
>End Sub
>
>
>後は、夜の返信になります。
0 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 お礼

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