Отправляет email-рассылки с помощью сервиса Sendsay

ПрЕдписная биогеография

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 22 RSS
←   Август 2015   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Открыта: 28-09-2004

Автор
Сергей Пушкарев

Статистика

22 подписчиков
0 за неделю
←   Все выпуски   →

ПрЕдписная биогеография


Рассылка -- ‘ ПрЕдписная биогеография  ‘
Выпуск  -- # 30
Отправлен – 2015\8\24

к//сЫрина|v|v|3512*43///15\8\21 , к//о|3106*36///2015\8\21 , ТВ//3513^Гты///^^2015\8\ «

Пушкарёв С.В. Установка в ячейку эксэлевской таблицы кнопки открытия другой эксэлевской таблицы. : Алгоритм. = 2007\12\5,7, 2015\8\21, 6.4К

При работе с картами ареалов и бланковыми картами приходится постоянно обращаться к указателям (местонахождения) этих карт и прЕдписей их создания и обработки, а также к самим этим прЕдписям ( алгоритмы , деревья ... ), а также к другим таблицам (словари, свойства ...). Эти указатели, прЕдписи и прочее у меня сейчас – преимущественно в виде эксэлевских таблиц. Чтобы не лазить каждый раз по папкам, я сделал две таблицы в виде некого «скриптового (мета-)указателя». В нём при каждом пункте, - имя и координата таблицы, - стоИт кнопка открытия этой таблицы. Это сильно ускоряет работу. И текущий алгоритм выполняет функцию создания одной такой открывающей кнопки.

Использованный здесь способ – не самый короткий, но он обеспечивает «чистоту»: «незагрязнённость» открывающей таблицы скриптами и прочим из прошлых версий.

В оригинале шаги ( -- идущие здесь сверху вниз ) алгоритма идут слева направо. -- Тот же случай, что и в Пушкарев С.В. Дача выпуска рассылки на subscribe.ru : Алгоритм. = 2014\12\26 , 4.5К (// Алгоритмы для всех, #110, 2014\12\26 // ). Так же как в том выпуске я даю «подстрочник» для шагов / имён полей. В конце шагов / имён полей может стоять дата ( иногда вместе с сокращением «ЭТ» , - «эта таблица»). Она указывает , когда этот шаг появился в этом алгоритме.

Для передачи формул я 2 раза вставил дополнительную строку ( между ,,ж и ,,з и после ,,д ).

Итак...

7'12'7 1:34 алгоритм Установить кнопку открытия эксэлевской таблицы "++" в ячейку эксэлевской таблицы "++" 

 

 

 

 

 

ДПЗ   ЭТ///7\12\7

 

07'12'7

07'12'7

07'12'7

  дата появления записи

 

 

 

 

ВПЗ    ЭТ///7\12\7

 

1:46

3:02

13:30

  время появления записи

 

 

 

 

нзан файла под кнопку      ЭТ///7\12\5

а

3054\1.xls

3054\1.xls

3054\1.xls

  название файла , куда ставить кнопку

 

 

 

 

нзан а файл, кнопку открытия которого ставлю 7\12\5

е

2447_ЕУВ.xls

2471_УР.xls

2.xls

  название файла , кнопку открытия которого ставлю

 

 

 

 

пс высвет при ячейках на-ю "п    7\12\7

б

с

с

с

  поставить высвет при ячейках на файл ''е

 

 

 

 

усо ям окошко СО "е ю масштаб "400"     7\12\7

 

с

с

с

  установить окошку с файлом "а масштаб "400" ( видимо , в оригинале -- ошибка в ссылке )

 

 

 

 

усо ннй рм а ок СО "а    7\12\5

 

с

с

с

  установить нужный размер окошку с "а 

 

 

 

 

ок панель с элементами управления   7\12\7

 

у

с

с

  открыть панель с элементами управления 

 

 

 

 

].[ _-> Вид -> Панели инструментов -> Элементы управления     7\12\5

 

 

 

 

  ( Здесь и ниже так показаны внутренние ветви алгоритма. )

 

 

 

 

  А ДЛЯ ЭТОГО перейти в пункт меню "Вид" , потом на "Панели инструментов" , потом -- "Элементы управления"

 

 

 

 

ЩЛКМ иконку "Кнопка" этой палитры   7\12\7

 

с

с

с

  щёлкнуть левой кнопкой мыши иконку "Кнопка" этой палитры ( -- панели ) 

 

 

 

 

ЩЛКМ НЕ "б  7\12\5

 

с

с

с

  щёлкнуть левой кнопкой мыши на "б 

 

 

 

 

подогнать размеры кнопки под размеры ячейки   7\12\5

 

с

с

с

].[ перетащить кнопку до отступа а ЛВУ кнопки относительно а ЛВУ ячейки в 3 пикселя по гор-ли и 3 - по верт-ли , АП передвинуть ю ПНУ кнопки до совпадения со-ом ПНУ ячейки     7\12\7

 

 

 

 

  А ДЛЯ ЭТОГО перетащить кнопку до отступа левого верхнего угла кнопки относительно левого верхнего угла ячейки в 3 пикселя по горизонтали и 3 - по вертикали , А ПОТОМ передвинуть ю правый нижний угол кнопки до совпадения с правым нижним углом ячейки 

 

 

 

 

повесить на кнопку команду   7\12\5

к

с

с

с

].[ _-> ПКМ НЕ кнопка -> Исходный текст    7\12\5

 

с

с

с

  ].[ щёлкнуть правой кнопкой мыши  на кнопке , выбрать пункт "Исходный текст"  

 

 

 

 

сд отступ клавишей "Tab"    7\12\5

и

с

с

с

  сделать отступ клавишей "Tab"  

 

 

 

 

путь к "е    7\12\7

ё

E:\2007ф\М\

E:\2007ф\М\

E:\2007ф\М\3054\

формула \   __(" ё +* е ")   7\12\7

ж

E:\2007ф\М\2447_ЕУВ.xls

Workbooks.Open("E:\2007ф\М\2471_УР.xls ")

On Error GoTo HandleError .r    Workbooks("2.xls ").Activate .r    GoTo EndOfSub .r HandleError: .r    Workbooks.Open ("E:\2007ф\М\3054\2.xls ") .r EndOfSub:

  формула соединения значений ‘’ё и ‘’е

 

 

 

 

( добавленная строка , - в оригинале был бы столбец : формулы из предыдущей строки )

 

 =D17&D6

 ="Workbooks.Open("&""""&E17&E6&""""&")"

 ="On Error GoTo HandleError .r    Workbooks("&""""&G6&""""&").Activate .r    GoTo EndOfSub .r HandleError: .r    Workbooks.Open ("&""""&G17&G6&""""&") .r EndOfSub:"

