Re: [算表] 如何找尋預抓資料的數據並拋轉秀出

看板Office作者 (曼秀)時間14年前 (2011/07/09 01:53), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串2/3 (看更多)
※ 引述《arrow (DUCATI....)》之銘言: : 軟體:Excel : 版本:2003 : 先看圖片-http://tinyurl.com/43zefvs : 我想要用個按鈕,按下去之後尋找E欄為CBD-028的字串 : 然後把是CBD-028跟F欄對應的數字,各別在I欄與J欄秀出來 : 以前淺淺學過VB,現在都忘了,看了一大串的語言程式 : 也看不出來該如何去修改,煩請EXCEL達人幫忙,感謝 假設如下: A B C D 1 代號 數值 2 CDB-028 60 3 CDB-010 47 4 CDB-028 23 5 CDB-055 46 6 CDB-028 10 7 CDB-028 99 將篩選過後的資料貼到CD兩欄。 巨集如下: Sub 篩選() Dim Str Range("C:D").ClearContents Str = InputBox("請輸入編號") Range("A1").AutoFilter ActiveSheet.Range("A:B").AutoFilter Field:=1, Criteria1:=Str Range("A:B").Copy Range("C1") Selection.AutoFilter End Sub PS.每次執行前都會先把CD兩欄清空, 並且在inputbox輸入你想要篩選出來的代號,例如CDB-028。 如有誤還請指教。 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 210.209.137.141 ※ 編輯: menth 來自: 210.209.137.141 (07/09 01:56)
文章代碼(AID): #1E5qGH5L (Office)
文章代碼(AID): #1E5qGH5L (Office)