last_post, $topic[ align= Последние сообщения
Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?
16.02.2019, 10:10:51

Войти
Добавляйтесь в нашу группу ВКонтакте - будьте в курсе всех новых событий сайта, узнавайте первым обо всех акциях и новых статьях!
29 787 Сообщений в 4 685 Тем от 6 861 Пользователей
Последний пользователь: гидра7
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Последние сообщения
Страниц: [1] 2 3 ... 10

 1 
 : 15.02.2019, 18:45:47 
Автор Tyrael - Последний ответ от Дмитрий Щербаков(The_Prist)
Как получить список уникальных(не повторяющихся) значений?
и потом:
Как сцепить несколько значений в одну ячейку по критерию? СцепитьЕсли

 2 
 : 15.02.2019, 18:12:12 
Автор Tyrael - Последний ответ от Tyrael
Добрый день. Нужен совет.
У меня такой вопрос, не могу найти формулу которая поможет мне в следующим:
Есть много дублированных значений, мне нужно из них оставить одно значение и совместить данные, например:
2A328-70   40
2A328-70   42

Нужно получить только 2A328-70 и значения в другом столбце совместить, получиться:
2A328-70   40, 42

 3 
 : 15.02.2019, 17:08:33 
Автор Venik - Последний ответ от Venik
Спасибо Дмитрий! Всё прекрасно работает.

 4 
 : 15.02.2019, 14:15:07 
Автор Venik - Последний ответ от Дмитрий Щербаков(The_Prist)
Как обратиться к диапазону из VBA
Select и Activate - зачем нужны и нужны ли?
Если кратко:

s.Cells.Replace What:="багаж", Replacement:="baggage", _ 
MatchCase:=False, SearchFormat:=False, _ 
ReplaceFormat:=False

 5 
 : 15.02.2019, 13:50:04 
Автор peoplecanfly1 - Последний ответ от peoplecanfly1
Спасибо большое! Все работает!   Веселый

 6 
 : 15.02.2019, 13:46:19 
Автор Venik - Последний ответ от Venik
Имеется книга со множеством листов.
Задача: заменить одни данные в ячейках на другие. Произвести замену на всех листах.

При выполнении макроса (приведен ниже),
замена происходит только на активном листе.
Нет перехода по всем листам. Объясните ошибку.
Код: (vb)

Sub ()
Dim s As Worksheet
Dim wb As Workbook
Set wb=ActiveWorkbook

For Each s In wb.Worksheets

'далее произвожу все нужные замены, приведу одну

Cells.Replace What:="багаж", Replacement:="baggage", _
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Next
End Sub




 7 
 : 15.02.2019, 12:46:57 
Автор peoplecanfly1 - Последний ответ от Дмитрий Щербаков(The_Prist)
я бы модифицировал код так:
Код: (vb)
Private Sub UserForm_Initialize()
Dim x, avArr, li As Long, lr As Long
Dim avVals
Dim rVals As Range, rResultCell As Range
Dim matnumber As Integer

matnumber = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Set rVals = ThisWorkbook.Worksheets(1).Range("A1:B" & matnumber)
avVals = rVals.Value
ReDim avArr(1 To Rows.Count, 1 To 2)

With New Collection
   On Error Resume Next
   For lr = 1 To UBound(avVals, 1)
        x = avVals(lr, 1)
        If Len(CStr(x)) Then
            .Add x, CStr(x)
            If Err = 0 Then
                li = li + 1
                avArr(li, 1) = x
                avArr(li, 2) = avVals(lr, 2)
            Else
                Err.Clear
            End If
         End If
     Next
End With

    If li Then
        ReDim avVals(1 To li, 1 To 2)
        For lr = 1 To li
            avVals(lr, 1) = avArr(lr, 1)
            avVals(lr, 2) = avArr(lr, 2)
        Next
        With Me.ComboBox1
            .List = avVals
            .ColumnCount = 2
        End With
    End If
End Sub

 8 
 : 15.02.2019, 11:12:40 
Автор peoplecanfly1 - Последний ответ от peoplecanfly1
Да, в скрине и нет уникальных значений, потому что я их не мог сделать Улыбка

Я последовал вашему совету и сделал код как в примере, с внесением сразу в комбобокс, выбор уникальных щначений из массива работает.
Код: (vb)

Private Sub UserForm_Initialize()
Dim x, avArr, li As Long
Dim avVals
Dim rVals As Range, rResultCell As Range
Dim matnumber As Integer

matnumber = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Set rVals = ThisWorkbook.Worksheets(1).Range("A1:A" & matnumber)
avVals = rVals.Value
ReDim avArr(1 To Rows.Count, 1 To 1)

With New Collection
   On Error Resume Next
   For Each x In avVals
   If Len(CStr(x)) Then
   .Add x, CStr(x)
   If Err = 0 Then
      li = li + 1
      avArr(li, 1) = x
      Else
      Err.Clear
      End If
    End If
     Next
End With

    If li Then
    With Me.ComboBox1
     .List = avArr
     .ColumnCount = 2
End With
End If
End Sub


Но как  сделать что бы он и 2 второй столбец отображал. Не только уникальный порядковый номер и но и название.
Так:
1   Test1 
А сейчас просто 

 
Я  на всякий случайвложил файл. Заранее спасибо!

 9 
 : 14.02.2019, 17:51:29 
Автор peoplecanfly1 - Последний ответ от Дмитрий Щербаков(The_Prist)
В общем-то, код получения уникального списка есть: Как получить список уникальных(не повторяющихся) значений?
там вообще все уже готово, останется только не выгружать на лист, а сразу передавать массив в ComboBox:
Код: (vb)
With Me.ComboBox1  
     .List = avArr
     .ColumnCount = 2
End With

и массив сделать с двумя столбцами. Хотя по скрину вообще не понял где здесь хоть намек на уникальные значения...Поэтому что должно быть в итоге так и не ясно.

 10 
 : 14.02.2019, 17:31:30 
Автор peoplecanfly1 - Последний ответ от peoplecanfly1
Наверно я плохо сформулировал свою мысль,  список из 2х колонок должен выглядить примерно так - во вложении.  
Это вроде даже не сложно, но где-то ошибка у меня.
На счет формата - как раз макросами я и хотел это сделать и файл этот  - просто пример, основной файл очень большой.  

Я находил готовые решения но только что бы отображлось одно значение в списке, ( и оно же проверялось) но что бы показывалось 2 значение и только одно проверялось, такого не смог найти.

Постарался объяснить как смог  Обеспокоенный

И да я походу приложил файл без кода совсем....

Код: (vb)

   Dim i As Long
       For i = 2 To ThisWorkbook.Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
ComboBox1.Font.Size = 17
ComboBox1.Font.Name = "Calibri"
ComboBox1.Font.Bold = True
        With Me.ComboBox1
            .AddItem
            .List(.ListCount - 1, 0) = ThisWorkbook.Worksheets("sheet1").Cells(i, 1).Value
            .List(.ListCount - 1, 1) = ThisWorkbook.Worksheets("sheet2").Cells(i, 2).Value
        End With
        

 

Страниц: [1] 2 3 ... 10
Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru