返回列表 上一主題 發帖

[發問] 隱藏UserFrom，觸發某儲存格彈出~

webbliu

帖子
46 
主題
18 
精華
0 
積分
67 
點名
0  
作業系統
WINXP,win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
肚子裡 
註冊時間
2010-5-22 
最後登錄
2011-10-27 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-10-13 17:35 | 顯示全部帖子

[發問] 隱藏UserFrom，觸發某儲存格彈出~

各位大大好，

以前曾經發問過做的一段VBA~
內容就是把UserForm1先隱藏起來，等到選取到J2:J65536 才會彈出!
本來都好好的 最近不知道突然失效了?

只要執行都會出現 成是錯誤 或找不到專案~
請問大大 是那裏需要修改嗎?

謝謝各位大大!!
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     If Application.Intersect(Target, [J2:J65536]) Is Nothing Then Exit Sub
  3.     ActiveCell.Value = ""
  4.     UserForm1.Show
  5. End Sub
複製代碼
收藏 分享

webbliu

帖子
46 
主題
18 
精華
0 
積分
67 
點名
0  
作業系統
WINXP,win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
肚子裡 
註冊時間
2010-5-22 
最後登錄
2011-10-27 
2#
發表於 2010-10-13 17:58 | 顯示全部帖子
回復 1# webbliu
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. If Application.Intersect(Range("J2:J65536"), Target) Is Nothing Then Exit Sub
  3. UserForm1.Show 0
  4. End Sub
複製代碼
各位大大~ 我已經改好了~  謝謝大家~

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題