Страницы: 1
RSS
Сконвертировать формулу R1C1 в вид A1 макросом?
 
Добрый день!  
 
Есть формула в ячейке B2 вида R1C1 равная  =RC[-1]+R[-1]C+R2C3, можно ли в макросе её как-то сконвертировать в вид =A2+B1+$C$2?
Пока вижу только один вариант записать её в ячейку как FormulaR1C1, а считать как FormulaLocal.  
 
Может можно как-то проще?    
 
Конвертирую, потому что когда я разбиваю формулу R1C1 по составляющим.    
То не могу использовать так: txt = Range(RC[-1]).value
Работать надо не 12 часов, а головой.
 
With Application  
           .ReferenceStyle = xlA1  
           Debug.Print [a1].Formula
           .ReferenceStyle = xlR1C1  
   End With
Живи и дай жить..
 
наверное, у меня неправильные эксели - и дома, и на работе.  
Application.ConvertFormula в них не работает.  
 
или, что гораздо более вероятно, я тупо не понимаю, как его использовать.  
 
но, когда я пишу? к примеру,  
msgbox application.convertformula("=RC[-1]+R[-1]C+R2C3", xlr1c1, xla1, [b2])
 
то последний аргумент во внимание не принимается - и относительные ссылки в формуле транслируются не от него, а от активной ячейки на активном листе.  
 
вот :(
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
ikki, у Вас не хватает запятой:  
 
Sub Test2()  
   MsgBox Application.ConvertFormula("=RC[-1]+R[-1]C+R2C3", xlR1C1, xlA1)
   MsgBox Application.ConvertFormula("=RC[-1]+R[-1]C+R2C3", xlR1C1, xlA1, , [b2])
End Sub
 
я в шоке :(  
 
у меня масса замечательных недостатков - я плохо знаю английский, и мог недопонять справку, я (часто) нетерпелив, я (всегда) чрезвычайно ленив,..  
 
..но ТАКОЙ тупости я от себя не ждал!!! и, несмотря на то, что познавать себя - это достойное и интересное занятие, я всё-таки почему-то опечален.  
 
 
спасибо тебе, секретный сотрудник Планеты.  
спасибо, добрый человек.  
ты спас мой моск и вернул веру в будущее.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
:-)  
Предлагаю Планетянам, кто НЕ("у меня масса замечательных недостатков - я плохо знаю английский(1),  
и мог недопонять справку(2), я (часто) нетерпелив(3), я (всегда) чрезвычайно ленив(4)"),  
заполнить анкету:  
A1:A4=ЕСЛИ(ЕОШ(ВЫБОР(A1;1;2;3;4));"";"НЕТ")
 
А кто знает как наборот, из А1 сделать В формате R1C1
 
А поменять местами xlR1C1 и xlA1?
 
{quote}{login=}{date=15.05.2012 08:20}{thema=}{post}А кто знает как наборот, из А1 сделать В формате R1C1{/post}{/quote}  
я знаю
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
{quote}{login=ikki}{date=15.05.2012 06:32}{thema=}{post}я в шоке :(  
у меня масса замечательных недостатков - я плохо знаю английский, и мог недопонять справку, я (часто) нетерпелив, я (всегда) чрезвычайно ленив,..  
 
..но ТАКОЙ тупости я от себя не ждал!!! и, несмотря на то, что познавать себя - это достойное и интересное занятие, я всё-таки почему-то опечален.{/post}{/quote}Ikki, я за Вас волнуюсь...
 
спасибо, Юрий.  
я решу эту проблему.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
Уффф, отпустило... :-)
Страницы: 1
Читают тему
Наверх