- 帖子
- 103
- 主題
- 30
- 精華
- 0
- 積分
- 139
- 點名
- 0
- 作業系統
- wondows XP
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 彰化
- 註冊時間
- 2013-2-21
- 最後登錄
- 2015-6-26
|
回復 5# stillfish00
謝謝大大解答
因為我這個測試表單只有一種資料
原本我的表單上面
有N種要填的TextBox1
連結位置只是被夾在中間
原本程式大概是這樣- Dim Ar,a1,a2,a3,a4,a5
- a1 = ComboBox1 '資料A
- a2 = ComboBox2 '資料B
- a3 = ComboBox3 '連結位置
- a4 = ComboBox4 '資料D
- a5 = ComboBox5 '資料E
- Ar = Array(a1, a2, a3, a4, a5)
- If a1 <> "" And a2 <> "" And a3 <> "" And a4 <> "" And a5 <> "" Then
- Q = 1
- Do Until Cells(Q, 1) = ""
- Q = Q + 1
- Loop
- With Sheet1
- .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5).Value = Ar
- End With
- Else
- If a1 = "" Then MsgBox "資料A未填寫，麻煩檢查！"
- If a2 = "" Then MsgBox "資料B未填寫，麻煩檢查！"
- If a3 = "" Then MsgBox "資料連結未填寫，麻煩檢查！"
- If a4 = "" Then MsgBox "資料D未填寫，麻煩檢查！"
- If a5 = "" Then MsgBox "資料E未填寫，麻煩檢查！"
那要怎麼修改才能在第三筆資料轉為連結位置
而其他筆資料再個別寫上呢?
頭痛中>< |
|
發表於 2013-8-8 16:52
| 
