| Вопрос: Cтиль ссылок постоянно меняется на R1C1 | Добавлено: 14.08.07 09:37 |
Автор вопроса:  bukmax
|
| Вопрос: При открытии файлов в Excel - стиль ссылок постоянно меняется на R1C1, это очень мне не подходит. Можно ли сделать как-то, чтобы при открытии Excel стиль был нормальный. А то нужно каждый раз делать так сервис/Параметры и т.д..? И почему стиль постоянно меняется на R1C1? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Pavel Вопросов: 0 Ответов: 82 |
Профиль | | #1 | Добавлено: 14.08.07 10:35 |
|
По-идее, у вас должен открываться (использоваться) тот стиль ссылок, который был сохранён в файле, который вы открыли первым, когда пришли на работу (как и вычисления - Автоматическое или вручную - используется то, какое было сохраннено в книге, которую вы открыли первую с утра. Поэтому откройте файл, измените стиль ссылок на A1, сохраните файл и закройте Excel. Повторно откройте этот же файл - и по-идее у вас должен сохраниться этот стил ссылок.
Но, я думаю, можно и программным способом заставить Excel ставить сстиль ссылок A1 при открытии любой книги, но для этого придётся создавать класс (для того, чтобы обрабатывались все открываемые файлы. Если вам надо только для одного, то можно просто в этом файле написать код Application.ReferenceStyle = xlA1 в продедуре Private Sub Workbook_Open() Итак, чтобы для всех открываемых файлов: В личной книге макросов Personal.xls (если её нет, то запишите любой макрос в личную книгу макросов и она автоматически создастся) вставьте модуль класса (Insert - Class Module), в нём запишите код Public WithEvents XLApp As Application
Private Sub XLApp_WorkbookOpen(ByVal Wb As Excel.Workbook) XLApp.ReferenceStyle = xlA1 'A1 'XLApp.ReferenceStyle = xlR1C1 'R1C1 End Sub А в модуле ЭтаКнига(ThisWorkbook) личной книги макросов (Personal.xls) запишите этот код Dim Cls As New Class1
Private Sub Workbook_Open() Set Cls.XLApp = Application End Sub Напоминаю, что весь этот код должен быть в личной книге макросов - Personal.xls, а не в какой-то вашей книге Excel. И, по-идее, у вас при открытии любого файла Excel автоматически будет изменяться стиль ссылок на A1 |
||
|
Номер ответа: 2 Автор ответа: bukmaxВопросов: 9 Ответов: 15 |
Профиль | | #2 | Добавлено: 14.08.07 11:28 |
| Спасибо, получилось. | ||
Страница: 1 |