12
返回列表 上一主題 發帖

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

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
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

順勢而為

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

lpk187

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

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
4#
發表於 2015-10-3 01:10 | 只看該作者
回復 3# 順勢而為

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

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

  22. End Sub
複製代碼

TOP

順勢而為

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

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

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

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
12
返回列表 上一主題