標題:
[發問]
隱藏UserFrom，觸發某儲存格彈出~
[打印本頁]
作者:
webbliu
時間:
2010-10-13 17:35
標題:
隱藏UserFrom，觸發某儲存格彈出~
各位大大好，
以前曾經發問過做的一段VBA~
內容就是把UserForm1先隱藏起來，等到選取到J2:J65536 才會彈出!
本來都好好的 最近不知道突然失效了?
只要執行都會出現 成是錯誤 或找不到專案~
請問大大 是那裏需要修改嗎?
謝謝各位大大!!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, [J2:J65536]) Is Nothing Then Exit Sub
ActiveCell.Value = ""
UserForm1.Show
End Sub
複製代碼
作者:
webbliu
時間:
2010-10-13 17:58
回復
1#
webbliu
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Range("J2:J65536"), Target) Is Nothing Then Exit Sub
UserForm1.Show 0
End Sub
複製代碼
各位大大~ 我已經改好了~ 謝謝大家~
作者:
apolloooo
時間:
2011-1-14 22:57
可否請問一下這是用在哪個場合？
作者:
hugh0620
時間:
2011-1-24 11:52
回復
3#
apolloooo
樓主是直接寫在活頁中~ 當它去觸發儲存格時~ 就會跳出輸入的表單~
使用在哪唷??? 看你自己的需求去設定~
像是說~ 你想要在打開該EXCEL檔時~ 跳出一行"歡迎使用 本檔案"~ 這樣的訊息
可以在VBA中~ THISWORKBOOK中~ 輸入下面的程式碼就可以了~
Private Sub Workbook_Open()
Msgbox "歡迎使用 本檔案"
End Sub
作者:
FAlonso
時間:
2011-1-24 13:01
不明白#1和#2的程式有什麼分別,而且我用#1的程式也沒問題
作者:
hugh0620
時間:
2011-1-24 13:17
回復
5#
FAlonso
其實是有差異的~
#1 是 當跳出UserForm1後~ 儲存格是不能移動的
#2 是 當跳出UserForm1後~ 儲存格是能移動的
#2 這個在對於應用你在修改資料時就會比較方便~ 可以移動到自己想要修改的資料~
#1 的話~ 只要你移到J個欄位沒有資料~ 就會跳出來~ 你就要先點掉UserForm1~ 才能執行
作者:
FAlonso
時間:
2011-1-24 15:26
回復 FAlonso
其實是有差異的~
#1 是 當跳出UserForm1後~ 儲存格是不能移動的
#2 是 當跳 ...
hugh0620 發表於 2011-1-24 13:17
原來如此,我被那個[]及range迷住了,沒發現userform那個'0'
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
