Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Sera
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Импорт данных в Excel
 
#
01.12.2014 19:09:12
почту скиньте плз
 
Перейти    
Импорт данных в Excel
 
#
01.12.2014 16:33:11
Здравствуйте!
Мне нужно реализовать следующую задачу.
Из сайта
https://www.marathonbet.com/su/live.htm
http://www.bet365.com/home/FlashGen4/WebConsoleApp.asp?lng=1&cb=105812129194
вытягивать информацию с промежутком, 3 сек, 15 сек, 30 сек, 1 мин, 3 мин, на свое усмотрение.
К примеру я выбираю один из матчей из списка лайв, которые у них есть на сайте. Матчи разбиты на категории, в зависимости от вида спорта и чемпионата.
Пусть это будет футбол - Чемпионат Франции - Марсель - Бордо.
Ставлю галочку напротив матча и жму показать.
Мне отображается страница с шапкой и обновляющимся данными (коэффициентами) с промежутком, 15 сек, 30 сек, 1 мин, 3 мин, в зависимости от вида спорта и чемпионата.
После выбора я должен запустить то ли макрос, то ли программу и вытягивать все коэффициенты, и компоновать в таблицы, которые заранее будут сделаны в качестве шаблонов.
Вариант упрощенный.
Возможно ли это реализовать? и цена вопроса
 
Перейти    
скрыть/отобразить столбцы посредством выпадающего списка
 
#
19.11.2014 20:21:44
Юрий спасибо за ответ! задача решена.

Дополнительные функции:
  - возможно ли лист бокс сворачивать в размер ячейки и разворачивать при наведении мышкой, и группировать данные внутри лист бокса ?
Внешний вид:
  - возможно ли скрывать ячейку  со столбом, где находится листбокс? без потери размеров.
  То есть привести это все в вид, который показан в файле.
Изменено: Sera - 19.11.2014 20:35:14
 
Перейти    
скрыть/отобразить столбцы посредством выпадающего списка
 
#
18.11.2014 23:18:17
что то подобное реализовано пользователем Igor67
 
Перейти    
скрыть/отобразить столбцы посредством выпадающего списка
 
#
18.11.2014 23:01:29
Всем привет!
Подскажите как реализовать задачу:
Есть данные в столбах "B:L" строка 1
необходимо чтобы в ячейке А1 появлялся выпадающий список как в А3, с условием, если галочка стоит, то столбец развернут, если нет, столбец свернут
 
Перейти    
Привязка объектов Active X к ячейкам, привязать CheckBox к ячейке а не к верхнему и левому краю
 
#
17.11.2014 20:13:41
Юрий нашел то, что искал в разделе готовые решения в следующий статьях
"Пометка элементов списка"
"Скрытие/отображение ненужных строк и столбцов".
Спасибо))
 
Перейти    
Привязка объектов Active X к ячейкам, привязать CheckBox к ячейке а не к верхнему и левому краю
 
#
17.11.2014 19:44:28
Цитата
Юрий М пишет:  Я подсказал ГДЕ искать, но искать за Вас не обязан. Сразу после моего ответа см. ответ JeyCi . Пункт 2.
Юрий, можно ответить и так, ищете в интернете))
 
Перейти    
Привязка объектов Active X к ячейкам, привязать CheckBox к ячейке а не к верхнему и левому краю
 
#
17.11.2014 18:53:12
Цитата
Юрий М пишет:
Вариант: использовать псевдо-чекбоксы. См. раздел "Приемы"
Юрий, который раз читаю Ваши ответы такое ощущение, что Вы всегда отвечаете для галочки.
Я понимаю, что Вы опытный пользователь, но для меня, как для новичка, Ваши ответы являются бОльшим вопросом, чем я задаю))

