返回列表 上一主題 發帖

控制鈕輸入後換列在輸入?

john711101

帖子
15 
主題
9 
精華
0 
積分
54 
點名
0  
作業系統
windows 7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2015-2-13 
最後登錄
2024-3-1 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-2-13 15:20 | 顯示全部帖子

控制鈕輸入後換列在輸入?

如圖請問我用控制鈕輸入在第3列後如何讓他跳下一列在第4,5,6,7,8..........列繼續輸入?

感謝回答!

111.jpg (176.9 KB)

111.jpg

收藏 分享

john711101

帖子
15 
主題
9 
精華
0 
積分
54 
點名
0  
作業系統
windows 7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2015-2-13 
最後登錄
2024-3-1 
2#
發表於 2015-2-13 15:23 | 顯示全部帖子
程式是這樣
Private Sub Cm1_Click()

Sheets("BOB").Range("L3").Value = TextBox1.Value
Sheets("BOB").Range("B3").Value = TB3.Value
Sheets("BOB").Range("H3").Value = TB4.Value
Sheets("BOB").Range("N3").Value = TB5.Value
ActiveCell.Offset(1, 0).Select

TB3.Value = ""
TB4.Value = ""
TB5.Value = ""
TextBox1.Value = ""


End Sub

TOP

john711101

帖子
15 
主題
9 
精華
0 
積分
54 
點名
0  
作業系統
windows 7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2015-2-13 
最後登錄
2024-3-1 
3#
發表於 2015-2-14 10:57 | 顯示全部帖子
感謝lpk187大跟changxxx大!

TOP

        靜思自在 : 人要自愛，才能愛普天下的人。
返回列表 上一主題