麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 篩選後不隱藏 [打印本頁]

作者: wang077 時間: 2021-7-13 10:21 標題: 篩選後不隱藏

各位大大假如我篩選A~C欄位，但我篩選完後面的資料有些會被隱藏
請問我要怎麼篩選完後不隱藏
[attach]33601[/attach]

作者: singo1232001 時間: 2021-7-13 11:11

本帖最後由 singo1232001 於 2021-7-13 11:21 編輯

回復 1# wang077
0.取消篩選
1.取消a:c所有的合併儲存格
2.選abc全部欄位
3.ctrl+G > 特殊 > 空格(K) (這時會把ABC所有空白都選起來了)
4.直接在上方"fx空白輸入處" 輸入=A1 > 同時按下ctrl+enter 失敗就要重做
5.abc欄位全選 > 複製 > 原處貼上(值123)
6.把a1:c2多餘的機種品名料號刪除
7.重新篩選

作者: wang077 時間: 2021-7-13 11:47

回復 2# singo1232001
感謝大大幫忙
另外，我現在若想要把篩選完的結果複製去Sheet2
要怎麼寫
[attach]33604[/attach]

作者: samwang 時間: 2021-7-13 14:07

回復 singo1232001
感謝大大幫忙
另外，我現在若想要把篩選完的結果複製去Sheet2
要怎麼寫
wang077 發表於 2021-7-13 11:47

請測試看看，謝謝

作者: wang077 時間: 2021-7-13 15:12

回復 4# samwang
謝謝大大幫忙

作者: wang077 時間: 2021-7-13 16:01

回復 4# samwang
大大，我如果要把複製過去的資料(Sheet2)跟Sheet1的資料同步呢，我找不到相關的參考資料
例如我複製過去後，我在7/9日後新增資料，同時希望Sheet1的資料也能同步

作者: samwang 時間: 2021-7-13 20:35

回復 samwang
大大，我如果要把複製過去的資料(Sheet2)跟Sheet1的資料同步呢，我找不到相關的參考資料
...
wang077 發表於 2021-7-13 16:01

請測試看看，謝謝

作者: BV7BW 時間: 2021-7-14 08:04

回復 4# samwang
samwang 大大你好
同樣問題請教
工作表1中"A2:A300"資料.複製至工作表2中"A2"開始貼上.如工作表2"A2"已有資料則往下貼上

謝謝指教[attach]33618[/attach]

作者: wang077 時間: 2021-7-14 08:19

回復 7# samwang
大大，好像反向了，我的意思是要在Sheet2新增資料，同步到Sheet1
這好像是Sheet1新增資料，同步到Sheet2了

作者: samwang 時間: 2021-7-14 11:14

回復 samwang
samwang 大大你好
同樣問題請教
工作表1中"A2:A300"資料.複製至工作表2中"A2"開始貼上. ...
BV7BW 發表於 2021-7-14 08:04

請試看看，謝謝

Sub test()
Dim Arr, xD, T, i&, n%
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([工作表2!N1], [工作表2!a65536].End(3))
For i = 2 To UBound(Arr)
T = Arr(i, 1) & Arr(i, 3): xD(T & "") = i
Next
Arr = Range([工作表1!N1], [工作表1!A65536].End(3))
For i = 2 To UBound(Arr)
T = Arr(i, 1) & Arr(i, 3)
If xD.Exists(T & "") = False Then
n = [工作表2!a65536].End(3).Row + 1
Sheets(1).Range(Cells(i, 1), Cells(i, 14)).Copy Sheets(2).Range("a" & n)
End If
Next
End Sub

作者: samwang 時間: 2021-7-14 11:57

回復 samwang
大大，好像反向了，我的意思是要在Sheet2新增資料，同步到Sheet1
這好像是Sheet1新增資料 ...
wang077 發表於 2021-7-14 08:19

不好意思看錯，已更新請再測試看看，謝謝

作者: wang077 時間: 2021-7-14 12:10

回復 11# samwang
還是不行耶
顯示錯誤
[attach]33621[/attach]

作者: samwang 時間: 2021-7-14 13:01

回復 12# wang077

我測試沒問題，請再測試看看，謝謝

作者: wang077 時間: 2021-7-14 13:15

回復 13# samwang
測試過了，剛剛是在sheet1下執行，所以錯誤，謝謝大大

作者: wang077 時間: 2021-7-14 13:41

本帖最後由 wang077 於 2021-7-14 13:42 編輯

回復 13# samwang
大大，應該只有2筆有新增
但好像有第三筆新增到了

作者: BV7BW 時間: 2021-7-14 13:49

