hong912

中學生 Rank: 2

帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2014-3-18 15:15 | 只看該作者

一個表單問題

請教大大們,
小弟有一問題請教, 小弟把問題寫於附檔內, 小弟先行謝過..

活頁簿1.rar (48.38 KB)

樓主熱帖

hong912

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

13^#

發表於 2015-5-26 20:24 | 只看該作者

回復 12# GBKEE
看完此檔的程式, 小妹實驚訝版大功力之高深, 而小妹相信需時間研究, 希望能從中吸取小許,
其實我一直有一個倉庫出入檔運行, 在公司中, 老闆一直說這個檔除了提取貨物單據不好運作, 其他是可以接受, 故一直想改善,
最後, 感謝版大, 感恩,

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兔年全勤獎章

12^#

發表於 2015-5-26 10:10 | 只看該作者

回復 11# 317

試試看

Ex.rar (34.75 KB)

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

TOP

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

11^#

發表於 2015-5-20 19:38 | 只看該作者

前輩好,
檔案從表輸選擇資料後, 如何輸入出入數, 而資料a,b ,c 就是否會確認自行加減,
感恩..謝謝!!

TOP

hong912

中學生 Rank: 2

帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

10^#

發表於 2015-5-20 19:15 | 只看該作者

本帖最後由 hong912 於 2015-5-20 19:23 編輯

回復 9# GBKEE
感謝大大教導
小弟正了解使用, 檔案中程式到了版大這級數才能寫出, 小弟衷心感謝, 無私指導,
同時祝願健康, 快樂, 謝謝!!

hong912

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兔年全勤獎章

9^#

發表於 2015-5-20 14:35 | 只看該作者

回復 5# 周大偉
類似這樣的嗎?

Ex.rar (22.77 KB)

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

TOP

hong912

中學生 Rank: 2

帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

8^#

發表於 2015-5-19 20:27 | 只看該作者

回復 7# GBKEE
感謝版大, 今晚要加班, 待放工回家才可試用, 但衷心感謝,
若遇上間題會再度提問, 煩請大大指導, 謝謝!

hong912

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^#

發表於 2015-5-19 15:20 | 只看該作者

回復 6# hong912
試試看

Private Sub UserForm_Initialize()
ComboBox1.List = 工作表2.UsedRange.Columns(1).Value
End Sub
Private Sub CommandButton1_Click()
Range("C:C").Find("*", , , , , xlPrevious).Offset(, 10) = Me.ComboBox1
Unload Me
End Sub

複製代碼

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

TOP

hong912

中學生 Rank: 2

帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

6^#

發表於 2015-5-16 15:28 | 只看該作者

回復 2# Hsieh
版大好,
版大早前助小弟解決了一個表單問題, 小弟受用至今, 但現時小弟想作小許变動, 因功力淺, 沒法編寫, 請協助,
小弟想變更的是, 原表單中的TextBox1改為ComboBox1, 下拉式選擇, 而選擇參照位置是工作表2, a欄或更好方式,
附檔, 先行謝過, 謝謝!!

活頁簿1.rar (16.81 KB)

hong912

TOP

周大偉