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

Вход

Регистрация

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

 

= Мир MS Excel/Изменение типа ссылок. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Работа и общение » Неформальное общение » Изменение типа ссылок. (VBA, Excel, ячейки.)
Изменение типа ссылок.
Rioran Дата: Вторник, 16.09.2014, 14:29 | Сообщение № 1
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Всем привет и хорошего настроения!

Заметил, что часто переключаю тип ссылок с RC на А1 и обратно. Решил оптимизировать. Сделал следующую кнопку:

[vba]
Код
Application.ReferenceStyle = -4149 - Application.ReferenceStyle
[/vba]
На 2010-м экселе работает. Интересно, будет ли работать такой вариант у других и интересно, почему один из типов ссылок имеет значение 1, а другой минус 4150.


Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеВсем привет и хорошего настроения!

Заметил, что часто переключаю тип ссылок с RC на А1 и обратно. Решил оптимизировать. Сделал следующую кнопку:

[vba]
Код
Application.ReferenceStyle = -4149 - Application.ReferenceStyle
[/vba]
На 2010-м экселе работает. Интересно, будет ли работать такой вариант у других и интересно, почему один из типов ссылок имеет значение 1, а другой минус 4150.

Автор - Rioran
Дата добавления - 16.09.2014 в 14:29
alex1248 Дата: Вторник, 16.09.2014, 14:49 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 384
Репутация: 71 ±
Замечаний: 0% ±

Excel 2007, 2010
У меня в 2007-м тоже работает. yes


skype alex12481632
Qiwi +79276708519
 
Ответить
СообщениеУ меня в 2007-м тоже работает. yes

Автор - alex1248
Дата добавления - 16.09.2014 в 14:49
DJ_Marker_MC Дата: Вторник, 16.09.2014, 15:18 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
Rioran,
2010 sp2 - работает.
Хотя так как не юзаю стиль RС, то у меня уже давно кнопка на панеле: ))
[vba]
Код
Application.ReferenceStyle = xlA1
[/vba]
 
Ответить
СообщениеRioran,
2010 sp2 - работает.
Хотя так как не юзаю стиль RС, то у меня уже давно кнопка на панеле: ))
[vba]
Код
Application.ReferenceStyle = xlA1
[/vba]

Автор - DJ_Marker_MC
Дата добавления - 16.09.2014 в 15:18
Саня Дата: Вторник, 16.09.2014, 15:51 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
делаем более прозрачно:
[vba]
Код
Application.ReferenceStyle = (xlA1 + xlR1C1) - Application.ReferenceStyle
[/vba]

получился некий Not не для булевых значений
 
Ответить
Сообщениеделаем более прозрачно:
[vba]
Код
Application.ReferenceStyle = (xlA1 + xlR1C1) - Application.ReferenceStyle
[/vba]

получился некий Not не для булевых значений

Автор - Саня
Дата добавления - 16.09.2014 в 15:51
Rioran Дата: Вторник, 16.09.2014, 16:17 | Сообщение № 5
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Саня, спасибо, хорошо читаемый вариант и будет работать даже если в каких-то версиях значения типа ссылок будут отличаться.


Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеСаня, спасибо, хорошо читаемый вариант и будет работать даже если в каких-то версиях значения типа ссылок будут отличаться.

Автор - Rioran
Дата добавления - 16.09.2014 в 16:17
Rioran Дата: Вторник, 16.09.2014, 16:24 | Сообщение № 6
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
интересно, почему один из типов ссылок имеет значение 1, а другой минус 4150.

Похоже, нашёл ответ на свой вопрос. Саня навёл своим решением. Разные xl - константы имеют свои значения. Например, xlUp = -4162, xlDown = -4121. Правда, логика распределения значений по константам до сих пор остаётся для меня тайной. Не удивлюсь, если кто-то просто высыпал два мешка на пол. Один с константами, другой со значениями. И случайным образом образовывал пары.


Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
Сообщение
интересно, почему один из типов ссылок имеет значение 1, а другой минус 4150.

Похоже, нашёл ответ на свой вопрос. Саня навёл своим решением. Разные xl - константы имеют свои значения. Например, xlUp = -4162, xlDown = -4121. Правда, логика распределения значений по константам до сих пор остаётся для меня тайной. Не удивлюсь, если кто-то просто высыпал два мешка на пол. Один с константами, другой со значениями. И случайным образом образовывал пары.

Автор - Rioran
Дата добавления - 16.09.2014 в 16:24
Саня Дата: Вторник, 16.09.2014, 16:29 | Сообщение № 7
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
хорошо читаемый вариант

[vba]
Код
    With Application
         If .ReferenceStyle = xlR1C1 Then .ReferenceStyle = xlA1 _
            Else .ReferenceStyle = xlR1C1
     End With
[/vba]

да, это универсальный переключатель:
[vba]
Код
Что_то = (Знач1 + Знач2) - Что_то
[/vba]
заменитель If'а
deal
hands
 
Ответить
Сообщение
хорошо читаемый вариант

[vba]
Код
    With Application
         If .ReferenceStyle = xlR1C1 Then .ReferenceStyle = xlA1 _
            Else .ReferenceStyle = xlR1C1
     End With
[/vba]

да, это универсальный переключатель:
[vba]
Код
Что_то = (Знач1 + Знач2) - Что_то
[/vba]
заменитель If'а
deal
hands

Автор - Саня
Дата добавления - 16.09.2014 в 16:29
Rioran Дата: Вторник, 16.09.2014, 16:32 | Сообщение № 8
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
Саш, ну это уже развратно длиннющий код какой-то =) Поисковик что-то похожее выдаст 1-й или 2-й строкой.


Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеСаш, ну это уже развратно длиннющий код какой-то =) Поисковик что-то похожее выдаст 1-й или 2-й строкой.

Автор - Rioran
Дата добавления - 16.09.2014 в 16:32
Мир MS Excel » Работа и общение » Неформальное общение » Изменение типа ссылок. (VBA, Excel, ячейки.)
  • Страница 1 из 1
  • 1
Поиск:

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