[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
soykoa

Rank: 1

帖子
17 
积分
32 
技术
0  
捐助
0  
注册时间
2021-9-11 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2022-7-17 20:28 | 只看该作者

[问题求助] 求助VBS把三个分开的宏,合并成一个

我自己是先到网上去找了代码,然后根据需要,,定义了3个不同的宏,,,现在有点麻烦是每次要分别点三次,,生成对应的数据,,,,,能不能把他们合并到一起,,,,点那个"生成数据"按钮,,,,相应的数据生成列就去索引源数据,,,,如果源列有初始数据,,,就在对应的列生成符合格式的数据,,,谢谢
收藏 分享

soykoa

Rank: 1

帖子
17 
积分
32 
技术
0  
捐助
0  
注册时间
2021-9-11 
2楼
发表于 2022-7-17 20:30 | 只看该作者
本帖最后由 soykoa 于 2022-7-17 20:34 编辑 
  1. Public Sub 自由流通盘()

  2. 

  3.   j = 2

  4.           Do While Cells(j, 1) <> ""

  5.      

  6.       txtContent = Cells(j, 1)

  7.          If Mid(Cells(j, 1), 1, 1) = "6" Then

  8.          Cells(j, 10) = "SH" & Mid(txtContent, 1, 6)

  9.          Cells(j, 11) = Cells(j, 2)

  10.          

  11.          Else

  12.         Cells(j, 10) = "SZ" & Mid(txtContent, 1, 6)

  13.         Cells(j, 11) = Cells(j, 2)

  14.          

  15.          End If

  16.           

  17.     

  18.      j = j + 1

  19.           Loop

  20. 

  21. End Sub

  22. 

  23. Public Sub 细分行业()

  24. 

  25.   j = 2

  26.           Do While Cells(j, 4) <> ""

  27.      

  28.       txtContent = Cells(j, 4)

  29.          If Mid(Cells(j, 4), 1, 1) = "6" Then

  30.          Cells(j, 12) = "SH" & Mid(txtContent, 1, 6)

  31.          Cells(j, 13) = Cells(j, 5)

  32.          

  33.          Else

  34.         Cells(j, 12) = "SZ" & Mid(txtContent, 1, 6)

  35.         Cells(j, 13) = Cells(j, 5)

  36.          

  37.          End If

  38.           

  39.     

  40.      j = j + 1

  41.           Loop

  42. 

  43. End Sub

  44. 

  45. Public Sub 主题概念()

  46. 

  47.   j = 2

  48.           Do While Cells(j, 7) <> ""

  49.      

  50.       txtContent = Cells(j, 7)

  51.          If Mid(Cells(j, 7), 1, 1) = "6" Then

  52.          Cells(j, 14) = "SH" & Mid(txtContent, 1, 6)

  53.          Cells(j, 15) = Cells(j, 8)

  54.          

  55.          Else

  56.         Cells(j, 14) = "SZ" & Mid(txtContent, 1, 6)

  57.         Cells(j, 15) = Cells(j, 8)

  58.          

  59.          End If

  60.           

  61.     

  62.      j = j + 1

  63.           Loop

  64. 

  65. End Sub
复制代码
这三段是我在网上找的一截代码自己改出来的三段,,,,怎么把这三段合并成一个代码,,,,只需要点一次,,,就分别去生成相应列的数据呢?

TOP

soykoa

Rank: 1

帖子
17 
积分
32 
技术
0  
捐助
0  
注册时间
2021-9-11 
3楼
发表于 2022-7-17 20:30 | 只看该作者
怎么不能上传附件了呢?

TOP

flashercs

Rank: 6Rank: 6

帖子
1228 
积分
2158 
技术
267  
捐助
0  
注册时间
2017-3-20 
4楼
发表于 2022-7-17 20:48 | 只看该作者
本帖最后由 flashercs 于 2022-7-17 20:50 编辑 
  1. Public Sub 生成数据()

  2.   自由流通盘

  3.   细分行业

  4.   主题概念

  5. End Sub
复制代码
不能上传文件,分享到网盘链接
微信:flashercs
QQ:49908356

TOP

soykoa

Rank: 1

帖子
17 
积分
32 
技术
0  
捐助
0  
注册时间
2021-9-11 
5楼
发表于 2022-7-17 20:51 | 只看该作者
还真可以,,,谢谢老师!

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14926 
积分
46132 
技术
857  
捐助
745  
注册时间
2008-6-9 
6楼
发表于 2022-7-18 10:11 | 只看该作者
回复 3# soykoa


如果需要上传文件，可以用阿里云盘或百度网盘。

如果需要上传截图，可以找个图床，例如：
http://bbs.bathome.net/thread-60985-1-1.html
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表