怎样在excel中用VB语句查找出60岁以上的人员

很简单的筛选问题。选中出生年月那一列，点菜单的数据，筛选，自动筛选，点表头的下拉框，小于，右边输入 1951.12.04 注意这个小数点必须和你的一样（.或者．，你自己改）。就可以了。

首先需要知道你要引用的数据在Excel中的位置，然后在VB里面引用Excel，然后打开Excel文件读数据 Dim scxls As Excel.Application Dim scbook As Excel.Workbook Dim scsheet As Excel.Worksheet ‘Set scxls = CreateObject(\"excel.application\")‘Set scbook = scxls.Workbooks.Add Set scbook = s...

1、首先打开需要编辑的Excel表格，进入到编辑的的页面中。2、然后在弹出来的窗口中，鼠标右键单击工作表，选择打开“查看代码”。3、然后在弹出来的窗口中，点击输入代码：Sub AAA()Dim I As Long For I = 1 To 1000 '行 范围，自己修改 If InStr(Range("A" & I), "invalidstatus") > 0 ...

'添加对该对象的引用 工程菜单-->引用，找到 Microsoft Scripting Runtime '引用microsoft Excel 14.0 object library 'Dim elApp As Excel.Application Dim elBooks As Excel.Workbook Dim ekSheet As Excel.Worksheet Dim TblMap_Card '创建一个变量 Private Sub Command1_Click()Dim i As Integer...

Myrand = Cells(m.Row(), m.Column() + 1).Text End Function 用法：部门在A1~A8，人员在B1~B8（函数自动从部门后一列取人员），则在其他单元格中输入公式：=Myrand($A$1:$A$8,"ENG") 或者 =Myrand($A$1:$A$8,A3)注：A3中的所填写的内容为 ENG 不清楚可以Hi我。GoodLuck!

Private Sub Form_Load()Dim oexcel, oworkbooks, newbook, newsheet, s As String Set oexcel = CreateObject("Excel.application")Set oworkbooks = oexcel.workbooks Set newbook = oworkbooks.open("c:\Allsales.xls")Set newsheet = newbook.worksheets(1)s = newsheet.cells(1, 1)MsgB...

Private Sub CommandButton1_Click()Dim rag As Range Range("G6:G7").ClearContents For Each rag In UsedRange If rag.Row >= 11 And rag.Column Mod 3 = 1 Then If rag = Range("G5") Then Range("G6") = rag.Offset(, 1)Range("G7") = rag.Offset(, 2)Exit For End If...

1、先打开控制面板-管理工具-打开数据源-系统DSN-添加驱动程序 2、这里要输入你想要连接的哪个服务器上的数据库 3、这里要输入数据库的帐户跟密码 4、然后一直点下一步，到这一步可以先测试能不能连到连据库 5、连接成功后、接下来就是用VB连接SQL SERVER、导入数据到EXCEL表格中 6、先打开EXCEL表...

1.打开一个Excel的文件,在表格中输入简单的表格,比如学生成绩表格。2.接着,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,...3.然后,在表格中绘制出按钮控件,并修改控件名称。4.接着,鼠标左键单击【查看代码】按钮 5然后，在代码窗口中输入VBA语句，比如输入定义变量语句，...

with 你打开有EXCEL文件的某一张表 for i=1 to 256 for j=1 to 65535 if .cells(i,j)="要查找的内容" then A=.cells(i,j) 'i就是行号，j就是列号，A的值就是单元格内容 end if next j next i end with 大概就是这么个道理，你参考 ...