篩選?關鍵字?查詢? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 篩選?關鍵字?查詢?

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

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

中學生 Rank: 2

帖子: 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)

超級版主 Rank: 8 Rank: 8

帖子: 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的說明

中學生 Rank: 2

帖子: 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 & "*"

超級版主 Rank: 8 Rank: 8

帖子: 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

複製代碼

靜思自在 : 為自己找藉口的人永遠不會進步。

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