返回列表 上一主題 發帖

[發問] 如何輸入兩個資料自總表中篩出資料，輸入在另一分頁

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
1# 跳轉到 »
發表於 2024-1-12 11:07 | 顯示全部帖子
謝謝論壇(5001),謝謝各位前輩
後學藉此帖練習陣列,學習方案如下,請各位前輩指教
結果表清除舊資料:


資料表:


執行結果:


Option Explicit
Sub TEST()
Dim Brr, V, Z, i&, R&, 館$, 廠$
Sheets("館別及廠商").UsedRange.Offset(3).EntireRow.Delete
館 = [館別及廠商!C1]: 廠 = [館別及廠商!E1]: If 館 = "" Or 廠 = "" Then Exit Sub
Brr = Range([總表!L1], [總表!A65536].End(xlUp))
For i = 3 To UBound(Brr)
   If Brr(i, 1) <> 館 Or Brr(i, 12) <> 廠 Then GoTo i01 Else R = R + 1
   Brr(R, 1) = Brr(i, 2): Brr(R, 2) = Brr(i, 3): Brr(R, 3) = Brr(i, 4)
   Brr(R, 4) = Val(Brr(i, 11)): Brr(R, 5) = Val(Brr(i, 10))
   V = V + Brr(R, 4) * Brr(R, 5)
i01: Next
If R = 0 Then Exit Sub
With [館別及廠商!A4].Resize(R, 5)
   .Value = Brr: .Item(0, 5) = "=總表!J2"
   For i = 7 To 10: .Borders(i).Weight = 4: Next
   .Item(.Count + 4) = "合計": .Item(.Count + 5) = V
   .Item(.Count + 5).NumberFormatLocal = "G/通用格式""元"""
End With
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
2#
發表於 2024-3-5 07:43 | 顯示全部帖子
回復 10# mdr0465


    謝謝前輩一起學習
請試執行以下代碼:


Option Explicit
Sub Item_test()
Dim xA As Range, N&
With [A2:E4]
   N = .Count: .Select
   MsgBox "此區域儲存格的數量有: " & N & " 個"
   MsgBox "此區域儲存格裡的第1欄第1列儲存格位址是 " & .Item(1, 1).Address(0, 0)
   MsgBox "此區域儲存格裡的第5欄第3列儲存格位址是 " & .Item(3, 5).Address(1, 0)
   MsgBox "此區域儲存格裡的第6欄第3列儲存格位址是 " & .Item(3, 6).Address(0, 1)
   MsgBox "此區域儲存格裡的第1個儲存格位址是 " & .Item(1).Address(1, 1)
   MsgBox "此區域儲存格裡的第5個儲存格位址是 " & .Item(5).Address
   MsgBox "此區域儲存格裡的第6個儲存格位址是 " & .Item(6).Address
   MsgBox "此區域儲存格裡的最後一個儲存格位址是 " & .Item(N).Address
   MsgBox "此區域儲存格上一列第5欄儲存格位址是 " & .Item(0, 5).Address
End With
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題