你好:
RefEdit 控件不能在vbModeless 模式下執行，我有一個變通的方法
就是自己建立一個SelectionChange 事件，當使用者選取儲存格時會自動觸發SelectionChange 事件
將儲存格的Address顯示在 Label 控件上
Private WithEvents s_sht As Excel.Worksheet
Private Sub CommandButton1_Click()
MsgBox Me.Label1.Caption
End Sub
Private Sub s_sht_SelectionChange(ByVal Target As Range)
Me.Label1.Caption = Target.Parent.Name & "!" & Target.Address
End Sub
Private Sub UserForm_Initialize()
Set s_sht = ActiveSheet
End Sub
以上方法有一個缺點就是只能在 ActiveSheet 發生作用
檔案下載:
http://www.vba.com.tw/file/9408271.rar
--
天行健君子以自強不息
http://www.vba.com.tw/plog/
"Eric Liu" 來函：
Post by Eric Liuchijanzen,
經嘗試,發現使用"選取範圍物件"(RefEdit)時會down掉,停住沒反應!有解嗎?
Eric
"chijanzen" 來函：
Post by chijanzen應該是
UserForm1.Show vbModeless
而 vbModeless 的值為 0
所以一般都使用
UserForm1.Show 0
--
天行健君子以自強不息
http://www.vba.com.tw/plog/
"Eric Liu" 來函：
Post by Eric Liuchijanzen,
後者有作用,謝謝!
Eric
"chijanzen" 來函：
Post by chijanzen如果你的Excel 版本是97版以上，請使用
Userform1.Show 0
或
Userform1.Show vbModeless0UserForm
vbModeless0UserForm 也就是是非強制回應
--
天行健君子以自強不息
http://www.vba.com.tw/plog/
"Eric Liu" 來函：
Post by Eric Liu請問
如何讓UserForm作用中仍能點選工作表的儲存格?
Eric