TextBox1尋找列數資料

man65boy

請教各位老師們，可否能利用在TextBox1輸入數值，就把他一整列的資料傳到"資料"活頁的指定儲存格裡。
類似index的應用，有勞老師們協助!
20120625.rar (12.69 KB)

下載次數: 10

2012-6-25 23:25

register313

回復 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

回復 2# register313


    感謝register313老師的2個程式解題，讓小弟又可多多觀摩參考學習，感謝你!

GBKEE

回復 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

回復 4# GBKEE


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