不懂VBA也编程

金城烟雨

谢谢斑竹，其他我来我慢慢学。还有就是你一楼的2007设置批注没找到链接地址。
斑竹，我要是将身份证号加到d5后怎么改不过来，实际年龄又不会做了。很是无奈。

链接已重新编辑。
第二个问题没听明白。
--山菊花

讲古派

哎。他要是愿意的话也就不在乎在弹出的对话框中点一下 是 了。看来只能放弃高亮显示了。希望有别的可以代替的方法。谢谢斑竹。

如果这样，你放弃高亮照样不行，因为都会用你的格式覆盖他原有的格式，是不是？
--山菊花

金城烟雨

是这样的，麻烦您看看VBA怎么做，谢谢版主。
身份证号码.rar (3.35 KB, 下载次数: 25)

2010-10-24 13:48 上传

点击文件名下载附件

附件供参考——山菊花

slywtj123

向山菊花大师致敬！向山菊花大师学习！

zhc19620430

山老师真好，这里应该多发些好帖子供我们学习。哈哈

讲古派

有个问题.在论坛请教未得解.特来请教您.

我想要打开一个工作薄时弹出一个对话框.对话框内容为(确认请点是,否则点否)  对话框提供"是""否"按钮.  如果点是,则进入EXCEL.如果点否,则退出EXCEL.

山菊花

按Alt+F11打开VBA编辑器，双击模块名“ThisWorkbook”，将下面的代码粘贴到光标处：

Private Sub Workbook_Open()
If MsgBox("进入Excel。。。。。。      " & Chr(10) & "确认吗？", 36, "权限") = 7 Then Application.Quit
End Sub

’===============
' 关于模块名“ThisWorkbook”，请参阅示例8。
'函数MsgBox弹出对话框，具体设置请参阅帮助。
'退出Excel的命令是Application.Quit。

讲古派

高手就是高手.一行代码就搞定了.感谢您百忙之中还能抽空来帮我.真的是非常感谢.

yinweiqi

山版你好。我也是刚接触VBA，想做一个功能(启动弹出窗口)，因为环境原因电脑上不了网，传不了附件，我就举例提问吧，谢谢版主。
例如表格：
张三 财务科 交钱
李四 人事部 没交
王五 人事部 交钱
————————————
启动这个表格的时候弹出窗口：
已经交钱的有：财务科的张三，人事部的王五。

不知道说清楚没有，因为只能手机上网。又想到以下这样会更好吧，能不能启动表格弹出窗口点按钮，在当前工作簿中打开一个临时的工作表，清空此表，筛选出来交钱的显示：
张三 财务科 交钱
王五 人事部 交钱
————————————

非常感谢山菊花版主。

caizhihui868

真厉害，这些都是我需要的，非常感谢！