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

Страницы: 1
Иерархия в VBA (ListBox), Помогите исправить код
 
#
19.11.2024 13:44:46
Проблема: имеется UserForm с семью ListBox на ней, которые забирают данные из листа 1 из столбца А, и в зависимости от того сколько точек содержит номер, он распределяет его в нужный ListBox, в котором он подчиняет "родительскому" выбору выше, имеется две проблемы, главная, иерархия в должной мере не работает нужным образом, не знаю почему, а вторая проблема - это отображает не фактическое значение из столбца, а количество "подчинений" "родительскому" выбору, но это можно увидеть только на примере двух ListBox, дальше код не работает. Очень прошу помочь знатоков разобраться
 
Перейти    
Копирование нескольких листов с помощью VBA, Как скопировать несколько листов на другой лист с помощью VBA
 
#
05.09.2024 15:51:03
Есть макрос для копирования с множественного количества листов, в целом код не ограничивает, сколько напишешь столько напишешь (здесь их 5), но он копирует и объединённых ячеек и вставляет таким же образом, но только первую странницу, нужно, чтобы данные копировались таким же образом из объединённых ячеек, при этом на листе Сбор информации они вставлялись по одному значению в одну ячейку, без объединения. Подскажите пожалуйста как добиться такого действия, и что неверно в моём коде? Ниже файл и вот сам код:  

Sub Sbor()
Dim Sht As Worksheet
Dim iLastRow As Long
Dim iLR As Long
Dim i As Long
Cells.Clear
  For Each Sht In Worksheets
    If Sht.Name = "Лист1" Or Sht.Name = "Лист2" Or Sht.Name = "Лист3" Or Sht.Name = "Лист4" Or Sht.Name = "Лист5" Then
      With Sht
        iLastRow = Cells(Rows.Count, "A").End(xlUp).Row + 1
        .Range("A1").CurrentRegion.Copy Cells(iLastRow, 1)
       End With
    End If
  Next
    iLastRow = Cells(Rows.Count, "A").End(xlUp).Row + 4
End Sub
 
Перейти    
VBA. Добавить иерархию в необходимом порядке в TreeView
 
#
05.09.2024 14:56:40
Всем привет, необходима помощь с правкой или полным изменением кода. Необходимо включить иерархию расположенную на Лист1 в модуль TreeView1, который расположен в UserForm1 с помощью COmmandButton на той же форме, код выдаёт ошибку, не понимаю почему, а также как это исправить, и вообще возможно ли такое, при том, чтобы раскрывающие списки сохранили всю иерархичность.

Вот код:

Скрытый текст
Изменено: Sanja - 09.09.2024 03:48:51 (Изменил название Темы, код скрыл под спойлер)
 
Перейти    
Создание пользовательской формы на VBA (Listbox), Нужно создать пользовательскую форму с такими блоками, как: ListBox, TextBox, CommandButton. Часть кода уже имеется, но моих навыков не очень хватило для понимания того, как это должно выглядеть, буду очень благодарен за помощь. Изучаю в собственных интер
 
#
10.07.2024 12:35:03
Имеется пользовательская форма, в которой есть строка поиска данных, список данных (ListBox), а также кнопка Добавить (Command Button), чтобы данные могли отображаться в выбранной ячейке
1. Не знаю как добавить функцию Scroll для ListBox, выдаёт ошибку
2. Как прописать код для TextBox, чтобы можно было вводить данные и работал поиск
3. Как выбранные данные добавить в ячейку с помощью кнопки Command Button
 
Перейти    
Обновление PQ с помощью макроса с ProgressBar, Имеется два кода на VBA, один из них на обновление баз данных из PQ, другой на отображение и работу ProgressBar. Нужно их объединить, но не понимаю как это сделать
 
#
26.06.2024 10:13:42
Код на обновление запросов в PQ

Sub UpdateQueryAll()
   ActiveWorkbook.RefreshAll
End Sub

Код для ProgressBar

Private Sub Main()
Dim j As String
j = 10000
For i = 1 To j
Call progress(i / j)
Next

Unload UserForm1

End Sub


Sub progress(Procent)
   With UserForm1
   .LabelProgress.Width = Procent * (.FrameProgress.Width)
   .Label1.Caption = Format(Procent, "0%" & "Completed")
   .Repaint
   End With
End Sub


Private Sub UserForm_Activate()
Call Main
End Sub

а также, код в модуле

Sub ShowProgress()
UserForm1.Show
End Sub
 
Перейти    
Страницы: 1
Наверх