Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Создать словарь через Split, VBA
 
#1
27.11.2015 09:05:37
Здравствуйте.
Пытаюсь вытащить kod из текстовой строки, через Split, создав при этом словарь.
Подскажите пожалуйста, где моя ошибка?

Спасибо.
Изменено: Владимир - 27.11.2015 09:08:07
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#2
27.11.2015 09:12:52
Код
=ПСТР(B2;ПОИСК("Код: ";B2;1)+5;100)
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
 
 
#3
27.11.2015 09:13:49
Код
[b2].CurrentRegion.Value

охватывает и ячейку A1
Учимся сами и помогаем другим...
 
 
 
#4
27.11.2015 09:14:13
isx = [b2].CurrentRegion.Value здесь у вас массив формируется не такой как вы хотели. F8 в vba в помощь
 
 
 
#5
27.11.2015 09:19:22
А зачем словарь?
Код
Sub kod()
    Dim kod, isx(), i%
    Range("a2:a300").ClearContents
    isx = [B2].Resize(WorksheetFunction.CountA([B2].EntireColumn), 1).Value
    
    For i = 1 To UBound(isx)
        [a2].Offset(i - 1) = Split(isx(i, 1), "Код: ")(1)
    Next
End Sub
Изменено: ber$erk - 27.11.2015 09:19:41
Учимся сами и помогаем другим...
 
 
 
#6
27.11.2015 09:33:00
Там не будет слова "Нужно.." - это лишь для примера.
Цитата
ber$erk написал: А зачем словарь?
Затем, что это маленькая часть другого проекта. Нужен именно словарь.  
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#7
27.11.2015 09:39:14
словарь уберет дубли - это вам тоже нужно?
Код
Sub kod()
Dim kod, isx(), i%, sd As Object
Range("a2:a300").ClearContents
isx = Range([b2], [b2].End(xlDown)).Value

Set sd = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(isx)
        kod = Split(isx(i, 1), "Код: ")(1)
        sd.Item(kod) = ""
    Next
[A2].Resize(sd.Count) = Application.Transpose(sd.Keys)

End Sub
 
 
 
#8
27.11.2015 09:58:55
Там нет дублей, видно ошибка при создании примера затесалась.
Ребята, всем большое спасибо.
V, Вам отдельное vip-спасибо.
:-)
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#9
03.12.2015 15:27:29
А как быть если повторы всё-таки есть? Или в этом случае словарь уже не метод?
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#10
03.12.2015 15:29:24
Владимир, может коллекции?

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#11
03.12.2015 15:41:16
Я только учусь, не знаю что это. С удовольствием рассмотрю коллекции.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#12
03.12.2015 16:07:15
Владимир, может пригодится?
 
 
 
#13
03.12.2015 16:15:20
Иван, спасибо. У меня это есть.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#14
03.12.2015 16:20:06
а зачем Вам в словаре хранить дубли?
 
 
 
#15
03.12.2015 16:29:18
У меня цель  - найти соответствие в другом файле.
Для продаж данный код подходит, а вот для заказов уже нет, т.к. там одна и та же позиция может быть заказана не раз.
Изменено: Владимир - 03.12.2015 16:38:11 (Перезалил)
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#16
03.12.2015 16:39:02
можно составить составной ключ для словаря (например код&"_"&количество) и по нем проверять соответствие.
просто с примера не понятно, что Вы пытаетесь с чем сопоставить
Дошло, Вам просто нужно слева либо № либо код подставить? Так для этого словарь не нужен
Изменено: Ivan.kh - 03.12.2015 16:52:22
 
 
 
#17
03.12.2015 16:45:40
Код
With CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(arr)
        temp = Split(arr(i, 1), "Код: ")(1)
        .Item(temp) = ""
    Next
[a2].Resize(.Count) = Application.Transpose(.keys)
Вывожу первый диапазон, который вытаскивает Сплитом из текстовой строки код.

arr2 = [a2].Resize(UBound(arr)).Value,  - это диапазон который получился после Сплита.
Код
Set TempZak = Workbooks.Open("F:\QQQ\Файл.XLS")
kod = Range("N3:P" & Cells(Rows.Count, 14).End(xlUp).Row).Value
TempZak.Close
Открываю другую книгу и делаю ссылку на диапазон Range("N3:P..") , т.к. именно в этом файле находится нужный мне код товара, который нужно переместить в исходный файл.
 
Код
    For i = 1 To UBound(kod)
            .Item(kod(i, 3)) = i
        Next
        ReDim c(1 To UBound(arr), 1 To 1)
        For i = 1 To UBound(arr)
            If .exists(arr2(i, 1)) Then
                ii = .Item(arr2(i, 1))
                c(i, 1) = kod(ii, 1)
            End If
        Next
End With
Columns(1).NumberFormat = "@"
[a2].Resize(UBound(arr)) = c()
Переместил благополучно. Но когда попробовал использовать этот метод с повторяющимися кодами, то потерпел фиаско.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#18
04.12.2015 10:31:25
Владимир, ответил Вам в почту.
 
 
 
#19
04.12.2015 13:55:32
Иван, спасибо большое.
Очень красивый код.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
Страницы: 1
Наверх