бфй "ж    7\12\7

з

E:\2007ф\М\2447_ЕУВ.xls

Workbooks.Open("E:\2007ф\М\2471_УР.xls ")

On Error GoTo HandleError .r    Workbooks("2.xls ").Activate .r    GoTo EndOfSub .r HandleError: .r    Workbooks.Open ("E:\2007ф\М\3054\2.xls ") .r EndOfSub:

  бесформульное значение "ж  

 

 

 

 

вставить ю "з ВЮ "и    7\12\7

 

с

c

с

  вставить текст "з в позицию "и  

 

 

 

 

порубить эту строку на абзацы   7\12\7

 

с

 

с

зм (Ctrl-H) ю ".r " на ""  7\12\7

 

с

 

с

  заменить (Ctrl-H) знак ".r " ( -- новый абзац ) на "" 

 

 

 

 

пс сенитпэмп на-ю тщ аг как ори     7\12\7

г

Workbooks.Open ("")

 

 

  дать ссылку на текущий алгоритм как на орудие создания ( кнопки и программы )

 

 

 

 

сх эту под-пг ].[ Ctrl-S   7\12\7

 

с

с

с

  сохранить эту под-программу , А ДЛЯ ЭТОГО Ctrl-S 

 

 

 

 

ПКП №++   ЭТ///7\12\7

 

к АП с

к АП с

к АП с

  перейти к полю ... ( В данном случае -- к полю "к" , а потом к полю , следующему после данного . )

 

 

 

 

вс к окошку а "а   7\12\5

 

с

с

с

 вернуться к окошку файла "а 

 

 

 

 

отключить режим конструктора   7\12\7

 

с

с

с

].[ ЩЛКМ на кнопке "Выход из режима конструктора"   7\12\5

 

 

 

 

  ].[ щёлкнуть левой кнопкой мыши на кнопке "Выход из режима конструктора"  

 

 

 

 

УЧ кнопка работает   7\12\5

 

с

с

с

 убедиться, что кнопка работает 

 

 

 

 

].[ обп закрытость а тц "е , ЩЛКМ на созданной кнопке   7\12\7

 

 

 

 

  А ДЛЯ ЭТОГО обеспечить закрытость таблицы"е , щёлкнуть левой кнопкой мыши на созданной кнопке 

 

 

 

 

вернуть окошку СО "а исходные масштаб и размеры   7\12\5

 

с

с

с

 вернуть окошку с файлом "а исходные масштаб и размеры 

 

 

 

 

сх ю "а   7\12\5

 

с

с

с

  сохранить файл "а 

 

 

 

 

].[ Ctrl-S   7\12\5

 

 

 

 

зк меню "Элементы управления"   7\12\5

 

с

с

с

  закрыть меню "Элементы управления" 

 

 

 

 

ТВ     ЭТ///7\12\7

 

2:49

3:23

13:53

  текущее время

 

 

 

 

УВ(чим)   ЭТ///7\12\7

д

1:03

0:21

0:23

  ушедшее время

 

 

 

 

( добавленная строка , - в оригинале был бы столбец : формулы из предыдущей строки )

 

 =D67-D5

 =E67-E5

 =G67-G5

вс в ствол   ЭТ///7\12\7

 

с

с

с

  вернуться в ствол ( в простейшем случае -- выйти из этого алгоритма )

 

 

 

 
В избранное