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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

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

回復 1# hong912
表單模組

Private Sub CommandButton1_Click()
Range("C:C").Find("*", , , , , xlPrevious).Offset(, 10) = TextBox1
Unload Me
End Sub

複製代碼

工作表模組

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And InStr("a1,a5,b1,b5", Target) > 0 Then UserForm1.show
End Sub

複製代碼

學海無涯_不恥下問

TOP

hong912

中學生 Rank: 2

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

3^#

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

回復 2# Hsieh

謝謝版大回應. 衷心感謝!!

hong912

TOP

周大偉

中學生 Rank: 2

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

4^#

發表於 2014-3-21 19:34 | 只看該作者

回復 2# Hsieh
hsieh版大, 安好
小弟曾試過把大大所寫的程式放入小弟沿用開的倉庫程式中, 但不成功,
現上傳檔案, 內有說明,懇請版大協助修改, 衷心感謝!!

程式.rar (13.15 KB)

TOP

周大偉

中學生 Rank: 2

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

5^#

發表於 2014-4-5 11:26 | 只看該作者

,

本帖最後由周大偉於 2014-4-5 11:28 編輯

回復 2# Hsieh
版大釨,
日前於此發文, 得不到回應, 其實是小弟沒有做好及表達所需要的, 現再度整理, 把現時小弟使用開的檔案上傳, 希望能得到回應..而2個檔案必須同時開啟,
而提取單檔案內有明細說明, 謝謝!!

提取單.rar (63.09 KB)

abc倉庫資料.rar (16.61 KB)

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

GBKEE