篩選後不隱藏 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 篩選後不隱藏

1 234 下一頁

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

[發問] 篩選後不隱藏

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

21^# 跳轉到 »

發表於 2021-7-14 14:42 | 只看該作者

回復 19# wang077

請再測試看看，謝謝

Sub 更新2()
Dim Arr, T, T2, i&
If Sheets(1).FilterMode Then Sheets(1).ShowAllData
Arr = Sheets(1).Range([sheet1!f1], [sheet1!a65536].End(3))
Arr2 = Sheets(2).Range([sheet2!f1], [sheet2!a65536].End(3))
For i2 = 3 To UBound(Arr2)
T2 = Arr2(i2, 1) & Arr2(i2, 3) & Arr2(i2, 6)
For i = 1 To UBound(Arr)
      T = Arr(i, 1) & Arr(i, 3) & Arr(i, 6)
      If T = T2 Then
         Sheets(2).Range("h" & i2 & ":bq" & i2).Copy Sheets(1).Range("h" & i)
      End If
Next
Next
End Sub

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

22^#

發表於 2021-7-14 15:08 | 只看該作者

回復 samwang
samwang 大大
測試結果
工作表1"A2"資料是1."A3"是3.複製工作表2"A2"=2."A3"=3無誤

清 ...
BV7BW 發表於 2021-7-14 14:34

不好意思，真的辛苦您的測試且回饋問題，後學真的有看但不太了解問您的問題
我自己猜想如何判定是否為新增問題，T = Arr(i, 1) & Arr(i, 3) 'A欄 + C欄當作key
有不一樣就複製到另一個表格，可以自己改看看，不知是否有解到您的問題，謝謝。

中學生 Rank: 2

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

23^#

發表於 2021-7-14 15:39 | 只看該作者

回復 21# samwang
可以了，真的非常感謝

中學生 Rank: 2

帖子: 199
主題: 22
精華: 0
積分: 233
點名: 226
作業系統: Vista
軟體版本: Office2003
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2020-4-14
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章論壇榮譽勳章論壇贊助勳章

24^#

發表於 2021-7-14 18:20 | 只看該作者

回復 22# samwang
samwang 大大你好
謝謝你教導感謝你
我在理解
非常謝謝你

敏而好學,不恥下問

中學生 Rank: 2

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

25^#

發表於 2021-7-15 08:26 | 只看該作者

回復 21# samwang
對了，大大
我把Sheet1，Sheet2重新命名的話
程式碼部分要怎麼改?
昨天試了一下，改完都會有錯

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

26^#

發表於 2021-7-15 11:34 | 只看該作者

回復 samwang
對了，大大
我把Sheet1，Sheet2重新命名的話
程式碼部分要怎麼改?
昨天試了一下，改完都 ...
wang077 發表於 2021-7-15 08:26

需修改如下，謝謝

Arr = Sheets(1).Range([sheet1!f1], [sheet1!a65536].End(3))
Arr2 = Sheets(2).Range([sheet2!f1], [sheet2!a65536].End(3))

中學生 Rank: 2

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

27^#

發表於 2021-7-15 12:03 | 只看該作者

回復 26# samwang
大大，我又有新麻煩了
我增加一個欄位後，現在要把篩選完的資料查詢過去sheet2有問題了
另外我想請問，我若想把篩選完A、B、C、D、F欄的資料(sheet1)丟進textbox裡有辦法嗎

test.zip (44.6 KB)

中學生 Rank: 2

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

28^#

發表於 2021-7-16 08:24 | 只看該作者

回復 26# samwang
無解嗎?

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

29^#

發表於 2021-7-16 14:54 | 只看該作者

回復 samwang
大大，我又有新麻煩了
我增加一個欄位後，現在要把篩選完的資料查詢過去sheet2有問題了
...
wang077 發表於 2021-7-15 12:03

不太了解您的需求，我寫的如附件，如有其他不太符合請自行在修改，謝謝

test1.zip (45.89 KB)

中學生 Rank: 2

帖子: 104
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: Windows 10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2021-6-21
最後登錄: 2021-8-24

30^#

發表於 2021-7-17 21:38 | 只看該作者

回復 29# samwang
非常感謝大大
大致上都是我需要的，我再把部分修改即可

靜思自在 : 真正的愛心，是照顧好自己的這顆心。

1 234 下一頁

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