Question

需要在Excel中使用VBA打印任何数字的表格。即每行后的空白行。下面是我写的连续行打印表格，但我不知道如何在备用行中打印结果？

Sub table()
a = InputBox("Enter first no")
ActiveSheet.Cells.Clear
ActiveSheet.Cells(5, 4) = "TABLE OF " & a
For i = 1 To 10
c = a * i
ActiveSheet.Cells(i + 5, 4) = a
ActiveSheet.Cells(i + 5, 5) = "*"
ActiveSheet.Cells(i + 5, 6) = i
ActiveSheet.Cells(i + 5, 7) = "="
ActiveSheet.Cells(i + 5, 8).Value = c
next i
End Sub

Answer 1

Sub table()
a = InputBox("Enter first no")
n As Integer

n=6
ActiveSheet.Cells.Clear
ActiveSheet.Cells(5, 4) = "TABLE OF " & a
For i = 1 To 10
  c = a * i
  ActiveSheet.Cells(n, 4) = a
  ActiveSheet.Cells(n, 5) = "*"
  ActiveSheet.Cells(n, 6) = i
  ActiveSheet.Cells(n, 7) = "="
  ActiveSheet.Cells(n, 8).Value = c
  n = n + 2
next i
End Sub

Answer 2

从

更改行号计算

i + 5

到

(i * 2) + 4

在VBA中以备用行打印

2 个答案: