2019年9月20日
vba 常用语句
摘要： 打印一份 ActiveWindow.SelectedSheets.PrintOut Copies:=1 阅读全文
posted @ 2019-09-20 09:22 我的学习 阅读(282) 评论(0) 推荐(0)
生成舒尔特方格
摘要： Sub 生成() Dim i, j, k As Integer Dim x(25) As Integer For i = 1 To 25 x(i) = (25 - 1) * Rnd() + 1 Do While WorksheetFunction.CountIf(Range(Cells(1, 256 阅读全文
posted @ 2019-09-20 09:14 我的学习 阅读(812) 评论(0) 推荐(0)