帖子: 11
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: WIN XP
軟體版本: EXCEL 2010
閱讀權限: 10
性別: 男
來自: 高雄
註冊時間: 2015-10-2
最後登錄: 2021-8-3

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-10-2 22:22 | 只看該作者

[發問] 請問前輩們如何讓VBA 依據欄位裡的名稱去搜索到同名稱的工作表

請問前輩們如何讓VBA 依據欄位裡的名稱去搜索到同名稱的工作表
我做了一個銷貨系統在"銷貨單"工作表上完成填寫後按下指定的巨集
就會自動導入"銷貨清單"中
問題來了因為客戶產品都不相同所以須要把各客戶的銷貨清單分開
例如分成銷貨清單A為"A公司"工作表名稱和銷貨清單B為"B公司"工作表名稱
在A1欄位設置了資料驗證的清單可供選擇A公司、B公司
如何讓VBA 依據A1欄位的名稱去搜尋到和A1欄位同名稱的工作表呢??
指令該如寫呢??
拜託前輩們指導指導我非常感謝

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2015-10-2 23:29 | 只看該作者

本帖最後由 lpk187 於 2015-10-2 23:30 編輯

回復 1# 順勢而為

可以的話，最好上傳檔上來，比較可以得到較正確的答案
不然的話剛不久向准大學的語法，套進去你的程式也行
   SHN =Range("A1") '讀取A1儲存格的值，(A1欄位同名稱的工作表)
   On Error Resume Next'表示當一個執行階段錯誤產生時，程式控制立刻到發生錯誤陳述式接下去的陳述式
   Set xS = Sheets(SHN) '設定 xS 為尋找的工作表如果找不到會產生錯誤，所以要有上一句和下一句
   On Error GoTo 0 '停止現在程序裏任何已啟動的錯誤處理程式
然後後面
With xS    'xS=Sheets("A公司")
   ...
   ...
End With
以上僅供參考

TOP

順勢而為

小學生 Rank: 1

帖子: 11
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: WIN XP
軟體版本: EXCEL 2010
閱讀權限: 10
性別: 男
來自: 高雄
註冊時間: 2015-10-2
最後登錄: 2021-8-3

3^#

發表於 2015-10-3 00:04 | 只看該作者

回復 2# lpk187

謝謝前輩願意指導
以傳上附件只是A1欄位變成在O14 使用的巨集是"導入" 拜託前輩幫幫我阿為由衷感謝

銷貨.rar (42.51 KB)

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

4^#

發表於 2015-10-3 01:10 | 只看該作者

回復 3# 順勢而為

考慮你不能下載檔案，所以只PO上程式碼，請自行換換置
原來的程式，大部份刪除掉了，嗯！太長了！陣列如此使用，會累死人的，所以我把它改掉了

Sub 導入()
With Sheets("銷貨單")
If .[B12] = "" Then MsgBox "請輸入資料後再按按鈕 ": Exit Sub
shN = .[O14]
Ro = .[B27].End(xlUp).Row
arr = .Range("C12:I" & Ro)
日期 = .[h7]
End With
On Error Resume Next '表示當一個執行階段錯誤產生時，程式控制立刻到發生錯誤陳述式接下去的陳述式
Set xS = Sheets(shN) '設定 xS 為尋找的工作表如果找不到會產生錯誤，所以要有上一句和下一句
On Error GoTo 0 '停止現在程序裏任何已啟動的錯誤處理程式
With xS
xSro = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(xSro, "B").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
.Range("A" & xSro & ":A" & xSro + UBound(arr, 1) - 1) = 日期
End With
Sheets("銷貨單").Select
Range("B12:B26,D12:D26,H7:H8,H5").ClearContents
Range("C4") = "S" & Format(Right(Range("C4"), 4) + 1, "0000")
End Sub

複製代碼

TOP

順勢而為

小學生 Rank: 1

帖子: 11
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: WIN XP
軟體版本: EXCEL 2010
閱讀權限: 10
性別: 男
來自: 高雄
註冊時間: 2015-10-2
最後登錄: 2021-8-3

5^#

發表於 2015-10-3 08:31 | 只看該作者

回復 4# lpk187

前輩真的是太感謝您了

,一早醒來都感動到快流眼淚了。
我知道我那樣寫是笨蛋的方式,所以才不敢拿上來傳。
我是這1~2個月才自己從網路影片學習的超級門外漢

真的是幫了我好大的忙阿!!謝謝~萬分感謝您

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-17

6^#

發表於 2015-10-3 11:17 | 只看該作者

回復 2# lpk187

'↓由儲存格來指定工作表〔名稱〕
SHN =Range("A1")

'↓〔忽略〕程式錯誤，〔繼續〕往下執行後面的指令
On Error Resume Next　
　
'↓設定 xS 給〔指定工作表〕，如果該工作表不存在，會產生〔錯誤並中斷〕在這一行，
Set xS = Sheets(SHN)　　'因為有上一句，程式不中斷而往下執行

'↓〔恢復〕程式錯誤處理，亦即 On Error Resume Next 到這行以後就〔失效〕，
'　其後程式若有錯誤，一樣會產生〔中斷〕，不然下方程式有錯誤就無法發現！
On Error GoTo 0

'↓所以，還是要加這行以〔提醒〕使用者，並〔跳離〕程式
If xS Is Nothing Then MsgBox "工作表不存在": Exit Sub　　

'↓上方都沒問題，才會執行以下的程式碼，以避免無法預知的錯誤，造成資料錯誤
With xS 'xS=Sheets("A公司")
...
End With

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

7^#

發表於 2015-10-3 11:35 | 只看該作者

回復 6# 准提部林

對吼！忘記加了，感謝准大提醒！謝謝

TOP

順勢而為

小學生 Rank: 1

帖子: 11
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: WIN XP
軟體版本: EXCEL 2010
閱讀權限: 10
性別: 男
來自: 高雄
註冊時間: 2015-10-2
最後登錄: 2021-8-3

8^#

發表於 2015-10-3 13:57 | 只看該作者

回復 6# 准提部林

准提部林版大: 謝謝您的寶貴提醒 ,的確有這一點小小的狀況。
但是版大 If xS Is Nothing Then MsgBox "工作表不存在": Exit Sub
這行貼上去後我去做一個沒有工作表的執行
指令只跑到 If xS Is Nothing Then 就出現偵錯了
而不會繼續跑 MsgBox "工作表不存在": Exit Sub 這段錯誤提醒
請問我是哪個部分錯了??