Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

32364 / 76807

←次へ　｜　前へ→


	【49681】Re:検索

ichinose - 07/6/15(金) 20:11 -


	引用なし

	パスワード

こんばんは。

>>Sub add_formatcondition()
>>　　With Columns(1)
>>　　　 .FormatConditions.Delete
>>　　　 With .FormatConditions.Add( _
>>　　　　　　　 Type:=xlExpression, Formula1:= _
>>　　　　　　　 "=COUNTIF(c1,rc)>1")
>>　　　　　　.Interior.ColorIndex = 3
>>　　　　　　End With
>>　　　 End With
>>End Sub
>
>返信遅くなりまして、すみません。
>これでいけるかなと思います！
>countifについて調べていますが、
>「COUNTIF(c1,rc)>1」
>はAの行をしらべるのになぜc1とrcでくくってあるのですかね？
ちょっと紛らわしいですね！！
これ、Ｒ１Ｃ１形式でセル範囲を表しています。

Ｃ１は、１列目のセル　RCは、カレントのセル

新規ブックの標準モジュールで

Sub disp_address()
　　With Columns(1)
　　　 MsgBox .Address(, , xlR1C1)
　　　 End With
End Sub

これを実行してみてください。

C1と表示されます。

A1形式で記述すると、

Sub add_formatcondition2()
　　With Columns(1)
　　　 .Cells(1).Activate
　　　 .FormatConditions.Delete
　　　 With .FormatConditions.Add( _
　　　　　　　 Type:=xlExpression, Formula1:= _
　　　　　　　 "=COUNTIF($a:$a,a1)>1")
　　　　　　.Interior.ColorIndex = 3
　　　　　　End With
　　　 End With
End Sub

↑このコードと前回の投稿したコードでは、Ａ列に設定される
条件付書式は同じです。

1 hits

▼

【49648】検索 ｘｘｘｘｘ 07/6/14(木) 17:31