宏VB從過濾器

Question

獲得值在這種情況下

現在我已經有一個按鈕，記錄名字，姓氏，血型，性別，科......
發送到「เก็บข้อมูล」頁//意味着保存數據頁的ID

自動過濾器，進入「เก็บข้อมูล」頁面

我想顯示值在主頁小區A14是通過過濾器顯示ID在綠色廣場

記錄代碼

Sub Get_Information() 
Dim Lrow As Integer 
Lrow = Sheets(5).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 

Name = Sheets(1).Cells(5, 4).Value 
LastName = Sheets(1).Cells(5, 5).Value 
Blood = Sheets(1).Cells(6, 4).Value 
Position = Sheets(1).Cells(7, 4).Value 
Gender = Sheets(1).Cells(8, 4).Value 
Division = Sheets(1).Cells(9, 4).Value 
ID = Sheets(1).Cells(3, 5).Value 
Medicine = Sheets(1).Cells(6, 7).Value 
MedicalItem = Sheets(1).Cells(7, 7).Value 
Symtom = Sheets(1).Cells(5, 7).Value 
ValueMedicine = Sheets(1).Cells(6, 8).Value 
ValueMedicalItem = Sheets(1).Cells(7, 8).Value 
Sheets(5).Cells(Lrow, 1).Value = Date 
Sheets(5).Cells(Lrow, 2).Value = Time 
Sheets(5).Cells(Lrow, 3).Value = ID 
Sheets(5).Cells(Lrow, 4).Value = Name 
Sheets(5).Cells(Lrow, 5).Value = LastName 
Sheets(5).Cells(Lrow, 6).Value = Blood 
Sheets(5).Cells(Lrow, 7).Value = Gender 
Sheets(5).Cells(Lrow, 8).Value = Position 
Sheets(5).Cells(Lrow, 9).Value = Division 
Sheets(5).Cells(Lrow, 10).Value = Symtom 
Sheets(5).Cells(Lrow, 11).Value = Medicine 
Sheets(5).Cells(Lrow, 12).Value = ValueMedicine 
Sheets(5).Cells(Lrow, 13).Value = MedicalItem 
Sheets(5).Cells(Lrow, 14).Value = ValueMedicalItem 
MsgBox "Record Successful" 


    Sheets("เก็บข้อมูล").Range("$C$1:$C$67").AutoFilter Field:=1, Criteria1:=Sheets("Main Page").Range("e3").Value 

If ActiveSheet.Name = "Main Page" Then 
    Worksheets("เก็บข้อมูล").Activate 
Else 
    Worksheets("Main Page").Activate 
End If 


End Sub 

代碼按鈕刪除

Sub Delete() 

[G6,D6,G7,H6,H7,G5].ClearContents 

Sheets("Main Page").Range("A14:M333").ClearContents 
End Sub 

Excel File

鏈接Excel文件VB密碼：遊戲

Answer 1

您可以.AutoFilter後篩選的數據複製：

ThisWorkbook.Worksheets("เก็บข้อมูล").UsedRange.Offset(1).Copy 
ThisWorkbook.Worksheets("Main Page").Range("A14").PasteSpecial 
Application.CutCopyMode = False