Как зафиксировать формулы сразу все $$

@Uchimata · Регистрация: 02.02.2014

Здравствуйте!ситуация такая:
Есть формулы которые я протащил. следовательно они у меня без $$.
Теперь,получишвиеся формулы нужно скопировать в несколько отчетов.
Но когда я копирую,они соответственно меняются.
Нет ли какой кнопки типо выделить их и поставить везде $$.
Просто если делать вручную,то я с ума сойду...

@Alex77755 · 04.09.2014, 22:06

Есть формулы которые я протащил. следовательно они у меня без $$.

Не факт!
Можно ташить и с *$ и с $* и с $$

Добавлено через 14 минут

Нет ли какой кнопки

Хороший вопрос!
Ты серьёзно думаешь, что всё дело в кнопках?
Ну да! есть такая кнопка! Она бледно-голубого цвета! Ищи!
А если серьёзно, то любой кнопке просто назначается процедура (макрос)

@Дашуся · 05.09.2014, 14:53

Вам нужно изменить относительные ссылки на абсолютные, для этого нужно создать макрос (вариант 3 в макросе, который ниже в спойлере).
Я когда-то тоже самое искала и нашла

Все, что необходимо - это выбрать тип преобразования ссылок в формулах. Вам нужен третий тип, на сколько я поняла (пример, $A$1). И выберите диапазон ячеек, в которых нужно изменить формулы.
Данный код просто скопируйте в стандартный модуль книги.
А вызваете его нажав Alt+F8 на клавиатуре и выбираете “Change_Style_In_Formulas”.
Код приведен ниже в спойлере

Надеюсь, это то, что Вы искали.

Кликните здесь для просмотра всего текста

Visual Basic

Sub Change_Style_In_Formulas()
    Dim rFormulasRng As Range, li As Long
    Dim lMsg As String
 
    lMsg = InputBox("Изменить тип ссылок у формул?" &amp; Chr(10) &amp; Chr(10) _
                   &amp; "1 - Относительная строка/Абсолютный столбец" &amp; Chr(10) _
                   &amp; "2 - Абсолютная строка/Относительный столбец" &amp; Chr(10) _
                   &amp; "3 - Все абсолютные" &amp; Chr(10) _
                   &amp; "4 - Все относительные", "The_Prist")
 
    If lMsg = "" Then Exit Sub
 
    On Error Resume Next
    Set rFormulasRng = Application.InputBox("Выделите диапазон с формулами", "Укажите диапазон с формулами", , , , , , Type:=8)
    If rFormulasRng Is Nothing Then Exit Sub
 
    Set rFormulasRng = rFormulasRng.SpecialCells(xlFormulas)
    Select Case lMsg
    Case 1    'Относительная строка/Абсолютный столбец
        For li = 1 To rFormulasRng.Areas.Count
            rFormulasRng.Areas(li).Formula = _
            Application.ConvertFormula _
            (Formula:=rFormulasRng.Areas(li).Formula, _
             FromReferenceStyle:=xlA1, _
             ToReferenceStyle:=xlA1, ToAbsolute:=xlRelRowAbsColumn)
        Next li
    Case 2    'Абсолютная строка/Относительный столбец
        For li = 1 To rFormulasRng.Areas.Count
            rFormulasRng.Areas(li).Formula = _
            Application.ConvertFormula _
            (Formula:=rFormulasRng.Areas(li).Formula, _
             FromReferenceStyle:=xlA1, _
             ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsRowRelColumn)
        Next li
    Case 3    'Все абсолютные
        For li = 1 To rFormulasRng.Areas.Count
            rFormulasRng.Areas(li).Formula = _
            Application.ConvertFormula _
            (Formula:=rFormulasRng.Areas(li).Formula, _
             FromReferenceStyle:=xlA1, _
             ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
        Next li
    Case 4    'Все относительные
        For li = 1 To rFormulasRng.Areas.Count
            rFormulasRng.Areas(li).Formula = _
            Application.ConvertFormula _
            (Formula:=rFormulasRng.Areas(li).Formula, _
             FromReferenceStyle:=xlA1, _
             ToReferenceStyle:=xlA1, ToAbsolute:=xlRelative)
        Next li
    Case Else
        MsgBox "Неверно указан тип преобразования!", vbCritical
    End Select
    Set rFormulasRng = Nothing
    MsgBox "Конвертация стилей ссылок завершена!", 64, "Стили ссылок"
End Sub

(с) взято с другого форума

@vadimn · 21.12.2014, 03:04

Сообщение от Дашуся

lMsg = InputBox("Изменить тип ссылок у формул?" & Chr(10) & Chr(10) _
* * * * * * * * * *& "1 - Относительная строка/Абсолютный столбец" & Chr(10) _
* * * * * * * * * *& "2 - Абсолютная строка/Относительный столбец" & Chr(10) _
* * * * * * * * * *& "3 - Все абсолютные" & Chr(10) _
* * * * * * * * * *& "4 - Все относительные", "The_Prist")

- не работает. Пишет, что запись неправильная.

Добавлено через 1 минуту
Compile error:
Syntax error.

Добавлено через 16 минут
Всё, нашёл на форуме:

Visual Basic

    lMsg = InputBox("Изменить тип ссылок у формул?" & Chr(10) & Chr(10) _
                   & "1 - Относительная строка/Абсолютный столбец" & Chr(10) _
                   & "2 - Абсолютная строка/Относительный столбец" & Chr(10) _
                   & "3 - Все абсолютные" & Chr(10) _
                   & "4 - Все относительные", "The_Prist")

@Uchimata 0 / 0 / 0 Регистрация: 02.02.2014 Сообщений: 93
		1
	Как зафиксировать формулы сразу все $$ 04.09.2014, 12:21. Просмотров 7594. Ответов 3 Метки нет (Все метки) Здравствуйте!ситуация такая: Есть формулы которые я протащил. следовательно они у меня без $$. Теперь,получишвиеся формулы нужно скопировать в несколько отчетов. Но когда я копирую,они соответственно меняются. Нет ли какой кнопки типо выделить их и поставить везде $$. Просто если делать вручную,то я с ума сойду... 0

@Alex77755 11162 / 3543 / 627 Регистрация: 13.02.2009 Сообщений: 10,592
	04.09.2014, 22:06	2
	Есть формулы которые я протащил. следовательно они у меня без $$. Не факт! Можно ташить и с $ и с $ и с $$ Добавлено через 14 минут Нет ли какой кнопки Хороший вопрос! Ты серьёзно думаешь, что всё дело в кнопках? Ну да! есть такая кнопка! Она бледно-голубого цвета! Ищи! А если серьёзно, то любой кнопке просто назначается процедура (макрос) 0

Опции темы