標題:
TextBox1尋找列數資料
[打印本頁]
作者:
man65boy
時間:
2012-6-25 23:25
標題:
TextBox1尋找列數資料
請教各位老師們,可否能利用在TextBox1輸入數值,就把他一整列的資料傳到"資料"活頁的指定儲存格裡。
類似index的應用,有勞老師們協助!
[attach]11489[/attach]
作者:
register313
時間:
2012-6-26 00:01
回復
1#
man65boy
Private Sub CommandButton1_Click()
R = TextBox1
With Sheets("資料")
.[B2:B4] = Application.Transpose(Sheets("機台型式").Range("A" & R & ":" & "C" & R))
.[C6] = Sheets("機台型式").Cells(R, "D")
.[F6] = Sheets("機台型式").Cells(R, "E")
.[C8] = Sheets("機台型式").Cells(R, "F")
.[F8] = Sheets("機台型式").Cells(R, "G")
.[F10] = Sheets("機台型式").Cells(R, "H")
End With
End Sub
複製代碼
Private Sub CommandButton1_Click()
AR = Array("B2", "B3", "B4", "C6", "F6", "C8", "F8", "F10")
For I = 1 To 8
Sheets("資料").Range(AR(I - 1)) = Sheets("機台型式").Cells(TextBox1, I)
Next I
End Sub
複製代碼
作者:
man65boy
時間:
2012-6-26 06:47
回復
2#
register313
感謝register313老師的2個程式解題,讓小弟又可多多觀摩參考學習,感謝你!
作者:
GBKEE
時間:
2012-6-26 08:34
回復
3#
man65boy
也可以如此
Option Explicit
Private Sub CommandButton1_Click()
Dim Ar(), i As Integer
With Sheets("資料")
Ar = Array(.[B2], .[B3], .[B4], .[C6], .[F6], .[C8], .[F8], .[F10])
End With
For i = 1 To 8
Ar(i - 1).Value = Sheets("機台型式").Cells(TextBox1, i)
Next i
End Sub
複製代碼
作者:
man65boy
時間:
2012-6-26 23:12
回復
4#
GBKEE
也謝謝GBKEE老師的程式,讓小弟又多了可記錄下來學習的應用,謝謝你~~
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)