Автоматическая утсановка параметра в ячейку excel

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
NP
Начинающий
Начинающий
 
Сообщения: 20
Зарегистрирован: 23.01.2004 (Пт) 21:58

Автоматическая утсановка параметра в ячейку excel

Сообщение NP » 27.03.2004 (Сб) 12:09

Скажите, плз, как сделать такую штуку.
Когда вставляешь в ячейку многострочный текст из буфера, например
1уаауы выыва
аыыв
ываыв
ываыав
ывыва
Эксель автоматическим ставит в окне ФОрмат > Ячейки галочку "Переносить по словам".
Подскажите текст макроса, который бы автоматически убирал этот параметр, сразу после ввода данных в ячейку.
Спасибо!

Vitaly1
Брехман
Брехман
 
Сообщения: 1578
Зарегистрирован: 30.12.2002 (Пн) 16:35
Откуда: Russia, Mosсow

Сообщение Vitaly1 » 27.03.2004 (Сб) 14:37

Sub Макрос1()
'
' Ìàêðîñ1 Ìàêðîñ
' Ìàêðîñ çàïèñàí 27.03.2004 (RSUOG)
'

'
ActiveCell.WrapText = False

End Sub

NP
Начинающий
Начинающий
 
Сообщения: 20
Зарегистрирован: 23.01.2004 (Пт) 21:58

Сообщение NP » 27.03.2004 (Сб) 16:46

Этот макрос работает только тогда, когда курсор стоит на ячейке, и когда ты этот макрос запускаешь...
Когда вводишь многострочные данные в другую ячейку, макрос ее не обрабатывает, а работает с ней только когда его снова запустишь.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 29.03.2004 (Пн) 9:09

Private Sub WorkSheet_Change(...)
Cells.WrapText = False
End Sub
Lasciate ogni speranza, voi ch'entrate.

NP
Начинающий
Начинающий
 
Сообщения: 20
Зарегистрирован: 23.01.2004 (Пт) 21:58

Сообщение NP » 29.03.2004 (Пн) 15:55

Такая же история - обрабатывает ячейку один раз, только когда его запускаешь... Может, я что-то непрально делаю?
Захожу в сервис > макрос > макросы. Создаю макрос с именем макрос1, вставляю туда код. Запускаю Run.

Vitaly1
Брехман
Брехман
 
Сообщения: 1578
Зарегистрирован: 30.12.2002 (Пн) 16:35
Откуда: Russia, Mosсow

Сообщение Vitaly1 » 30.03.2004 (Вт) 12:26

1) Зайди в редактор VBA
2) Шелкни два раза по имени листа, в котором хочешь выполнять свои хитрости
3) в модуль листа выбири объект WorkSheet, и его событие Change, а в событийную процедуру вставь жирный код
Код: Выделить всё
Private Sub WorkSheet_Change(...)
[b]Cells.WrapText = False [/b]
End Sub


Это означает, что при каждом изменении данных в ячейках на листе, отменяется многострочный режим во всех я чейках. понял :)


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 8

    TopList  
cron