求一段VBA代碼.

零落成泥　发表于：2009-06-24 17:59:47 　

向高手們求一段代碼:這段代碼是用在Excel裏面的,數據源是從Access裏面導出去的表.不知道要如何才能達到我的目的,見附件.

善裕发表于：2009-06-24 22:26:01

如果要写在代码，很难，因为我们都是用access，你要找一下excel高手们，我看了你的表格，不用代码也可以做出来，就是在格式－条件格式中设置，先设置一个，而后，在单元格右下角点鼠标右键，向右拉到你要设置的单元格，放松，选择填充格式，这样其他的单元格也设成你的（两个单元格对比，如果条件为真，字体颜色变红，可以实现的）

Top

零落成泥发表于：2009-06-25 10:15:36

你好:我遇到的問題是在第一行設定好條件格式後往下拉的時候,下面的行的所有單元格的條件格式的參照的單元格是一個絕對地址,就是第一個條件格式的地址,下面的每一個單元格也必須一個一個的改,這樣也很費時,有沒有更好的辦法?請不吝賜教.

Top

善裕发表于：2009-06-25 12:44:09

往右边拉是可以,往下我也发现不行,你还是先向右边吧,这样做好一个模板,当你输入时,条件就会起作用了,

Top

汪武龍发表于：2009-06-25 20:57:33

經測試使用以下程序碼可執行:

For i = 1 To 55
   Range("D2:K55").Rows(i).Select
        Selection.FormatConditions.AddAboveAverage
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).AboveBelow = xlAboveAverage
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
        .Color = -16776961
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Next i

說明:55和k55這個數你可以直設定向左及向下擴展之範圍.

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

求一段VBA代碼.