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

Страницы: 1 2 3 4 След.
Заголовки в listbox, Заголовки в listbox
 
#
04.09.2017 10:03:26
Спасибо, так и сделал!
 
Перейти    
Заголовки в listbox, Заголовки в listbox
 
#
04.09.2017 09:59:11
Лист бокс вставлен в лист непосредственно
 
Перейти    
Заголовки в listbox, Заголовки в listbox
 
#
04.09.2017 09:39:11
Заренее спасибо!
 
Перейти    
Заголовки в listbox, Заголовки в listbox
 
#
04.09.2017 09:38:50
Добрый день подскажите как прописать ручками заголвки если у меня лист бокс формируется массивом

Код
    For i = 1 To UBound(arr_Mass)
        If arr_Mass(i, 13) = "Открыт" Then
            ListBox1.AddItem arr_Mass(i, 1)
            ListBox1.List(Me.ListBox1.ListCount - 1, 1) = arr_Mass(i, 2)
            ListBox1.List(Me.ListBox1.ListCount - 1, 2) = arr_Mass(i, 6)
            ListBox1.List(Me.ListBox1.ListCount - 1, 3) = arr_Mass(i, 8)
            ListBox1.List(Me.ListBox1.ListCount - 1, 4) = arr_Mass(i, 9)
        End If
    Next
 
Перейти    
Сравнение значений в массиве
 
#
05.08.2017 22:44:05
методом тыкания я начал догадываться что то с типами...но не знал как проверить и как привести в один тип

Вообщем спасибо Юрий!
 
Перейти    
Сравнение значений в массиве
 
#
05.08.2017 22:38:12
Ура зработала, огромное спасибо! я так понял из за типов переменных!
 
Перейти    
Сравнение значений в массиве
 
#
05.08.2017 22:28:45
 arr_Garage :  : Variant(1 to 17, 1 to 11)

   : Id_Client : "2" : Variant/String
 
Перейти    
Сравнение значений в массиве
 
#
05.08.2017 22:23:29
вот если бы знал как)))
 
Перейти    
Сравнение значений в массиве
 
#
05.08.2017 22:19:58
Цитата
Юрий М написал:
При отладке чем равно значение переменной Id_Client? Это текст или число?
я то же на это грешу

массив берется из таблицы Range(Таблица)
 
Перейти    
Сравнение значений в массиве
 
#
05.08.2017 22:16:18
В лист боксе выбираю строку (при помощи мышки и клика по строке), в пером столбце у меня Id_Client, запоминаю это значение и пытаюсь сравнить со столбцом в массиве.

при этом вот так работает If InStr(1, arr_Garage(i, 2), Id_Client, vbTextCompare) = 1 Then, но не корректно (к прмиеру если Id_Client = 1, то выводит и 17 и 18)
 
Перейти    
Сравнение значений в массиве
 
#
05.08.2017 22:10:37
Код
    Id_Client = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
    'MsgBox Id_Client
    
    Dim i As Long
    Me.ListBox2.Clear
    For i = 1 To UBound(arr_Garage)
        'If InStr(1, arr_Garage(i, 2), Id_Client, vbTextCompare) = 1 Then
        If arr_Garage(i, 2) = Id_Client Then
            Me.ListBox2.AddItem arr_Garage(i, 1)
            Me.ListBox2.List(Me.ListBox2.ListCount - 1, 1) = arr_Garage(i, 3)
            Me.ListBox2.List(Me.ListBox2.ListCount - 1, 2) = arr_Garage(i, 4)
            Me.ListBox2.List(Me.ListBox2.ListCount - 1, 3) = arr_Garage(i, 5)
            Me.ListBox2.List(Me.ListBox2.ListCount - 1, 4) = arr_Garage(i, 6)
            Me.ListBox2.List(Me.ListBox2.ListCount - 1, 5) = arr_Garage(i, 7) & " RUS"
            Me.ListBox2.List(Me.ListBox2.ListCount - 1, 6) = arr_Garage(i, 8) & " ã."
        End If
    Next
Сравнение не выполняется если вместо Id_Client написать "1" то сравние проходит нормально!
Изменено: SergeyL1986 - 05.08.2017 22:10:56
 
Перейти    
Сравнение значений в массиве
 
