表單製作

sillykin

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

owen06

回復 1# sillykin


    像這樣嗎？

sillykin

回復 2# owen06


    謝謝大大的回覆,感恩

sillykin

回復 3# sillykin


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

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

owen06

回復 4# sillykin


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

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

准提部林

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

回復 6# 准提部林


    謝謝老師指導,
  但輸入完,可否跳下一儲格呢???

owen06

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

複製代碼

准提部林

回復 7# sillykin


附件下載：
表單製作v01.rar (18.66 KB)

下載次數: 28

2015-9-11 14:39

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

sillykin

回復 9# 准提部林


     謝謝老師指導,感恩