Board logo

標題: 請問如何在保護工作表的情況下，可用VBA方式KEY入總表內 [打印本頁]
作者: ann.liu    時間: 2014-1-25 11:51     標題: 請問如何在保護工作表的情況下，可用VBA方式KEY入總表內

[attach]17362[/attach][attach]17362[/attach]各位高手大大好，我想在保護工作表的情況下，
可將userforms表格內的數據KEY入總表，另外key入產品編號後
將對應資料帶入領退料單並列印，謝謝。
作者: GBKEE    時間: 2014-1-25 16:03

回復 1# ann.liu
一般模阻的程式碼
  1. Option Explicit
  2. Sub Ex()  '產品履歷總表內資料KEY
  3.     With Sheets("產品履歷表")
  4.         .Unprotect "123"   '取消保護
  5.         .ShowDataForm      '顯示表單
  6.         .Protect "123"     '再度保護
  7.     End With
  8. End Sub
複製代碼
工單列印表單模組的程式碼
  1. Private Sub Comprint_Click() '的印列程式
  2.     Dim Rng As Range
  3.     Set Rng = Sheets("產品履歷表").Range("A:A").Find(Textnb, LOOKAT:=xlWhole)
  4.     If Not Rng Is Nothing Then
  5.         With Sheets("領退料單")
  6.             .[D3] = Textnb  '產品編號
  7.             .[D4] = Rng.Range("F1")     '模號      :Rng的F欄
  8.             .[D5] = Rng.Range("E1")     '編號/圖號 :Rng的E欄
  9.             .[D6] = Rng.Range("C1")     '客戶      :Rng的C欄
  10.           ' .[D7] = Rng.Range("哪一欄") '生產類別  ****
  11.             .[D14] = TextBox1 '領料人
  12.             .[H3] = Rng.Range("K1")     '材料編號  :Rng的C欄
  13.            ' .[H4]=??             '埋入件編號   Rng的***欄
  14.           '  .[H5] =??            '材料用量(kg) Rng的***欄
  15.             .[H6] = ComboBox3 '生產單位
  16.             .[H7] = ComboBox2 '生產機台
  17.             .PrintOut   '印列
  18.             MsgBox "已印列"
  19.         End With
  20.     End If
  21. End Sub
複製代碼
作者: ann.liu    時間: 2014-1-26 10:37

GBKEE 版主你好：
  不好意思，我是個新手，所以不太懂，這些程式模應該放在那些正確的位置，
可以請教大大，或上傳有程式的檔案嗎﹖感恩
作者: GBKEE    時間: 2014-1-26 10:47

本帖最後由 GBKEE 於 2014-1-26 10:49 編輯

回復 3# ann.liu
動動手實際體驗一下,才知所以然
工單列印 (物件模組)
模組  (一般)

[attach]17368[/attach]
作者: ann.liu    時間: 2014-1-26 11:51

[attach]17371[/attach]版主你好：
我有試著在你說的位置填入程式，但表單還是不能key入，
或者是可以幫我看看我的錯誤在那裡，謝謝。
作者: tainanfriend    時間: 2014-2-10 12:56

所以這是代表
還是要有保護工作表的密碼
才能寫程式
來執行嗎??
作者: GBKEE    時間: 2014-2-10 13:24

回復 5# ann.liu

[attach]17462[/attach]

試試看

[attach]17463[/attach]



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)