返回列表 上一主題 發帖

如何寫~重復的資料將取代原有的資料

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
1# 跳轉到 »
發表於 2011-8-12 13:16 | 顯示全部帖子
回復 1# zcxzcxz

簡單的寫法(沒有防呆唷)
  1. Private Sub CommandButton1_Click()
  2. A = TextBox1.Text  '列數
  3. Range("A" & A) = TextBox2.Text
  4. Range("B" & A) = TextBox3.Text
  5. Range("C" & A) = TextBox4.Text
  6. Range("D" & A) = TextBox5.Text
  7. Range("E" & A) = TextBox6.Text
  8. Range("F" & A) = TextBox7.Text
  9. Range("G" & A) = TextBox8.Text
  10. End Sub
複製代碼
學習才能提升自己

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
2#
發表於 2011-8-12 19:02 | 顯示全部帖子
  1. Private Sub ComboBox1_Change()
  2. Set A = Sheet1.Columns("A").Find(ComboBox1.Text, LookIn:=xlValues)
  3. A = A.Row
  4. TextBox3.Text = Range("B" & A)
  5. TextBox4.Text = Range("C" & A)
  6. TextBox5.Text = Range("D" & A)
  7. TextBox6.Text = Range("E" & A)
  8. TextBox7.Text = Range("F" & A)
  9. TextBox8.Text = Range("G" & A)
  10. End Sub

  12. Private Sub CommandButton1_Click()
  13. Set A = Sheet1.Columns("A").Find(ComboBox1.Text, LookIn:=xlValues)
  14. A = A.Row
  15. Range("B" & A) = TextBox3.Text
  16. Range("C" & A) = TextBox4.Text
  17. Range("D" & A) = TextBox5.Text
  18. Range("E" & A) = TextBox6.Text
  19. Range("F" & A) = TextBox7.Text
  20. Range("G" & A) = TextBox8.Text
  21. End Sub

  23. Private Sub UserForm_Activate()
  24. UserForm1.ComboBox1.RowSource = "A1:A10"
  25. End Sub
複製代碼
回復 4# zcxzcxz



學習才能提升自己

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題