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

webbliu

各位大大好，

以前曾經發問過做的一段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

回復 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

複製代碼

各位大大~ 我已經改好了~  謝謝大家~

apolloooo

可否請問一下這是用在哪個場合？

hugh0620

回復 3# apolloooo


    樓主是直接寫在活頁中~ 當它去觸發儲存格時~ 就會跳出輸入的表單~
    使用在哪唷???   看你自己的需求去設定~
    像是說~ 你想要在打開該EXCEL檔時~ 跳出一行"歡迎使用 本檔案"~ 這樣的訊息
   可以在VBA中~ THISWORKBOOK中~ 輸入下面的程式碼就可以了~

    Private Sub Workbook_Open()
    Msgbox "歡迎使用 本檔案"
    End Sub

FAlonso

不明白#1和#2的程式有什麼分別,而且我用#1的程式也沒問題

hugh0620

回復 5# FAlonso


    其實是有差異的~
   #1 是 當跳出UserForm1後~ 儲存格是不能移動的
  #2 是 當跳出UserForm1後~ 儲存格是能移動的
  #2 這個在對於應用你在修改資料時就會比較方便~ 可以移動到自己想要修改的資料~
   #1 的話~ 只要你移到J個欄位沒有資料~ 就會跳出來~ 你就要先點掉UserForm1~ 才能執行

FAlonso

回復  FAlonso


    其實是有差異的~
   #1 是 當跳出UserForm1後~ 儲存格是不能移動的
  #2 是 當跳 ...
hugh0620 發表於 2011-1-24 13:17

原來如此,我被那個[]及range迷住了,沒發現userform那個'0'