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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос на преобразование в число. - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос на преобразование в число.
Макрос на преобразование в число.
Mr_Vit Дата: Понедельник, 25.04.2011, 14:32 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Добрый день!
Заранее извиняйте если было уже подобное, поиском не нашёл.
Не получается сделать следующее:
Создаю макрос - выделяю столбцы, далее жму на появившийся ромбик(преобразовать текст в число)
сохраняюсь, выполняю, макрос не работает?.
 
Ответить
СообщениеДобрый день!
Заранее извиняйте если было уже подобное, поиском не нашёл.
Не получается сделать следующее:
Создаю макрос - выделяю столбцы, далее жму на появившийся ромбик(преобразовать текст в число)
сохраняюсь, выполняю, макрос не работает?.
Автор - Mr_Vit
Дата добавления - 25.04.2011 в 14:32
_Boroda_ Дата: Понедельник, 25.04.2011, 14:58 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16885
Репутация: 6599 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Попробуйте так
[vba]
Код
Sub ttt2()
       Range("A1").SpecialCells(xlLastCell).Offset(,1).Copy
       Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
       Application.CutCopyMode = False
End Sub
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПопробуйте так
[vba]
Код
Sub ttt2()
       Range("A1").SpecialCells(xlLastCell).Offset(,1).Copy
       Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
       Application.CutCopyMode = False
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 25.04.2011 в 14:58
Alex_ST Дата: Понедельник, 25.04.2011, 20:54 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3219
Репутация: 622 ±
Замечаний: 0% ±

2003
_Boroda_,
Саня, ты телепат что ли?
Я вот несколько раз прочёл пост Mr_Vit, а так и не понял, какой макрос он выполняет, какой ромбик нажимает, что не работает...
А ты прямо сразу готовое решение даёшь! biggrin


С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Вторник, 26.04.2011, 08:35
 
Ответить
Сообщение_Boroda_,
Саня, ты телепат что ли?
Я вот несколько раз прочёл пост Mr_Vit, а так и не понял, какой макрос он выполняет, какой ромбик нажимает, что не работает...
А ты прямо сразу готовое решение даёшь! biggrin
Автор - Alex_ST
Дата добавления - 25.04.2011 в 20:54
Mr_Vit Дата: Вторник, 26.04.2011, 15:08 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Да он телепат!
всё заработало,
 
