表單的Label同步執行

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

2^#

發表於 2012-6-20 23:17 | 顯示全部帖子

回復 2# kimbal

感謝kimbal大大的回答，vba的應用真的比函數頭痛了許多，感謝你!

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

3^# 倒序看帖

打印

字體大小: tT

發表於 2012-6-21 07:15 | 顯示全部帖子

表單的Label同步執行

請教各位先師們，如何在表單裡的TextBox1輸入數字，在Label1(年.月)跟著顯現加總後的答案，麻煩老師們指導一下，謝謝!

表單Label1.rar (87.13 KB)

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

4^#

發表於 2012-6-21 23:31 | 顯示全部帖子

本帖最後由 man65boy 於 2012-6-22 01:27 編輯

回復 5# GBKEE

感謝GBKEE老師的回答，
再請教老師，當表單裡已有別的宣告時，
Private Sub UserForm_Initialize()
Dim tmpArry()
Set sht1 = Sheets("進貨")
Set sht2 = Sheets("銷貨")
R = sht1.Range("AS65536").End(xlUp).Row
該如何把以下這段程式納入上面那一段
Dim xlday
Private Sub UserForm_Initialize()
xlday = Format(Date, "eemm")
Label1 = xlday
End Sub

小弟投降了，因為有重複的兩段 Private Sub UserForm_Initialize() 麻煩老師指點一下!

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

5^#

發表於 2012-6-22 07:14 | 顯示全部帖子

本帖最後由 man65boy 於 2012-6-22 07:17 編輯

回復 7# GBKEE
謝謝GBKEE大大，程式貼上去了，還是出現"不能指定常數"，檔案因涉及商業隱私，無法附上完整版，小弟附上縮小版，希望老師能幫忙解題!

1010622.rar (26.49 KB)

在範例中
xlday = Format(Date, "yyyy/mm/dd")

小弟只想應用加總YYYY

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

6^#

發表於 2012-6-22 22:16 | 顯示全部帖子

回復 9# GBKEE

感謝GBKEE老師的修改指導，再請問老師，
Dim sht1 As Worksheet
Dim sht2 As Worksheet '放在這裡模組所有程序都可用
Dim sht3 As Worksheet '放在這裡模組所有程序都可用
Dim xlday '放在這裡模組所有程序都可用

其中的sht1 .s ht2 . sht3 .是指模組嗎?那是否要應用到的活頁都要依序輸入sht4....sht5呢?
再次地謝謝老師。

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

7^#

發表於 2012-6-23 09:42 | 顯示全部帖子

回復 12# GBKEE

感謝兩位老師的回答，記下來了~謝謝!!!