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

[TC] xls

здравствуйте. подскажите как сделать чтоб в xls, по комбинации
клавиш проговаривалась первая ячейка в ряду. например я нахожусь на
c23 нажал клавишу и проговорилось что в c1. помню в jaws 11 у меня такое
работало. но не помню как выглядел скрипт

Ответить   Sat, 31 Oct 2020 13:16:06 +1100 (#3660140)

 

Ответы:

Здравствуйте, Михаил Якубов.

Вы писали суббота, 31 октября 2020 г. 6:16

Подозреваю, вам нужно определить строку и столбец с заголовками для листа.
Это делается в быстрых настройках по ins+v. Тогда по ins+c помимо текущей
ячейки будут озвучиваться и заголовки.

Ответить   Sun, 1 Nov 2020 12:58:33 +0400 (#3660143)

 

здравствуйте. нет, не это, помню был скрипт я нажимал комбинацию
например контр 1 говорилась первая в ряду. я сделал копию скрипта и
внутри скрипта что то поменял на цифру 2 и уже мог и прослушать вторую
ячейку в ряду.

Ответить   Sun, 01 Nov 2020 20:37:14 +1100 (#3660150)

 

Здравствуйте, Михаил.

Вы писали 31 октября 2020 г., 6:16:06:

вот скрипт, что писал для себя по этому поводу. понятно, что это для
простого оформления таблицы.
текст скрипта:
Script SayColumnTextMeTable ()
; Читает заголовок текущей ячейки, двойное нажатие приводит к выходу окна с
редактором для подробного ознакомления с текстом ячейки
; горячка: ctrl + windows + alt + Home
Var
Int iColumn, ; номер колонки
Int iRow, ; номер строки
handle hWND,
handle hNull, ; нулевая переменная
String sOut ,
Int VolMy,
String SText ; переменная содержащая введёный текст

;PlaySound (GetSharedSettingsDirectory ()+"\\SOUNDS\\Pop.wav")

If GetCellCoordinates (iColumn, iRow) Then
if IsSameScript() == 1 then
SText = GetColumnText ("\r\n", "", "", 1, 1)
InputBox ("Данный редактор для подробного ознакомления с текстом ячейки.",
"Уточняем текст", SText)
PlaySound (GetSharedSettingsDirectory ()+"\\SOUNDS\\PianoDown1-D-C.wav")
return
EndIf
SayString (GetColumnText ("\r\n", "", "", 1, 1))
Else
SayString ("Не в таблице")
PlaySound (GetSharedSettingsDirectory ()+"\\SOUNDS\\Piano1-C.wav")
EndIf

EndScript
удачи.

Ответить   Mon, 2 Nov 2020 11:26:01 +0400 (#3660163)