Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Названия столбцов цифрами - Мир MS Excel

Старая форма входа
  • Страница 1 из 3
  • 1
  • 2
  • 3
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Названия столбцов цифрами
Названия столбцов цифрами
Gfdi Дата: Понедельник, 06.09.2010, 16:12 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

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

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

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


Автор - Gfdi
Дата добавления - 06.09.2010 в 16:12
Serge_007 Дата: Понедельник, 06.09.2010, 16:43 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

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


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

Автор - Serge_007
Дата добавления - 06.09.2010 в 16:43
Gfdi Дата: Понедельник, 06.09.2010, 17:00 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Gfdi
Дата добавления - 06.09.2010 в 17:00
Serge_007 Дата: Понедельник, 06.09.2010, 17:12 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

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
 
Ответить
Сообщение
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 и работает естественно в любом файле.

Автор - Serge_007
Дата добавления - 06.09.2010 в 17:12
Hugo Дата: Понедельник, 06.09.2010, 17:14 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

2019
В PERSONAL.XLS:

[vba]
Code
Private Sub Workbook_Open()
       Application.ReferenceStyle = xlA1
End Sub
[/vba]

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


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеВ PERSONAL.XLS:

[vba]
Code
Private Sub Workbook_Open()
       Application.ReferenceStyle = xlA1
End Sub
[/vba]

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

Автор - Hugo
Дата добавления - 06.09.2010 в 17:14
Serge_007 Дата: Понедельник, 06.09.2010, 17:24 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

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
 
Ответить
Сообщение
Quote (Hugo)
В PERSONAL.XLS:
[vba]
Code
Private Sub Workbook_Open()    
         Application.ReferenceStyle = xlA1    
End Sub
[/vba]

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

Автор - Serge_007
Дата добавления - 06.09.2010 в 17:24
Hugo Дата: Понедельник, 06.09.2010, 17:40 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

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

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



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

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


Автор - Hugo
Дата добавления - 06.09.2010 в 17:40
Serge_007 Дата: Понедельник, 06.09.2010, 17:43 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Quote (Hugo)
...я не знаю, на какое событие запускать код...

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


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Hugo)
...я не знаю, на какое событие запускать код...

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

Автор - Serge_007
Дата добавления - 06.09.2010 в 17:43
Hugo Дата: Понедельник, 06.09.2010, 18:02 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

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


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеНу да, только до этого Workbook_Open доступа-то нет... Тот, что в персонале, работает при открытии именно персонала.

Автор - Hugo
Дата добавления - 06.09.2010 в 18:02
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
 
Ответить
Сообщение
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 - функция, проверяющая наличие открытых видимых книг. Т.к. если ни одна книга не открыта макрос выдаст ошибку.

Автор - The_Prist
Дата добавления - 06.09.2010 в 18:15
Hugo Дата: Понедельник, 06.09.2010, 18:23 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

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


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеСпасибо. Теперь можно собрать готовый код на эту задачу. Gfdi, говорите, если просто сообщения #5 недостаточно.

Автор - Hugo
Дата добавления - 06.09.2010 в 18:23
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
 
Ответить
Сообщение
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).

Автор - The_Prist
Дата добавления - 06.09.2010 в 20:55
Gfdi Дата: Вторник, 07.09.2010, 12:05 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

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

Извините, что долго не отвечала, работы много sad . Спасибо за ответы!
Hugo, если не сложно, напишите такой макрос (с возможностью выбора стиля), это очень удобно!
Заранее спасибо!!!
 
Ответить
Сообщение
Quote
Gfdi, говорите, если просто сообщения #5 недостаточно.

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

Автор - Gfdi
Дата добавления - 07.09.2010 в 12:05
Serge_007 Дата: Вторник, 07.09.2010, 12:33 | Сообщение № 14
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

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

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

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


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote
Можно сделать выбор юзера при открытии файла?

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

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

Автор - Serge_007
Дата добавления - 07.09.2010 в 12:33
Serge_007 Дата: Вторник, 07.09.2010, 12:36 | Сообщение № 15
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

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

Personal?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (The_Prist)
Весь код необходимо поместить в модуль ЭтаКнига(ThisWorkbook).

Personal?

Автор - Serge_007
Дата добавления - 07.09.2010 в 12:36
Hugo Дата: Вторник, 07.09.2010, 12:38 | Сообщение № 16
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

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


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеGfdi, вот же выше Дмитрий уже написал код, Вам самой надо этот код поместить в свой Personal.xls.

Автор - Hugo
Дата добавления - 07.09.2010 в 12:38
Hugo Дата: Вторник, 07.09.2010, 13:11 | Сообщение № 17
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

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


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеВообще этот код немного иначе работает - он не смотрит, какой файл открывается. Он в момент открытия файла смотрит, какие установки Экселя в этот момент. Т.е. от открываемого файла ничего не зависит.

Автор - Hugo
Дата добавления - 07.09.2010 в 13:11
Serge_007 Дата: Вторник, 07.09.2010, 13:21 | Сообщение № 18
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Quote (Hugo)
Он в момент открытия файла смотрит, какие установки Экселя в этот момент.

Работает на ура smile


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Hugo)
Он в момент открытия файла смотрит, какие установки Экселя в этот момент.

Работает на ура smile

Автор - Serge_007
Дата добавления - 07.09.2010 в 13:21
Gfdi Дата: Вторник, 07.09.2010, 14:38 | Сообщение № 19
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Спасибо Вам БОЛЬШОЕ за помощь !!! smile
 
Ответить
СообщениеСпасибо Вам БОЛЬШОЕ за помощь !!! smile

Автор - Gfdi
Дата добавления - 07.09.2010 в 14:38
Gfdi Дата: Вторник, 07.09.2010, 14:40 | Сообщение № 20
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Работает и правда на ура! up
 
Ответить
СообщениеРаботает и правда на ура! up

Автор - Gfdi
Дата добавления - 07.09.2010 в 14:40
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Названия столбцов цифрами
  • Страница 1 из 3
  • 1
  • 2
  • 3
  • »
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!