以巨集抓取指定顏色資料 - Excel程式區

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

[發問] 以巨集抓取指定顏色資料

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2808
主題: 10
精華: 0
積分: 2864
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-5-18

1^# 跳轉到 »

發表於 2016-11-27 13:37 | 顯示全部帖子

〔項次．品牌．數量〕的文字顏色不一致，以〔數量〕為主：

Sub 匯入()
Dim R&, xArea As Range, xR As Range, xE(1 To 2) As Range, i%, C%, N%
With Sheets("匯整")
.UsedRange.Offset(1, 0).EntireRow.Delete
Set xE(1) = .[A2]: Set xE(2) = .[D2]
End With
With Sheets("庫存").UsedRange
R = .Rows.Count - 22: If R <= 0 Then Exit Sub
Set xArea = .Rows(23).Resize(R)
End With
For i = 3 To xArea.Columns.Count Step 4
For Each xR In xArea.Columns(i).Cells
N = 0: C = xR.Font.ColorIndex
If C = 5 Then N = 1
If C = 10 Then N = 2
If xR = "" Or N = 0 Then GoTo 101
R = xR.MergeArea.Rows.Count
xR(1, 0).Resize(R, 2).Copy xE(N)
Set xE(N) = xE(N)(R + 1)
101: Next
Next i
End Sub

複製代碼

Xl0000024.rar (17.08 KB)
　
　

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2808
主題: 10
精華: 0
積分: 2864
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-5-18

2^#

發表於 2016-11-27 16:24 | 顯示全部帖子

回復 3# msmplay

1. 套用上公司庫存表格式，無法抓取所有綠字庫存
＿我這裡執行沒問題，是否office版本問題（我是２０００），這我無法解決
　
2. 非合併儲存格無法抓取，例如：「庫存」R37:S38非合併儲存格，R38就沒有抓到，因為「匯整」A76只抓到一個TEST
＿表格合併不規則，很難判斷，只能以〔數量〕為主，所以同一群組的數量，必須先〔合併〕

3. 是否可設定抓取資料範圍，因為只需抓取「庫存」A23:W122範圍資料，A23以上顏色資料無需抓取
＿程式已限制只匯入第２２列以下的資料

最好有其他大大用office 2010改一下程式！！我僅能做到這樣！

TOP

准提部林