Названия столбцов цифрами

Старая форма входа

Страница 1 из 3 1 2 3 »
Модератор форума: китин, _Boroda_

Gfdi

Дата: Понедельник, 06.09.2010, 16:12 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Добрый день !!! Нужна Ваша помощь sad

После того как у нас установили 1С, при создании отчётов из неё, файлы Эксель меняют названия столбцов с A,B,C… на 1,2,3…

Как с этим бороться?

Заранее спасибо smile

Ответить

Serge_007

Дата: Понедельник, 06.09.2010, 16:43 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Здравствуйте.
Gfdi, стиль ссылок меняется так:
в 2010 Excel: Меню Файл - Параметры - Формулы - снять галку с Стиль ссылок R1C1
в 2007 Excel: Кнопка Офис - Параметры - Формулы - снять галку с Стиль ссылок R1C1
в 2003 Excel и ранее: Сервис - Параметры - Общие - снять галку с Стиль ссылок R1C1.

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Gfdi

Дата: Понедельник, 06.09.2010, 17:00 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Спасибо большое! НО.... Это я знаю, вопрос как-раз в том, чтобы вручную не менять. Как сделать что бы автоматически выставлялся стиль ссылок?

Ответить

Serge_007

Дата: Понедельник, 06.09.2010, 17:12 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Gfdi)

Как сделать что бы автоматически выставлялся стиль ссылок?

Ну, совсем автоматически только макросом, сохранённом в Personal, который будет проверять открываемые файлы на соответствие необходимому стилю ссылок и изменять его по надобности.
Я пошел другим путём: в Personal поместил коды: [vba]

Code

Sub StyleRC()
' Сочетание клавиш: Ctrl+w
Application.ReferenceStyle = xlR1C1
End Sub
Sub StyleA1()
' Сочетание клавиш: Ctrl+q
Application.ReferenceStyle = xlA1
End Sub

[/vba]

Теперь переключение занимает долю секунды с помощью хоткеев Ctrl+w, Ctrl+q и работает естественно в любом файле.

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Hugo

Дата: Понедельник, 06.09.2010, 17:14 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3689

Репутация: 790 ±

Замечаний: 0% ±

365

В PERSONAL.XLS:

[vba]

Code

Private Sub Workbook_Open()
Application.ReferenceStyle = xlA1
End Sub

[/vba]

Чуть подправил, извиняюсь...

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Serge_007

Дата: Понедельник, 06.09.2010, 17:24 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Hugo)

В PERSONAL.XLS:
[vba]

Code

Private Sub Workbook_Open()
Application.ReferenceStyle = xlA1
End Sub

[/vba]

Игорь, так всегда А1 будет. Gfdi, я думаю это и нужно, это вопрос от меня: Можно сделать выбор юзера при открытии файла?
Если стиль А1 - то ничего не происходит, а если R1C1 - то МсгБокс какой-нибудь с выбором стиля?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Hugo

Дата: Понедельник, 06.09.2010, 17:40 | Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3689

Репутация: 790 ±

Замечаний: 0% ±

365

Ну да, так оно и задумано - при открытии Экселя стиль ссылок устанавливается xlA1.
Но если вручную в любом файле выставить другое - такой стиль будет, пока Эксель не закроется.
Я не знаю (пробовал экспериментировать, но не подвердилось), но возможно при открытии таких файлов как следующих, стиль ссылок может измениться.
Я столкнулся с тем, что с некоторыми файлами, как зараза, переносится настройка Application.ShowWindowsInTaskbar = False.
Когда я устал вручную её менять на привычную, записал в Workbook_Open() такую строку
Application.ShowWindowsInTaskbar = True
Пока прививка работает.

А вот насчёт выбора - я не знаю, на какое событие запускать код (который тоже пока не сочинял)...

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Serge_007

Дата: Понедельник, 06.09.2010, 17:43 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Hugo)

...я не знаю, на какое событие запускать код...

На Workbook_Open, больше не на что наверное?..

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Hugo

Дата: Понедельник, 06.09.2010, 18:02 | Сообщение № 9

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3689

Репутация: 790 ±

Замечаний: 0% ±

365

Ну да, только до этого Workbook_Open доступа-то нет... Тот, что в персонале, работает при открытии именно персонала.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

The_Prist

Дата: Понедельник, 06.09.2010, 18:15 | Сообщение № 10

Группа: Друзья

Ранг: Участник

Сообщений: 85

