VBA

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VBA В одномерный массив записать данные из диапазона ячеек В одномерный массив записать данные из диапазона ячеек, заключенных между двумя числами, целая часть которых заканчивается цифрой 3 (если второго числа нет, то выбрать все ячейки до конца столбца), и отсортировать его по возрастанию. Полученный массив записать во второй столбец. Найти среднеарифметическое значение элементов массива и записать его в ячейку С1. Пример кода: Sub Массив() ' В... https://www.cyberforum.ru/ vba/ thread2367684.html	Транслитерация кириллицы в латиницу VBA Добрый вечер. Есть процедура которая транслитерирует текст с кириллицы на латиницу, по заданному мной алфавиту. Также происходит замена символов. Все отрабатывается отлично, но нужна некая доработка, которую не знаю как реализовать. Выполняя замену с RUS на SWT или наоборот, нужно добавить условие, если в тексте встречается слово в апострофах 'BANK', то это слово не должно...
VBA Рекурсивная функция не возвращает значение https://www.cyberforum.ru/ vba/ thread2367383.html Добрый день. Полтора часа пытаюсь решить простейшую задачу. Почему-то рекурсивная функция в Excel VBA не возвращает значение. Private Sub CommandButton2_Click() Dim a As Double Dim yi As Double Dim eps As Double a = CDbl(TextBox1.Text) yi = a eps = CDbl(TextBox2.Text) yi = rec(a, yi, eps)	VBA Разработать Windows-приложение "Время" Разработать Windows-приложение для работы со следующим объектом (реализовать и протестировать все заявленные действия; предусмотреть ввод данных и генерацию случайных корректных данных) «Время». Три данных определяют: часы, минуты, секунды. Действия: а) вывод – формат вывода ЧЧ:ММ:СС; б) сложение (сложить два времени – получить третье время); в) вычитание (вычесть k... https://www.cyberforum.ru/ vba/ thread2367260.html
VBA Ускорение некоторых частей старых макросов Всем привет. Появилось свободное время решил ускорить выполнение некоторых частей старых макросов, но как это сделать :wall: вот прошу совета как сделать лучше: 1.Большая таблица в последнем столбце содержит значения 0 или 1. Всё строки, что со значением 1 надо удалить. сейчас делаю перебором for if занимает значительное время. 2. Как сделать быструю 1,2,3,...нумерацию в столбик на месте...	VBA Получить десятое слово из документа Word Приветствую всех на форуме. Подскажите, как получить десятое слово из документа Word? Не каждое десятое, а просто десятое. Заранее спасибо. https://www.cyberforum.ru/ vba/ thread2367226.html
VBA Как запускать макросы на одной книге - из другой книги https://www.cyberforum.ru/ vba/ thread2366979.html Доброго вечера всем. На листе3 книги 1.xls - стоят три кнопки - на них нацеплены три простых макроса. Но вот если эти три кнопки - перенести на другую книгу 2.xls - то они уже работать не будут - хотя там вроде макросы ссылаются на книгу 1.xls. Подскажите - как запускать эти три простые макроса - щелкая по кнопкам не в книге 1.xls, а в книге 2.xls ? То есть при щелчке на кнопку - на листе...	Задачи Калькулятор и подсчет четных чисел VBA 1.Создать в редакторе VBA форму, подписать её "Калькулятор". Добавить на форму три текстовых поля с подписями: "Число 1", "Число 2", "Сумма" и кнопку. По нажатию на кнопку в поле "Сумма" должна выводиться сумма чисел, введенных в поля "Число 1" и "Число 2". 2.Написать программу, которая вводит массив из n случайных чисел (n задаёт пользователь) в диапазоне от -100 до 100, после чего...
VBA Пакетное исправление орфографии https://www.cyberforum.ru/ vba/ thread2366937.html Возникла у меня следующая задача, подскажите, пожалуйста, возможно, ее кто-то уже решал или легко решит. Есть большое количество распознанных дореволюционных книг с однотипными несоответствиями современной орфографии. Самое распространенное: --символ "ѣ" надо заменить на "е", --"і" заменить на "и", -- "ъ" в конце слова (то есть с последующим пробелом) удалить (или заменить просто...	VBA Создание пользовательской функций, в VBA, которая позволяет вычислить переменную https://www.cyberforum.ru/ vba/ thread2366825.html Плез, можете создать пользовательскую функцию которая вычисляет переменную T
VBA Конвертация текста в UTF-8 В свое время для одной задачи нашел конвертор текста в UTF-8, позже доработал его под новый Excel Но вот при обновлении ПК пользователей на Win64 он совсем перестал работать и найденный в интернете вариант LongLong не помог Подскажите пжл как доработать или вообще упросить задачу по перекодированию строки в UTF-8? Private Function EncodeUTF8(strSrc As String) As String Dim strDst...	VBA Замена слова в ячейке или запрет его выбора Прошу помощи знатоков VBA. Есть условие, что если в 67 или 79 ячейки "Да", то в 89 ячейку никак не встало слово "Хорошее", либо запретить ставить это слово, либо заменить на "-". Нужно решение макросом одним из вариантов. https://www.cyberforum.ru/ vba/ thread2366672.html

