文字列の比較

質問

exceｌvbaです。（excel2003）

３個のセル（ａ１，ｂ１，ｃ１）に文字列が入っています。
このそれぞれ文字列の右８桁を比較し、
最小の文字列が入っているセルに色を付けたいのです。

調べたら、minは使えませんし、dminがありましたが、
right(range("A1").value,8)をどう扱うかが分かりません。

出来ましたら、dminでなく他の方法が在ればベターです。
宜しくお願いします。

回答No.3

mt2008

文字列としての比較ですか？
例：ABCDEFGHI、JKLMNOPQ、RSTUVWXY　のうち一番小さいデータ

右8文字が数字の文字列で、その数字で比較ですか？
例：A00000001、B00000002、C00000003

後者ならANo.1、ANo.2の回答で大丈夫ですが、前者だとStrcompで比較する必要があります。

お礼

早速有り難うございました。
strcompを見てみましたが、２個の大小しか聞けないみたいですね。
３個をまとめて調べたいのが狙いでした。
お世話になりました。

回答No.2

watabe007

参考に
Dim c As Range
With Range("A1:C1")
　　For Each c In .Cells
　　　　If Application.Evaluate("MIN(RIGHT(" & .Address & ",8)*1)") = Right(c.Value, 8) * 1 Then
　　　　　　c.Interior.ColorIndex = 8
　　　　　　Exit For
　　　　End If
　　Next
End With

回答No.1

tom04

こんにちは！

条件付き書式ではダメですか？
必ず右8文字は数値とします。

A1～C1セルを範囲指定　→　条件付き書式　→　数式が　→　数式欄に
=RIGHT(A1,8)*1=MIN(RIGHT($A1:$C1,8)*1)
として　書式　→　パターン　→　好みの色を選択しOK

これでおそらくお望み通りになると思います。

※　どうしてもVBAで！というコトであれば無視してください。m(_ _)m