Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / вопрос по vba / 6 сообщений из 6, страница 1 из 1
28.05.2010, 21:41
    #36656379
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вопрос по vba
надо в приложенном файле в выделенных записях(те которые буду в последующем сам выделять) сделать первую букву заглавной
и поставить восклицательный знак перед первой буквой
если возможно дать готовый код,а то vba не знаю
...
Рейтинг: 0 / 0
28.05.2010, 22:18
    #36656423
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вопрос по vba
aduka05adm,

А в чем проблема?
Для выделенной одной ячейки:
Код: plaintext
selection.value = "!" & ucase(left(selection.value, 1 )) & right(selection.value, len(selection.value)- 1 )
Для нескольких смежных, нужно обработать коллекцию Range, для разделённых выделенных диапазонов - коллекцию Areas. Ну и кучу проверок, что есть значение.

З.Ы. вложение не смотрел
...
Рейтинг: 0 / 0
28.05.2010, 22:20
    #36656425
zchvv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вопрос по vba
Один из вариантов
...
Рейтинг: 0 / 0
28.05.2010, 22:30
    #36656430
zchvv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вопрос по vba
Игорь Горбонос имел ввиду, наверное, ActiveCell, когда писал Selection применительно к этой задаче.
На самом деле Selection уже включает все Areas. Вот насчет проверок - да, их у меня нет. Можно добавить:

Код: plaintext
1.
2.
If not c.value=empty then
 'обработка
end if
...
Рейтинг: 0 / 0
28.05.2010, 22:44
    #36656444
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вопрос по vba
Спасибо большое всем
...
Рейтинг: 0 / 0
28.05.2010, 22:50
    #36656454
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вопрос по vba
zchvv,
особое спасибо от моей сестры вам)))
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / вопрос по vba / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]