Author Topic: Чтение ячейки Excel и вывод результата  (Read 3014 times)

0 Members and 2 Guests are viewing this topic.

omiron

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

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

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

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Чтение ячейки Excel и вывод результата
« Reply #1 on: December 12, 2016, 10:02:38 AM »
Куда пишет то?

И зачем здесь кликер?
формула:
Code: [Select]
=ЕСЛИ(ЕЧИСЛО($A1);"цифры";ЕСЛИ(ЕПУСТО($A1);"в ячейке пусто";"буквы"))и копируется во все ячейки куда нужно


omiron

  • Зашел в гости
  • *
  • Posts: 5
    • View Profile
Re: Чтение ячейки Excel и вывод результата
« Reply #2 on: December 12, 2016, 11:13:49 AM »
Очень рад что вы знаете как работать  с экселем.
Прошу кого-нибудь продемонстрировать мне знание кликермана. Заранее спасибо.

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Чтение ячейки Excel и вывод результата
« Reply #3 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
« Last Edit: December 12, 2016, 12:17:58 PM by Oraven »

omiron

  • Зашел в гости
  • *
  • Posts: 5
    • View Profile
Re: Чтение ячейки Excel и вывод результата
« Reply #4 on: December 13, 2016, 09:14:03 AM »
Спасибо Oraven! Именно это мне и было нужно!