Как скопировать часть текста в ячейке применив макрос?
Demon:D
Дата: Среда, 06.05.2015, 16:13 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
В ячейках A1:A10 есть дата и время в виде 01.04.2015 00:00 - 01:00 мне нужно скопировать дату и поместить в другие ячейки B1:B10 с помощью макроса можно сделать и как? У меня Excel 2003.
В ячейках A1:A10 есть дата и время в виде 01.04.2015 00:00 - 01:00 мне нужно скопировать дату и поместить в другие ячейки B1:B10 с помощью макроса можно сделать и как? У меня Excel 2003. Demon:D
Сообщение отредактировал Demon:D - Среда, 06.05.2015, 16:23
Ответить
Сообщение В ячейках A1:A10 есть дата и время в виде 01.04.2015 00:00 - 01:00 мне нужно скопировать дату и поместить в другие ячейки B1:B10 с помощью макроса можно сделать и как? У меня Excel 2003. Автор - Demon:D Дата добавления - 06.05.2015 в 16:13
nilem
Дата: Среда, 06.05.2015, 16:29 |
Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация:
563
±
Замечаний:
0% ±
Excel 2013, 2016
возможно, типа такого [vba]Код
Sub tt() With Range("B1:B10") .FormulaR1C1 = "=LEFT(RC[-1],10)" .Value = .Value End With End Sub
[/vba]
возможно, типа такого [vba]Код
Sub tt() With Range("B1:B10") .FormulaR1C1 = "=LEFT(RC[-1],10)" .Value = .Value End With End Sub
[/vba] nilem
Яндекс.Деньги 4100159601573
Ответить
Сообщение возможно, типа такого [vba]Код
Sub tt() With Range("B1:B10") .FormulaR1C1 = "=LEFT(RC[-1],10)" .Value = .Value End With End Sub
[/vba] Автор - nilem Дата добавления - 06.05.2015 в 16:29
Demon:D
Дата: Среда, 06.05.2015, 16:34 |
Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Спасибо получилось
Ответить
Сообщение Спасибо получилось Автор - Demon:D Дата добавления - 06.05.2015 в 16:34
МВТ
Дата: Среда, 06.05.2015, 22:14 |
Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация:
137
±
Замечаний:
0% ±
Excel 2007
nilem , извините, Вы вероятно описались: по идее [vba][/vba]
nilem , извините, Вы вероятно описались: по идее [vba][/vba]МВТ
Ответить
Сообщение nilem , извините, Вы вероятно описались: по идее [vba][/vba]Автор - МВТ Дата добавления - 06.05.2015 в 22:14
_Boroda_
Дата: Среда, 06.05.2015, 22:36 |
Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация:
6481
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
Михаил, а там без разницы - мы же вставляем значения (= .Value). Когда вставляешь значения формулой, то все равно получается значение. Если без Вича (просто для понятности, с Вичем лучше), то можно так (кстати, чтобы дата была датой, добавил еще --, ну и формат еще): [vba]Код
Range("B1:B10").FormulaR1C1 = "=--LEFT(RC[-1],10)" Range("B1:B10") = Range("B1:B10").Value Range("B1:B10").NumberFormat = "DD.MM.YYYY"
[/vba]
Михаил, а там без разницы - мы же вставляем значения (= .Value). Когда вставляешь значения формулой, то все равно получается значение. Если без Вича (просто для понятности, с Вичем лучше), то можно так (кстати, чтобы дата была датой, добавил еще --, ну и формат еще): [vba]Код
Range("B1:B10").FormulaR1C1 = "=--LEFT(RC[-1],10)" Range("B1:B10") = Range("B1:B10").Value Range("B1:B10").NumberFormat = "DD.MM.YYYY"
[/vba] _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Михаил, а там без разницы - мы же вставляем значения (= .Value). Когда вставляешь значения формулой, то все равно получается значение. Если без Вича (просто для понятности, с Вичем лучше), то можно так (кстати, чтобы дата была датой, добавил еще --, ну и формат еще): [vba]Код
Range("B1:B10").FormulaR1C1 = "=--LEFT(RC[-1],10)" Range("B1:B10") = Range("B1:B10").Value Range("B1:B10").NumberFormat = "DD.MM.YYYY"
[/vba] Автор - _Boroda_ Дата добавления - 06.05.2015 в 22:36
RAN
Дата: Среда, 06.05.2015, 22:39 |
Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
[vba]Код
With Range("B1:B10") .Value = "=LEFT(RC[-1],10)" End With
[/vba]
[vba]Код
With Range("B1:B10") .Value = "=LEFT(RC[-1],10)" End With
[/vba] RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение [vba]Код
With Range("B1:B10") .Value = "=LEFT(RC[-1],10)" End With
[/vba] Автор - RAN Дата добавления - 06.05.2015 в 22:39
_Boroda_
Дата: Среда, 06.05.2015, 22:50 |
Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация:
6481
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
With Range("B1:B10") .Value = "=LEFT(RC[-1],10)" End With
Андрей, а зачем тогда Вич, если подвичное выражение только один раз используется? И вообще - так формулы вставит.
With Range("B1:B10") .Value = "=LEFT(RC[-1],10)" End With
Андрей, а зачем тогда Вич, если подвичное выражение только один раз используется? И вообще - так формулы вставит._Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение With Range("B1:B10") .Value = "=LEFT(RC[-1],10)" End With
Андрей, а зачем тогда Вич, если подвичное выражение только один раз используется? И вообще - так формулы вставит.Автор - _Boroda_ Дата добавления - 06.05.2015 в 22:50
Demon:D
Дата: Четверг, 07.05.2015, 07:51 |
Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Ребят а где в формуле строка что нужно брать именно А1:А10 тыкните пожалуйста!
Ребят а где в формуле строка что нужно брать именно А1:А10 тыкните пожалуйста! Demon:D
Ответить
Сообщение Ребят а где в формуле строка что нужно брать именно А1:А10 тыкните пожалуйста! Автор - Demon:D Дата добавления - 07.05.2015 в 07:51
AndreTM
Дата: Четверг, 07.05.2015, 08:16 |
Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация:
500
±
Замечаний:
0% ±
2003 & 2010
где в формуле строка что нужно брать именно А1:А10
RC[-1]
где в формуле строка что нужно брать именно А1:А10
RC[-1] AndreTM
Skype: andre.tm.007 Donate: Q iwi: 9517375010
Ответить
Сообщение где в формуле строка что нужно брать именно А1:А10
RC[-1] Автор - AndreTM Дата добавления - 07.05.2015 в 08:16
nilem
Дата: Четверг, 07.05.2015, 08:19 |
Сообщение № 10
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация:
563
±
Замечаний:
0% ±
Excel 2013, 2016
Относительно столбца В (With Range("B1:B10") ) RC[-1] - означает на 1 столбец левее (C[-1] ), т.е. столбец А
Относительно столбца В (With Range("B1:B10") ) RC[-1] - означает на 1 столбец левее (C[-1] ), т.е. столбец А nilem
Яндекс.Деньги 4100159601573
Ответить
Сообщение Относительно столбца В (With Range("B1:B10") ) RC[-1] - означает на 1 столбец левее (C[-1] ), т.е. столбец А Автор - nilem Дата добавления - 07.05.2015 в 08:19
Demon:D
Дата: Четверг, 07.05.2015, 08:41 |
Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
А если придется указать А20:А30 тоже самое будет?
А если придется указать А20:А30 тоже самое будет? Demon:D
Ответить
Сообщение А если придется указать А20:А30 тоже самое будет? Автор - Demon:D Дата добавления - 07.05.2015 в 08:41
nilem
Дата: Четверг, 07.05.2015, 13:51 |
Сообщение № 12
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация:
563
±
Замечаний:
0% ±
Excel 2013, 2016
почти [vba]Код
Sub ttt() With Range("B20:B30") .FormulaR1C1 = "=LEFT(RC[-1],10)" .Value = .Value End With End Sub
[/vba]
почти [vba]Код
Sub ttt() With Range("B20:B30") .FormulaR1C1 = "=LEFT(RC[-1],10)" .Value = .Value End With End Sub
[/vba] nilem
Яндекс.Деньги 4100159601573
Ответить
Сообщение почти [vba]Код
Sub ttt() With Range("B20:B30") .FormulaR1C1 = "=LEFT(RC[-1],10)" .Value = .Value End With End Sub
[/vba] Автор - nilem Дата добавления - 07.05.2015 в 13:51
Demon:D
Дата: Четверг, 07.05.2015, 15:40 |
Сообщение № 13
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Ребят, а если тоже самое только с книги1 лист1 в книгу2 лист1 не могу найти инфу как код примерно будет выглядеть? Ячейку получается скопировать с данными, а чтоб половину с датой не как он мне формулу копирует а не дату.
Ребят, а если тоже самое только с книги1 лист1 в книгу2 лист1 не могу найти инфу как код примерно будет выглядеть? Ячейку получается скопировать с данными, а чтоб половину с датой не как он мне формулу копирует а не дату. Demon:D
Ответить
Сообщение Ребят, а если тоже самое только с книги1 лист1 в книгу2 лист1 не могу найти инфу как код примерно будет выглядеть? Ячейку получается скопировать с данными, а чтоб половину с датой не как он мне формулу копирует а не дату. Автор - Demon:D Дата добавления - 07.05.2015 в 15:40
_Boroda_
Дата: Четверг, 07.05.2015, 15:57 |
Сообщение № 14
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация:
6481
±
Замечаний:
0% ±
2003; 2007; 2010; 2013 RUS
Код запускается из Книги2 с листа 1. Вставляет в столбец В Книга 1 должна быть открыта [vba]Код
Sub ttt() With Range("B20:B30") .FormulaR1C1 = "=--LEFT([Книга1]Лист1!RC[-1],10)" .Value = .Value .NumberFormat = "DD.MM.YYYY" End With End Sub
[/vba] Если книга 1 закрыта, то строка с формулой [vba]Код
.FormulaR1C1 = "='C:\...\...\[Книга1.xlsx]RC[-1]"
[/vba]
Код запускается из Книги2 с листа 1. Вставляет в столбец В Книга 1 должна быть открыта [vba]Код
Sub ttt() With Range("B20:B30") .FormulaR1C1 = "=--LEFT([Книга1]Лист1!RC[-1],10)" .Value = .Value .NumberFormat = "DD.MM.YYYY" End With End Sub
[/vba] Если книга 1 закрыта, то строка с формулой [vba]Код
.FormulaR1C1 = "='C:\...\...\[Книга1.xlsx]RC[-1]"
[/vba] _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Код запускается из Книги2 с листа 1. Вставляет в столбец В Книга 1 должна быть открыта [vba]Код
Sub ttt() With Range("B20:B30") .FormulaR1C1 = "=--LEFT([Книга1]Лист1!RC[-1],10)" .Value = .Value .NumberFormat = "DD.MM.YYYY" End With End Sub
[/vba] Если книга 1 закрыта, то строка с формулой [vba]Код
.FormulaR1C1 = "='C:\...\...\[Книга1.xlsx]RC[-1]"
[/vba] Автор - _Boroda_ Дата добавления - 07.05.2015 в 15:57
Demon:D
Дата: Четверг, 07.05.2015, 16:36 |
Сообщение № 15
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Excel 2003
Открываю книгу1 лист1 пустой запускаю макрос на открывание книги2 лист1 'Открываем файл с которого нужно скопировать данные Workbooks.Open Filename:="D:\ книги2.xls" И как мне в ячейках А1:A2 книги2 лист1 от туда перенести только дату (01.04.2015 00:00 - 01:00)? В книгу1 лист1 в ячейки А1:A2. 'Закрываем книгу откуда мы скопировали данные Workbooks("книга2.xls").Close False. С помощью массива можно реализовать или предложите свой вариант.
Открываю книгу1 лист1 пустой запускаю макрос на открывание книги2 лист1 'Открываем файл с которого нужно скопировать данные Workbooks.Open Filename:="D:\ книги2.xls" И как мне в ячейках А1:A2 книги2 лист1 от туда перенести только дату (01.04.2015 00:00 - 01:00)? В книгу1 лист1 в ячейки А1:A2. 'Закрываем книгу откуда мы скопировали данные Workbooks("книга2.xls").Close False. С помощью массива можно реализовать или предложите свой вариант. Demon:D
Ответить
Сообщение Открываю книгу1 лист1 пустой запускаю макрос на открывание книги2 лист1 'Открываем файл с которого нужно скопировать данные Workbooks.Open Filename:="D:\ книги2.xls" И как мне в ячейках А1:A2 книги2 лист1 от туда перенести только дату (01.04.2015 00:00 - 01:00)? В книгу1 лист1 в ячейки А1:A2. 'Закрываем книгу откуда мы скопировали данные Workbooks("книга2.xls").Close False. С помощью массива можно реализовать или предложите свой вариант. Автор - Demon:D Дата добавления - 07.05.2015 в 16:36