ann.liu

小學生 Rank: 1

帖子: 16
主題: 4
精華: 0
積分: 26
點名: 0
作業系統: WINDOWN XP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 女
來自: TW
註冊時間: 2011-5-11
最後登錄: 2017-12-17

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-1-25 11:51 | 只看該作者

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

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

樓主熱帖

ANN

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-1-25 16:03 | 只看該作者

回復 1# ann.liu
一般模阻的程式碼

Option Explicit
Sub Ex() '產品履歷總表內資料KEY
With Sheets("產品履歷表")
.Unprotect "123" '取消保護
.ShowDataForm '顯示表單
.Protect "123" '再度保護
End With
End Sub

複製代碼

工單列印表單模組的程式碼

Private Sub Comprint_Click() '的印列程式
Dim Rng As Range
Set Rng = Sheets("產品履歷表").Range("A:A").Find(Textnb, LOOKAT:=xlWhole)
If Not Rng Is Nothing Then
With Sheets("領退料單")
.[D3] = Textnb '產品編號
.[D4] = Rng.Range("F1") '模號 :Rng的F欄
.[D5] = Rng.Range("E1") '編號/圖號 :Rng的E欄
.[D6] = Rng.Range("C1") '客戶 :Rng的C欄
' .[D7] = Rng.Range("哪一欄") '生產類別 ****
.[D14] = TextBox1 '領料人
.[H3] = Rng.Range("K1") '材料編號 :Rng的C欄
' .[H4]=?? '埋入件編號 Rng的***欄
' .[H5] =?? '材料用量(kg) Rng的***欄
.[H6] = ComboBox3 '生產單位
.[H7] = ComboBox2 '生產機台
.PrintOut '印列
MsgBox "已印列"
End With
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

ann.liu

小學生 Rank: 1

帖子: 16
主題: 4
精華: 0
積分: 26
點名: 0
作業系統: WINDOWN XP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 女
來自: TW
註冊時間: 2011-5-11
最後登錄: 2017-12-17

論壇贊助勳章

3^#

發表於 2014-1-26 10:37 | 只看該作者

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

ANN

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2014-1-26 10:47 | 只看該作者

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

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

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

ann.liu

小學生 Rank: 1

帖子: 16
主題: 4
精華: 0
積分: 26
點名: 0
作業系統: WINDOWN XP
軟體版本: OFFICE2003
閱讀權限: 10
性別: 女
來自: TW
註冊時間: 2011-5-11
最後登錄: 2017-12-17

論壇贊助勳章

5^#

發表於 2014-1-26 11:51 | 只看該作者

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

ANN

TOP

tainanfriend

小學生 Rank: 1

帖子: 6
主題: 3
精華: 0
積分: 9
點名: 0
作業系統: windows 8
軟體版本: 2013
閱讀權限: 10
註冊時間: 2014-2-1
最後登錄: 2014-2-16

6^#

發表於 2014-2-10 12:56 | 只看該作者

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2014-2-10 13:24 | 只看該作者

回復 5# ann.liu

試試看

Ex.rar (64.91 KB)

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP