帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-9-10 00:18 | 只看該作者

表單製作

如何製作由USERFORM1表單跳列輸入?
另在A欄空白處直接跳出表單呢?例如在A4欄位現無資料,點選此項即可跳出表單,然後所輸入資料在此列..由此列推

表單製作.rar (73.23 KB)

樓主熱帖

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2015-9-10 12:33 | 只看該作者

回復 1# sillykin

像這樣嗎？

表單製作.zip (84.88 KB)

TOP

sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

3^#

發表於 2015-9-10 14:16 | 只看該作者

回復 2# owen06

謝謝大大的回覆,感恩

TOP

sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

4^#

發表於 2015-9-10 14:19 | 只看該作者

回復 3# sillykin

想請問
.Row > 1 And .Column = 1 Then
On Error GoTo 99

這二段的意思，小弟不才，能否解說呢？？

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

5^#

發表於 2015-9-10 19:17 | 只看該作者

回復 4# sillykin

.Row > 1 And .Column = 1 Then =====> 僅讓第一列以上以及第一欄的目標會產生動作，也就是設定僅讓a欄會產生動作，不然會點其他儲存格的時候也跳出表單。

On Error GoTo 99 ===> 若發生錯誤時，直接跳至99，不要出現錯誤訊息。在框選大範圍目標時，會產生錯誤訊息，因此設定此動作，可避免跳出錯誤訊息。
你可以把on error goto 99 拿掉，再去框選大範圍，就會看見發生什麼事了。

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-2-15

6^#

發表於 2015-9-10 22:54 | 只看該作者

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
　　If .Count > 1 Then Exit Sub　'選取區非單一格，跳出
　　If .Row > 1 And .Column = 1 And .Value = "" Then UserForm1.Show
End With
End Sub

TOP

sillykin