vba虚拟光驱序列号号达到如下效果

来源：蜘蛛抓取(WebSpider) 时间：2015-06-11 11:24 标签： 苹果序列号查询
Excel2003如何批量修改图表序列数据源(VBA实现)
[问题点数：100分，结帖人hcx_2008]
Excel2003如何批量修改图表序列数据源(VBA实现)
[问题点数：100分，结帖人hcx_2008]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
2014年9月 其他开发语言大版内专家分月排行榜第二2012年3月 其他开发语言大版内专家分月排行榜第二2010年5月 其他开发语言大版内专家分月排行榜第二
2013年5月 其他开发语言大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。查看: 2299|回复: 2
如何利用VBA函数获得日期序列？
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴
署名作者: biaotiger1
版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
适用版本: 2010&
语言环境: 简体中文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
Q：如何利用VBA函数获得日期序列？
A：ALT+F11→“插入”→“模块”，在代码窗口中输入代码如下
Sub 星期序列()
For I = 1 To 7
& & For J = 1 To 7
& && &&&Cells(I, J) = WeekdayName(I, , J)
& & Next J
Next I
End Sub复制代码
注意以上代码中中J相同的时候，不同的I值返回不同的WeekdayName值
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
不错不错，顶标标一个！
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 210, 距离下一级还需 40 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
学office，哪能不关注全网最大的Office类微博（新浪）
站长推荐 /1
关注 微信号：exceltip_net
回复“教程”二字，即可下载。
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by查看: 1699|回复: 6
阅读权限7UID319130函数0 关最后登录经验1436 点在线时间125 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币2113 个积分1437精华0帖子日志注册时间
小学4年级, 积分 1437, 距离下一级还需 63 积分
金币2113 个积分1437帖子
(3.16 KB, 下载次数: 44)
21:45 上传
点击文件名下载附件
“&B&列不为空时，&A&列自动产生序列号
&附件打开是乱码，请重新上传附件。&
阅读权限17UID48559函数0 关最后登录经验6463 点在线时间479 小时VBA0 关分享记录好友技巧0 关相册主题段位7 段金币18676 个积分6468精华0帖子日志注册时间
大学2年级, 积分 6468, 距离下一级还需 232 积分
金币18676 个积分6468帖子
昨天好像已经给过了，A2开始产生1以后的序号：
Sub test()
Dim i As Long, k As Long
Dim arr, brr
& & arr = Range(&B2:B& & Range(&B& & Rows.Count).End(xlUp).Row)
& & ReDim brr(1 To UBound(arr), 1 To 1)
& & For i = 1 To UBound(arr)
& && &&&If arr(i, 1) && && Then
& && && && &k = k + 1
& && && && &brr(i, 1) = k
& && &&&Else
& && && && &brr(i, 1) = &&
& && &&&End If
& & Next i
& & Range(&A2&).Resize(UBound(brr), 1) = brr
总评分:&经验 + 10&
大多数人都想要改造这个世界，但却罕有人想改造自己！为了偷懒，学习EXCEL，追求实用，好好学习，天天晚上！
阅读权限22UID132724函数3 关最后登录经验21364 点在线时间1557 小时VBA0 关分享记录好友技巧4 关相册主题段位4 段金币24296 个积分21396精华0帖子日志注册时间
大学助理讲师, 积分 21396, 距离下一级还需 5604 积分
金币24296 个积分21396帖子
路过看看学学
阅读权限255UID281125函数4 关最后登录经验28525 点在线时间794 小时VBA2 关分享记录好友技巧4 关相册主题段位3 段金币14983 个积分29092精华0帖子日志注册时间
【字典：B06】
金币14983 个积分29092帖子
附件不对路，重传
一定要学好VBA
阅读权限7UID319130函数0 关最后登录经验1436 点在线时间125 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币2113 个积分1437精华0帖子日志注册时间
小学4年级, 积分 1437, 距离下一级还需 63 积分
金币2113 个积分1437帖子
压缩不对，再发一次，看这次对否、麻烦了。
(8.35 KB, 下载次数: 47)
20:29 上传
点击文件名下载附件
阅读权限1UID556343函数0 关最后登录经验35 点在线时间24 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6 个积分35精华0帖子日志注册时间
幼儿园小班, 积分 35, 距离下一级还需 65 积分
金币6 个积分35帖子
你好，请问如何修改代码才能使生成的序号是01，02，一直这样下去的呢？
阅读权限21UID136406函数0 关最后登录经验16064 点在线时间1161 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6308 个积分16064精华0帖子日志注册时间
博士研究生, 积分 16064, 距离下一级还需 1936 积分
金币6308 个积分16064帖子
a2=IF(B2&&&&,TEXT(COUNTA($B$2:B2),&00&),&&)
最佳答案累计大于500
最佳答案累计大于100
Powered by怎么实现excel中用vba添加1to1000000的序列号，请大神指教一下_百度知道
怎么实现excel中用vba添加1to1000000的序列号，请大神指教一下
提问者采纳
hiphotos://f://f，再自自动填充://f.hiphotos.baidu.baidu比如在A列可以用以下代码Sub sssss()For i = 1 To 1000000& Cells(i.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="/zhidao/pic/item/77094b36acaf2eddee1e.baidu，先在A1单元格填1.hiphotos，这种方法快很多<a href="http, 1) = iNextEnd Sub或者.com/zhidao/wh%3D450%2C600/sign=/zhidao/wh%3D600%2C800/sign=dacaa6a09ab0f94b36acaf2eddee1e.jpg" esrc="http
提问者评价
正解啊，上次找填充序列的没找到，结果拖了3w多行，本人小菜菜，以后还望多指教各位大神了
其他类似问题
为您推荐：
您可能关注的推广
excel的相关知识
其他2条回答
2003版的都行我也来凑个热闹; & & & &Application。下面的代码一定行，以附件为证;Next&nbsp，反正就添加在单元格里。你没要求序列号添加在哪里.ScreenUpdating = TrueEnd Sub<file fsid="" link="/share/link.ScreenUpdating = False&For i = 1 To 1000000& & Cells(i) = i& &Application?shareid=&uk=" name="添加序列号。Sub ABC()&nbsp
不可能，因为excel最多只支持65536行
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 苹果序列号查询 的文章

 

随机推荐