Dictionary ऑब्जेक्ट

Dictionary ऑब्जेक्ट आपको कुंजी-मूल्य जोड़े के रूप में डेटा प्रबंधित करने देता है। VBA की Collection के विपरीत, Dictionary कुंजी अस्तित्व जांच, सभी कुंजियों/मूल्यों की पुनर्प्राप्ति, और सीधे मूल्य संशोधन प्रदान करता है।

Dictionary का उपयोग कब करें

• जब नाम (कुंजी) द्वारा डेटा खोजना हो
• जब कुंजी अस्तित्व की जांच करनी हो
• जब डेटा की गिनती या समूहीकरण करना हो
• जब अद्वितीय मूल्य फ़िल्टर करना हो

Dictionary बनाना

लेट बाइंडिंग (अनुशंसित)

Sub DictionaryLateBanaye()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")

    ' उपयोग के लिए तैयार
    Debug.Print TypeName(dict)  ' "Dictionary"
End Sub

बेसिक ऑपरेशंस

Add: आइटम जोड़ना

Sub DictionaryJodein()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")

    ' कुंजी-मूल्य जोड़े जोड़ें
    dict.Add "E001", "अमित शर्मा"
    dict.Add "E002", "प्रिया गुप्ता"
    dict.Add "E003", "राज कुमार"

    Debug.Print dict.Count  ' 3
    Debug.Print dict("E001") ' "अमित शर्मा"
End Sub

Exists: कुंजी जांच

Sub KunjiJanchein()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")

    dict.Add "E001", "अमित शर्मा"

    If dict.Exists("E001") Then
        Debug.Print "कुंजी मौजूद है: " & dict("E001")
    Else
        Debug.Print "कुंजी नहीं मिली"
    End If
End Sub

Remove: आइटम हटाना

Sub ItemHatayein()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")

    dict.Add "E001", "अमित शर्मा"
    dict.Add "E002", "प्रिया गुप्ता"

    Debug.Print "हटाने से पहले: " & dict.Count  ' 2

    dict.Remove "E001"

    Debug.Print "हटाने के बाद: " & dict.Count  ' 1
End Sub

RemoveAll: सभी आइटम हटाना

Sub SabHatayein()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")

    dict.Add "E001", "अमित शर्मा"
    dict.Add "E002", "प्रिया गुप्ता"

    dict.RemoveAll

    Debug.Print dict.Count  ' 0
End Sub

सभी आइटम में लूप करना

Keys और Items प्रॉपर्टी

Sub DictionaryLoop()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")

    dict.Add "E001", "अमित शर्मा"
    dict.Add "E002", "प्रिया गुप्ता"
    dict.Add "E003", "राज कुमार"

    ' सभी कुंजियों में लूप
    Dim key As Variant
    For Each key In dict.Keys
        Debug.Print key & ": " & dict(key)
    Next key
End Sub

प्रैक्टिकल उदाहरण

डेटा गिनती

Sub VibhaagGinein()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")

    ' नमूना डेटा
    Dim data As Variant
    data = Array("बिक्री", "HR", "बिक्री", "IT", "HR", "बिक्री")

    Dim item As Variant
    For Each item In data
        If dict.Exists(item) Then
            dict(item) = dict(item) + 1
        Else
            dict.Add item, 1
        End If
    Next item

    ' परिणाम दिखाएं
    Dim key As Variant
    For Each key In dict.Keys
        Debug.Print key & ": " & dict(key)
    Next key
    ' बिक्री: 3
    ' HR: 2
    ' IT: 1
End Sub

अद्वितीय मूल्य फ़िल्टर करना

Function AadwitiyaPrapt(rng As Range) As Variant
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")

    Dim cell As Range
    For Each cell In rng
        If Not dict.Exists(cell.Value) Then
            dict.Add cell.Value, True
        End If
    Next cell

    AadwitiyaPrapt = dict.Keys
End Function

Dictionary बनाम Collection

सारांश

• Dictionary: कुंजी-मूल्य डेटा प्रबंधन के लिए उत्कृष्ट
• Exists: डुप्लिकेट कुंजियों से बचने के लिए पहले जांचें
• Keys/Items: सभी डेटा को आसानी से एक्सेस करें
• लेट बाइंडिंग: रेफरेंस मुक्त उपयोग के लिए CreateObject का उपयोग करें

Dictionary जटिल डेटा प्रबंधन के लिए Collection से अधिक शक्तिशाली है।