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

Вход

Регистрация

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

 

= Мир MS Excel/Конвертация формул из формата =А1 в формат = R1C1 - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Конвертация формул из формата =А1 в формат = R1C1
Муля2010 Дата: Среда, 16.05.2012, 14:24 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

Добрый день!
Кто знает как автоматизировать переделку формул из =А1 в формат R1C1. Для дальнейшей вставки ее в макрос. Где то уже видел конвертацию при помощи макрорекодера,но не могу найти.
СПАСИБО!


С ув. Муля!
 
Ответить
СообщениеДобрый день!
Кто знает как автоматизировать переделку формул из =А1 в формат R1C1. Для дальнейшей вставки ее в макрос. Где то уже видел конвертацию при помощи макрорекодера,но не могу найти.
СПАСИБО!

Автор - Муля2010
Дата добавления - 16.05.2012 в 14:24
Serge_007 Дата: Четверг, 17.05.2012, 09:54 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Из встроенной справки по VBA:

This example converts a SUM formula that contains R1C1-style references to an equivalent formula that contains A1-style references, and then it displays the result.


[vba]
Code
inputFormula = "=SUM(R10C2:R15C2)"
MsgBox Application.ConvertFormula( _
      formula:=inputFormula, _
      fromReferenceStyle:=xlR1C1, _
      toReferenceStyle:=xlA1)
[/vba]


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеИз встроенной справки по VBA:

This example converts a SUM formula that contains R1C1-style references to an equivalent formula that contains A1-style references, and then it displays the result.


[vba]
Code
inputFormula = "=SUM(R10C2:R15C2)"
MsgBox Application.ConvertFormula( _
      formula:=inputFormula, _
      fromReferenceStyle:=xlR1C1, _
      toReferenceStyle:=xlA1)
[/vba]

Автор - Serge_007
Дата добавления - 17.05.2012 в 09:54
Муля2010 Дата: Четверг, 17.05.2012, 10:26 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

Serge_007,
Доброго дня!
Ваш пример преобразовывает формулу СУММЫ, которая содержит ссылки стиля R1C1-на эквиалентную формулу, которые содержат ссылки A1- стиля, и затем это отображает результат. А мне надо наоборот.
К примеру. Записываю в ячейку формулу =А1+А2, произвожу какие то действия (запускаю спецмакрос или макрорекодер) и получаю эту же формулу, но в стиле =R1C1+R2C1.


С ув. Муля!
 
Ответить
СообщениеSerge_007,
Доброго дня!
Ваш пример преобразовывает формулу СУММЫ, которая содержит ссылки стиля R1C1-на эквиалентную формулу, которые содержат ссылки A1- стиля, и затем это отображает результат. А мне надо наоборот.
К примеру. Записываю в ячейку формулу =А1+А2, произвожу какие то действия (запускаю спецмакрос или макрорекодер) и получаю эту же формулу, но в стиле =R1C1+R2C1.

Автор - Муля2010
Дата добавления - 17.05.2012 в 10:26
Муля2010 Дата: Четверг, 17.05.2012, 11:02 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

Вот, макрос кажется получился
Sub Макрос2()
With Application
.ReferenceStyle = xlR1C1
.EnableSound = False
.RollZoom = False
End With
End Sub
Работает. А вот какие клавиши нажимать если все это делать с помощью макрорекодера, вспомнить не могу.


С ув. Муля!
 
Ответить
СообщениеВот, макрос кажется получился
Sub Макрос2()
With Application
.ReferenceStyle = xlR1C1
.EnableSound = False
.RollZoom = False
End With
End Sub
Работает. А вот какие клавиши нажимать если все это делать с помощью макрорекодера, вспомнить не могу.

Автор - Муля2010
Дата добавления - 17.05.2012 в 11:02
Serge_007 Дата: Четверг, 17.05.2012, 11:54 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (Муля2010)
мне надо наоборот

Ну так поменяйте в коде местами стили


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Муля2010)
мне надо наоборот

Ну так поменяйте в коде местами стили

Автор - Serge_007
Дата добавления - 17.05.2012 в 11:54
Муля2010 Дата: Четверг, 17.05.2012, 12:52 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 290
Репутация: 12 ±
Замечаний: 0% ±

Serge_007, спасибо!
А вы заметили, что результат конвертации выводится не на лист, а в MsgBox? При чем, конвертирует только формулу, записаную в макрос.


С ув. Муля!
 
Ответить
СообщениеSerge_007, спасибо!
А вы заметили, что результат конвертации выводится не на лист, а в MsgBox? При чем, конвертирует только формулу, записаную в макрос.

Автор - Муля2010
Дата добавления - 17.05.2012 в 12:52
Serge_007 Дата: Четверг, 17.05.2012, 12:56 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (Муля2010)
вы заметили, что результат конвертации выводится не на лист, а в MsgBox?

Я не слепой


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Муля2010)
вы заметили, что результат конвертации выводится не на лист, а в MsgBox?

Я не слепой

Автор - Serge_007
Дата добавления - 17.05.2012 в 12:56
  • Страница 1 из 1
  • 1
Поиск:

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