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

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

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

本帖最后由 soykoa 于 2022-7-17 20:34 编辑
  1. Public Sub 自由流通盘()
  2.   j = 2
  3.           Do While Cells(j, 1) <> ""
  4.      
  5.       txtContent = Cells(j, 1)
  6.          If Mid(Cells(j, 1), 1, 1) = "6" Then
  7.          Cells(j, 10) = "SH" & Mid(txtContent, 1, 6)
  8.          Cells(j, 11) = Cells(j, 2)
  9.          
  10.          Else
  11.         Cells(j, 10) = "SZ" & Mid(txtContent, 1, 6)
  12.         Cells(j, 11) = Cells(j, 2)
  13.          
  14.          End If
  15.          
  16.    
  17.      j = j + 1
  18.           Loop
  19. End Sub
  20. Public Sub 细分行业()
  21.   j = 2
  22.           Do While Cells(j, 4) <> ""
  23.      
  24.       txtContent = Cells(j, 4)
  25.          If Mid(Cells(j, 4), 1, 1) = "6" Then
  26.          Cells(j, 12) = "SH" & Mid(txtContent, 1, 6)
  27.          Cells(j, 13) = Cells(j, 5)
  28.          
  29.          Else
  30.         Cells(j, 12) = "SZ" & Mid(txtContent, 1, 6)
  31.         Cells(j, 13) = Cells(j, 5)
  32.          
  33.          End If
  34.          
  35.    
  36.      j = j + 1
  37.           Loop
  38. End Sub
  39. Public Sub 主题概念()
  40.   j = 2
  41.           Do While Cells(j, 7) <> ""
  42.      
  43.       txtContent = Cells(j, 7)
  44.          If Mid(Cells(j, 7), 1, 1) = "6" Then
  45.          Cells(j, 14) = "SH" & Mid(txtContent, 1, 6)
  46.          Cells(j, 15) = Cells(j, 8)
  47.          
  48.          Else
  49.         Cells(j, 14) = "SZ" & Mid(txtContent, 1, 6)
  50.         Cells(j, 15) = Cells(j, 8)
  51.          
  52.          End If
  53.          
  54.    
  55.      j = j + 1
  56.           Loop
  57. End Sub
复制代码
这三段是我在网上找的一截代码自己改出来的三段,,,,怎么把这三段合并成一个代码,,,,只需要点一次,,,就分别去生成相应列的数据呢?

TOP

怎么不能上传附件了呢?

TOP

本帖最后由 flashercs 于 2022-7-17 20:50 编辑
  1. Public Sub 生成数据()
  2.   自由流通盘
  3.   细分行业
  4.   主题概念
  5. End Sub
复制代码
不能上传文件,分享到网盘链接
微信:flashercs
QQ:49908356

TOP

还真可以,,,谢谢老师!

TOP

回复 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

返回列表