Регистры символов - Microsoft Office Excel - Страница 2

SAS888 · 02.02.2009, 12:27

Например, так:

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Selection.Count = 1 Then
        Select Case Target.Column
        Case 4, 5, 6: Target = UCase(Target)
        End Select
    End If
End Sub

Можно задать и избранные ячейки (диапазоны).

ocean_regata · 02.02.2009, 13:15

Премного благодарен!

02.02.2009, 12:27	#11
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Например, так: Код: `Private Sub Worksheet_Change(ByVal Target As Range) If Selection.Count = 1 Then Select Case Target.Column Case 4, 5, 6: Target = UCase(Target) End Select End If End Sub` Можно задать и избранные ячейки (диапазоны). Чем шире угол зрения, тем он тупее.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Регистры	Манжосов Денис :)	Помощь студентам	8	28.07.2008 12:48
Регистры	RealSHELS	Общие вопросы Delphi	3	28.03.2008 18:56
Регистры	Elm0	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	13	10.02.2008 19:49
Рандом символов	Xandr	Общие вопросы Delphi	8	25.10.2007 16:50
Массив символов	PsyTech	Общие вопросы C/C++	4	08.10.2007 10:13

02.02.2009, 13:15	#12
ocean_regata Пользователь Регистрация: 27.01.2009 Сообщений: 22	Премного благодарен!