Имя: Пароль:
1C
1C 7.7
v7: Активизировать ячейку в таблице
,
0 1Сергей
 
01.02.12
14:15
В продолжение темы Извините за баян. Активизировать ячейку в таблице НЕ в режиме ввода данных

Не совсем понятно как там что сделано. Мне нужно просто сделать активной ячейку справа от текущей.
WSH.SendKeys("{RIGHT}"); результата не даёт.

Подскажите, плз
1 Попытка1С
 
01.02.12
14:22
Так у тебя активность не на таблице, твой RIGHT тут не в тему.
2 1Сергей
 
01.02.12
14:22
(1) как это активность не на таблице? а на чём?
3 Попытка1С
 
01.02.12
14:23
Если я все верно понял..
4 Попытка1С
 
01.02.12
14:23
Ты скажи что тебе надо в итоге ввобще получить?
5 1Сергей
 
01.02.12
14:24
код выполняется по кнопке через горячую клавишу (F8), при этом сама кнопка невидимая
6 1Сергей
 
01.02.12
14:25
(4) мне нужно сделать наподобие ексельского Ctrl+Left. Т.е. если текущая ячейка не пустая, то двигаться вправо до того, как текущая ячейка станет пустой и наоборот
7 1Сергей
 
01.02.12
14:28
(6)* Ctrl+Right
8 1Сергей
 
01.02.12
14:36
9 Попытка1С
 
01.02.12
14:53
Идея ясна..
10 antoneus
 
01.02.12
14:54
работает...
11 Wobland
 
01.02.12
14:56
узнать пустоту текущей ячейки можешь? ну а дальше либо стрелку вправо, либо home+down. не?
12 Wobland
 
01.02.12
14:56
(11) теперь посмотрел картинку ;)
13 Shaman100M
 
01.02.12
14:57
должно работать...

ТекЗначение    = Таблица.ЗначениеТекущейЯчейки(ТекАдрес);
Если ПустоеЗначение(ТекЗначение)    = 1 Тогда    
   НомКолонки    = Число(СтрПолучитьСтроку(СтрЗаменить(ТекАдрес,"C",РазделительСтрок),2));
   НомСтроки    = Число(Сред(СтрПолучитьСтроку(СтрЗаменить(ТекАдрес,"C",РазделительСтрок),1),2));
   
   НайденаКолонка    = 0;                                                      
   Для М1    = НомКолонки    + 1 По Таблица.ШиринаТаблицы() Цикл
       Если ПустоеЗначение(Таблица.Область(НомСтроки,М1).Текст)    = 0 Тогда
           НайденаКолонка    = М1;
           Прервать;
       КонецЕсли;
   КонецЦикла;
   Если НайденаКолонка    > 0 Тогда
       НадоВправо    = НайденаКолонка    - НомКолонки;
       Вс=CreateObject("WScript.Shell");
       Вс.SendKeys("{RIGHT "    + НадоВправо + "}");
   КонецЕсли;
КонецЕсли;
14 Shaman100M
 
01.02.12
15:11
+ (13) свойства формы - использовать таблицу - пустую, вроде так, судя по картинке. Работает.
15 1Сергей
 
01.02.12
15:20
(13) вроде, работает. Спасибо.
но, мне нужно не по тексту проверять, а по расшифровке. И тут возникла одна проблема
16 1Сергей
 
01.02.12
15:23
Всё работает. Респект, Shaman100M
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс