Как правильно вставлять формулы в FormulaR1C1? / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как правильно вставлять формулы в FormulaR1C1?

8 сообщений из 8, страница 1 из 1

Как правильно вставлять формулы в FormulaR1C1?

#33447498

klopik

Гость

Имеется столбец в Excel, который является разницей двух других столбцов.
Как эту разницу записать на VBA в виде FormulaR1C1?
Если просто писать а-в, то тогда на листе не видно что из чего вычетается, то есть получается не формула, а просто число.
Как правильно записать, если у меня имеется:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.

For i =  1  To Range("Разница").Rows.Count

Set a = Stolbec.Cells(i,  1 )
Set b = Stolbec.Cells(i,  1 ).Offset( 0 , - 1 )
Range("Разница").Cells(i,  1 ).FormulaR1C1 = Вот тут как правильно написать a-b?

Next i

Буду благодарен за Вашу помощь.

...

Рейтинг:

0 / 0

20.12.2005, 18:08:55

| Ответить | Цитировать | Написать

Как правильно вставлять формулы в FormulaR1C1?

#33447592

White Owl

Участник

Сообщения: 12 726

Рейтинг: 0 / 0

Range("Разница").FormulaR1C1 = "=RC[-1]-RC[-2]"

...

Рейтинг:

0 / 0

20.12.2005, 18:42:08

| Ответить | Цитировать | Написать

Как правильно вставлять формулы в FormulaR1C1?

#33448279

klopik

Гость

Нет, ну это я знаю. Это если макрос записать - так и получится!
А вот если нужно вместо цифр вставлять переменные? Типа

Код: plaintext

Range("Разница").FormulaR1C1 = "=RC[-a]-RC[-b]"

То что я написал не работает...
Как правильно в эту строчку вставить переменные а и b?

...

Рейтинг:

0 / 0

21.12.2005, 09:54:15

| Ответить | Цитировать | Написать

Как правильно вставлять формулы в FormulaR1C1?

#33448295

klopik

Гость

Вроде получилось. Как-то криво, однако работает:

Код: plaintext

1.
2.

mystring = "=RC[-" & a & "]-RC[-" & b & "]"
Range("Разница").FormulaR1C1 = mystring

...

Рейтинг:

0 / 0

21.12.2005, 10:00:51

| Ответить | Цитировать | Написать

Как правильно вставлять формулы в FormulaR1C1?

#33450242

White Owl

Участник

Сообщения: 12 726

Рейтинг: 0 / 0

А что у тебя в этих переменных то?
Если переменные a и b это целочисленные переменные в которых находится смещение от целевой ячейки, то запись

Код: plaintext

Range("Разница").FormulaR1C1 = "=RC[-" & a & "]-RC[-" & b & "]"

будет самой правильной.

Если a и b сами по себе ячейки, то прийдется усложнять:

Код: plaintext

Range("Разница").FormulaR1C1 = "=RC[-" & (Range("Разница").Column - a.Column) & "]-RC[-" & (Range("Разница").Column - b.Column) & "]"

...

Рейтинг:

0 / 0

21.12.2005, 18:30:57

| Ответить | Цитировать | Написать

Как правильно вставлять формулы в FormulaR1C1?

#33450368

Мшсещырф

Гость

White Owl...
Если a и b сами по себе ячейки, то ...

можно сделать еще вот такой монтаж.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Sub test()
  Dim tR As Range
  Dim a As Range
  Dim b As Range
  
  With ActiveSheet
      Set tR = .Range("A3")
      Set a = .Range("A1")
      Set b = .Range("A2")
    
      tR.FormulaR1C1 = "=" & a.Address(False, False, xlR1C1, , tR) _
      & "-" & b.Address(False, False, xlR1C1, , tR)
    
  End With
End Sub

...

Рейтинг:

0 / 0

21.12.2005, 19:15:05

| Ответить | Цитировать | Написать

Как правильно вставлять формулы в FormulaR1C1?

#33450683

White Owl

Участник

Сообщения: 12 726

Рейтинг: 0 / 0

Мшсещырфможно сделать еще вот такой монтаж.
Можно, но только для одной ячейки.

...

Рейтинг:

0 / 0

21.12.2005, 23:08:36

| Ответить | Цитировать | Написать

Как правильно вставлять формулы в FormulaR1C1?

#33450747

Мшсещырф

Гость

White Owl Мшсещырфможно сделать еще вот такой монтаж.
Можно, но только для одной ячейки.

вот так можно для шести:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Sub test2()
  Dim tR As Range
  Dim a As Range
  Dim b As Range
  
  With ActiveSheet
      Set tR = .Evaluate("C1:C6")
      Set a = .Range("A1")
      Set b = .Range("B1")
    
      tR.FormulaR1C1 = "=" & a.Address(False, False, xlR1C1, , tR) _
      & "-" & b.Address(False, False, xlR1C1, , tR)
    
  End With
End Sub

вот так для 18

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

Sub test3()
  Dim tR As Range
  Dim a As Range
  Dim b As Range
  
  
  With ActiveSheet
      Set tR = .Range("C1:C6")
      Set a = .Range("A1:A6")
      Set b = .Range("B1:B6")
      
      
      tR.Offset(ColumnOffset:= 2 ).Formula = "=" & a( 1 ,  1 ).Address(False, False, xlA1, , tR.Offset( 0 ,  1 )) & _
       "-" & b( 1 ,  1 ).Address(False, False, xlA1, , tR.Offset( 0 ,  1 ))
         
      
      tR.Offset(ColumnOffset:= 1 ).FormulaR1C1 = "=" & a.Address(True, True, xlR1C1, , tR) _
      & "-" & b.Address(True, True, xlR1C1, , tR)
      
      tR.FormulaArray = "=" & a.Address(True, False, xlR1C1, , tR) _
      & "-" & b.Address(True, False, xlR1C1, , tR)
    
  End With
End Sub

...

Рейтинг:

0 / 0

22.12.2005, 01:38:38

| Ответить | Цитировать | Написать

8 сообщений из 8, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как правильно вставлять формулы в FormulaR1C1?

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/search_topic.php?author=Alexandr78&author_mode=last_topics&do_search=1]:	0ms
get settings:	8ms
get forum list:	10ms
get settings:	8ms
get forum list:	16ms
check forum access:	3ms
check topic access:	3ms
track hit:	33ms
get topic data:	10ms
get forum data:	2ms
get page messages:	41ms
get tp. blocked users:	2ms
others:	629ms

total:	765ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы