帖子: 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 才會彈出!
本來都好好的最近不知道突然失效了?

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

謝謝各位大大!!

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

中學生 Rank: 2

帖子: 46
主題: 18
精華: 0
積分: 67
點名: 0
作業系統: WINXP,win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 肚子裡
註冊時間: 2010-5-22
最後登錄: 2011-10-27

2^#

發表於 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

複製代碼

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

TOP

apolloooo

　暱稱: 借钱

中學生 Rank: 2

帖子: 54
主題: 7
精華: 0
積分: 81
點名: 0
作業系統: WINDOWS XP
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2011-1-14
最後登錄: 2021-4-23

3^#

發表於 2011-1-14 22:57 | 只看該作者

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

借錢不還，才是王道

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

4^#

發表於 2011-1-24 11:52 | 只看該作者

回復 3# apolloooo

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

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

學習才能提升自己

TOP

FAlonso

中學生 Rank: 2

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

5^#

發表於 2011-1-24 13:01 | 只看該作者

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

80 字節以內
不支持自定義 Discuz! 代碼

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

6^#

發表於 2011-1-24 13:17 | 只看該作者

回復 5# FAlonso

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

學習才能提升自己

TOP

FAlonso

中學生 Rank: 2

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

7^#

發表於 2011-1-24 15:26 | 只看該作者

回復 FAlonso

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

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

80 字節以內
不支持自定義 Discuz! 代碼

TOP