返回列表下一主題上一主題發帖

[發問] 格式化規則 VBA

s13983037

中學生 Rank: 2

帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-11-23 12:23 | 顯示全部帖子

[發問] 格式化規則 VBA

大大們好

我想要問說可以針對C欄的資料對A欄中有的標記上黃色嗎(附件一)

試著弄了一下會變成 (附件二) 這要怎麼修改?? 麻煩了感謝
Dim i As String
For j = 1 To 5
Worksheets(1).Columns("A:A").Select
i = Worksheets(1).Range("C" & j)
Selection.FormatConditions.Add Type:=xlTextString, String:=i, _
      TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
      .PatternColorIndex = xlAutomatic
      .Color = 65535
      .TintAndShade = 0
End With
Next

Q55.png (4.93 KB)

附件一