Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Первая буква в фамилии с Заглавной буквы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Первая буква в фамилии с Заглавной буквы (Макросы/Sub)
Первая буква в фамилии с Заглавной буквы
DrMini Дата: Пятница, 08.07.2022, 14:49 | Сообщение № 1
Группа: Проверенные
Ранг: Старожил
Сообщений: 1609
Репутация: 195 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Доброго времени суток форумчане и гости форума.
Помогите пожалуйста сделать так, что бы в дапазоне E2:F700 все слова при вводе писались бы с заглавной буквы.
К сообщению приложен файл: 5648844.xlsm (40.9 Kb)
 
Ответить
СообщениеДоброго времени суток форумчане и гости форума.
Помогите пожалуйста сделать так, что бы в дапазоне E2:F700 все слова при вводе писались бы с заглавной буквы.

Автор - DrMini
Дата добавления - 08.07.2022 в 14:49
Serge_007 Дата: Пятница, 08.07.2022, 15:34 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Здравствуйте

См. вложение
К сообщению приложен файл: 9333667.xls (82.5 Kb)


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте

См. вложение

Автор - Serge_007
Дата добавления - 08.07.2022 в 15:34
_Boroda_ Дата: Пятница, 08.07.2022, 15:45 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Файл приложить не могу. И Сергея файл тоже скачать не могу - макросы там

Код в модуль листа
[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]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеФайл приложить не могу. И Сергея файл тоже скачать не могу - макросы там

Код в модуль листа
[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]

Автор - _Boroda_
Дата добавления - 08.07.2022 в 15:45
DrMini Дата: Пятница, 08.07.2022, 15:49 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 1609
Репутация: 195 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
См. вложение

Макрос работает но во всём диапазоне листа. Так не надо.
 
Ответить
Сообщение
См. вложение

Макрос работает но во всём диапазоне листа. Так не надо.

Автор - DrMini
Дата добавления - 08.07.2022 в 15:49
DrMini Дата: Пятница, 08.07.2022, 15:51 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 1609
Репутация: 195 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Код в модуль листа

Добавил модуль и вписал код. Что-то не работает.
 
Ответить
Сообщение
Код в модуль листа

Добавил модуль и вписал код. Что-то не работает.

Автор - DrMini
Дата добавления - 08.07.2022 в 15:51
_Boroda_ Дата: Пятница, 08.07.2022, 15:54 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Добавил модуль

Нет. Я ж писал - в модуль листа
Правой мышой на ярлык листа - исходный код (или посмотреть код, или что-то еще в этом роде) - и вот туда вставляете


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Добавил модуль

Нет. Я ж писал - в модуль листа
Правой мышой на ярлык листа - исходный код (или посмотреть код, или что-то еще в этом роде) - и вот туда вставляете

Автор - _Boroda_
Дата добавления - 08.07.2022 в 15:54
DrMini Дата: Пятница, 08.07.2022, 15:58 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 1609
Репутация: 195 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
вот туда вставляете

Там у меня уже есть код:
[vba]
Код
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
[/vba]

Вы писали.
Может можно их объединить?
 
Ответить
Сообщение
вот туда вставляете

Там у меня уже есть код:
[vba]
Код
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
[/vba]

Вы писали.
Может можно их объединить?

Автор - DrMini
Дата добавления - 08.07.2022 в 15:58
_Boroda_ Дата: Пятница, 08.07.2022, 16:06 | Сообщение № 8
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Нет. Это разные события. Просто вставьте ниже или выше


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНет. Это разные события. Просто вставьте ниже или выше

Автор - _Boroda_
Дата добавления - 08.07.2022 в 16:06
DrMini Дата: Пятница, 08.07.2022, 16:10 | Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 1609
Репутация: 195 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
СПАСИБО Александр.
Всё работает, как надо.
 
Ответить
СообщениеСПАСИБО Александр.
Всё работает, как надо.

Автор - DrMini
Дата добавления - 08.07.2022 в 16:10
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Первая буква в фамилии с Заглавной буквы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!