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

Страницы: 1
Инструментом "Данные - Из Интернета" данные вставляются в неверном формате
 
#
11.09.2018 16:19:04
Помогло включение при указании "Веб запроса" на вкладе "Параметры" параметра "Другие параметры импорта - Отключить распознавание дат"
 
Перейти    
Инструментом "Данные - Из Интернета" данные вставляются в неверном формате
 
#
11.09.2018 15:40:07
Добрый день
Excel 2013
инструментом  Данные - Из Интернета
вставляю данные с сайта http://mfd.ru/marketdata/ticker/history/?id=909&page=125
в результате часть данных превращается в дату (выделил в примере желтым)
отключал в "Свойства диапазона данных ..." - автоформат
делал все ячейки перед вставкой данных "Текст"
не помогает
каким образом обойти?
Изменено: andj25 - 11.09.2018 15:48:30
 
Перейти    
Группировка "Элементов управления формы" (не Актив Х), не Актив Х
 
#
07.09.2018 16:18:44
новое название темы
Группировка "Элементов управления формы" (не Актив Х)
 
Перейти    
Группировка "Элементов управления формы" (не Актив Х), не Актив Х
 
#
07.09.2018 08:57:03
разобрался
надо сначала добавить из "Элементы управления формы" (не Актив Х) "Группа"
спасибо
 
Перейти    
Группировка "Элементов управления формы" (не Актив Х), не Актив Х
 
#
07.09.2018 08:53:38
adike, и как они у вас в рамочку взялись?
 
Перейти    
Группировка "Элементов управления формы" (не Актив Х), не Актив Х
 
#
07.09.2018 08:49:40
adike, простите, "там" - это где?
 
Перейти    
Группировка "Элементов управления формы" (не Актив Х), не Актив Х
 
#
07.09.2018 08:33:34
Добрый день
возможно ли сделать чтобы "радио кнопка" из "Элементы управления формы" (не Актив Х) работали в группах, также как те что в Актив Х?
то есть если эти кнопки в одной группе то их можно нажимать в группе
сейчас же, эти кнопки объединенные в группы работают все вместе (нажимаешь любую и тут же выключается, в какой бы группе она не находилась)
пример приложил
Переключатели объединены в группы 3-5 и 6-7 - но работают почему-то как 1 группа
OptioButton объединены в группы 1-3 и 4-5 - работают как 2 группы (все ОК)
Изменено: andj25 - 07.09.2018 17:25:40
 
Перейти    
Перебор ComboBox в цикле
 
#
04.09.2018 08:33:19
Андрей VG, теперь я это понял
до этого примера
Цитата
Андрей VG написал:
comboCategory, comboLocation, comboProduct
я был в уверенности что комбобокс имеет номера типа combobox1, combobox2 и т.д.
 
Перейти    
Перебор ComboBox в цикле
 
#
04.09.2018 08:26:31
Юрий М,да
все решается :)
спасибо
 
Перейти    
Перебор ComboBox в цикле
 
#
04.09.2018 08:21:46
в целом я все понял (в части своей не осведомленности), принцип построения кода
большое спасибо :)
Юрий М, ваш метод более мне понятен
Изменено: andj25 - 04.09.2018 08:22:08
 
Перейти    
Перебор ComboBox в цикле
 
#
04.09.2018 08:19:25
Цитата
Юрий М написал:
Покажите строчку, где что-то "назначается" в моём  варианте.
Код
x In ActiveSheet.OLEObjects
x.Object
Изменено: andj25 - 04.09.2018 08:20:14
 
Перейти    
Перебор ComboBox в цикле
 
#
04.09.2018 08:12:31
а, я понял :)
combobox1 и т.д. это имя которое я назначил :) по факту оно может быть любым
в том числе
Цитата
Андрей VG написал:
comboCategory, comboLocation, comboProduct
и перебор выше абстрагируется от 1,2,3...5 и берет имена какие найдет :)
 
Перейти    
Перебор ComboBox в цикле
 
#
04.09.2018 08:07:31
а разве нет?
т.е. я прямо сказал комбобокс такой номер - сделать то то
все выше описанные методы сначала назначают что-то, потом делают действия :)
мне объектоориентирование сложно :) сижу - учу
Изменено: andj25 - 04.09.2018 17:23:40
 
Перейти    
Перебор ComboBox в цикле
 
#
04.09.2018 08:00:53
БМВ, Юрий М,

прямой способ :)
Код
ComboBox(i).Clear
т.е. прямо говорю что combobox номер такой то :)

не прямой :) (мне пока не понятный)
Код
x.Object.Clear

 
Перейти    
Перебор ComboBox в цикле
 
#
04.09.2018 07:30:25
т.е. перебор, скажем так, прямым способом не возможен?
все предложенные методы для меня как китайская грамота :)
пойду читать про эти способы

спасибо всем
 
Перейти    
Перебор ComboBox в цикле
 
#
03.09.2018 16:49:02
на листе (наверное)
ComboBox строится через "Режим конструктора" - Элемент Актив Х
Изменено: andj25 - 03.09.2018 17:01:39
 
