Board logo

標題: 表單製作 [打印本頁]
作者: sillykin    時間: 2015-9-10 00:18     標題: 表單製作

如何製作由USERFORM1表單跳列輸入?
另在A欄空白處直接跳出表單呢?例如在A4欄位現無資料,點選此項即可跳出表單,然後所輸入資料在此列..由此列推
作者: owen06    時間: 2015-9-10 12:33

回復 1# sillykin


    像這樣嗎？
作者: sillykin    時間: 2015-9-10 14:16

回復 2# owen06


    謝謝大大的回覆,感恩
作者: sillykin    時間: 2015-9-10 14:19

回復 3# sillykin


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

這二段的意思，小弟不才，能否解說呢？？
作者: owen06    時間: 2015-9-10 19:17

回復 4# sillykin


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

    On Error GoTo 99  ===> 若發生錯誤時，直接跳至99，不要出現錯誤訊息。在框選大範圍目標時，會產生錯誤訊息，因此設定此動作，可避免跳出錯誤訊息。
    你可以把on error goto 99 拿掉，再去框選大範圍，就會看見發生什麼事了。
作者: 准提部林    時間: 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
作者: sillykin    時間: 2015-9-10 23:56

回復 6# 准提部林


    謝謝老師指導,
  但輸入完,可否跳下一儲格呢???
作者: owen06    時間: 2015-9-11 11:33

回復 7# sillykin


    在userform1輸入
  1. Private Sub CommandButton1_Click()
  2. Selection.Value = TextBox1.Text
  3. Selection.Offset(0, 1).Value = TextBox2.Text
  4. Selection.Offset(0, 2).Value = TextBox3.Text
  5. Selection.Offset(0, 4).Value = TextBox4.Text
  6. ActiveCell.Offset(1, 0).Select
  7. End Sub
複製代碼
作者: 准提部林    時間: 2015-9-11 14:40

回復 7# sillykin


附件下載：
[attach]21954[/attach]

在Ａ欄從第２格以下〔雙按滑鼠左鍵〕跳出輸入表單，
可選擇舊資料進行更改，或空白格輸入新資料，
表單有〔上一筆．下一筆〕按鈕，不必關閉表單做上下移動，
存入後自動跳下一筆！
　
作者: sillykin    時間: 2015-9-14 08:42

回復 9# 准提部林


     謝謝老師指導,感恩



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)