#
05.08.2017 22:00:32
к сожалению пример сделать не так то просто...тут либо все скидывать...но он оне заработает так как пути прописаны криво к вспомогательным файлам(((
Не ужели не понятно из описания что я имею ввиду?
 
Перейти    
Сравнение значений в массиве
 
#
05.08.2017 21:54:52
11
22
31
417
518
621
вот массив
работает только если явно указать к примеру  = "1" или  = "2"

Id_Client  беру из лист бокса  
 
Перейти    
Сравнение значений в массиве
 
#
05.08.2017 21:45:15
Добрый день помогите пожалуйста решить задачку
Код
    For i = 1 To UBound(arr_Garage)
        'If InStr(1, arr_Garage(i, 2), Id_Client, vbTextCompare) = 1 Then А ЭТОТ ВАРИАНТ НЕ ПРАВИЛЬНЫЙ
        If arr_Garage(i, 2).Value = Id_Client.Value Then ЭТО ВАРИАНТ НЕ ПРОКАНЫВАЕТ
            Me.ListBox2.AddItem arr_Garage(i, 1)
            Me.ListBox2.List(Me.ListBox2.ListCount - 1, 1) = arr_Garage(i, 3)
            Me.ListBox2.List(Me.ListBox2.ListCount - 1, 2) = arr_Garage(i, 4)
            Me.ListBox2.List(Me.ListBox2.ListCount - 1, 3) = arr_Garage(i, 5)
            Me.ListBox2.List(Me.ListBox2.ListCount - 1, 4) = arr_Garage(i, 6)
            Me.ListBox2.List(Me.ListBox2.ListCount - 1, 5) = arr_Garage(i, 7) & " RUS"
            Me.ListBox2.List(Me.ListBox2.ListCount - 1, 6) = arr_Garage(i, 8) & " ã."
        End If
    Next

Как сделать точное сравнение?
 
Перейти    
[ Закрыто] Массивы, Сравнение значений массива и переменной
 
#
04.08.2017 02:03:06
Добрый день!
Подскажите пожалуйста как сравнить значения, if почему то не может сравнить значения. Прошу помочь сравнить значения
Код
      ID_Marka = Me.ListBox3.List(Me.ListBox3.ListIndex, 0)
    Marka = Me.ListBox3.List(Me.ListBox3.ListIndex, 1)
    'MsgBox ID_Marka ' тут к примеру 10
   
        For i = 1 To UBound(arrSrc2)
        If arrSrc2(i, 3) = ID_Marka Then ' arrSrc2(10, 3) = 10 то же 10

            Me.ListBox4.AddItem arrSrc2(i, 1)
            Me.ListBox4.List(Me.ListBox4.ListCount - 1, 1) = arrSrc2(i, 4)
        End If
    Next
 
Перейти    
Вывод в listbox из массива не нулевых строк, Вывод в listbox из массива не нулевых строк
 
#
02.08.2017 16:56:21
уже гуглел, как то особо и не понял как задавать галовки для лист боксов
 
Перейти    
Вывод в listbox из массива не нулевых строк, Вывод в listbox из массива не нулевых строк
 
#
02.08.2017 16:00:31
Спасибо! К стати вопрос на засыпку, как подписать заголовки в listbox?
 
Перейти    
Вывод в listbox из массива не нулевых строк, Вывод в listbox из массива не нулевых строк
 
#
25.07.2017 17:03:13
Подскажите как из массива arr_Client вывести все ненулевые строки
Код
    For i = 1 To UBound(arr_Client)
            Me.ListBox1.AddItem arr_Client(i, 1)
            Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = arr_Client(i, 2)
            Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = arr_Client(i, 6)
    Next
 
Перейти    
Адрес предыдущей ячейки
 
#
17.03.2017 10:13:07
Код
Private oldAddress As Variant
Private Sub Worksheet_Change
  MsgBox oldAddress
End sub
Код
Private Sub Worksheet_SelectionChange
  oldAddress = ActiveCell.Address
End sub

вроде как Worksheet_Change видит oldAddress...будем дальше эксперементировать )))
 
Перейти    
Адрес предыдущей ячейки
 
#
17.03.2017 09:39:02
что то не выходит при Worksheet_Change
 
