QQ登录

只需一步,快速开始

查看: 772|回复: 7
收起左侧

不同份数的排序 软件Word + QI 排序

[复制链接]
累计签到:12 天
连续签到:2 天
发表于 2022-8-6 08:43:06 | 显示全部楼层 |阅读模式
录一个常见的视频
比如6P的文件
1要3份
2要6份
3要2份
4要8份
5要3份
6要4份

软件Word + QI 排序
打开WOrd
打开VB编辑器

教程 不同份数的排序 软件Word + QI 排序{tag}(1) 不同份数的排序.rar (3.84 MB)

不同份数的排序 软件Word + QI 排序{tag}(2)



评分

参与人数 1精华 +1 印币 +20 活跃值 +1 技术 +1 收起 理由
华印客服 + 1 + 20 + 1 + 1 感谢分享,华印有你更精彩!

查看全部评分

华印网相关搜索

2 赠人玫瑰,手有余香!如单纯感谢,请送花!凡是以文字感谢,即被视为水帖,会扣币处理! 鲜花榜单
累计签到:488 天
连续签到:1 天
发表于 2022-8-6 08:52:07 | 显示全部楼层
用表格,更快一些

点评

可以录下表格的教程  详情 回复 发表于 2022-8-6 09:06
回复 支持 反对 送花

使用道具 举报

累计签到:12 天
连续签到:2 天
 楼主| 发表于 2022-8-6 09:06:00 | 显示全部楼层
hanlin 发表于 2022-8-6 08:52
用表格,更快一些

可以录下表格的教程
回复 支持 反对 送花

使用道具 举报

累计签到:385 天
连续签到:1 天
发表于 2022-8-6 14:13:30 | 显示全部楼层
这个教程好像以前有人发过的,
回复 支持 反对 送花

使用道具 举报

累计签到:75 天
连续签到:1 天
发表于 2022-8-10 21:10:56 | 显示全部楼层
这个代码去哪里复制?
回复 支持 反对 送花

使用道具 举报

累计签到:12 天
连续签到:2 天
 楼主| 发表于 2022-8-11 08:47:01 | 显示全部楼层
Sub 单面重复不同份数1()
Dim arr() As String, arr1()
Dim a%, b, n, i, s1, n1, b1, s2, i1, e%
b = InputBox("请输入页数")
   
    For i = 1 To b
    a = InputBox("请输入第" & i & "页份数")
    e = e + a
   
    ReDim arr(1 To a)
        For n = 1 To a
        arr(n) = i
        ReDim Preserve arr1(1 To e)
        i1 = i1 + 1
        arr1(i1) = arr(n)
        Next n
    Next i
   
        s1 = Join(arr1)
    Open "C:\Users\Administrator\Desktop\新建文件夹 (3)\33.txt" For Output As #4
Print #4, RTrim(s1)
Close #4
'    s1 = Join(arr, " ")
'    Open "C:\Users\Administrator\Desktop\单面向下1.txt" For Output As #4
''    For i1 = 1 To b
''        For n1 = 1 To a
''        s1 = arr(i1, n1)
''        s2 = Join(s1)
''        Print #4, arr(i1, n1)
''        Next n1
''    Next i1
'
' Close #4
End Sub

回复 支持 反对 送花

使用道具 举报

累计签到:19 天
连续签到:2 天
发表于 2022-8-11 15:16:13 | 显示全部楼层
请问这个只能word使用吗?
回复 支持 反对 送花

使用道具 举报

累计签到:946 天
连续签到:50 天
发表于 2022-8-17 22:16:03 | 显示全部楼层
这个有时候是会用得到
回复 支持 反对 送花

使用道具 举报

您需要登录后才可以回帖 登录 | 注册帐号

本版积分规则

关闭

注意注意注意:必看上一条 /1 下一条

华印网 - 华印社区
Share More 周一至周日:09:00 - 21:00
华印网旗下的设计印刷制作类专业技术站点
请勿发布违反国家法律法规的内容,会员观点不代表本站立场
企鹅:32917909 Email:32917909#qq.com

华印网汇集印前印后技术、PDF拼版、防伪包装、数码印刷、合版印刷、图文设计、平面设计、数码印刷及CTP等最新印刷技术,提供软件汉化、插件汉化、cdr插件、ai插件、ps插件、pdf插件、印刷流程、ctp输出、印刷软件、印能捷、esko、CorelDRAW、InDesign、Illustrator、CTP、CDR以及PDF软件下载的综合性印刷论坛社区!

Powered by Discuz! X3.4 © 2001-2021,Tencent Cloud.

站点地图|小黑屋|手机版|Archiver|华印 ( 粤ICP备19020152号-1 )

GMT+8, 2022-10-6 16:13 , Processed in 0.025294 second(s), 26 queries , Gzip On, Yac On.

快速回复 返回顶部 返回列表