Изменение типа ссылок.
Rioran
Дата: Вторник, 16.09.2014, 14:29 |
Сообщение № 1
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация:
290
±
Замечаний:
0% ±
Excel 2013
Всем привет и хорошего настроения! Заметил, что часто переключаю тип ссылок с RC на А1 и обратно. Решил оптимизировать. Сделал следующую кнопку: [vba]Код
Application.ReferenceStyle = -4149 - Application.ReferenceStyle
[/vba] На 2010-м экселе работает. Интересно, будет ли работать такой вариант у других и интересно, почему один из типов ссылок имеет значение 1, а другой минус 4150.
Всем привет и хорошего настроения! Заметил, что часто переключаю тип ссылок с RC на А1 и обратно. Решил оптимизировать. Сделал следующую кнопку: [vba]Код
Application.ReferenceStyle = -4149 - Application.ReferenceStyle
[/vba] На 2010-м экселе работает. Интересно, будет ли работать такой вариант у других и интересно, почему один из типов ссылок имеет значение 1, а другой минус 4150. Rioran
Роман, Москва, 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-м тоже работает.
skype alex12481632 Qiwi +79276708519
Ответить
Сообщение У меня в 2007-м тоже работает. Автор - 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
Ответить
Сообщение 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 не для булевых значений Саня
Ответить
Сообщение делаем более прозрачно: [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
Саня , спасибо, хорошо читаемый вариант и будет работать даже если в каких-то версиях значения типа ссылок будут отличаться.
Саня , спасибо, хорошо читаемый вариант и будет работать даже если в каких-то версиях значения типа ссылок будут отличаться.Rioran
Роман, Москва, 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. Правда, логика распределения значений по константам до сих пор остаётся для меня тайной. Не удивлюсь, если кто-то просто высыпал два мешка на пол. Один с константами, другой со значениями. И случайным образом образовывал пары.
интересно, почему один из типов ссылок имеет значение 1, а другой минус 4150.
Похоже, нашёл ответ на свой вопрос. Саня навёл своим решением. Разные xl - константы имеют свои значения. Например, xlUp = -4162, xlDown = -4121. Правда, логика распределения значений по константам до сих пор остаётся для меня тайной. Не удивлюсь, если кто-то просто высыпал два мешка на пол. Один с константами, другой со значениями. И случайным образом образовывал пары.Rioran
Роман, Москва, 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'а
[vba]Код
With Application If .ReferenceStyle = xlR1C1 Then .ReferenceStyle = xlA1 _ Else .ReferenceStyle = xlR1C1 End With
[/vba] да, это универсальный переключатель: [vba]Код
Что_то = (Знач1 + Знач2) - Что_то
[/vba] заменитель If'а Саня
Ответить
Сообщение [vba]Код
With Application If .ReferenceStyle = xlR1C1 Then .ReferenceStyle = xlA1 _ Else .ReferenceStyle = xlR1C1 End With
[/vba] да, это универсальный переключатель: [vba]Код
Что_то = (Знач1 + Знач2) - Что_то
[/vba] заменитель If'а Автор - Саня Дата добавления - 16.09.2014 в 16:29
Rioran
Дата: Вторник, 16.09.2014, 16:32 |
Сообщение № 8
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация:
290
±
Замечаний:
0% ±
Excel 2013
Саш , ну это уже развратно длиннющий код какой-то =) Поисковик что-то похожее выдаст 1-й или 2-й строкой.
Саш , ну это уже развратно длиннющий код какой-то =) Поисковик что-то похожее выдаст 1-й или 2-й строкой.Rioran
Роман, Москва, voronov_rv@mail.ru Яндекс-Деньги: 41001312674279
Ответить
Сообщение Саш , ну это уже развратно длиннющий код какой-то =) Поисковик что-то похожее выдаст 1-й или 2-й строкой.Автор - Rioran Дата добавления - 16.09.2014 в 16:32