我的大侠系统你好！ 请教Excel VBA编号每年从001开始，应如何编码？谢！

来源：蜘蛛抓取(WebSpider) 时间：2017-12-12 19:08 标签： 我的大侠系统
你好，Excel VBA基础教程 可以提供一下吗？谢谢！_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
你好，Excel VBA基础教程 可以提供一下吗？谢谢！
Excel VBA基础教程
可以提供一下吗？谢谢！
我有更好的答案
excel的帮助文档是最好的教程，每一个函数，每个模块都有解释甚至例子你可以搜：Excel 2003高级VBA编程宝典Excel vba入门系列讲座.docExcel_VBA_编程教程(完整版)excel高级教程.pdfExcel2003公式与函数_用宝典.pdfEXCELVBA方法属性大全.CHMExcel职场纵横.zip不过，我觉的书没必要
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包查看: 1181|回复: 6
怎么能查询多个工作表内容在线等，谢谢大侠们了
阅读权限10
在线时间 小时
本帖最后由 soszw001 于
10:16 编辑
我这有一个查询指定工作表的VB，但是我想要查询第二个工作后所有的工作表，怎么做呢？大家帮帮我，在线等
QQ截图42.png (44.3 KB, 下载次数: 0)
10:15 上传
现在只能在收文登记里查找，后面的1、2查找不了
10:10 上传
点击文件名下载附件
41.92 KB, 下载次数: 41
阅读权限10
在线时间 小时
在线默默等待中。。。。。。。。。。。。。。。。。
阅读权限10
在线时间 小时
快来看看吧，急
阅读权限10
在线时间 小时
怎么没人来啊
阅读权限10
在线时间 小时
哎，又沉了
阅读权限30
在线时间 小时
按你的思路，幾個表都篩選一下就好了，
你的代碼做了修改，試試吧：
Sub 查询筛选()
'
' 查询筛选 Macro
' 宏由WCC录制，时间:
'
'
Dim Erow As Integer
With Sheets(&查询筛选&)
& & Erow = Sheets(&收文登记&).[a65536].End(xlUp).Row
& & .Range(&a6:i65536&).ClearContents
& & For Each ce In .[a2:i2]
& && &&&If ce && && Then ce.Value = &*& & ce & &*&& &'加上通配符*,实现模糊查询
& & Next
& & Sheets(&收文登记&).Range(&A2:I& & Erow).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
& & .[a1:i2], CopyToRange:=.[A6], Unique:=False
& & Erow = Sheets(&收文登记 2&).[a65536].End(xlUp).Row
& & Sheets(&收文登记 2&).Range(&A2:I& & Erow).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
& & .[a1:i2], CopyToRange:=.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0), Unique:=False
& & Erow = Sheets(&收文登记 (2)&).[a65536].End(xlUp).Row
& & Sheets(&收文登记 (2)&).Range(&A2:I& & Erow).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
& & .[a1:i2], CopyToRange:=.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0), Unique:=False
& & For Each ce In .[a2:i2]
& && &&&If ce && && Then ce.Value = Mid(ce, 2, Len(ce) - 2)& &'取消 &*&通配符
& & Next
End With
End Sub复制代码
阅读权限10
在线时间 小时
万分感谢，好用了，谢谢，谢谢
最新热点 /1
Excel三大神器，函数、数据透视表、VBA，分分钟学起来！
原价257元，领券后仅需126元，相当于4.9折！优惠券数量有限，先到先得。活动时间：即日起至12月14日。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
库存管理系统请教ExcelVBA大侠
下载积分：600
内容提示：库存管理系统请教ExcelVBA大侠
文档格式：PDF|
浏览次数：125|
上传日期： 04:09:16|
文档星级：
全文阅读已结束，如果下载本文需要使用
 600 积分
下载此文档
该用户还上传了这些文档
库存管理系统请教ExcelVBA大侠
关注微信公众号查看: 892|回复: 2
请教大神：VBA怎样写编号？谢！
阅读权限20
在线时间 小时
本帖最后由 白云无尽9987 于
22:29 编辑
(7.14 KB, 下载次数: 10)
22:22 上传
点击文件名下载附件
阅读权限50
在线时间 小时
请看附件。
23:00 上传
点击文件名下载附件
9.47 KB, 下载次数: 14
阅读权限20
在线时间 小时
请看附件。
多谢大神帮教！！
最新热点 /1
Excel三大神器，函数、数据透视表、VBA，分分钟学起来！
原价257元，领券后仅需126元，相当于4.9折！优惠券数量有限，先到先得。活动时间：即日起至12月14日。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 916|回复: 7
请教大侠帮忙完善下记单词的小软件，非常感谢!
阅读权限30
在线时间 小时
& & & & & & & &
本帖最后由 veggieg 于
16:44 编辑
更新附件：
(198.39 KB, 下载次数: 11)
16:43 上传
点击文件名下载附件
希望实现的功能如下：
选中B列的任一单元格，就自动将对应右侧的的C列的单元格
变色为黑色字体 移走后变回原来的颜色
将选定的单元格（比如我选定了A1：D50） 对他们进行随机排序并写入L、M、N、O列
（^^这样可以排除使用位置记忆记单词）
（我是2007的EXCEL 附件是2003的EXCEL）
希望能有大侠帮忙哦，非常感谢！ ^^
08:46 上传
点击文件名下载附件
195.03 KB, 下载次数: 16
阅读权限30
在线时间 小时
补充一下那个随机排列是对选中的第一列的数据随机排列 但是中文翻译和其他是保留对应的
虽然我不说大家也明白意思 但是还是补充说明一下吧 谢谢啦！：）
阅读权限30
在线时间 小时
UP& && && && && && && && && && && && && && &
阅读权限30
在线时间 小时
呀呀，感觉应该不难吧，居然还没有高手回答啊~
阅读权限30
在线时间 小时
& & & & & & & &
UPUP& && && && && && && && &
阅读权限30
在线时间 小时
已更新附件，谢谢！
阅读权限30
在线时间 小时
& & & & & & & &
UPUPUPUPUP
阅读权限30
在线时间 小时
木有高手出手相助啊啊~~
最新热点 /1
Excel三大神器，函数、数据透视表、VBA，分分钟学起来！
原价257元，领券后仅需126元，相当于4.9折！优惠券数量有限，先到先得。活动时间：即日起至12月14日。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 我的大侠系统 的文章

 

随机推荐