返回列表 上一主題 發帖

表單製作

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2022-7-26 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2015-9-10 12:33 | 顯示全部帖子
回復 1# sillykin


    像這樣嗎？

表單製作.zip (84.88 KB)

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2022-7-26 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
2#
發表於 2015-9-10 19:17 | 顯示全部帖子
回復 4# sillykin


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

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

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2022-7-26 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
3#
發表於 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
複製代碼

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題