請問如何在保護工作表的情況下，可用VBA方式KEY入總表內

ann.liu

test-1025.rar (64.63 KB)

vlookup、列印,隱藏工作表的問題
下載次數: 9

2014-1-25 11:41

各位高手大大好，我想在保護工作表的情況下，
可將userforms表格內的數據KEY入總表，另外key入產品編號後
將對應資料帶入領退料單並列印，謝謝。

GBKEE

回復 5# ann.liu

下載 (65.62 KB)

2014-2-10 13:23

試試看

Ex.rar (64.91 KB)

下載次數: 15

2014-2-10 13:24

tainanfriend

所以這是代表
還是要有保護工作表的密碼
才能寫程式
來執行嗎??

ann.liu

test-1026.rar (63.8 KB)

下載次數: 5

2014-1-26 11:49

版主你好：
我有試著在你說的位置填入程式，但表單還是不能key入，
或者是可以幫我看看我的錯誤在那裡，謝謝。

GBKEE

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

下載 (36.66 KB)

2014-1-26 10:46

ann.liu

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

GBKEE

回復 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

複製代碼