Computer >> कंप्यूटर ट्यूटोरियल >  >> सॉफ्टवेयर >> Office

Power Query और VBA के साथ Excel सेल में भाषा स्वचालित रूप से पहचानें

जब आप Excel में बहुभाषी डेटा प्रबंधित कर रहे होते हैं, तो भाषा पहचान बहुभाषी डेटासेट, ग्राहक प्रतिक्रिया विश्लेषण, या सामग्री वर्गीकरण के लिए अविश्वसनीय रूप से उपयोगी हो सकती है।

इस ट्यूटोरियल में, हम दिखाएंगे कि Power Query या VBA का उपयोग करके Excel सेल में भाषा का स्वचालित रूप से पता कैसे लगाया जाए।

भाषा स्वचालित रूप से पहचानने के लिए Power Query

Power Query Excel में एक शक्तिशाली अंतर्निहित उपकरण है जो आपको डेटा आयात, साफ, और परिवर्तित करने की अनुमति देता है, और यहां तक कि API कॉल भी कर सकता है। आप Power Query के साथ DetectLanguage API, LibreTranslate API, या किसी भी सशुल्क API का उपयोग कर सकते हैं।

चरण 1: अपना मुफ़्त API कुंजी प्राप्त करें

  • DetectLanguage.com पर जाएं
  • साइन अप करें (मुफ़्त) और डैशबोर्ड से अपनी API कुंजी कॉपी करें।

Power Query और VBA के साथ Excel सेल में भाषा स्वचालित रूप से पहचानें

चरण 2: अपना डेटा टेबल तैयार करें

अपनी भाषा सूची को Excel में डालें।

  • डेटा रेंज चुनें।
  • सम्मिलित करें टैब पर जाएं >> टेबल चुनें।
  • मेरी टेबल में हेडर हैं चेक करें।
  • ओके पर क्लिक करें।

Power Query और VBA के साथ Excel सेल में भाषा स्वचालित रूप से पहचानें

  • अपनी टेबल का नाम बदलें:
    • टेबल डिज़ाइन टैब पर जाएं >> टेबल नाम चुनें >> Language_List डालें।

Power Query और VBA के साथ Excel सेल में भाषा स्वचालित रूप से पहचानें

चरण 3: भाषा पहचानने के लिए Power Query का उपयोग करना

  • अपनी टेबल में किसी भी सेल का चयन करें।
  • डेटा टैब पर जाएं >> टेबल/रेंज से चुनें।

Power Query और VBA के साथ Excel सेल में भाषा स्वचालित रूप से पहचानें

  • होम टैब पर जाएं >> नया स्रोत चुनें >> अन्य स्रोत चुनें >> खाली क्वेरी चुनें।
  • इसे Auto Detect Language नाम दें।

Power Query और VBA के साथ Excel सेल में भाषा स्वचालित रूप से पहचानें

  • होम टैब पर जाएं >> उन्नत संपादक चुनें।
  • निम्न कोड कॉपी और पेस्ट करें।
  • हो गया पर क्लिक करें।
let APIKey = "YOUR_API_KEY", // <-- इसे बदलें Source = Excel.CurrentWorkbook(){[Name="Language_List"]}[Content], AddJson = Table.AddColumn(Source, "JsonBody", each Text.ToBinary("q=" & Uri.EscapeDataString([Text])) ), AddResponse = Table.AddColumn(AddJson, "Response", each Json.Document( Web.Contents("https://ws.detectlanguage.com/0.2/detect", [ Headers = [ #"Authorization" = "Bearer " & APIKey, #"Content-Type" = "application/x-www-form-urlencoded" ], Content = [JsonBody] ]) ) ), ExtractLang = Table.AddColumn(AddResponse, "Language", each try [Response][data][detections]{0}[language] otherwise "error"), Final = Table.SelectColumns(ExtractLang, {"ID", "Text", "Language"}) in Final 
  • "YOUR_API_KEY" को अपनी वास्तविक कुंजी से बदलें।

