| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Библиотека функций > Замена формулы на значение и обратно. Сохранение формулы в примечаниях. Excel vba

Замена формулы на значение и обратно. Сохранение формулы в примечаниях. Excel vba

Ответ
Поиск в этой теме
Непрочитано 28.01.2021, 15:20 #1
Замена формулы на значение и обратно. Сохранение формулы в примечаниях. Excel vba
Петр-и-Алекс
 
Регистрация: 18.01.2021
Сообщений: 189

Серия функций для Excel:
Сохранение функции в примечании к ячейке при замене на значение.
Восстановление в ячейке сохраненной ранее функции.
Немного сопутствующего сервиса.

Вложение содержит книгу с функциями (открытые тексты vba), гайд по теме, пример оформления меню (ribbon).

----
Жаль, что вчерашний пост про интерполяцию не вызвал интереса. Попробую эту тему, которой мне реально не хватало.
При всей тривиальности задачи, реализация оказалась не столь примитивной, как ожидалось: по ходу дела обнаружилась пара подводных камней.
Публикую дабы соратники не тратили свое время на "велосипед".

Отзывам был бы по прежнему рад...

Вложения
Тип файла: zip Formula-Value.zip (19.1 Кб, 15 просмотров)

Просмотров: 1424
 
Непрочитано 28.01.2021, 16:42
#2
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 9,160


Если хотите собирать библиотеку методов и функций - то надо, как минимум, хоть как то сам код описывать. Например, сделать модуль UserInput и там разместить пользовательские функции ввода типа
Код:
[Выделить все]
' Запрос диапазона ячеек у пользователя. Аргументы:
' aPrompt - подсказка в диалоге ввода
' aTitle - заголовок диалога ввода
' Возврат: Выбранный пользователем диапазон ячеек либо Nothing в случае отмены
Public Function InputUserRange(ByVal aPrompt As String, _
  ByVal aTitle As String) As Range
  On Error Resume Next
  Set InputUserRange = _
    Application.InputBox(Prompt:=aPrompt, Title:=aTitle, Type:=8)
  ' Если ошибка получения диапазона - возвращаем Nothing 
  If (Err.Number <> 0) Then Set InputUserRange = Nothing
End Function
и потом в коде уже их вызывать
Код:
[Выделить все]
' Пример использования
Sub UsingEx()
    Dim lR As Range
    Set lR = InputUserRange("%Подсказка%", "%Заголовок%")
    If (Not lRange Is Nothing) Then
      ' ... Делаем какую то операцию с выделенным диапазоном
    End If
End Sub
тогда, действительно, по мере накопления библиотек отлаженных функций будет экономия времени разработчика.
Сергей812 вне форума  
 
Автор темы   Непрочитано 28.01.2021, 17:19
#3
Петр-и-Алекс


 
Регистрация: 18.01.2021
Сообщений: 189


За совет - спасибо
Но в данном случае все наоборот: из библиотеки изымаются отдельные функции для публикации в сети.
Расчет на малоквалифицированных пользователей, имеющих тем не менее интерес к теме.
Опыт показал, чем меьше дробность текстов - тем проще одинокому начинающему использовать код в своем проекте САМОСТОЯТЕЛЬНО.
Я стараюсь отбирать для публикаций решения наиболее частых в моей практике задач, не имеющие в сети аналогичных решений.
То о чем пишите Вы, в принципе возражений не вызывает. Но то "в принципе".
А как вам сама задача? вставала ли перед вами?
Петр-и-Алекс вне форума  
 
Непрочитано 28.01.2021, 17:56
#4
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 9,160


Цитата:
Сообщение от Петр-и-Алекс Посмотреть сообщение
Расчет на малоквалифицированных пользователей, имеющих тем не менее интерес к теме.
Опыт показал, чем меьше дробность текстов - тем проще одинокому начинающему использовать код в своем проекте САМОСТОЯТЕЛЬНО.
большая часть подобных пользователей либо приходит на какой-нибудь из форумов с формулировкой "помогите" написать за меня, либо решают задачу подбором готового кода из инета - пока не заработает) Естественно, никакого опыта программирования они при этом толком не получают - у них стоит условие при минимальном затрате сил и времени решить конкретную задачу и не более того.
Цитата:
Сообщение от Петр-и-Алекс Посмотреть сообщение
Я стараюсь отбирать для публикаций решения наиболее частых в моей практике задач, не имеющие в сети аналогичных решений.
в сети нет готовых решений для большей части практических задач, либо реализовано видение решения подобной задачи автором под его условия. Иначе зачем были бы нужны программисты - когда забил в поисковик и получил готовый код?) Очень мало качественного кода выкладывается на самом деле (ну кто будет это делать, тем более сейчас), но идеи и подсказки можно найти - этого для думающего человека достаточно, чтобы подтолкнуть в решении задачи. Но опять же - это не для
Цитата:
Сообщение от Петр-и-Алекс Посмотреть сообщение
малоквалифицированных пользователей
они просто "утонут" в море информации, не имея опыта быстрой отфильтрации лишнего "шлака".

Цитата:
Сообщение от Петр-и-Алекс Посмотреть сообщение
А как вам сама задача? вставала ли перед вами?
Слабо представляю необходимость тасовать местами формулы-значения в коде. Зачем там нужна формула, если потом кодом ее заменять на значение.
Сергей812 вне форума  
 
Автор темы   Непрочитано 09.02.2021, 20:47
#5
Петр-и-Алекс


 
Регистрация: 18.01.2021
Сообщений: 189


"Слабо представляю необходимость тасовать местами формулы-значения в коде"
ничего кроме как "у вас маленький опыт расчетов" сказать на это не могу
Петр-и-Алекс вне форума  
 
Непрочитано 09.02.2021, 21:44
#6
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 9,160


Цитата:
Сообщение от Петр-и-Алекс Посмотреть сообщение
ничего кроме как "у вас маленький опыт расчетов" сказать на это не могу
т.е. сами не знаете, зачем тасовать местами формулы-значения в коде?) Есть расчетная часть, если надо скрыть формулы расчета - скопировали макросом только результаты в отдельный отчет. А у вас как в голове каша, так в экселе, похоже...
Сергей812 вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Библиотека функций > Замена формулы на значение и обратно. Сохранение формулы в примечаниях. Excel vba

Реверс. Автоматическая пакетная печать множества рамок (форматов) из пространства модели и листов
Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
LISP. Создание поля (field), ссылающегося на текстовое значение ячейки таблицы. skkkk Готовые программы 123 24.12.2020 16:39
Можно ли в EXCEL в пути к файлу в сослаться на значение в ячейке? konstryktor Прочее. Программное обеспечение 7 12.02.2020 04:24
Работа с Excel (файлами) через ActiveX kserg LISP 2 07.06.2018 15:26
Макрос VBA Excel для извлечения таблиц из линий, полилиний, текста из DWG файлов в Excel с помощью NanoCAD/AutoCAD JZY Готовые программы 8 14.07.2016 06:31
Excel. Пользовательская функция замещения буквенных индексов числовыми AlphaGeo Программирование 2 06.07.2010 12:12