Доброго времени суток форумчане и гости форума. Помогите пожалуйста сделать так, что бы в дапазоне E2:F700 все слова при вводе писались бы с заглавной буквы.
Доброго времени суток форумчане и гости форума. Помогите пожалуйста сделать так, что бы в дапазоне E2:F700 все слова при вводе писались бы с заглавной буквы.DrMini
Файл приложить не могу. И Сергея файл тоже скачать не могу - макросы там
Код в модуль листа [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim d_ As Range Set d_ = Intersect(Target, Range("E2:F700")) If Not d_ Is Nothing Then Application.ScreenUpdating = 0 Application.Calculation = 3 Application.EnableEvents = 0 For i = 1 To d_.Count If d_(i) <> "" Then d_(i) = WorksheetFunction.Proper(d_(i)) End If Next i Application.EnableEvents = 1 Application.Calculation = 1 Application.ScreenUpdating = 1 End If End Sub
[/vba]
Файл приложить не могу. И Сергея файл тоже скачать не могу - макросы там
Код в модуль листа [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim d_ As Range Set d_ = Intersect(Target, Range("E2:F700")) If Not d_ Is Nothing Then Application.ScreenUpdating = 0 Application.Calculation = 3 Application.EnableEvents = 0 For i = 1 To d_.Count If d_(i) <> "" Then d_(i) = WorksheetFunction.Proper(d_(i)) End If Next i Application.EnableEvents = 1 Application.Calculation = 1 Application.ScreenUpdating = 1 End If End Sub
Нет. Я ж писал - в модуль листа Правой мышой на ярлык листа - исходный код (или посмотреть код, или что-то еще в этом роде) - и вот туда вставляете_Boroda_
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Cells(2, 1).Resize(Cells(Rows.Count, 2).End(3).Row - 1)) Is Nothing Then If Target = "O" Then Target = "P" Else Target = "O" End If Target.Offset(, 1).Select End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Cells(2, 1).Resize(Cells(Rows.Count, 2).End(3).Row - 1)) Is Nothing Then If Target = "O" Then Target = "P" Else Target = "O" End If Target.Offset(, 1).Select End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