Пробовал найти топик псевдо-чекбоксы. в разделе "Приемы" так ничего и не нашел((
 
Перейти    
Привязка объектов Active X к ячейкам, привязать CheckBox к ячейке а не к верхнему и левому краю
 
#
17.11.2014 10:59:05
если чекбоксу прописать макрос отобразить или скрыть, то он смещается при скрытии
 
Перейти    
Привязка объектов Active X к ячейкам, привязать CheckBox к ячейке а не к верхнему и левому краю
 
#
17.11.2014 10:38:03
Все привет!
Возможно ли как то привязать CheckBox к ячейке а не к верхнему и левому краю?
 
Перейти    
Как совместить код действия и функции, объекты ActiveX
 
#
17.11.2014 07:26:23
Код
Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False
    If ToggleButton1.Value = True Then
        For i = 10 To 100
        Me.OLEObjects("ToggleButton" & i).Visible = True
        Me.OLEObjects("ToggleButton" & i).Placement = 2
        Columns("A:V").Select
        Selection.EntireColumn.Hidden = False
        Range("CK1").Select
    Else
        For i = 34 To 62
        Me.OLEObjects("ToggleButton" & i).Visible = False
        Columns("A:V").Select
        Selection.EntireColumn.Hidden = True
        Range("CK1").Select
    End If
Application.ScreenUpdating = True
End Sub


complete error
пишет Else without if
 
Перейти    
Как совместить код действия и функции, объекты ActiveX
 
#
16.11.2014 23:06:29
выдает ошибку
 
Перейти    
Как совместить код действия и функции, объекты ActiveX
 
#
16.11.2014 19:13:12
Всем привет
помогите к одной кнопке привязать следующие действия

Код
Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False
    If ToggleButton1.Value = True Then
        Columns("A:V").Select
        Selection.EntireColumn.Hidden = False
        Range("CK1").Select
    Else
        Columns("A:V").Select
        Selection.EntireColumn.Hidden = True
        Range("CK1").Select
    End If
Application.ScreenUpdating = True
End Sub

" сюда же добавить нижеперечисленное 

Application.ScreenUpdating = False
    If ToggleButton1 = True Then
    For i = 10 To 100
        Me.OLEObjects("ToggleButton" & i).Visible = True
        Me.OLEObjects("ToggleButton" & i).Placement = 2
    Next
    Else
    For i = 34 To 62
        Me.OLEObjects("ToggleButton" & i).Visible = False
    Next
    End If
Application.ScreenUpdating = True
 
Перейти    
Одновременно вывести на экран несколько элементов ActiveX,
 
#
15.11.2014 02:20:25
всем спасибо за ответы
 
Перейти    
Одновременно вывести на экран несколько элементов ActiveX,
 
#
14.11.2014 21:41:29
Всем привет!
При выполнении задачи Excel выводит на экран CheckBox1,2,3... 18  по порядку каждый элемент, тем самым происходит прерывание на экране.
Можно как то написать эту задачу, чтобы все CheckBox вывелись одновременно?

Код


Код
Private Sub ToggleButton19_Click()
    If ToggleButton19 = True Then
      Worksheets(1).CheckBox1.Visible = True
      Worksheets(1).CheckBox2.Visible = True
      Worksheets(1).CheckBox3.Visible = True
      Worksheets(1).CheckBox4.Visible = True
      Worksheets(1).CheckBox5.Visible = True
      Worksheets(1).CheckBox6.Visible = True
      Worksheets(1).CheckBox7.Visible = True
      Worksheets(1).CheckBox8.Visible = True
      Worksheets(1).CheckBox9.Visible = True
      Worksheets(1).CheckBox10.Visible = True
      Worksheets(1).CheckBox11.Visible = True
      Worksheets(1).CheckBox12.Visible = True
      Worksheets(1).CheckBox13.Visible = True
      Worksheets(1).CheckBox14.Visible = True
      Worksheets(1).CheckBox15.Visible = True
      Worksheets(1).CheckBox16.Visible = True
      Worksheets(1).CheckBox17.Visible = True
      Worksheets(1).CheckBox18.Visible = True
    Else
      Worksheets(1).CheckBox1.Visible = False
      Worksheets(1).CheckBox2.Visible = False
      Worksheets(1).CheckBox3.Visible = False
      Worksheets(1).CheckBox4.Visible = False
      Worksheets(1).CheckBox5.Visible = False
      Worksheets(1).CheckBox6.Visible = False
      Worksheets(1).CheckBox7.Visible = False
      Worksheets(1).CheckBox8.Visible = False
      Worksheets(1).CheckBox9.Visible = False
      Worksheets(1).CheckBox10.Visible = False
      Worksheets(1).CheckBox11.Visible = False
      Worksheets(1).CheckBox12.Visible = False
      Worksheets(1).CheckBox13.Visible = False
      Worksheets(1).CheckBox14.Visible = False
      Worksheets(1).CheckBox15.Visible = False
      Worksheets(1).CheckBox16.Visible = False
      Worksheets(1).CheckBox17.Visible = False
      Worksheets(1).CheckBox18.Visible = False
    End If
End Sub
Изменено: Sera - 15.11.2014 11:37:39
 
Перейти    
Как при помощи ToggleButton1 одновременно скрыть или отобразить столбцы и активировать ToggleButton2 ToggleButton3 и т.д., при помощи VBA кода
 
#
12.11.2014 13:53:35
спасибо, а второе условие (+ отжать кнопки 1, 2, 3 , 4, 5) выполнить возможно?
 
Перейти    
Как при помощи ToggleButton1 одновременно скрыть или отобразить столбцы и активировать ToggleButton2 ToggleButton3 и т.д., при помощи VBA кода
 
#
12.11.2014 05:54:18
Возможно эту задачу можно реализовать через UserForm?
 
Перейти    
Как при помощи ToggleButton1 одновременно скрыть или отобразить столбцы и активировать ToggleButton2 ToggleButton3 и т.д., при помощи VBA кода
 
#
12.11.2014 03:58:49
Все привет!
Помогите решить следующую задачу.
Есть таблица, которая разбита на 3 категории: 1. Месяц    
2. Неделя
3. День недели
Соответственно на каждую категорию создана кнопка ToggleButton.

Как при помощи
   нажатой кнопки ToggleButton 1(1 категория - месяц) скрыть столбцы "D:AL" и соответственно нажать остальные кнопки второй и третьей категории.
  отжатой кнопки ToggleButton 1(1 категория - месяц) отобразить столбцы "D:AL" и соответственно отжать остальные кнопки второй и третьей категории.
Другими словами
нажать кнопку ToggleButton = скрыть столбцы "D:AL" + отжать кнопки 1, 2, 3 , 4, 5
Изменено: Sera - 12.11.2014 10:43:38
 
Перейти    
Выбор столбцов для отображения
 
#
08.11.2014 02:31:35
Z,как я понимаю расширенный фильтр работает по строкам, а не по столбцам
 
Перейти    
Выбор столбцов для отображения
 
#
08.11.2014 02:30:29
Alexander88,не подходит в любой момент этот столб необходимо отобразить, а таких столбцов около 300, и искать его долго
 
Перейти    
Выбор столбцов для отображения
 
#
07.11.2014 19:20:16
Всем привет!
Столкнулся с задачей.
Моя таблица состоит из 310 столбцов и 1500 строк.
Некоторые столбцы и строки взаимосвязаны друг с другом, то есть некоторые столбцы используются для заполнения данных, некоторые для вычислений.
Задача отображать на экране задаваемые столбцы.
Пробовал с помощью группировки. Неудобство заключается в том, что если мне надо отобразить столбцы к примеру 2 и 5 группировки, то нажимая цифру 5 открываются все группировки с 1ой по 5ую включительно.  Макросы никогда не писал, язык программирования не понятен.
 
Перейти    
Страницы: 1
Наверх