Форум программистов, компьютерный форум, киберфорум
MS Office Excel
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/40: Рейтинг темы: голосов - 40, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 02.02.2014
Сообщений: 93
1

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

04.09.2014, 12:21. Просмотров 7594. Ответов 3
Метки нет (Все метки)

Здравствуйте!ситуация такая:
Есть формулы которые я протащил. следовательно они у меня без $$.
Теперь,получишвиеся формулы нужно скопировать в несколько отчетов.
Но когда я копирую,они соответственно меняются.
Нет ли какой кнопки типо выделить их и поставить везде $$.
Просто если делать вручную,то я с ума сойду...
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.09.2014, 12:21
Ответы с готовыми решениями:

Как зафиксировать значение после вычисления формулы
Прошу помощи! Подскажите как зафиксировать результат вычисления формулы в ячейке для дальнейшего...

Как сохранить все wma файлы из папки в один, что бы потом сразу все подгружать?
как сохранить все wma файлы из папки в один, что бы потом сразу все подгружать в файл?

Записать сразу 2 формулы в макросе для VBA
Помогите, пожалуйста, как мне записать 2 формулы в макросе . Одну формулу для нахождения конечного...

Как импортировать сразу все БД?
При импорте в PHPMyAdmin на Open Server всех БД из одного файла, пишет: "#1046 - База данных не...

3
11162 / 3543 / 627
Регистрация: 13.02.2009
Сообщений: 10,592
04.09.2014, 22:06 2
Есть формулы которые я протащил. следовательно они у меня без $$.
Не факт!
Можно ташить и с *$ и с $* и с $$

Добавлено через 14 минут
Нет ли какой кнопки
Хороший вопрос!
Ты серьёзно думаешь, что всё дело в кнопках?
Ну да! есть такая кнопка! Она бледно-голубого цвета! Ищи!
А если серьёзно, то любой кнопке просто назначается процедура (макрос)
0
1 / 1 / 0
Регистрация: 28.08.2014
Сообщений: 6
05.09.2014, 14:53 3
Вам нужно изменить относительные ссылки на абсолютные, для этого нужно создать макрос (вариант 3 в макросе, который ниже в спойлере).
Я когда-то тоже самое искала и нашла
Все, что необходимо - это выбрать тип преобразования ссылок в формулах. Вам нужен третий тип, на сколько я поняла (пример, $A$1). И выберите диапазон ячеек, в которых нужно изменить формулы.
Данный код просто скопируйте в стандартный модуль книги.
А вызваете его нажав Alt+F8 на клавиатуре и выбираете “Change_Style_In_Formulas”.
Код приведен ниже в спойлере

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

Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Sub Change_Style_In_Formulas()
    Dim rFormulasRng As Range, li As Long
    Dim lMsg As String
 
    lMsg = InputBox("Изменить тип ссылок у формул?" & Chr(10) & Chr(10) _
                   & "1 - Относительная строка/Абсолютный столбец" & Chr(10) _
                   & "2 - Абсолютная строка/Относительный столбец" & Chr(10) _
                   & "3 - Все абсолютные" & Chr(10) _
                   & "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
(с) взято с другого форума
1
6 / 6 / 0
Регистрация: 28.11.2012
Сообщений: 45
21.12.2014, 03:04 4
Цитата Сообщение от Дашуся Посмотреть сообщение
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
1
2
3
4
5
    lMsg = InputBox("Изменить тип ссылок у формул?" & Chr(10) & Chr(10) _
                   & "1 - Относительная строка/Абсолютный столбец" & Chr(10) _
                   & "2 - Абсолютная строка/Относительный столбец" & Chr(10) _
                   & "3 - Все абсолютные" & Chr(10) _
                   & "4 - Все относительные", "The_Prist")
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2014, 03:04

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как сравнить все блоки сразу
Здравствуйте. Подскажите, как можно сравнить высоту всех блоков с одинаковым классом, и если у...

Как обновить сразу все датасеты
Вопрос такой. Можно ли найти на форме или на DataModule все компоненты типа TSimpleDataSet и...

Как удалить ВСЕ обновления сразу ?
Доброго времени суток форумчане! Не для кого не секрет что обновления на винду очень даже...

Как удалить сразу все переменные?
Пожалуйста подскажите как удолить все переменные разом


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.