返回列表 上一主題 發帖

[發問] 請問當A1輸入數字4時找出下列資料同數字的公式

回復 5# PD961A
附檔只有一個工作表 程式碼放哪裡都一樣
當程式碼 在SHEET物件中 Range("A2:H17").Select  是指SHEET物件工作表的Range  
當程式碼 在一般Module中 Range("A2:H17").Select  是指做用中SHEET的Range  
你要到 VBA 的視窗中 將滑鼠移到程式碼的範圍裡 按下F5    執行一次  Sub Macro1()程式 才會有作用

TOP

回復 4# GBKEE


    謝謝版主
可以請問是放在一般的Macro1()嗎?
換過數字後沒有改過
謝謝您
1.rar (7.46 KB)

TOP

本帖最後由 GBKEE 於 2010-7-14 19:37 編輯

回復 3# PD961A
是不是這個方向
  1. Sub Macro1()
  2. ' Macro1 Macro
  3. ' hsu 在 2010/7/14 錄製的巨集
  4.     Range("A2:H17").Select
  5.     Selection.FormatConditions.Delete
  6.     Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=OR(A2=$A$1,A2=$B$1,A2=$C$1)"
  7. ' 依附檔錄製後修正的"=OR(A2=$A$1,A2=$B$1,A2=$C$1)"
  8.     Selection.FormatConditions(1).Font.ColorIndex = xlAutomatic
  9.     With Selection.FormatConditions(1).Interior
  10.         .ColorIndex = 6
  11.         .Pattern = xlSolid
  12.     End With
  13. End Sub
複製代碼

TOP

本帖最後由 PD961A 於 2010-7-14 18:22 編輯
回復  PD961A

你可以試著用錄製新巨集 看看
GBKEE 發表於 2010-7-14 17:46



    GBKEE版主..謝謝您
但是可以請問您
當第一列A1.B.C~假設到H1
輸入數字(預設為1~100)
但是底下的資料會變動位子(資料會因為人為輸入而產生重複的地方)
因此當第一列輸入今天作好的數字共8欄(~H欄).....(希望可以不限制到H欄)
EX:31.32.33.34.35.36.37輸入完就可以知道底下哪個資料跟上面這些數字重複了

這樣的情況下要如何錄製新巨集?
謝謝您..

TOP

回復 1# PD961A

你可以試著用錄製新巨集 看看

TOP

        靜思自在 : 地上種了菜,就不易長草;心中有善,就不易生惡。
返回列表 上一主題