請問儲存格自訂表單功能

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

2^#

發表於 2012-2-1 17:56 | 顯示全部帖子

回復 2# GBKEE

例如點B2儲存格（ggg）
則彈出userform
然後
A/B/C/D/E 下方空格帶出
B4/A2/5/13/5

然後按C按鈕檢視所有第三欄是否有小於5（L13儲存格的值），如果是，就該儲存格反紅
按D按鈕檢視所有第三欄是否有小於5（L14儲存格的值），如果是，就該儲存格反紅
按E按鈕檢視所有第三欄是否有小於8（L15儲存格的值），如果是，就該儲存格反紅

Tony

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

3^#

發表於 2012-2-2 11:38 | 顯示全部帖子

回復 4# Hsieh

你好
測試OK
有個問題想請教
程式中的一行
Set a = Sheet2.[B2:B12].Find(Target, lookat:=xlWhole)
從sheet2 的B2：B12欄位搜尋
如果想新增 sheet2的A欄也可以搜尋要如何修改
就是A欄或是B欄都可以

另外，可以不要指定到B12嗎？
用Columns("B")可以嗎
但是這樣會搜尋到空格，導致在SHEET1點選到空格也會彈出
要如何設定呢
謝謝

Tony

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

4^#

發表於 2012-2-3 07:55 | 顯示全部帖子

本帖最後由 tonycho33 於 2012-2-3 09:11 編輯

回復 6# Hsieh

我想增加A欄或B欄其中一個搜尋的到的話就可以顯示
另外，Set a = Sheet31.[F4:F29].Find(Target, lookat:=xlWhole)
當中的[F4:F29]，可以改為列出有文字內容儲存格的範圍就好嗎
例如，這次是到F29儲存格有內容，但如果貼上更新資料後,可能會到F32等，範圍值會更新，每次都不一樣
謝謝

Tony

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

5^#

發表於 2012-2-3 09:53 | 顯示全部帖子

本帖最後由 tonycho33 於 2012-2-3 10:16 編輯

回復 8# Hsieh

請問
1.
Set Rng = Range("B2:E2,B5:E5,B10:E10")如果要改成
Set Rng = Range("B2::E10")
點選範圍內空格時，可以讓他不要彈出視窗嗎
2.sheet2的A及B欄如果是帶公式進來的會無法在sheet1上顯示
要如何改呢

謝謝

Tony

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

6^#

發表於 2012-2-8 08:31 | 顯示全部帖子

回復 8# Hsieh

請問
TextBox27～TextBox31
裡面的數字可以變顏色嗎
例如：小餘5就反紅
謝謝

Tony