Автокликер Clickermann :: Форум

Основной раздел => Общие вопросы => Topic started by: omiron on December 12, 2016, 08:16:46 AM

Title: Чтение ячейки Excel и вывод результата
Post by: omiron on December 12, 2016, 08:16:46 AM

Всем привет! Помогите, пожалуйста.
Есть таблица excel, в стобце А в случайном порядке размещены цифры 1 и 2 , буквы a, b и просто пустые ячейки.

Мне нужно что бы программа поочередно сканировала ячейки от А1 вниз и делала следующее:
- Если в ячейке буква а или b - программа пишет "буквы" - print("буквы")
- Если в ячейке буква 1 или 2 - программа пишет "цифры"
- Если в ячейке ничего нет - программа пишет "в ячейке пусто".

И таким образом построчно перебирает ячейки в столбце A вниз до 10й строки.
Можете, пожалуйста, написать как будет выглядеть скрипт.
Спасибо.

Title: Re: Чтение ячейки Excel и вывод результата
Post by: Vint on December 12, 2016, 10:02:38 AM

Куда пишет то?

И зачем здесь кликер?
формула:

Code: [Select]

=ЕСЛИ(ЕЧИСЛО($A1);"цифры";ЕСЛИ(ЕПУСТО($A1);"в ячейке пусто";"буквы"))и копируется во все ячейки куда нужно

Title: Re: Чтение ячейки Excel и вывод результата
Post by: omiron on December 12, 2016, 11:13:49 AM

Очень рад что вы знаете как работать  с экселем.
Прошу кого-нибудь продемонстрировать мне знание кликермана. Заранее спасибо.

Title: Re: Чтение ячейки Excel и вывод результата
Post by: Oraven on December 12, 2016, 12:11:53 PM

Вот

Code: (clickermann) [Select]

WAITMS(800)
LCLICK(300,15)  // клик по окну для фокуса
WAITMS(100)

FOR($a=0,$a<10) // количество строк
   KEYDOWN (#CTRL)
   WAITMS (40)
   KEYPRESS(#C)
   KEYUP (#CTRL)
   WAITMS (50)
   
   $str = FROMCLIP()
   IF(STRLEN(STRFILTER($str, "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюяABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890", 1)) = 0)
      LOGWRITE ("Пусто")
   ELSE
      IF(STRLEN(STRFILTER($str, "1234567890", 1)) > 0)
         LOGWRITE ("Цифры")
      ELSE
         IF(STRLEN(STRFILTER($str, "1234567890", 1)) = 0)
            LOGWRITE ("Буквы")
         END_IF
      END_IF
   END_IF
   
   KEYPRESS(#ESC)
   WAITMS (40)
   KEYPRESS(#DOWN)
   WAITMS (40)
END_CYC

HALT

Title: Re: Чтение ячейки Excel и вывод результата
Post by: omiron on December 13, 2016, 09:14:03 AM

Спасибо Oraven! Именно это мне и было нужно!