Печать в чередующихся строках в VBA - PullRequest
Новая
       11

Печать в чередующихся строках в VBA

3 голосов
/ 22 марта 2011

Необходимо напечатать таблицу любых чисел, используя VBA в Excel. то есть пустая строка после каждой строки. Ниже приведено то, что я написал для печати таблицы в последовательных строках, но я не знаю, как я могу напечатать результат в чередующихся строках? 

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

Ответы [ 2 ]

2 голосов
/ 22 марта 2011

Измените вычисление номера строки с 

i + 5

на 

(i * 2) + 4
2 голосов
/ 22 марта 2011 
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
...