Gloom писал(а):ø - ChrW(248)
Sub Макрос1()
Dim iString$
ActiveCell = ChrW(216)
ActiveCell.Offset(, 1) = ChrW(248)
iString = "Мама " & ChrW(216) & " мыла " & ChrW(248) & " раму"
ActiveCell.Offset(1) = iString
End Sub
Сейчас этот форум просматривают: Yandex-бот и гости: 5