UserForm表單相關問題 - Excel程式區

[發問] UserForm表單相關問題

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2015-11-16 11:28 | 顯示全部帖子

回復 6# v03586
試試看

Option Explicit
Private Sub CommandButton1_Click()
Dim Rng As Range, Ar(1 To 2), i As Integer
Ar(1) = Array(OptionButton1, OptionButton2, OptionButton3) ', OptionButton4, OptionButton5, OptionButton6....
Ar(2) = Array(TextBox1, TextBox2, TextBox3, TextBox4, TextBox5) ', TextBox6, TextBox7, TextBox8, TextBox9....
'Join 函數傳回一個字串，該字串是透過連結某個(一維)陣列中的多個子字串而建立的。
If InStr(UCase(Join(Ar(1), "")), "TRUE") = 0 Or InStr(Join(Ar(2), ","), ",,") Then
MsgBox ("資料未輸入完整，『 * 』必須輸入" & vbCrLf & _
"Data is not enter the full , 『 * 』 you must fill ")
Exit Sub
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set Rng = Sheets("FMC Input Database").Range("a" & Rows.Count).End(xlUp).Offset(1)
With Rng '物件Rng : 所指定的儲存格或儲存格範圍。(不必移動工作頁)
For i = 0 To UBound(Ar(1))
If Ar(1)(i).Value Then
'Caption 屬性出現在物件上的修飾文字 , 一般用來辨識或描述該物件
.Value = Ar(1)(i).Caption
Exit For
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End If
Next
'.Range("B1")->這Rng 的儲存格或儲存格範圍。
.Range("B1").Resize(, UBound(Ar(2)) + 1) = Ar(2)
.Range("G1") = Now
''''''''''''''''''''''''''''''''''''''''''''
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。