Репутация: 22 ±

Замечаний: 0% ±

2010

Quote (Hugo)

только до этого Workbook_Open доступа-то нет... Тот, что в персонале, работает при открытии именно персонала.

Можно влезу?
Я у себя описывал как отслеживать события других книг из надстройки или PERSONAL.XLS.
Вот ссылочка

А менять стиль ссылок лично я предпочитаю таким макросом:
[vba]

Code

Private Sub Replace_ReferenceStyle()
       If lCountWorkbooks = 0 Then Exit Sub
        If Application.ReferenceStyle = xlA1 Then
             Application.ReferenceStyle = xlR1C1
        Else
             Application.ReferenceStyle = xlA1
        End If
End Sub

[/vba]

Если А1 - меняет на R1C1 и наоборот.
lCountWorkbooks - функция, проверяющая наличие открытых видимых книг. Т.к. если ни одна книга не открыта макрос выдаст ошибку.

Errare humanum est, stultum est in errore perseverare

Сообщение отредактировал The_Prist - Понедельник, 06.09.2010, 18:19

Ответить

Hugo

Дата: Понедельник, 06.09.2010, 18:23 | Сообщение № 11

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3689

Репутация: 790 ±

Замечаний: 0% ±

365

Спасибо. Теперь можно собрать готовый код на эту задачу. Gfdi, говорите, если просто сообщения #5 недостаточно.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

The_Prist

Дата: Понедельник, 06.09.2010, 20:55 | Сообщение № 12

Группа: Друзья

Ранг: Участник

Сообщений: 85

Репутация: 22 ±

Замечаний: 0% ±

2010

Quote (Serge_007)

Можно сделать выбор юзера при открытии файла?
Если стиль А1 - то ничего не происходит, а если R1C1 - то МсгБокс какой-нибудь с выбором стиля?

Конечно можно. Главное, чтобы макросы были включены и был список этих самых пользователей(а то откуда выбирать-то?).
Msgbox вообще проще простого:
[vba]

Code

Private WithEvents App As Application

Private Sub Workbook_Open()
Set App = Application
End Sub

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
       If Application.ReferenceStyle = xlR1C1 Then
           If MsgBox("На данный момент стиль ссылок R1C1. Изменить на A1?", vbInformation + vbYesNo, "Запрос действия") = vbNo Then Exit Sub
           Application.ReferenceStyle = xlA1
       End If
End Sub

[/vba]
Весь код необходимо поместить в модуль ЭтаКнига(ThisWorkbook).

Errare humanum est, stultum est in errore perseverare

Сообщение отредактировал The_Prist - Понедельник, 06.09.2010, 20:56

Ответить

Gfdi

Дата: Вторник, 07.09.2010, 12:05 | Сообщение № 13

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Quote

Gfdi, говорите, если просто сообщения #5 недостаточно.

Извините, что долго не отвечала, работы много sad

. Спасибо за ответы!
Hugo, если не сложно, напишите такой макрос (с возможностью выбора стиля), это очень удобно!
Заранее спасибо!!!

Ответить

Serge_007

Дата: Вторник, 07.09.2010, 12:33 | Сообщение № 14

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote

Можно сделать выбор юзера при открытии файла?

Quote (The_Prist)

Конечно можно. Главное, чтобы макросы были включены и был список этих самых пользователей(а то откуда выбирать-то?).

Дим, не выбирать юзера, а дать юзеру возможность выбора smile

Quote

Если стиль А1 - то ничего не происходит, а если R1C1 - то МсгБокс какой-нибудь с выбором стиля?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Serge_007

Дата: Вторник, 07.09.2010, 12:36 | Сообщение № 15

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (The_Prist)

Весь код необходимо поместить в модуль ЭтаКнига(ThisWorkbook).

Personal?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Hugo

Дата: Вторник, 07.09.2010, 12:38 | Сообщение № 16

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3689

Репутация: 790 ±

Замечаний: 0% ±

365

Gfdi, вот же выше Дмитрий уже написал код, Вам самой надо этот код поместить в свой Personal.xls.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Hugo

Дата: Вторник, 07.09.2010, 13:11 | Сообщение № 17

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3689

Репутация: 790 ±

Замечаний: 0% ±

365

Вообще этот код немного иначе работает - он не смотрит, какой файл открывается. Он в момент открытия файла смотрит, какие установки Экселя в этот момент. Т.е. от открываемого файла ничего не зависит.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD