版块 › PDF综合专区 › 不同份数的排序 软件Word + QI 排序

独享一个世界 发表于 2022-8-6 08:43:06

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

录一个常见的视频
比如6P的文件
1要3份
2要6份
3要2份
4要8份
5要3份
6要4份

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

教程

hanlin 发表于 2022-8-6 08:52:07

用表格，更快一些

独享一个世界 发表于 2022-8-6 09:06:00

hanlin 发表于 2022-8-6 08:52
用表格，更快一些

可以录下表格的教程

170443340 发表于 2022-8-6 14:13:30

这个教程好像以前有人发过的,

zoukool 发表于 2022-8-10 21:10:56

这个代码去哪里复制？

独享一个世界 发表于 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

baizes 发表于 2022-8-11 15:16:13

请问这个只能word使用吗？

至诚创意图文 发表于 2022-8-17 22:16:03

这个有时候是会用得到

查看完整版本: 不同份数的排序 软件Word + QI 排序