Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

Как написать текст с большой буквы

Автор recidivist, 05.02.2012, 14:37

« назад - далее »

recidivist

Есть макрокс который числа пишит текстом. Нужно сделать так чтобы он начинал писать с большой буквы. Помогите пожалуйста или макрокс исправить или еще какую формулу дописать

Wasilic

В конце функции, (если не ошибаюсь ибо работу ее не отслеживал.
В формате экселя надо выкладывать),
вставить строку (выделено синим).
.......
End Select
Mid$(txt, 1, 1) = UCase$(Left$(txt, 1))
Число_в_текст = txt
End Function

Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

RAN

Function qqww1(s)
qqww1 = UCase(Left$(s, 1)) & Right$(s, Len(s) - 1)
End Function

Function qqww2(s$)
qqww2 = UCase(Left$(s, 1)) & Mid$(s, 2, Len(s) - 1)
End Function

Function qqww3(s$)
qqww3 = UCase(Mid$(s, 1, 1)) & Mid$(s, 2, Len(s) - 1)
End Function

Function qqww4(s$)
qqww4 = UCase(Mid$(s, 1, 1)) & Right$(s, Len(s) - 1)
End Function

recidivist

Цитата: Wasilic от 05.02.2012, 16:57
В конце функции, (если не ошибаюсь ибо работу ее не отслеживал.
В формате экселя надо выкладывать),
вставить строку (выделено синим).
.......
End Select
Mid$(txt, 1, 1) = UCase$(Left$(txt, 1))
Число_в_текст = txt
End Function


Сделал так как вы писали не получается пишит #ЗНАЧ

Wasilic

Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

recidivist

Ну и что там написано??? Я прикрепил файл  число в текст.rar (1.44 Кб - загружено 3 раз.)

MCH

Цитата: recidivist от 06.02.2012, 00:15
Ну и что там написано??? Я прикрепил файл  число в текст.rar (1.44 Кб - загружено 3 раз.)
Нужно было приложить пример в виде xls файла

Ваша функция выдает #ЗНАЧ, если не указан второй аргумент (ИСТИНА/ЛОЖЬ или 1/0)

Функция выдает не корректный результат:
Один белорусских рублей, Два/Три/Четыре белорусских рублей

кроме того консрукцию:
Edinicy(0) = ""
Edinicy(1) = "один "
Edinicy(2) = "два "
Edinicy(3) = "три "
Edinicy(4) = "четыре "
Edinicy(5) = "пять "
...

можно было заменить на

Dim Edinicy()
...
Edinicy = Array("", "один ", "два ", "три ", "четыре ", ...)

recidivist

Свем большое спасибо за помощь!!!!