Power Query और VBA के साथ Excel सेल में भाषा स्वचालित रूप से पहचानें

  • बंद करें और लोड करें पर क्लिक करें। आपको पहचाने गए भाषा कोड (en, fr, आदि) के साथ एक भाषा कॉलम दिखाई देगा।

Power Query और VBA के साथ Excel सेल में भाषा स्वचालित रूप से पहचानें

भाषा स्वचालित रूप से पहचानने के लिए VBA का उपयोग करना

आप भाषा का स्वचालित रूप से पता लगाने के लिए VBA का उपयोग कर सकते हैं। VBA में, आप मुफ़्त से सशुल्क सभी प्रकार के API को कॉल कर सकते हैं या भाषा का पता लगाने के लिए उपयोगकर्ता-विशिष्ट फ़ंक्शन बना सकते हैं।

  • डेवलपर टैब पर जाएं >> विजुअल बेसिक चुनें।

Power Query और VBA के साथ Excel सेल में भाषा स्वचालित रूप से पहचानें

  • सम्मिलित करें >> मॉड्यूल चुनें।
  • निम्न VBA कोड कॉपी-पेस्ट करें।

VBA कोड:

Function Detect_Language(text As String) As String On Error GoTo handleErr Dim http As Object Dim url As String Dim response As String Dim apiKey As String apiKey = "YOUR_API_KEY" ' <-- अपनी API कुंजी से बदलें! url = "https://ws.detectlanguage.com/0.2/detect?q=" & URLEncode(text) Set http = CreateObject("MSXML2.XMLHTTP") With http .Open "GET", url, False .setRequestHeader "Authorization", "Bearer " & apiKey .send response = .responseText End With ' "भाषा" कोड के लिए JSON परिणाम पार्स करें Dim startPos As Integer Dim endPos As Integer startPos = InStr(response, """language"":""") + Len("""language"":""") If startPos > Len("""language"":""") Then endPos = InStr(startPos, response, """") Detect_Language = Mid(response, startPos, endPos - startPos) Else Detect_Language = "unknown" End If Exit Function handleErr: Detect_Language = "ERROR: " & Err.Description End Function ' URL एन्कोडिंग के लिए सहायक (अधिकांश बुनियादी यूनिकोड का समर्थन करता है) Function URLEncode(str As String) As String Dim i As Long Dim ch As String Dim encoded As String For i = 1 To Len(str) ch = Mid(str, i, 1) Select Case AscW(ch) Case 48 To 57, 65 To 90, 97 To 122 ' 0-9, A-Z, a-z encoded = encoded & ch Case Else encoded = encoded & "%" & Hex(AscW(ch)) End Select Next i URLEncode = encoded End Function 

Power Query और VBA के साथ Excel सेल में भाषा स्वचालित रूप से पहचानें

  • कोड सेव करें और Excel शीट पर वापस जाएं।
  • सेल C2 चुनें और निम्न UDF फ़ंक्शन डालें।

यह कस्टम फ़ंक्शन स्वचालित रूप से भाषा का पता लगाता है और भाषा कोड लौटाता है।

Power Query और VBA के साथ Excel सेल में भाषा स्वचालित रूप से पहचानें

बोनस: Excel में DETECTLANGUAGE फ़ंक्शन का उपयोग (केवल Microsoft 365 और वेब)

यदि आप Microsoft 365 के लिए Excel या वेब के लिए Excel का उपयोग कर रहे हैं, तो आप किसी भी सेल के टेक्स्ट की भाषा की पहचान करने के लिए अंतर्निहित DETECTLANGUAGE फ़ंक्शन का उपयोग कर सकते हैं। यह सुविधा केवल Microsoft 365 ग्राहकों और Excel Online में उपलब्ध है, जिसे 2022 के अंत से शुरू किया गया है।

  • एक सेल चुनें और निम्न सूत्र डालें।

यह वेब से परिणाम प्राप्त करता है।

Power Query और VBA के साथ Excel सेल में भाषा स्वचालित रूप से पहचानें

यह फ़ंक्शन स्वचालित रूप से भाषा का पता लगाता है।

Power Query और VBA के साथ Excel सेल में भाषा स्वचालित रूप से पहचानें

उपलब्धता: DETECTLANGUAGE फ़ंक्शन केवल इसमें उपलब्ध है:

  • वेब के लिए Excel (Excel Online)।
  • Microsoft 365 (कुछ डेस्कटॉप बिल्ड, लेकिन सभी उपयोगकर्ता नहीं)।
  • उपलब्ध नहीं Excel 2019, Excel 2016, या पूर्व के स्थायी लाइसेंस संस्करणों में।

निष्कर्ष

उपरोक्त विधियों का पालन करके, आप Excel सेल में स्वचालित रूप से भाषा का पता लगा सकते हैं। Power Query का उपयोग करके, आप अपने बहुभाषी डेटा प्रोसेसिंग वर्कफ़्लो को आसानी से सुपरचार्ज कर सकते हैं। Power Query अधिकांश उपयोगकर्ताओं के लिए पसंदीदा है, जो अधिक स्थिरता, स्केलेबिलिटी और प्रत्यक्ष डेटा परिवर्तन प्रदान करता है। VBA हल्के, स्थानीय और त्वरित उपयोग के लिए सर्वोत्तम है।

मुफ़्त उन्नत Excel अभ्यास समाधान के साथ प्राप्त करें!

  1. Excel में MIN, MAX, और AVERAGE फ़ंक्शन का उपयोग कैसे करें Excel में MIN, MAX, और AVERAGE फ़ंक्शन का उपयोग कैसे करें

    फ़ंक्शन्स Excel में सेल की एक श्रृंखला पर गणितीय गणना करते हैं। सबसे आम फ़ंक्शन्स हैं SUM, AVERAGE, COUNT, MIN, और MAX। यदि कोई व्यक्ति अपने डेटा का औसत, न्यूनतम, या अधिकतम ढूंढना चाहता है, तो वे AVERAGE, MIN, और MAX फ़ंक्शन्स का उपयोग कर सकते हैं। इस पोस्ट में, हम आपको दिखाते हैं कि Excel में औसत,

  1. IPSW फ़ाइल क्या है? IPSW फ़ाइल क्या है?

    IPSW फ़ाइल क्या है? IPSW फ़ाइल एक्सटेंशन वाली फ़ाइल एक Apple डिवाइस सॉफ्टवेयर अपडेट फ़ाइल है जिसका उपयोग iPhone, iPod touch, iPad और Apple TV के साथ किया जाता है। यह एक आर्काइव फ़ाइल फॉर्मेट है जो एन्क्रिप्टेड DMG फ़ाइलों और PLISTs, BBFWs, और IM4Ps जैसी विभिन्न अन्य फ़ाइलों को स्टोर करता है। IPSW फ

  1. विंडोज 11 सेटिंग्स ऐप नहीं खुल रहा? समस्या हल करने के 7 सिद्ध सुधार विंडोज 11 सेटिंग्स ऐप नहीं खुल रहा? समस्या हल करने के 7 सिद्ध सुधार

    सेटिंग्स ऐप विंडोज ऑपरेटिंग सिस्टम के लिए ग्राफिकल कंट्रोल रूम है। विंडोज सेटिंग्स के बिना, अपने पीसी पर विशिष्ट परिवर्तन या कस्टमाइज़ेशन करना असंभव है। यदि सेटिंग्स ऐप क्रैश हो जाता है या आपके विंडोज 11 पीसी पर नहीं खुलता है, तो नीचे दिए गए समस्या निवारण सुधारों और वर्कअराउंड को आज़माएं। 1. विंडोज