本帖最後由 BV7BW 於 2021-7-14 13:51 編輯

回復 10# samwang
謝謝 samwang 大大
測試後可運用 .經篩選後完全無誤
再請問如不用篩選.是否可以
列將工作表1""A2:A300"資料直接複製到工作表2中.如工作表2"A2"已有資料則往下貼上
也就是每按1次複製鍵就複製1次至工作表2中.而工作表2中"A2"或"A2以下已有資料則往下貼上

謝謝

作者: samwang 時間: 2021-7-14 13:54

回復 samwang
謝謝 samwang 大大
測試後可運用 .經篩選後完全無誤
再請問如不用篩選.是否可以
列將 ...
BV7BW 發表於 2021-7-14 13:49

可以，那段程式碼與篩選無關，只要有表1新增按執行後就會將新增的資料複製到表2，謝謝

作者: samwang 時間: 2021-7-14 13:56

回復 samwang
大大，應該只有2筆有新增
但好像有第三筆新增到了
wang077 發表於 2021-7-14 13:41

因為我測試沒問題，如果您有測試到問題請附檔這樣比較容易找問題，謝謝

作者: wang077 時間: 2021-7-14 14:15

回復 18# samwang
你給我的test3，當我在Sheet1清除篩選的時候
正常應該要第二跟第四筆有新增
但第三筆卻也新增了

作者: BV7BW 時間: 2021-7-14 14:34

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

清除工作表1為空資料.重新填入資料"A2"=1."A3"=2."A4=3時

在按複製後產生工作表2"中只有在"A3"改為3

正常需求是工作表2從"A4"=1."A5"=2"A6=3

應在工作表2陳現為"A2"=1"A3"=2"A4"=1"A5"=2"A6"=3

也就是說工作表1要複製到工作表2是以工作表2往下貼上

原是手動將工作表1中資料複製好再轉到工作表2中接下貼上

現想說可用按紐式比較方便

作者: samwang 時間: 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

作者: samwang 時間: 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
有不一樣就複製到另一個表格，可以自己改看看，不知是否有解到您的問題，謝謝。

作者: wang077 時間: 2021-7-14 15:39

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

作者: BV7BW 時間: 2021-7-14 18:20

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

作者: wang077 時間: 2021-7-15 08:26

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

作者: samwang 時間: 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))

作者: wang077 時間: 2021-7-15 12:03

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

作者: wang077 時間: 2021-7-16 08:24

回復 26# samwang
無解嗎?

作者: samwang 時間: 2021-7-16 14:54

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

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

作者: wang077 時間: 2021-7-17 21:38

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

作者: wang077 時間: 2021-7-20 20:49

回復 29# samwang
[attach]33704[/attach]
大大，你可以幫我看一下嗎
我的修改功能這樣寫哪邊有錯呢?

作者: samwang 時間: 2021-7-21 08:23

回復 31# wang077

不好意思，我不知道的需求，這樣要找問題有點困難，可否解釋詳細，謝謝。

作者: wang077 時間: 2021-7-21 10:27

回復 32# samwang
如果我查詢了特定資料，想要在特定資料的其他日期修改數值，但一直沒辦法從查詢的工作表丟過去

作者: samwang 時間: 2021-7-21 11:03

回復 samwang
如果我查詢了特定資料，想要在特定資料的其他日期修改數值，但一直沒辦法從查詢的工作表丟 ...
wang077 發表於 2021-7-21 10:27

可以請舉一些實際案例，這樣比較容易理解，謝謝

作者: wang077 時間: 2021-7-21 15:56

回復 34# samwang
"查詢"這個工作表的資料示我從"工作表2"篩選查詢而來的
我想直接在"查詢"工作表的資料輸入數值丟回"工作表2"
理論上就是我從"工作表2"或"工作表3"查詢到"查詢"的工作表裏的資料
我都能隨時修改數值丟回去

作者: samwang 時間: 2021-7-21 16:17

本帖最後由 samwang 於 2021-7-21 16:19 編輯

回復 35# wang077

可以請舉一些你實際操作後的結果案例，再加以說明規則，謝謝

"查詢"這個工作表的資料示我從"工作表2"篩選查詢而來的
>> 所以現在那個查詢的工作表是你有其他的程式處理好的狀態嗎?
我想直接在"查詢"工作表的資料輸入數值丟回"工作表2"
>> 那和你實際表單的"機種" "料號" "品名" 的用途要作什麼
>> 是查詢工作表的哪個欄位的數值去修改"工作表2"的原資料
理論上就是我從"工作表2"或"工作表3"查詢到"查詢"的工作表裏的資料
我都能隨時修改數值丟回去

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)