Попыталась с помощью макроса вставлять в ячейку комментарий.
В целом макрос работает, но в формуле =SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(RC[-2],""город"",R[3]C[13]),""дата"",RC[-1]),""тип"",R[3]C[11]), вместо даты появляется 44729.
Проблема в макросе или в формуле? Это возможно исправить?
| Код |
|---|
Sub КомментарийДНС()
'
' КомментарийДНС Макрос
'
'
Range("G3").Select
ActiveCell.FormulaR1C1 = _
"город, дата, Отправитель: ООО Офисмаг/EY0481, тип, склад29"
Range("H3").Select
ActiveCell.FormulaR1C1 = "=TODAY()+4"
Range("I3").Select
ActiveCell.FormulaR1C1 = _
"=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(RC[-2],""город"",R[3]C[13]),""дата"",RC[-1]),""тип"",R[3]C[11])"
Range("I4:I5").Select
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
Range("I3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub |
В целом макрос работает, но в формуле =SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(RC[-2],""город"",R[3]C[13]),""дата"",RC[-1]),""тип"",R[3]C[11]), вместо даты появляется 44729.
Проблема в макросе или в формуле? Это возможно исправить?
