वीबीए का उपयोग करके एक्सेल में डेटा एनकोड करने के लिए चरण-दर-चरण मार्गदर्शिका

चरण 1 - उचित पैरामीटर्स के साथ डेटासेट बनाना

आप छवि में हमारा डेटासेट देख सकते हैं।

<पी>

वीबीए का उपयोग करके एक्सेल में डेटा एनकोड करने के लिए चरण-दर-चरण मार्गदर्शिका

चरण 2 - डेवलपर टैब का उपयोग करना

<पी> एक्सेल अंतर्निहित डेवलपर टैब एप्लिकेशन के लिए विज़ुअल बेसिक का उपयोग करने के लिए आवश्यक उपकरण प्रदान करता है (वीबीए ) मैक्रो निष्पादित करने के लिए। आमतौर पर, टैब अक्षम है. इसे Excel विंडो के शीर्ष पर टूलबार पर दृश्यमान बनाने के लिए, इसे पहले विकल्प में सक्रिय करना होगा मेनू का अनुभाग बार.

डेवलपर खोलें टैब.
विज़ुअल बेसिक का चयन करें आदेश.

<पी>

चरण 3 - एक VBA उपयोगकर्ता-परिभाषित फ़ंक्शन बनाना

दविज़ुअल बेसिक विंडो खुल जाएगी.
सम्मिलित करें से विकल्प,मॉड्यूलचुनें VBA कोड लिखने के लिए.

<पी>

निम्नलिखित VBA कोड को मॉड्यूल में चिपकाएँ .
कोड सहेजें.

Function Encoding(text$)
Dim i
With CreateObject("ADODB.Stream")
.Open: .Type = 2: .Charset = "utf-8"
.WriteText text: .Position = 0: .Type = 1: i = .Read
With CreateObject("Microsoft.XMLDOM").createElement("b64")
.DataType = "bin.base64": .nodeTypedValue = i
Encoding = Replace(Mid(.text, 5), vbLf, "")
End With
.Close
End With
End Function

<पी>