如何使用 EXCEL 宏 10 制作小型数据库查询系统

这个很简单，**饥饿勃起如下：

sub c5c15_b3b13()

dim fo as object, myname as stringset fo =

请选择要复制 C5：C15 数据的文件："

if = true then myname =if myname = then

msgbox "你已经取消了文件选择，所以这次没有完成，直接退出", vbokonly + vbinformation

exit sub

end if

dim wb as workbook

for each wb in workbooksif = myname then goto wbhasopenednextset wb =

wbhasopened:

dim sh as worksheet

for each sh in

if = 假肢语音质量" thenb3:b13] =sh.[c5:c15].valueexit for

end if

nextmsgbox "处理完成！ "

trueend sub

有很多示例程序。

软件版本：office2007

一个简单的类似 Excel 的查询表单，由以下方式实现：

打开 VBE 界面，插入用户表单，并在表单上插入一个文本框和一个命令按钮：

2.双击命令按钮并输入 **，如下所示：

3.选择表单，点击执行，返回excel，在文本框中输入内容，点击查找，即可找到包含此内容的单元格：

这可以在没有宏和使用 vlookup 或索引函数的情况下轻松实现。

sub test()

set owb = "d:\") '编写自己的 excel 路径 msgbox"sheet1").range("c5") '拿"sheet1"工作表的单元格 C5 的值。

退出 Excel

end sub

按 Alt+F11 打开 VBE 窗口，从菜单中选择“插入”-“模块”，然后输入上面的内容。

这是一种后绑定方法，不需要事先加载 Excel 对象引用库。

如果希望 excel 窗口在此过程中不可见，可以在调用 open 方法打开 excel 之前设置 visible 属性：

false

sub aa()

[a1], after:=activecell).activate

end sub

根据A1中输入的内容，整个当前工作表中的搜索实际上是Excel本身的搜索功能，但是没有弹出对话框。

这是这个想法。 例如，在输入框中输入客户的名称，然后程序根据名称将客户的名称进行一行比较。 如果相同，则选择单元格，即。

反差。 选择。

最好使用过滤功能过滤“包含上海”。

由于没有具体内容，可以参考以下步骤进行修改：

dim myarr, lastrow

lastrow = , 1).end(xlup).rowmyarr = "a1:a" & lastrow)for i = 2 to lastrow

tmprow = , 1), "b:b"), 0)if not iserror(tmprow) then , 3) = , 1)

next i

end sub

你好！ 模拟文件是必需的。

我看到没有人关注你超过一天。

有没有分数是次要的，问题能不能澄清。 输入什么，输入后做什么，总和，分类？

只需说出输入系统，打开excel并点击键盘即可进入。 你告诉我？

这很简单，在单元格中，在输入公式前面添加一个等号（例如：=3*4+3），然后OK！

假设 22*33*55 位于单元格 A1 中。

将光标定位在 b1、菜单栏、插入、名称、定义，输入“abc”（不带双引号）。

在参考位置输入。

evaluate(a1)

好的，所以输入 B1。

ABC 将给出方程 22*33*55 的结果。

你不能用红色来做到这一点，你需要使用一个简单的 vb，你需要做一个类似计算器的东西，简单地说，两个文本框输入框，一个显示结果的文本框，你可以把数字写进去，然后添加两个 5 个按钮，4 个运算符，1 个显示结果，例如你在 textbox1 中输入 3， textbox2 中的 5，然后将点相乘，最后一个点等于 textbox3，就会显示 3*5 15 的结果

如果用简单方法，那就用上面的同志法，把运算规则写在显示结果的单元格里，但不是具体数字，而是单元格，比如a1=3，a2=4，a3=3，那么规则就是=a1*a2+a3

前额。。。 就是这么简单...... Excel 的基本操作。

你说的在单元格中输入（3*4+3）是行不通的。 Excel 的计算功能以单元格形式显示。 您只能将这 3 个元素分成 3 个单元格，例如，“A1 输入 3，B1 输入 4，C1 输入 3，然后在右侧单元格中输入 A1*B1+C1”，它就会出来。

如果你必须输出这样的东西（例如 3*4+3），那很好。 但是，您需要在此公式前面添加一个“ ”符号，并且显示结果仅直接显示在此单元格中，不看单元格就不会看到计算。

寻求满足。

亲爱的，我用VBA，我去填VLOOKUP函数，效率太低了。

你用列标记截取数据的屏幕截图，举例说明你的要求，然后我会写出来**。