返回列表 上一主題 發帖

[發問] UserForm表單相關問題

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 2015-11-15 11:40 | 顯示全部帖子
回復 4# v03586


Private Sub CommandButton1_Click()
Dim k&, Arr(1 To 7)　'定一個〔陣列〕容納資料
For k = 1 To 5
　　If k <= 3 Then If Me("OptionButton" & k) = True Then Arr(1) = Me("OptionButton" & k).Caption
　　'＿如果選項為 True，將其〔按鈕文字〕加入陣列１
　　Arr(k + 1) = Me("TextBox" & k)
　　'＿將文字方塊內容加入陣列２∼６
　　If Arr(k + 1) = "" Then Arr(1) = "": Exit For
　　'＿如果文字方塊為空，將陣列１清空，跳出迴圈
Next k
　
If Arr(1) = "" Then MsgBox ("資料未輸入完整， 『 * 』 必須輸入" & vbCrLf & _
　　　　　　"Data is not enter the full , 『 * 』 you must fill "): Exit Sub
'＿以〔陣列１〕當作檢查輸入是否完整的標的

Arr(7) = Now　
'＿陣列７加入日期時間

Sheets("FMC Input Database").Cells(Rows.Count, "A").End(xlUp)(2).Resize(1, 7) = Arr
'＿填入資料
　
Unload Me
End Sub

程式碼很簡單，請自行去揣模∼∼

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
2#
發表於 2015-11-16 09:34 | 顯示全部帖子
回復 6# v03586


Sheets("FMC Input Database").Range("A2").Select　
Selection.End(xlDown).Select　

Select 會執行〔選取〕工作表的動作
Selection 只對〔當前〕工作表產生作用
所以，錄製之程式碼，都須再做修飾！
With Sheets("FMC Input Database").Range("A2").End(xlDown)
      .cells(2,1)=??
      .cells(2,2)=??
      ~~
      ~~
End With

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題