Перейти    
Адрес предыдущей ячейки
 
#
16.03.2017 19:56:39
Прошу помощи в следующем вопросе (отыскать инфу в инете не удалось)
Как отследить адрес предыдущей выбранной ячейки, т.е. было А1 а стало С10, как узнать адерс ячей А1. Заранее спасибо!
 
Перейти    
В формуле СУММЕСЛИМН выборка за месяц, В формуле СУММЕСЛИМН выборка за месяц
 
#
02.03.2017 15:32:26
Подскажите где ошибка, не могу сделать выборку за определенный месяц. Даты в формате 08.02.2017
Код
=СУММЕСЛИМН(Табл[Сумма];МЕСЯЦ(Табл[Дата]);2)
 
Перейти    
Заблокировать строки от изменений по условию в умной таблице, Заблокировать строки от изменений по условию в умной таблице
 
#
25.02.2017 13:18:53
По любому есть какое то решение ))))
Заранее спасибо!
 
Перейти    
Заблокировать строки от изменений по условию в умной таблице, Заблокировать строки от изменений по условию в умной таблице
 
#
25.02.2017 11:03:59
Спасибо) вот нашел к стати интерестный вариант решения  
 
Перейти    
Заблокировать строки от изменений по условию в умной таблице, Заблокировать строки от изменений по условию в умной таблице
 
#
25.02.2017 00:16:29
Гуру экселя, подскажите как решить задачку
Есть "умная таблица" в ней есть строки и если лата в строке меньше текущей то ее надо заблокировать от изменения, при этом ссылки в этой строке нужно что бы работали.
Заранее спасибо
 
Перейти    
Создания файла через vba но при создании использовывался шаблон, Создания файла через vba но при создании использовывался шаблон
 
#
24.02.2017 20:27:54
Спасибо огромное
 
Перейти    
Создания файла через vba но при создании использовывался шаблон, Создания файла через vba но при создании использовывался шаблон
 
#
24.02.2017 19:31:29
Код
Sub CreatFiles()
    Dim strFilename, strDirname, strPathname, strDefpath As String
    On Error Resume Next ' If directory exist goto next line
    strDirname = "ТЕСТ2" ' New directory name

    strFilename = Intersect(Range("ДДС[Реквизиты]"), ActiveCell.EntireRow).Value 'New file name
    strDefpath = Application.ActiveWorkbook.Path 'Default path name
    If IsEmpty(strDirname) Then Exit Sub
    If IsEmpty(strFilename) Then Exit Sub

    MkDir strDefpath & "\" & strDirname
    strPathname = strDefpath & "\" & strDirname & "\" & strFilename 'create total string
    MsgBox strPathname
    
    
    Workbooks.Add.SaveAs Filename:=strPathname & ".xls", _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False
    
    
End Sub
Привожу код, подскажите:
как сюда вкорячить код который бы отвечал за содания файла через ранее созданный шаблон?
и как сделать что бы файл не открывался сразу

Заранее спасибо
 
Перейти    
Как вставить гипперссылку на сайт через VBA, Как вставить гипперссылку на сайт через VBA
 
#
23.02.2017 13:27:04
Код
"=HYPERLINK("" " & "адрес=" & "" & st & "  "")"

вообщем дошел вот до этого, вставляет ссылку правльно, но не как не пойму как подменить текст ссылки на ">>"


Заранее спасибо
 
Перейти    
Как вставить гипперссылку на сайт через VBA, Как вставить гипперссылку на сайт через VBA
 
#
23.02.2017 12:49:02
Как вставить гипперссылку на сайт через VBA
Код
Intersect(Range("Таблица[Ссылка]"), ActiveCell.EntireRow).Value = ВОТ ТУТ ЧТО ТО ДОЛЖНО БЫТЬ, при этом на конце ссылки брать данные из ячейки

Заранее спасибо
 
Перейти    
Блокирование строк (нельзя внести изминенения) "умной" таблицы через vba, Блокирование строк (нельзя внести изминенения) "умной" таблицы через vba, если текущая дата отличается от даты в строке
 
#
23.02.2017 12:15:00
СПасибо
 
Перейти    
Страницы: 1 2 3 4 След.
Наверх