返回列表 上一主題 發帖

[發問] 不知道哪裡出錯了, 請高手指點

darigaaz

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
windows 
軟體版本
8 
閱讀權限
10 
註冊時間
2014-11-14 
最後登錄
2015-2-5 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-2-3 14:12 | 只看該作者

[發問] 不知道哪裡出錯了, 請高手指點

Private Sub CommandButton1_Click()
On Error Resume Next

If CheckBox1.Value And ComboBox1.Text = "" Then MsgBox "02 Incorrect Filter Conditions", vbExclamation, "": Exit Sub
If CheckBox2.Value And ComboBox2.Text = "" Then MsgBox "03 Incorrect Filter Conditions", vbExclamation, "": Exit Sub
Application.ScreenUpdating = False
With Sheet8
  If CheckBox1.Value Then .Range(.[a2], .[h65535].End(3)).AutoFilter Field:=3, Criteria1:=ComboBox1.Text
  If CheckBox2.Value Then .Range(.[a2], .[h65535].End(3)).AutoFilter Field:=7, Criteria1:=ComboBox2.Text
    .Range(.[a2], [h65536].End(3)).Copy

End With
   
    Sheets.Add After:=Sheets(Sheets.Count)
    If ComboBox1.Text <> "" Then
    ActiveSheet.Name = ComboBox1.Text
    Else
    ActiveSheet.Name = ComboBox2.Text
    End If
    [a1].Select
    ActiveSheet.Paste
Sheet8.Activate
    Sheet8.Range([a1], [l65536].End(3)).AutoFilter
    Sheets(ComboBox1.Text).Activate
    Unload Me
    Application.ScreenUpdating = True
End Sub

我是想把篩選出來的東資料都copy到新的sheet的,
但不知道為什麼篩選出來的東西都沒選中, 只copy了頭一行
收藏 分享

diolin

帖子
65 
主題
0 
精華
0 
積分
64 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2011-11-10 
最後登錄
2019-2-27 
2#
發表於 2015-2-4 17:53 | 只看該作者
回復 1# darigaaz

改用 .UsedRange.Copy 應該就可以了

TOP

darigaaz

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
windows 
軟體版本
8 
閱讀權限
10 
註冊時間
2014-11-14 
最後登錄
2015-2-5 
3#
發表於 2015-2-5 12:19 | 只看該作者
我 I ~ CC欄是有東西的, 但我不想把那些東西也copy到新的sheet上

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 2015-2-5 14:40 | 只看該作者
回復 1# darigaaz

你可以先在  .Range(.[a2], [h65536].End(3)).Copy
前面加一行 Stop，先看看到底有沒有篩選正確

也有可能是 .End(3) 出問題(舊版本xlUp才會是3)，可以都改為 .End(xlUp) 看看

不然就附檔看看
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

diolin

帖子
65 
主題
0 
精華
0 
積分
64 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2003 
閱讀權限
20 
註冊時間
2011-11-10 
最後登錄
2019-2-27 
5#
發表於 2015-2-5 15:18 | 只看該作者
我 I ~ CC欄是有東西的, 但我不想把那些東西也copy到新的sheet上
darigaaz 發表於 2015-2-5 12:19


那就用 .UsedRange.columns(1:8).Copy

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題