❶ ACCESS用宏打开查询
对象-宏-新建-第一列选OPERNQUERY这个命令,在下边有个查询名称,选择你已经做好的查询名称,保存为宏1-关闭,双击宏1,就可以执行你所做的查询了,不明白你再联系我
❷ EXCEL如何用宏命令制作快捷查找并定位到对应单元格
代码如下(要求第一行为姓名,第一列为日期),直接执行即可(经常用的话,可以设置一个快捷方式,或者放一个图标在工具栏或菜单条中):
Sub 人员日期定位宏()
Dim FindName As String, toDay As Date, x As Integer, y As Integer
Dim oldcell As Range
Set oldcell = ActiveCell
FindName = ActiveCell.Value
toDay = Date
FindName = InputBox("请输入你要查询的人员姓名:", "人员&日期定位宏", FindName)
If FindName = "" Then Exit Sub
Rows("1:1").Select
On Error GoTo notFindName:
Selection.Find(What:=FindName, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Activate
'LookAt:=xlWhole 表示单元格匹配,LookAt:=xlPart 表示部分匹配
x = ActiveCell.Column()
Columns("A:A").Select
On Error GoTo notFindDate:
Selection.Find(What:=toDay, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Activate
y = ActiveCell.Row()
On Error GoTo 0
Cells(y, x).Select
Exit Sub
notFindName:
MsgBox "没有找到你需要的人员姓名(" & FindName & ")!", vbInformation + vbOKOnly, "人员&日期定位宏"
oldcell.Select
Exit Sub
notFindDate:
MsgBox "没有找到今天的日期(" & CStr(toDay) & ")!", vbInformation + vbOKOnly, "人员&日期定位宏"
Cells(1, x).Select
End Sub
注:它会将你所选择的单元格内容默认为要查找的人员姓名,当然你可以修改之。
有疑问或问题请Hi我或给我发BaiDu消息。
GoodLuck!
❸ Access 数据库 填空题 求解答!!!!!!!!!!!!
1.数据库系统的核心是___表_____。
2.一个项目具有一个项目主管,一个项目主管可以管理多个项目,则实体集“项目主管”与实体集“项目”的联系属于___一对多______的联系。
3.将表A的记录复制到表B中,且不删除表B中的记录,可以使用___追加____查询。
4._____主键______是表中唯一标识一条记录的字段。
5.利用查询可以建立一个新表,这样的查询称为____生成表______.
6.书写查询准则时,日期值应该用___#_____括起来。
7.查询包括选择查询、_命令查询__、_操作查询__、_参数查询_、和SQL查询5种。
8.纵栏式窗体将窗体中的一个显示记录按列分隔,每列的左边显示_字段名_,右边显示字段内容.
9.创建窗体的数据库来源可以是表或___查询_____.
10.组合框和列表框的主要去背是:是否可以在框中___输入____.
11.在设计窗体时使用标签空间创建是单独标签,它在窗体的__数据表____视图中不能显示。
12.在Access中,“自动创建报表”向导分为:纵栏式和___表格_____两种。
13.在报表设计中,可以通过添加___分页符____控件来控制另起一页输出显示。
14.为了在报表的每一页底部显示页码号,那么应该在____页脚_____节中设置。
15.用于打开查询的宏操作命令是__OpenQuery_____。
16.如果要引用宏组中的宏,语法格式是__宏组名.宏名_____。
17.显示包含警告信息或其他信息的消息框操作的宏命令是_____MsgBox__。
❹ Access里的openform是打开窗体,那打开表,报表,宏,查询分别英语怎么写
打开窗体的宏命令是OpenForm,宏命令OpenQuery的功能是打开查询,宏命令OpenTable的功能是打开表,宏命令OpenReport的功能是打开报表,RunSQL用于执行指定的SQL语句。
不用谢我 我来自南财数院^_^
❺ 打开制定查询的宏操作是什么
对象-宏-新建-第一列选OPERNQUERY这个命令,在下边有个查询名称,选择你已经做好的查询名称,保存为宏1-关闭,双击宏1,就可以执行你所做的查询了,
❻ EXCLE 查找宏命令怎么查找下一个
删除Range("A3").Select这一行,第一次查找时鼠标定位到C2即可
❼ 在EXCEL中设置一个查寻功能的宏,怎么写
第一步打开菜单中的视图->工具箱->控件工具箱->点击一下工具箱中的命令按钮,然后在你指定的位置按鼠标左键拉一个方框创建一个命令按钮,然后双击该按钮进入VBA编辑模式,再把下面的代码里分隔线之间的代码粘贴进去,再回到工作表,点击 控件工具箱中的退出设计模式.再点击该按钮就可以运行这个宏了
Private Sub CommandButton1_Click()
'-------------分割线----------
Dim Rng As Range, AA As String
Dim Irng As Range
endcol = [iv1].End(xlToLeft).Column
endrow = Range("B65536").End(xlUp).Row
Set Irng = Range(Cells(1, 1), Cells(endrow, endcol))
AA = InputBox("请输入要查找的内容:")
If AA <> "" Then
Set Rng = Irng.Find(AA, LookAt:=xlPart)
If Not Rng Is Nothing Then Rng.Select Else MsgBox "没找含有指定内容的单元格!"
End If
,---------分割线---------
End Sub
❽ EXCEL文件查看宏-执行为什么打不开,没反应
方法一、快速运行自定义宏:新建一个带启动宏的Excel文档。然后按键盘快捷键“Alt +
F11”进入ExcelVBA环境下,右击“Microsoft Excel 对象”-“插入”-“模块”,在模块中输入宏代码,然后直接点击“快捷工具栏”上的运行按钮来运行宏。
方法二:通过事件来触发行动宏:新建一个带启动宏的Excel文档。然后按键盘快捷键“Alt + F11”进入ExcelVBA环境下,双击“Sheet1”,在弹出的窗口中从对象下拉框中选择“WorkSheets”,事情类型下拉列表框中选择“Activate”,然后在Private Sub Worksheet_Activate()与End Sub之间输入如图所示的代码,完成后点击保存按钮。回到Excel文档界面,先选择除“sheet1”之外的任意一个工作表,然后再点“sheet1”,此时会发现我们编写的Excel宏正常运行。
方法三、利用“开发工具”功能区中的相应命令实现自定义宏的运行:首先需要让“开发工具”功能区显示出来,点击“开始”-“Excel选项”,在“基本设置”选项卡中选择右侧的“在功能区上显示‘开发工具’”,使其显示出来。点击“开发工具”-“宏”,在弹出的窗口中选择要运行的“宏”,最后点击“运行”按钮即可运行宏。
方法四、让文档启动时自动运行自定义宏:新建一个带启动宏的Excel文档。然后按键盘快捷键“Alt + F11”进入ExcelVBA环境下,双击“ThisWorkbook”,在弹出的窗口中从对象下拉框中选择“WorkBook”,事情类型下拉列表框中选择“Open”,然后在Private Sub Workbook_Open()与End Sub之间输入如图所示的代码,完成后点击保存并退出环境。重新打开刚才保存的带启动宏的Excel文档,在出现警示时选择“启用宏”,就会发现我们自定
义的宏能够正常运行了!
方法五、通过设置来使所有宏都可以行动,当然也包括自定义宏:依次点击“开发工具”-“宏安全性”,在左侧选择“宏设置”选项卡,然后在右侧选择“启用所有宏”,点击确定即可。经过这样的设置以后,所有的宏都具备运行的权限。(小编再次不推荐这样做)
方法六、将带有自启动宏代码的文档放置到Excel可信任区域中,从而保证自定义宏的顺利执行:为了说明问题方法,在此小编将含有自启动的宏文件放到D盘ExcelMacro目录下。
首先,将我们的带有自启动宏的文档拷贝到D盘ExcelMacro目录下,然后直接双击运行,发现此时的宏由于禁止而无法运行。接下来直接点击“开始”-“Excel选项”-“信任中心”-“信任中心设置”-“受信任的位置”-“添加新位置”,在弹出的窗口中输入“D:\excelMacro”,最后点击确定完成。再次运行该文档,发现自定义宏正常运行,并无警告提示出现。