[發問] ［附圖］［附程式碼］VBA新手求解

顏色, VBA, 儲存格, Excel, 搜尋

各位大大你們好，小弟這兩天剛接觸VBA，想解決工作上的困擾，
我是一邊錄製巨集，一邊看語法學的，不過很快就陷入瓶頸了，麻煩各位指導一下

以下弄了個較簡單的兩個EXCEL檔，想學習根本的應用，之後再自己套用到工作的文件
目標：從活頁簿2 中，選取錯誤編號的值，再到活頁簿1 中，
　　　找到相同的值並將該列以黃色填滿

活頁簿1：
編號.JPG

活頁簿2：

希望的結果：

悲慘的程式碼：

附上程式碼文字檔：
Sub 巨集12()
Dim i, n As Integer '宣告整數i
Dim x As String '宣告字串x
Dim y As Range '宣告儲存格範圍...?

Windows("活頁簿1.xlsx").Activate '開啟全部編號的 EXCEL視窗
Range("D1").Select '選定D1（總筆數）
n = Selection.Value '儲存總筆數到 n，供下列的迴圈使用

For i = 3 To (n + 1) Step 1 '有幾筆錯誤編號就執行幾次
      Windows("活頁簿2.xlsx").Activate '開啟錯誤編號的 EXCEL視窗
      Range("A" & i).Select '選取儲存格
      x = Selection.Copy '複製已選取的儲存格
      Windows("活頁簿1.xlsx").Activate '開啟全部編號的 EXCEL視窗

      Set y = Range("A2", "A50000").Find(x, LookIn:=xlValues)
      '其實能搜尋整個A欄就可以了，但我還不太會寫，所以才寫這樣，50000是因為值不會超過這數字
      '這段主要是想要達到"搜尋的功能，別問我為什麼要多一個y來儲存...　因為程式這樣才跑得動 QQ"

         If Not y Is Nothing Then
            y.Select '選取搜尋結果的儲存格...?
            '我承認這邊亂寫...

            Application.CutCopyMode = False '我不太知道這行的功用
            With Selection.Interior '改變搜尋結果的儲存格的顏色（這裡不知道怎麼選取整列）
                  .Pattern = xlSolid
                  .PatternColorIndex = xlAutomatic
                  .Color = 65535
                  .TintAndShade = 0
                  .PatternTintAndShade = 0
            End With

         End If
Next i
End Sub

稍微整理一下我的問題：
1. "搜尋"的語法、能否一次搜尋多筆資料（不然資料100筆以上就會跑很久）
2. 如果搜尋結果不存在可否將其資料在另外一個地方顯示或儲存
（雖然工作上應該不會出現這狀況，但如果發生還是希望能找出來，畢竟這表示整個文件可能有問題了...）
3. 改變儲存格填滿顏色的部分，有更簡短的語法嗎?（with裡面的內容不太瞭解）
4. 如何將某個儲存格的位置存到變數值內，再使用select或其他方式選取該儲存格（也就是看起來很詭異的那句 "y.Select" 想達成的作用）

問題有點雜，還請各位能提點一下小弟，感激不盡

編號.JPG (10.75 KB)

編號.JPG

錯誤編號.JPG (9.96 KB)

錯誤編號.JPG

編號_結果.JPG (12.56 KB)

編號_結果.JPG

VBA.JPG (57.3 KB)

chengchi1223

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 18
點名: 0
作業系統: XP
軟體版本: OFFICE2010
閱讀權限: 10
註冊時間: 2016-6-28
最後登錄: 2016-8-11

2^#

發表於 2016-6-28 14:09 | 顯示全部帖子

回復 2# c_c_lai

感謝c_c_lai大大的範例程式，短短幾行就幾乎完成我所有要求，實在太厲害了
各句語法讀起來也十分清楚，唯獨

Find(dat, , LookIn:=xlValues, LookAt:=xlWhole)

複製代碼

這部分有些疑問：
1. LookAt常數可以為 xlWhole 或 xlPart，這兩個差異在哪呢？
　兩個都試過，至少在這程式內執行都沒有出錯，所以不明白其中差異
2. dat 及 LookIn:=xlValues 之間有兩個逗點是多打了嗎？還是空下After的值？有什麼特別的目的嗎？
　跟 1. 一樣刪除與否在這程式內都不影響結果

以上兩點一樣算是很基礎的問題...　還請大大指導　

TOP

chengchi1223

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 18
點名: 0
作業系統: XP
軟體版本: OFFICE2010
閱讀權限: 10
註冊時間: 2016-6-28
最後登錄: 2016-8-11

3^#

發表於 2016-6-28 14:15 | 顯示全部帖子

另外附上些微修改的程式碼，增加註解上去，有理解錯誤的地方還請不吝指正

Sub 從工作表1中_標出工作表2的值()
Dim sh As Worksheet, dat As Variant, rw As Range
'sh 為工作表；dat 為變數（無特定型態）；rw 為儲存格
Set sh = Sheets("工作表1") '指派工作表1 給 sh
With Sheets("工作表2") '對工作表2 執行下列內容
For Each dat In Range(.Range("A2"), .Range("A2").End(xlDown)) '對工作表2 內， A2以下的每個儲存格執行下列內容
Set rw = sh.Range("A2:A" & sh.Range("A2").End(xlDown).Row).Find(dat, , LookIn:=xlValues, LookAt:=xlWhole)
'將在工作表1 中找到的那個儲存格（與工作表2 中的值相同）指派給 rw
If Not rw Is Nothing Then '若rw有值存在，執行下列內容
sh.Rows(rw.Row).Interior.ColorIndex = 6 '將工作表1 中 rw 那一列顏色屬性改為黃色
End If
Next
End With
End Sub

複製代碼

TOP

[發問] ［附圖］［附程式碼］VBA新手求解

[發問] ［附圖］［附程式碼］VBA新手求解

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]