Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: snipe а так более правильно..... for i=1 to 23 oWbk.Sheets(1).Cells(13,16+4*(i-1)).Value = "" next i for i=1 to 23 if i<=len(Фамилия) then oWbk.Sheets(1).Cells(13,16+4*(i-1)).Value = Mid(Фамилия, i, 1) else exit for end if next i
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.