Burk

1846 / 1161 / 354

Регистрация: 11.07.2014

Сообщений: 4,102

10.12.2018, 05:40

Excel

Замена запятой на точку - VBA - Ответ 13142869

10.12.2018, 05:40. Показов 23264. Ответов 4

Метки (Все метки)

Ответ

A_Qz,

Сообщение от A_Qz

Excel разделитель - запятая, то для того, чтобы была поставлена точка, ячейку обязательно предварительно нужно перевести в текстовый формат:

Так надо поставить разделитель - точку и всё работает, привожу макросы, на которых проверял

Visual Basic

Sub From()
'Dim sB As String
        sB = Application.ActiveWorkbook.ActiveSheet.Cells(1, 1).Value
        If sB = "" Or sB = " " Then sB = "0"
        sB = Replace(sB, ",", ".", , , 1)
        Worksheets(1).Cells(1, 1) = Val(sB)
End Sub
 
Sub From2()
        sB = Str(Application.ActiveWorkbook.ActiveSheet.Cells(1, 1).Value)
        If sB = "" Or sB = " " Then sB = "0"
        sB = Replace(sB, ".", ",", , , 1)
        Application.ActiveWorkbook.Worksheets(1).Cells(1, 1) = Val(sB)
End Sub

Добавлено через 24 минуты
A_Qz, что-то ошибся (точка на запятую), плохо проверил, а вот так вроде работает

Visual Basic

Sub From2()
        Dim sB As String
        sB = Application.ActiveWorkbook.ActiveSheet.Cells(1, 1).Value
        If sB = "" Or sB = " " Then sB = "0"
        sB = Replace(sB, ".", ",", , , 1)
        Application.ActiveWorkbook.Worksheets(1).Cells(1, 1) = sB
End Sub

Вернуться к обсуждению:
Замена запятой на точку VBA

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

10.12.2018, 05:40

Готовые ответы и решения:

Замена запятой на точку
Здравствуйте! Есть такой файлик. В нем мне надо перемножить два столбика, но проблема в том что вба...

Замена запятой на точку
<script type="text/javascript"> function calculate() { var price = 0; var...

Edit замена запятой на точку
Всем доброго дня! Пишу обработчик события Keypress, что-то типа маски ввода даты. Варианты с...

Замена запятой на точку в PascalABC.NET
Программа выдаёт ошибку, если в программе при вводе числа стоит запятая в строке readln(l) и...

	10.12.2018, 05:40

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

10.12.2018, 05:40

Помогаю со студенческими работами здесь

Замена запятой в дроби на точку (replace)
Помогите, пожалуйста, с кодом. У меня есть numericUpDownModel. Вот мой код: //Model ...

Замена запятой на точку PHP AJAX JS
Помогите поставить замену запятой на точку вот здесь, при вводе количества. С точкой всё ок. С...

Замена двоеточий в строке на точку с запятой
CОставить программу на языке с# которая выполняет ввод строки с клавиатуры и заменяет двоеточия в...

Замена запятой на точку при копировании в текстовое поле?
Всем доброго дня! Есть программка которая считает бух. суммы автоматом, при копировании суммы...

Наверх