请教高手编个简单的vba，在线等，谢谢！

syrenoffice · 发表于 2019-11-30 17:51

详细见附件

syrenoffice · 发表于 2019-11-30 19:10

没人理我，自己顶一个

changhong8 · 发表于 2019-11-30 19:28

这个里面什么都没有

NadrsSaber · 发表于 2019-11-30 19:31

为什么要这么, 直接输入10, 打10次不就行了吗

syrenoffice · 发表于 2019-11-30 19:44

NadrsSaber 发表于 2019-11-30 19:31
为什么要这么, 直接输入10, 打10次不就行了吗

下次可能不是10可能是15呢，不一定的

syrenoffice · 发表于 2019-11-30 19:45

changhong8 发表于 2019-11-30 19:28
这个里面什么都没有

内容以后会输入的，关键是这个打印的vba啊

changhong8 · 发表于 2019-11-30 19:55

Sub 打印()
Dim B, S, i
B = Sheets("数字").[a1]
S = Sheets("数字").[a2]
For i = B To S
Sheets("个人").[a2] = i
Sheets("个人").PrintOut
Next
End Sub

87603000 · 发表于 2019-11-30 20:18

是不是这个意思。

syrenoffice · 发表于 2019-11-30 21:05

果然都是高手，没错就是这个意思，谢谢，谢谢你们

syrenoffice · 发表于 2019-11-30 21:07

changhong8 发表于 2019-11-30 19:55
Sub 打印()
Dim B, S, i
B = Sheets("数字").[a1]

非常感谢，另外如果X+3呢，这个vba怎么改？

		自动登录	找回密码
密码			免费注册

[求助] 请教高手编个简单的vba，在线等，谢谢！