伊莉討論區

標題: Textbox輸入資料後，如何儲存在特定位置？ [打印本頁]
作者: zbc231    時間: 2018-6-29 05:09 AM     標題: Textbox輸入資料後，如何儲存在特定位置？

之前做的一表單，裡面有textbox1-textbox6,
textbox1-textbox6輸入資料後，會存放在A2-F2，
相關的寫法如下，但最近刪除textbox2-6，只留下textbox1，
寫入資料的方式改成填滿A2-A31後，變成B2-B31，如果再寫滿，就跳至C2-C31，最多到F2-F31，
請問大家，在刪除textbox2-6後，要怎麼改寫才會達成跳行儲存的效果。
謝謝大家！

  1. With 工作表1
  2.     If .Range("A2") = "" Then
  3.        .Range("A2") = TextBox1.Text
  4. .Range("B2") = TextBox2.Text
  5. .Range("C2") = TextBox3.Text
  6. .Range("D2") = TextBox4.Text
  7. .Range("E2") = TextBox5.Text
  8. .Range("F2") = TextBox6.Text
  9.     Else
  10.     .Range("A1").Select
  11.     Selection.Range("A" & Range("A1:F30").CurrentRegion.Rows.Count + 1).Select
  12.     ActiveCell.Offset(0, 0).Range("A1").Value = TextBox1.Text
  13. ActiveCell.Offset(0, 1).Range("A1").Value = TextBox2.Text
  14. ActiveCell.Offset(0, 2).Range("A1").Value = TextBox3.Text
  15. ActiveCell.Offset(0, 3).Range("A1").Value = TextBox4.Text
  16. ActiveCell.Offset(0, 4).Range("A1").Value = TextBox5.Text
  17. ActiveCell.Offset(0, 5).Range("A1").Value = TextBox6.Text
  18.     End If
  19. End With
複製代碼


作者: tryit244178    時間: 2018-7-11 04:54 PM

本帖最後由 tryit244178 於 2018-7-11 04:56 PM 編輯

把程式碼改為
  1.     Dim r As Range, i As Range, j As Range
  2.    
  3.     Set r = Range("A2:F31")
  4.    
  5.     For Each i In r.Columns
  6.         For Each j In i.Rows
  7.             If j.value = "" Then
  8.                 j.value = TextBox1.Text
  9.                 Exit Sub
  10.             End If
  11.         Next j
  12.     Next i
複製代碼


作者: zbc231    時間: 2018-7-11 05:12 PM

本帖最後由 zbc231 於 2018-7-12 03:31 AM 編輯

終於可以了，謝謝你解決我的苦惱。
再次地感謝你的幫忙！






歡迎光臨 伊莉討論區 (http://a401.file-static.com/) Powered by Discuz!