GBKEE

回復 1# gn00487767
試試看

1. Option Explicit
   
2. Option Base 1
   
3. Private Sub CommandButton1_Click()
   
4.     Ex
   
5. End Sub
   
6. Private Sub TextBox1_Change()
   
7.     Ex
   
8. End Sub
   
9. Private Sub Ex()
   
10.     Dim Rng As Range, Ar, i As Integer
    
11.     Ar = Array([C3], [G3], [C5], [G5], [C7], [C9])
    
12.     Set Rng = Sheets("資料表").Range("A:A").Find(WHAT:=TextBox1, LOOKAT:=xlWhole)
    
13.     For i = 1 To UBound(Ar)
    
14.         If Not Rng Is Nothing Then
    
15.             Ar(i).Value = Rng.Offset(, i)
    
16.         Else
    
17.             Ar(i).Value = ""
    
18.         End If
    
19.     Next
    
20. End Sub

複製代碼

GBKEE

回復 4# gn00487767

1. Private Sub CommandButton1_Click()
   
2.             Ex  '執行這程式 = Call Ex   
   
3.             End Sub

複製代碼

GBKEE

回復 7# gn00487767
vba視窗,有一說明指令,輸入 Option Explicit 有說明

GBKEE

回復 12# gn00487767
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer, Ar(), m As Variant
   
4.     With Sheets("自動顯示")
   
5.         ReDim Ar(2 To .Range("A1").End(xlDown).Row, 1 To 3) '指定二維陣列元素的下限索引值,上限索引值
   
6.         For i = 2 To .Range("A1").End(xlDown).Row
   
7.             m = Application.Match(.Range("A" & i), Sheets("資料表").Range("A:A"), 0)
   
8.             '應用工作表函數搜尋編號
   
9.             If IsNumeric(m) Then
   
10.                 With Sheets("資料表").Range("A" & m)
    
11.                     Ar(i, 1) = .Range("B1")     '名稱欄
    
12.                     Ar(i, 2) = .Range("C1")     '日期欄
    
13.                     Ar(i, 3) = .Range("D1")     '姓名欄
    
14.                 End With
    
15.             End If
    
16.         Next
    
17.         .[B2].Resize(UBound(Ar) - 1, UBound(Ar, 2)) = Ar
    
18.     End With
    
19. End Sub

複製代碼

GBKEE

回復 14# gn00487767


   

日期的地方顯示一樣是顛倒的@@

請在工作表上手動改回原是其格式,再執行程式看看