標題: 參照座標_將資料轉寫 [打印本頁]

---

作者: man65boy    時間: 2014-9-11 21:38     標題: 參照座標_將資料轉寫

請教各個先進老師們，如何在程式裡，參照座標，轉寫出UserForm1裡的資料到指定的工作表裡，以下附檔，請老師們指點 ! 謝謝

[attach]19141[/attach]

---

作者: GBKEE    時間: 2014-9-12 14:56

回復 1# man65boy
試試看

1. Private Sub CommandButton1_Click() '轉寫
   
2.     Dim i As Integer
   
3.     If ComboBox1.ListIndex > -1 Then
   
4.         For i = 1 To 5
   
5.             Sheets(ComboBox1.Value).Range(Sheets("資料").Range("E" & 12 + i)) = Controls("TextBox" & i)
   
6.         Next
   
7.     End If
   
8. End Sub

複製代碼

---

作者: man65boy    時間: 2014-9-13 12:44

回復 2# GBKEE

謝謝GBKEE 老師的回答幫忙，感恩在心~~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)