Vba 宏vb从筛选器获取值_Vba_Excel

Vba 宏vb从筛选器获取值

vba excel

Vba 宏vb从筛选器获取值,vba,excel,Vba,Excel,在这种情况下 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).Cel

在这种情况下

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

现在我已经有了一个按钮，可以记录姓名、姓氏、血液、性别、分区……
发送至“เก็บข้อมูล"页面//平均保存数据页面

按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

代码按钮删除

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文件VB密码：游戏

您可以在

之后复制过滤后的数据。自动过滤

：

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

这项工作谢谢您，先生，如何。PastSpecial Process？如果您手动复制和粘贴数据并记录宏以查看生成的代码链接，也一样，这对我帮助很大，谢谢您的好意：）