[發問] 篩選?關鍵字?查詢?

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-11-1 15:01 | 只看該作者

回復 1# emma
只要有包含100的話要條件再選擇這是字串的篩選方式
Zip Code欄的資料是數字,要當字串用須全部的數字前 ' 如 '10058 系統會將視為文字 ,才可以用字串的篩選方式/
試試看
Sheet1工作表模組的程式碼

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B1" Then
Range("A3").AutoFilter Field:=1, Criteria1:=Target & "*"
End If
End Sub

複製代碼

emma

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

3^#

發表於 2012-11-1 15:17 | 只看該作者

回復 2# GBKEE

謝謝GBKEE版大，可以正常執行成功，但不是很理解程式的語法?
↓請問這句是什麼意思?
Range("A3").AutoFilter Field:=1, Criteria1:=Target & "*"

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-11-1 15:29 | 只看該作者

回復 3# emma
AutoFilte: 自動篩選可看vba的說明

emma

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

5^#

發表於 2012-11-1 17:02 | 只看該作者

回復 4# GBKEE

謝謝GBKEE版大，我會努力研究學習這些陌生的語法~"~，我可以再另外向您請教一個問題嗎? >///<
請問使用者能點選某列後，將此列的欄位帶到Sheet2裡如下圖所示的位置中，
點選的順序不重要，但是點過一次的那一列資料就無法在Sheet2出現重複的第二次(也就是每筆資料只能被新增唯一一次到Sheet2裡)
按清除的按鈕後就會淨空Sheet2裡的值並返回到Sheet1的工作表中
不曉的這樣的敘述有沒有不清楚的地方，謝謝指教^^

VBA學習應用10111.rar (853.87 KB)

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2012-11-1 18:03 | 只看該作者

回復 5# emma
試試看

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Target_Row As String
If Target.Address(0, 0) = "D1" Then
Range("C3").AutoFilter Field:=3, Criteria1:="*" & Target & "*"
ElseIf Target.Address(0, 0) = "B1" Then
Range("A3").AutoFilter Field:=1, Criteria1:="*" & Target & "*"
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Target_Row As String, xi As Integer, xi_Row As String
If Not Application.Intersect(Range("A4", Range("A4").End(xlDown)), Target) Is Nothing Then
'Intersect物件
Target_Row = Join(Application.Transpose(Application.Transpose(Target.Resize(, 5))), ",")
'Join 函數:傳回一個字串，該字串是透過連結某個陣列中的多個子字串而建立的。
xi = 7
Do While Sheets("sheet2").Cells(xi, 1) <> ""
xi_Row = Join(Application.Transpose(Application.Transpose(Sheets("sheet2").Cells(xi, 1).Resize(, 5))), ",")
If xi_Row = Target_Row Then Exit Sub
xi = xi + 1
Loop
Sheets("sheet2").Cells(xi, 1).Resize(, 5) = Split(Target_Row, ",")
'Split 函數: 傳回一個陳列索引從零開始的一維陣列，它包含指定數目的子字串。
End If
End Sub

複製代碼

emma

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

7^#

發表於 2012-11-1 18:18 | 只看該作者

回復 6# GBKEE

哇，真的沒想到可以做得出來這樣的效果，謝謝GBKEE版大，我要好好努力融會貫通一下，太開心了，非常的感謝您^^

emma

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

8^#

發表於 2012-11-1 18:30 | 只看該作者

回復 6# GBKEE

GBKEE版大，不好意思，我又想到另一個問題，如果帶到Sheet2中的不是連續的欄位呢?
例如只有第一欄、第三欄、第五欄
Zip Code 、Area、Scope
要如何更改呢?

麻煩您了，謝謝^^

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2012-11-2 18:14 | 只看該作者

回復 8# emma

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Target_Row As String, xi As Integer, xi_Row As String
If Not Application.Intersect(Range("A4", Range("A4").End(xlDown)), Target) Is Nothing Then
'Intersect物件
Target_Row = 第一欄 & "," & 第三欄 & "," & 第五欄 '這裡自行修改連接不連續位置
xi = 7
Do While Sheets("sheet2").Cells(xi, 1) <> ""
xi_Row = Join(Application.Transpose(Application.Transpose(Sheets("sheet2").Cells(xi, 1).Resize(, 3))), ",")
If xi_Row = Target_Row Then Exit Sub
xi = xi + 1
Loop
Sheets("sheet2").Cells(xi, 1).Resize(, 3) = Split(Target_Row, ",")
'Split 函數: 傳回一個陳列索引從零開始的一維陣列，它包含指定數目的子字串。
End If
End Sub

複製代碼

emma

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

10^#

發表於 2012-11-2 18:52 | 只看該作者

回復 9# GBKEE

謝謝GBKEE版大的耐心指導，依您循循善誘的方試讓我自行找出我要的答案了，非常感謝您的用心^^

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Target_Row As String, xi As Integer, xi_Row As String
If Not Application.Intersect(Range("A4", Range("A4").End(xlDown)), Target) Is Nothing Then
'Intersect物件
Target_Row = Target(, 1) & "," & Target(, 3) & "," & Target(, 5) '這裡自行修改連接不連續位置
xi = 7
Do While Sheets("sheet2").Cells(xi, 1) <> ""
xi_Row = Join(Application.Transpose(Application.Transpose(Sheets("sheet2").Cells(xi, 1).Resize(, 3))), ",")
If xi_Row = Target_Row Then Exit Sub
xi = xi + 1
Loop
Sheets("sheet2").Cells(xi, 1).Resize(, 3) = Split(Target_Row, ",")
'Split 函數: 傳回一個陳列索引從零開始的一維陣列，它包含指定數目的子字串。
End If
End Sub

複製代碼

這樣執行出的是我想要的結果，應該沒錯吧?!