Просмотр адреса ячейки после расчета

Question

Я построил макрос следующим образом, и он работает хорошо. Однако у меня есть проблема с этим. Я хочу посмотреть, как выполнялись вычисления в каждой ячейке, например, в формате «$ B $ 6 + A6» в исходном файле Excel, но я не могу этого сделать. Было бы очень хорошо, если бы вы могли помочь мне с этим.

Большое спасибо

Sub RCinput()

Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
Dim e As Long




 a = InputBox("What is the row number: ")

 b = InputBox("What is the column number: ")

 c = InputBox("What is the last row number: ")

 e = b - 1


For d = a To c

Cells(d, b).Formula = Cells(d, e).Value * 2

Next


End Sub

Answer 1

Насколько я вижу, ваша формула равна значению, поэтому в результате вы получите число. Пожалуйста, попробуйте изменить ваш код следующим образом:

Sub RCinput()

Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
Dim e As Long

 a = InputBox("What is the row number: ")

 b = InputBox("What is the column number: ")

 c = InputBox("What is the last row number: ")

 e = b - 1

For d = a To c

Cells(d, b).Formula = "=" & Cells(d, e).Address & "* 2"

Next

End Sub

Part Cells(d, b).Formula = "=" & Cells(d, e).Address & "*2" введет в Cells(d,b) формулу, например "=$A$1*2"