Перейти    
Перебор ComboBox в цикле
 
#
03.09.2018 16:44:50
Добрый день
подскажи, что не так в коде?
должно по циклу перебирать все ComboBox, присваивая свойства и очищая их
Код
'очистка списка, только значения списка и "обнуление курсора"
For i = 1 To 15
ComboBox(i).Clear
ComboBox(i).Style = fmStyleDropDownList
ComboBox(i).ListIndex = Null
Next i
 
Перейти    
Извлечение данных из ячейки (от второго дефиса справа)
 
#
19.06.2017 14:02:35
yozhik,
у меня нашел по адресу
\Program Files (x86)\Microsoft Office\Office15\1049\FUNCS.XLS2

открыл принудительно Excel
все нормально, все видно
Изменено: andj25 - 19.06.2017 14:04:58
 
Перейти    
Фильтр по строкам, а не столбцам возможен?, Необходимо скрывать ячейки
 
#
19.06.2017 10:52:47
Юрий М,
понял, еще раз Большое спасибо
 
Перейти    
Фильтр по строкам, а не столбцам возможен?, Необходимо скрывать ячейки
 
#
16.06.2017 18:50:33
Юрий М,2 столбец и другое место построения списка
Большое спасибо

PS
как у Вас в форме строится список с возможностью выбора (простановки галочки)?
если выбрать элемент ListBox, то он строит список без CheckBox  
Изменено: andj25 - 16.06.2017 22:15:23
 
Перейти    
Фильтр по строкам, а не столбцам возможен?, Необходимо скрывать ячейки
 
#
16.06.2017 16:28:39
помогите разобраться с приведенным кодом из 24 сообщения
как я понимаю
1. Private Sub Cmd_Hidde_Click() ' как понимаю это обработка кнопки показать выделенные ячейки
где в указанном коде
* поменять значения, если нам нужно использовать столбец начала не 3, а предположим 2? и надо ли что то меня если список формируется по 35 строке

2. Private Sub Cmd_ShowAll_Click() ' это обработка кнопки отобразить все

тут  Range(Cells(1, 3) меняем на  Range(Cells(1, 2) если условие выше делаем

3. Private Sub UserForm_Initialize() ' здесь формируется список
изменяя
i = 3 мы меняем столбец с которого начинает формироваться список  
.List(x, 1) = Cells(1, i).Value - меняем Cells( __, ) мы меняем номер строчки из которой брать значения для списка. например на Cells(35, i) если список формируется в 35 строчке
Код
Private Sub Cmd_Hidde_Click() ' как понимаю это обработка кнопки показать выделенные ячейки
Dim i As Long, LastColumn As Long, iCol As Integer
    LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
    Range(Cells(1, 3), Cells(1, LastColumn)).EntireColumn.Hidden = True
    For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) Then Columns(CInt(ListBox1.List(i, 0))).EntireColumn.Hidden = False
    Next
    Unload Me
End Sub

Private Sub Cmd_ShowAll_Click() ' это обработка кнопки отобразить все
Dim LastColumn As Long, i As Long
    LastColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    Range(Cells(1, 3), Cells(1, LastColumn)).EntireColumn.Hidden = False
End Sub

Private Sub UserForm_Initialize() ' здесь формируется список
Dim LastColumn As Long, i As Long
    LastColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    x = 0
    With ListBox1
        For i = 3 To LastColumn
            .AddItem ""
            .List(x, 0) = i
            .List(x, 1) = Cells(1, i).Value
            x = x + 1
        Next
    End With
End Sub
сделал как я все это понял
список у меня (список текстовый не цифровой) по 35 строке и скрывать нужно начиная со 2 столбца
но
1. список отрабатывается как надо (строится)
2. при выборе ячеек присходит скрытие 1-3 столбца и всё, выбранный список не срабатывает
3. по кнопке отобразить всё 1 столбец не расскрывается
Код
Private Sub Cmd_Hidde_Click()
Dim i As Long, LastColumn As Long, iCol As Integer
    LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
    Range(Cells(1, 2), Cells(1, LastColumn)).EntireColumn.Hidden = True
    For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) Then Columns(CInt(ListBox1.List(i, 0))).EntireColumn.Hidden = False
    Next
    Unload Me
End Sub

Private Sub Cmd_ShowAll_Click()
Dim LastColumn As Long, i As Long
    LastColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    Range(Cells(1, 2), Cells(1, LastColumn)).EntireColumn.Hidden = False
End Sub

Private Sub UserForm_Initialize()
Dim LastColumn As Long, i As Long
    LastColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    x = 0
    With ListBox1
        For i = 2 To LastColumn
            .AddItem ""
            .List(x, 0) = i
            .List(x, 1) = Cells(35, i).Value
            x = x + 1
        Next
    End With
End Sub

может этот код не подходит для 2013, 2016 офиса?
Изменено: andj25 - 19.06.2017 10:47:25
 
Перейти    
Страницы: 1
Наверх