12
返回列表 上一主題 發帖

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

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1478 
主題
40 
精華
0 
積分
1502 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2025-10-23 
11# 跳轉到 »
發表於 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

mdr0465

帖子
167 
主題
48 
精華
0 
積分
253 
點名
6  
作業系統
win7 
軟體版本
ie 
閱讀權限
20 
性別
男 
註冊時間
2015-7-8 
最後登錄
2025-9-14 
12#
發表於 2024-3-5 12:37 | 只看該作者
回復 11# Andy2483
Andy 學兄
晚輩十分感謝你耐心的教導,現在明白了當中的運用和技巧,
謝謝你

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
12
返回列表 上一主題