Board logo

標題: TextBox1尋找列數資料 [打印本頁]

作者: man65boy    時間: 2012-6-25 23:25     標題: TextBox1尋找列數資料

請教各位老師們,可否能利用在TextBox1輸入數值,就把他一整列的資料傳到"資料"活頁的指定儲存格裡。
類似index的應用,有勞老師們協助!
[attach]11489[/attach]
作者: register313    時間: 2012-6-26 00:01

回復 1# man65boy
  1. Private Sub CommandButton1_Click()
  2. R = TextBox1
  3. With Sheets("資料")
  4.   .[B2:B4] = Application.Transpose(Sheets("機台型式").Range("A" & R & ":" & "C" & R))
  5.   .[C6] = Sheets("機台型式").Cells(R, "D")
  6.   .[F6] = Sheets("機台型式").Cells(R, "E")
  7.   .[C8] = Sheets("機台型式").Cells(R, "F")
  8.   .[F8] = Sheets("機台型式").Cells(R, "G")
  9.   .[F10] = Sheets("機台型式").Cells(R, "H")
  10. End With
  11. End Sub
複製代碼
  1. Private Sub CommandButton1_Click()
  2. AR = Array("B2", "B3", "B4", "C6", "F6", "C8", "F8", "F10")
  3. For I = 1 To 8
  4.   Sheets("資料").Range(AR(I - 1)) = Sheets("機台型式").Cells(TextBox1, I)
  5. Next I
  6. End Sub
複製代碼

作者: man65boy    時間: 2012-6-26 06:47

回復 2# register313


    感謝register313老師的2個程式解題,讓小弟又可多多觀摩參考學習,感謝你!
作者: GBKEE    時間: 2012-6-26 08:34

回復 3# man65boy
也可以如此
  1. Option Explicit
  2. Private Sub CommandButton1_Click()
  3.     Dim Ar(), i As Integer
  4.     With Sheets("資料")
  5.         Ar = Array(.[B2], .[B3], .[B4], .[C6], .[F6], .[C8], .[F8], .[F10])
  6.     End With
  7.     For i = 1 To 8
  8.         Ar(i - 1).Value = Sheets("機台型式").Cells(TextBox1, i)
  9.     Next i
  10. End Sub
複製代碼

作者: man65boy    時間: 2012-6-26 23:12

回復 4# GBKEE


    也謝謝GBKEE老師的程式,讓小弟又多了可記錄下來學習的應用,謝謝你~~




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