Наверняка есть VBA возможность сделать текст в ячейки большими буквами. Просто у меня код усложняется из-за этого. Я вынужден делать большую и неудобную многоходовочку, вставляю в две ячейки нужный мне текст из переменной На одной строке он должен быть мелким шрифтом написан, а на ячейку ниже CapsLook-ом
И делаю я это формулой =UPPER() потом я ее копирую и вставляю как значением, так как сама формула мне не нужна.
[vba]
Код
Private Sub CommandButton1_Click() Dim Peremen As String Dim i As Integer Peremen = "Самара"
Cells(1, 2).Value = Peremen Cells(2, 2).Value = Peremen Cells(2, 2).FormulaR1C1 = "=UPPER(R[-1]C)" 'делает шрифт БОЛЬШИМ Cells(2, 2).Copy Cells(2, 2).PasteSpecial Paste:=xlPasteValues End Sub
[/vba]
Добрый день ребят
Наверняка есть VBA возможность сделать текст в ячейки большими буквами. Просто у меня код усложняется из-за этого. Я вынужден делать большую и неудобную многоходовочку, вставляю в две ячейки нужный мне текст из переменной На одной строке он должен быть мелким шрифтом написан, а на ячейку ниже CapsLook-ом
И делаю я это формулой =UPPER() потом я ее копирую и вставляю как значением, так как сама формула мне не нужна.
[vba]
Код
Private Sub CommandButton1_Click() Dim Peremen As String Dim i As Integer Peremen = "Самара"
Cells(1, 2).Value = Peremen Cells(2, 2).Value = Peremen Cells(2, 2).FormulaR1C1 = "=UPPER(R[-1]C)" 'делает шрифт БОЛЬШИМ Cells(2, 2).Copy Cells(2, 2).PasteSpecial Paste:=xlPasteValues End Sub
Столкнулся по этому теме еще с одной проблемой. Когда я Использую StrConv и vbProperCase что бы оставить заглавные буквы. В слове Санкт-Петербург , буква "П", становится маленькая... Можно ли как то это исправить?
Можно было бы после символа "-", сразу ставить большую Букву. Но все усложняется тем, что не в каждом городе после "-" идет большая буква - "Ростов-на-Дону". А я работаю с определенной базой, и названия городов должны быть идентичны друг другу.
[vba]
Код
Private Sub CommandButton1_Click() Dim Peremen As String Dim i As Integer Peremen = "Санкт-Петербург"
Столкнулся по этому теме еще с одной проблемой. Когда я Использую StrConv и vbProperCase что бы оставить заглавные буквы. В слове Санкт-Петербург , буква "П", становится маленькая... Можно ли как то это исправить?
Можно было бы после символа "-", сразу ставить большую Букву. Но все усложняется тем, что не в каждом городе после "-" идет большая буква - "Ростов-на-Дону". А я работаю с определенной базой, и названия городов должны быть идентичны друг другу.
[vba]
Код
Private Sub CommandButton1_Click() Dim Peremen As String Dim i As Integer Peremen = "Санкт-Петербург"
А я работаю с определенной базой, и названия городов должны быть идентичны друг другу
Ну так у Вас уже есть база с правильными названиями? так сделайте отдельно список с правильными названиями и при помощи словаря меняйте все названия на правильные - это единственный 100-й способ. Либо писать процедуру проверки и замены таких неправильных кусков городов на правильные - но это много мороки и не 100-й вариант.
А я работаю с определенной базой, и названия городов должны быть идентичны друг другу
Ну так у Вас уже есть база с правильными названиями? так сделайте отдельно список с правильными названиями и при помощи словаря меняйте все названия на правильные - это единственный 100-й способ. Либо писать процедуру проверки и замены таких неправильных кусков городов на правильные - но это много мороки и не 100-й вариант.SLAVICK
Иногда все проще чем кажется с первого взгляда.
Сообщение отредактировал SLAVICK - Пятница, 25.03.2016, 11:11