Как получить программный доступ ко всем зависимым ячейкам на листе Excel

@yuniki · Регистрация: 28.09.2007

Студворк — интернет-сервис помощи студентам

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

27.10.2007, 08:39

...как получить программный доступ ко всем зависимым ячейкам на листе Excel?

Visual Basic
1
2
ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).NumberFormat = '0.00_);[Red](0.00)'

@yuniki · 27.10.2007, 20:32 **[ТС]**

VladK, спасибо! Действительно, то, что просил!
Но как оказалось, просил не совсем то , что хотел, Я рассчитывал на событии Calculate обойти все ячейки с формулами и занести в них .Value значение , оформатированное по своему формату, которого нет во встроенных в Excel (Например, надо числа представлять с разделителем целой и дробной в виде знака =
(1223.75 как 1223=75) ), А потом восстановить старую формулу в ячейке, вроде следующего:

Visual Basic
1
2
3
4
5
 For Each FrmlCell In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
  a = FrmlCell.Formula
  FrmlCell = Мое представление
  FrmlCell.Formula = a
 Next FrmlCell

Но не тут-то было . При пересчете происходит перескакивание по событиям On Change, Calculate с зацикливанием. Видимо надо как- то по другому форматировать ячейки своим форматом, но как ?....

28.10.2007, 06:40

...Видимо надо как- то по другому форматировать ячейки своим форматом, но как ?....

EXCEL допускает любые форматы, т.к. в нем есть формат CUSTOM. В нем Вы указываете Ваше представление для Value. Рассматриваемый случай (замена '.' на '=') проблематичен, т.к. требует вместо смены формата смену региональных установок. Открываете Control Panel, потом - Regional Setting, потом - Number и заменяете '.' на '='.

@yuniki · 28.10.2007, 21:43 **[ТС]**

Что это за формат Custom, я смог обнаружить только свойство <Range>.NumberFormat. Если можно, подскажите как заменить форматирование Excel на свою оригинальную функцию форматирования.

29.10.2007, 06:04

Да, пожалуйста.
1. В меню кликаете Tools/Macro/Record New Macro. Затем кликаете кнопку ОК на появившейся форме. Это вы начали записывать макро для последующего возможного использования в коде.
2. Кликаете правой клавишей на любую ячейку в листе, содержащюю ваше типичное число, которое нужно отформатировать.
3. В выпрыгнувшем меню выбираете Format Cells...
4. В появившейся форме кликаете на закладку Number.
5. В лист боксе Category выбираете Custom.
6. В списке готовых форматов находите формат, наиболее близко похожий на желаемый и меняете его по своему вкусу в текстовом окне Type:
7. Внутри рамки Sample смотрите что получилось и редактируете пока не удовлетворитесь полученным форматированием вашего числа.
8. Все закрываете и в Tools/Macro/Stop Recording останавливаете макро.
9. В кодовом окне будет сидеть ваша форматирующая строка, которую и надо будеть применить примерно так как я показал в своем первом ответе.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@yuniki 1 / 1 / 0 Регистрация: 28.09.2007 Сообщений: 285

	Как получить программный доступ ко всем зависимым ячейкам на листе Excel 27.10.2007, 02:18. Показов 1260. Ответов 5 Метки нет (Все метки) Как при обновлении всех зависимых ячеек в Excel все их переформатировать? Видимо, на событии Worksheet1_Calculate, но как получить программный доступ ко всем зависимым ячейкам на листе Excel? 0

VladK
	28.10.2007, 06:40
	...Видимо надо как- то по другому форматировать ячейки своим форматом, но как ?.... EXCEL допускает любые форматы, т.к. в нем есть формат CUSTOM. В нем Вы указываете Ваше представление для Value. Рассматриваемый случай (замена '.' на '=') проблематичен, т.к. требует вместо смены формата смену региональных установок. Открываете Control Panel, потом - Regional Setting, потом - Number и заменяете '.' на '='.

@yuniki 1 / 1 / 0 Регистрация: 28.09.2007 Сообщений: 285
	28.10.2007, 21:43 [ТС]
	Что это за формат Custom, я смог обнаружить только свойство <Range>.NumberFormat. Если можно, подскажите как заменить форматирование Excel на свою оригинальную функцию форматирования. 0

VladK
	29.10.2007, 06:04
	Да, пожалуйста. 1. В меню кликаете Tools/Macro/Record New Macro. Затем кликаете кнопку ОК на появившейся форме. Это вы начали записывать макро для последующего возможного использования в коде. 2. Кликаете правой клавишей на любую ячейку в листе, содержащюю ваше типичное число, которое нужно отформатировать. 3. В выпрыгнувшем меню выбираете Format Cells... 4. В появившейся форме кликаете на закладку Number. 5. В лист боксе Category выбираете Custom. 6. В списке готовых форматов находите формат, наиболее близко похожий на желаемый и меняете его по своему вкусу в текстовом окне Type: 7. Внутри рамки Sample смотрите что получилось и редактируете пока не удовлетворитесь полученным форматированием вашего числа. 8. Все закрываете и в Tools/Macro/Stop Recording останавливаете макро. 9. В кодовом окне будет сидеть ваша форматирующая строка, которую и надо будеть применить примерно так как я показал в своем первом ответе.