Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Не могу присвоить значение элементу массива, который сам является значением словаря
 
#1
13.01.2021 16:54:38
Добрый вечер.
Делаю значением словаря массив, но не могу присвоить элементу этого массива значение.
Код:
Код
Sub slomas1()
    Set dic = CreateObject("Scripting.Dictionary")
    Dim x(1 To 4)
    dic(100) = x
    dic(100)(1) = 44
    MsgBox dic(100)(1)
End Sub
возвращает пустоту, а не 44
 
 
 
#2
13.01.2021 17:03:40
Код
dic(100)(1) = 44
так нельзя. Надо сначала извлечь значение из словаря, изменить и заново поместить:
Код
atmp = dic.Items(100)
atmp(1) = 44
dic.Items(100) = atmp
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
13.01.2021 17:13:59
Дмитрий,
Код
Sub slomas1()
    Set dic = CreateObject("Scripting.Dictionary")
    Dim x(1 To 4)
    dic(100) = x
    atmp = dic.Items(100)
    atmp(1) = 44
    dic.Items(100) = atmp
    MsgBox dic(100)(1)
End Sub
выдаёт ошибку
 
 
 
#4
13.01.2021 17:15:24
Item вместо Items....
Изменено: Дмитрий(The_Prist) Щербаков - 13.01.2021 17:16:20
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#5
13.01.2021 17:20:49
Код
Sub slomas1()
    Set dic = CreateObject("Scripting.Dictionary")
    Dim x(1 To 4)
    x(1) = 44
    dic(100) = x
    MsgBox dic(100)(1)
End Sub
так работает, то есть сначала присваиваю значение элементу массива, а потом этот самый массив впихиваю в значение словаря
 
 
 
#6
13.01.2021 17:21:38
выше дописал - недоглядел одну строку в коде.  
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#7
13.01.2021 17:24:05
Цитата
Дмитрий(The_Prist) Щербаков:  Item вместо Items....
спасибо, Дмитрий, так тоже работает.
 
 
 
#8
13.01.2021 17:34:51
Код
Sub slomas1()
    Dim bbb()
    Set dic = CreateObject("Scripting.Dictionary")
    ar = Array(1, 2, 1, 3)
    For i = 1 To 4
        If dic.exists(ar(i - 1)) Then
            ReDim bbb(2)
            bbb = dic.Item(ar(i - 1))
            bbb(1) = 1000
            dic.Item(ar(i - 1)) = bbb
        Else
            ReDim bbb(2)
            For j = 0 To 2
                bbb(j) = j * 2
            Next
            dic(dic.Count) = bbb
        End If
    Next
   it = dic.Items
   k = dic.keys
End Sub
 
 
 
#9
13.01.2021 17:42:54
Aндрей, спасибо.
 
 
 
Страницы: 1
Наверх