輸入編號跑出資料 - Excel程式區

[發問] 輸入編號跑出資料

1^# 跳轉到 »

發表於 2014-2-12 17:19 | 顯示全部帖子

回復 1# gn00487767
TextBox1有使用需求嗎? 拿掉會清爽一點。
資料龐大可以參考下面，只用match找一次。

Private Sub CommandButton1_Click()
Dim lRow As Long, sID As String
sID = Sheets("表格").[E1].Value
If sID <> "" Then
With Sheets("資料表")
On Error Resume Next '忽略找不到時的 Error
lRow = Application.Match(sID, .Range(.[A1], .[A1].End(xlDown)), 0)
On Error GoTo 0 '還原
End With
If lRow > 0 Then
ar = Application.Transpose(Application.Transpose(Sheets("資料表").Cells(lRow, "B").Resize(, 6).Value))
With Sheets("表格")
.[C3].Value = ar(1)
.[G3].Value = ar(2)
.[C5].Value = ar(3)
.[G5].Value = ar(4)
.[C7].Value = ar(5)
.[C9].Value = ar(6)
End With
End If
End If
End Sub

複製代碼

2^#

發表於 2014-2-14 12:50 | 顯示全部帖子

回復 6# gn00487767

裡面的"B"是代表B欄嗎
裡面的 6 是代表 B欄之後的6欄嗎?

是的

靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。