Попыталась с помощью макроса вставлять в ячейку комментарий.
В целом макрос работает, но в формуле =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.
Проблема в макросе или в формуле? Это возможно исправить?