This is a simple example but it shows how useful a Dictionary is. MsgBox sFruit & " does not exist." End If Set dict = Nothing End Sub MsgBox sFruit & " exists and has value " & dict(sFruit) SFruit = InputBox( "Please enter the name of a fruit") Dim dict As New Scripting.Dictionaryĭim sFruit As String ' Ask user to enter fruit ' Check box beside "Microsoft Scripting Runtime" in the list. ' Select Tools->References from the Visual Basic menu. If no then it informs the user the fruit does not exist.If yes then it displays the fruit name and the value.The code checks if this fruit is in the Dictionary.The user is asked to enter the name of a fruit.Adds three fruit types and a value for each to a Dictionary.The code below give a simple but elegant example of using the Dictionary. You look up an item based on a unique value.Ī Simple Example of using the VBA Dictionary In Excel the VLookup function works in a similar way to a Dictionary. Again you use the name\address combination to quickly find a phone number. The Key in a phone book is the name\address and the Item is the phone number. You don’t read through every item in the Dictionary.Ī second real world example is a phone book(remember those?). When you want to find the definition of a word you go straight to that word. The Keys are the words and the Items are the definition. A real-world dictionary has a list of keys and items. If you are still not clear about a Dictionary then think of it this way. ( Note: Website members have access to the full webinar archive.) If you are a member of the VBA Vault, then click on the image below to access the webinar and the associated source code. We could use both a Collection and a Dictionary like this ' Add to Dictionary Imagine we are storing the count of different fruit types. Using both types, we can name an item when we add it. For example, we could use them to store a list of customer names, student marks or a list of values from a range of cells.Ī Dictionary is similar to a Collection.
In VBA we use Arrays and Collections to store groups of values. Make key non case sensitive (the dictionary must be empty). Make key case sensitive (the dictionary must be empty). Go through all items (for loop - early and late binding)ĭebug.Print dict.Keys()(i), dict.Items()(i) Go through all items (for loop - early binding only) Get a value from the dictionary using the key Automatically adds if the key does not exist. Set dict = CreateObject( "Scripting.Dictionary")Ĭhange value at key. (Add using Tools->References from the VB menu) 19.3 Example 3 – Summing Multiple ValuesĪ Quick Guide to the VBA Dictionary Function.19.2 Example 2 – Dealing with Multiple Values.18 Writing the Dictionary to the Worksheet.16.4 Useful Tips for Troubleshooting the Dictionary.6 A Simple Example of using the VBA Dictionary.
0 kommentar(er)
