macrosvb从filter获取值
在这种情况下
现在我已经有一个button，logging名称，姓氏，血液，性别，司……
发送到“เก็บข้อมูล”页面//表示保存数据页面
按ID自动过滤并转到“เก็บข้อมูล”页面
我想要在绿色广场的主页单元格A14中显示ID Show所示的值
logging代码
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 代码button删除
Sub Delete() [G6,D6,G7,H6,H7,G5].ClearContents Sheets("Main Page").Range("A14:M333").ClearContents End Sub
Excel文件
链接Excel文件VB密码：游戏
您可以在.AutoFilter之后复制已过滤的数据：
ThisWorkbook.Worksheets("เก็บข้อมูล").UsedRange.Offset(1).Copy ThisWorkbook.Worksheets("Main Page").Range("A14").PasteSpecial Application.CutCopyMode = False