Это за Вас сделал один из открывавшихся Вами файлов. Скорее всего Вы смотрели файл, экспорттированный из 1С или чего-то подобного и на нём закрыли Excel. Excel запомнил, что стиль ссылок в книге перед его закрытием был R1C1 и начал его теперь использовать при последующих запусках по умолчанию, т.к. такой стиль ему почему-то больше нравится. Этот глюк тянется уже давно. Если часто приходится открывать файля со стилем ссылок R1C1, то это сильно замучивает.
В очередной раз замучившись , я как-то давно написал себе макрос, отслеживающий при открытии файлов их стили ссылок и предлагающий поменять R1C1 на нормальный А1. Код надо разместить в модуле ЭтаКнига файла PERSONAL.XLS:
[vba]
Код
Option Explicit Private WithEvents App As Application ' объявляем объект Application для того, чтобы можно было отлавливать события других книг
Private Sub Workbook_Open() ' обработка события открытия файла PERSONAL.XLS (открывается автоматически при запуске приложения EXCEL) Set App = Application ' назначаем объект Application для того, чтобы можно было отлавливать события других книг End Sub
Private Sub App_WorkbookOpen(ByVal WB As Workbook) ' обработка события открытия любого файла If Application.ReferenceStyle = xlR1C1 Then If MsgBox("Стиль ссылок в документе R1C1. Изменить на A1?", 36, "Запрос действия") - 7 Then Application.ReferenceStyle = xlA1 End If End Sub
Это за Вас сделал один из открывавшихся Вами файлов. Скорее всего Вы смотрели файл, экспорттированный из 1С или чего-то подобного и на нём закрыли Excel. Excel запомнил, что стиль ссылок в книге перед его закрытием был R1C1 и начал его теперь использовать при последующих запусках по умолчанию, т.к. такой стиль ему почему-то больше нравится. Этот глюк тянется уже давно. Если часто приходится открывать файля со стилем ссылок R1C1, то это сильно замучивает.
В очередной раз замучившись , я как-то давно написал себе макрос, отслеживающий при открытии файлов их стили ссылок и предлагающий поменять R1C1 на нормальный А1. Код надо разместить в модуле ЭтаКнига файла PERSONAL.XLS:
[vba]
Код
Option Explicit Private WithEvents App As Application ' объявляем объект Application для того, чтобы можно было отлавливать события других книг
Private Sub Workbook_Open() ' обработка события открытия файла PERSONAL.XLS (открывается автоматически при запуске приложения EXCEL) Set App = Application ' назначаем объект Application для того, чтобы можно было отлавливать события других книг End Sub
Private Sub App_WorkbookOpen(ByVal WB As Workbook) ' обработка события открытия любого файла If Application.ReferenceStyle = xlR1C1 Then If MsgBox("Стиль ссылок в документе R1C1. Изменить на A1?", 36, "Запрос действия") - 7 Then Application.ReferenceStyle = xlA1 End If End Sub
Этот глюк тянется уже давно. Если часто приходится открывать файля со стилем ссылок R1C1, то это сильно замучивает.
Я в таком случае просто открываю из любой папки (без предварительного открытия экселя, либо предварительно его закрыв) файл с гарантированно нормальным отображением ссылок (благо, их дофига, и на каждом шагу).
Этот глюк тянется уже давно. Если часто приходится открывать файля со стилем ссылок R1C1, то это сильно замучивает.
Я в таком случае просто открываю из любой папки (без предварительного открытия экселя, либо предварительно его закрыв) файл с гарантированно нормальным отображением ссылок (благо, их дофига, и на каждом шагу). alex1248
skype alex12481632 Qiwi +79276708519
Сообщение отредактировал alex1248 - Понедельник, 04.08.2014, 14:04
Начинаете запись макроса, в появившемся окошке "Сохранить в" выбираете "В личной книге макросов", ОК, заканчиваете запись макроса. Альт + F11; Контрл + R; ищете Персонал, раскрываете его крестиком слева (если закрыт); ищете Майкрософт Excel обджект, раскрываете его крестиком слева (если закрыт); ищете "Эта книга", дважды отмышачьте ее слева - в основном окне появится белое поле для кода с шапкой Персонал.xlsx - ЭтаКнига(Код). Вот оно-то Вам и нужно.
Начинаете запись макроса, в появившемся окошке "Сохранить в" выбираете "В личной книге макросов", ОК, заканчиваете запись макроса. Альт + F11; Контрл + R; ищете Персонал, раскрываете его крестиком слева (если закрыт); ищете Майкрософт Excel обджект, раскрываете его крестиком слева (если закрыт); ищете "Эта книга", дважды отмышачьте ее слева - в основном окне появится белое поле для кода с шапкой Персонал.xlsx - ЭтаКнига(Код). Вот оно-то Вам и нужно._Boroda_
Подскажите пожалуйста как сделать Вкладки в верху листа, чтоб все файлы открывались в одной книге Excel 2010 [moder]Ваш вопрос не имеет отношения к данной теме. Прочитайте Правила форума и создайте свою тему. Эта тема закрыта[/moder]
Подскажите пожалуйста как сделать Вкладки в верху листа, чтоб все файлы открывались в одной книге Excel 2010 [moder]Ваш вопрос не имеет отношения к данной теме. Прочитайте Правила форума и создайте свою тему. Эта тема закрыта[/moder]Nanik
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
, я как-то давно написал себе макрос, отслеживающий при открытии файлов их стили ссылок и предлагающий поменять R1C1 на нормальный А1. 