Ответить
СообщениеДа он телепат!
всё заработало,
Автор - Mr_Vit
Дата добавления - 26.04.2011 в 15:08
KuklP Дата: Среда, 27.04.2011, 16:00 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Можно проще:
[vba]
Код
Sub KuklP(): Selection.TextToColumns: End Sub
[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеМожно проще:
[vba]
Код
Sub KuklP(): Selection.TextToColumns: End Sub
[/vba]
Автор - KuklP
Дата добавления - 27.04.2011 в 16:00
KuklP Дата: Четверг, 05.05.2011, 09:57 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Quote (_Boroda_)
выделяю столбцы

Да Саш, невнимателен dry Мне на планете попадался примерчик, где ни твой, ни мой способ не работали. Только оба последовательно. Автор писал, что из 1С, но до этого у меня с выборками из 1С таких проблем не было.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
Quote (_Boroda_)
выделяю столбцы

Да Саш, невнимателен dry Мне на планете попадался примерчик, где ни твой, ни мой способ не работали. Только оба последовательно. Автор писал, что из 1С, но до этого у меня с выборками из 1С таких проблем не было.
Автор - KuklP
Дата добавления - 05.05.2011 в 09:57
KuklP Дата: Четверг, 05.05.2011, 20:59 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Да я уж потерял его давно. А искать на планете... Легче иголку в стоге. biggrin

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеДа я уж потерял его давно. А искать на планете... Легче иголку в стоге. biggrin
Автор - KuklP
Дата добавления - 05.05.2011 в 20:59
RAN Дата: Пятница, 06.05.2011, 00:40 | Сообщение № 8
Группа: Гости
А искать на планете... Легче иголку в стоге.

Вот эту бы надпись, да на планету, над окном поиска!

 
Ответить
СообщениеА искать на планете... Легче иголку в стоге.

Вот эту бы надпись, да на планету, над окном поиска!

Автор - RAN
Дата добавления - 06.05.2011 в 00:40
Silenser1588 Дата: Пятница, 28.09.2012, 15:34 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Quote (_Boroda_)
Попробуйте так
Code
Sub ttt2()
Range("A1").SpecialCells(xlLastCell).Offset(,1).Copy
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
Application.CutCopyMode = False
End Sub


у меня ничего не происходит sad я уже и на "1" умножал и что только не делал...
 
Ответить
Сообщение
Quote (_Boroda_)
Попробуйте так
Code
Sub ttt2()
Range("A1").SpecialCells(xlLastCell).Offset(,1).Copy
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
Application.CutCopyMode = False
End Sub


у меня ничего не происходит sad я уже и на "1" умножал и что только не делал...
Автор - Silenser1588
Дата добавления - 28.09.2012 в 15:34
Silenser1588 Дата: Пятница, 28.09.2012, 15:50 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

делаю руками - всё хорошо. макрос - не работает. от чего это может зависить?
 
Ответить
Сообщениеделаю руками - всё хорошо. макрос - не работает. от чего это может зависить?
Автор - Silenser1588
Дата добавления - 28.09.2012 в 15:50
KuklP Дата: Пятница, 28.09.2012, 16:07 | Сообщение № 11
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Давайте пример, где у Вас не работает.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеДавайте пример, где у Вас не работает.
Автор - KuklP
Дата добавления - 28.09.2012 в 16:07
Silenser1588 Дата: Пятница, 28.09.2012, 16:17 | Сообщение № 12
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Макрос_1
К сообщению приложен файл: 6714288.xls (71.5 Kb)
 
Ответить
СообщениеМакрос_1
Автор - Silenser1588
Дата добавления - 28.09.2012 в 16:17
KuklP Дата: Пятница, 28.09.2012, 16:22 | Сообщение № 13
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Применяйте макрос от Среда, 27.04.2011, 16:00. Проверил - работает.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеПрименяйте макрос от Среда, 27.04.2011, 16:00. Проверил - работает.
Автор - KuklP
Дата добавления - 28.09.2012 в 16:22
Silenser1588 Дата: Пятница, 28.09.2012, 16:37 | Сообщение № 14
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

не могли бы Вы написать пример, не совсем пойму... Спасибо
 
Ответить
Сообщениене могли бы Вы написать пример, не совсем пойму... Спасибо
Автор - Silenser1588
Дата добавления - 28.09.2012 в 16:37
KuklP Дата: Пятница, 28.09.2012, 16:40 | Сообщение № 15
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Я его уже написал в Сообщение № 5. Выделяете нужный столбец и запускаете макрос.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеЯ его уже написал в Сообщение № 5. Выделяете нужный столбец и запускаете макрос.
Автор - KuklP
Дата добавления - 28.09.2012 в 16:40
KuklP Дата: Пятница, 28.09.2012, 16:45 | Сообщение № 16
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Вот еще:
[vba]
Code
Sub www()
     Cells.Replace ".", ".", xlPart
     Cells.Replace ",", ".", xlPart
End Sub
[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеВот еще:
[vba]
Code
Sub www()
     Cells.Replace ".", ".", xlPart
     Cells.Replace ",", ".", xlPart
End Sub
[/vba]
Автор - KuklP
Дата добавления - 28.09.2012 в 16:45
Silenser1588 Дата: Пятница, 28.09.2012, 16:56 | Сообщение № 17
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

ЭТО НЕЗАБЫВАЕМО! smile
 
Ответить
СообщениеЭТО НЕЗАБЫВАЕМО! smile
Автор - Silenser1588
Дата добавления - 28.09.2012 в 16:56
Silenser1588 Дата: Пятница, 28.09.2012, 17:13 | Сообщение № 18
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

я извиняюсь, а что конкретно делает последний макрос, в двух словах, просто интересно?
 
Ответить
Сообщениея извиняюсь, а что конкретно делает последний макрос, в двух словах, просто интересно?
Автор - Silenser1588
Дата добавления - 28.09.2012 в 17:13
KuklP Дата: Суббота, 29.09.2012, 16:18 | Сообщение № 19
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
В двух словах, меняет точки и запятые на системный разделитель. Эксель дальше сам конвертирует строку в число. Поскольку в кодах у Вас знаков препинания нет, он оставляет их нетронутыми.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеВ двух словах, меняет точки и запятые на системный разделитель. Эксель дальше сам конвертирует строку в число. Поскольку в кодах у Вас знаков препинания нет, он оставляет их нетронутыми.
Автор - KuklP
Дата добавления - 29.09.2012 в 16:18
Silenser1588 Дата: Вторник, 02.10.2012, 11:24 | Сообщение № 20
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

не знаю в какую тему написать... выбираю н-ое кол-во ячеек, курсор находится на "первой"(белая ячейка), нажимаю ШИФТ+ЭНТЕР -> курсор переходит на крайнюю ячейку(из выделенных). так вот. как этот ШИФТ+ЕНТЕР в макросе написать?
 
Ответить
Сообщениене знаю в какую тему написать... выбираю н-ое кол-во ячеек, курсор находится на "первой"(белая ячейка), нажимаю ШИФТ+ЭНТЕР -> курсор переходит на крайнюю ячейку(из выделенных). так вот. как этот ШИФТ+ЕНТЕР в макросе написать?
Автор - Silenser1588
Дата добавления - 02.10.2012 в 11:24
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос на преобразование в число.
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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