Excel Макро Пример Коллекции

Question

Мои Данные

Person  City New City 
A   P 
B   Q 
C   R 

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

Я попытался создать макрос Excel, однако я не могу получить справочную библиотеку для того же самого. например

Dim RandomClass As New Random() 
Dim RememberSet As New HashSet(Of Integer) 

Dim RandomNumber As Integer 

While RememberSet.Count < 5 
    RandomNumber = RandomClass.Next(0, 10) 
    If RememberSet.Add(RandomNumber) Then 
     MsgBox (RandomNumber) 
    End If 
End While 

дает ошибку времени компиляции в первых двух строках. Кто-нибудь может помочь? Или загрузите макрос excel, который использует список или коллекции?

Answer 1

Проблема в том, что вы используете синтаксис vb.net для проблемы vba. They are different languages, с различным синтаксисом. Вы говорите на другом языке. Excel использует vba, Visual Basic для Приложения т. Е. Приложения Microsoft. Корректируйте свой код и синтаксис соответственно.

Предполагая, что вы используете VBA в соответствии с вашим вопросом: для этого вы можете использовать List Item или Collection.

Dim varCollection As Collection 

Там нет List класса, который я знаю в vba как есть в c#

---

В VB (в отличие от VBA), вы можете использовать:

Dim varCollection As New Microsoft.VisualBasic.Collection()