| |
▼月の輪熊 さん：
こんばんは。
既に解決したご様子ですが・・・。
条件付書式でも可能かと思います。
>早速のお返事、誠に有難うございます。
>
>教えて頂いた通りに行ってみたのですが、どうも上手く行かないようです。
>操作方法に何か足りないところがあるのかもしれません。
説明不足なんてしょうか？
>もう少し色々とやってみます。
>因みに使用バージョンはExcel2002 SP-1ですが、関係ありますでしょうか？
SP-1では確認していませんが、SP-3（だったと思う）ではＯＫでしたよ！！
>
>全角文字という事で、頭から「文字列」と決めてかかっていたのですが、
>「条件付書式設定で数式を使う」という発想には、正に目からウロコが
>落ちる状況でした。どうも有難うございました。
取り合えず、条件付書式の設定をＶＢＡでやりましょうか・・。
査定したいセル範囲を選択後（例えばＡ１〜Ｃ３）、以下のマクロを
実行して下さい。
'======================================================
Sub Macro1()
With Selection
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=IF(OR(LEN(rc)=LENB(rc),LEN(rc)*2=LENB(rc)),FALSE,TRUE)"
.FormatConditions(1).Interior.ColorIndex = 8
End With
End Sub
上記のコードは、半角と全角が混在しているセルが水色にする
条件付書式を設定しています。
まっ、解決したみたいなので興味があったら確認してみて下さい。
|
|
ichinose
- 04/11/29(月) 17:19 -
