এক্সেল ভিবিএর সাথে ঠিকানাগুলির জন্য অক্ষাংশ এবং দ্রাঘিমাংশ সমন্বয় পেতে কীভাবে একটি ভৌগলিক সরঞ্জাম তৈরি করবেন

এক্সেল সমাধান অক্টোবর 3, 2025
এখন শেয়ার:

এই নিবন্ধটি অনুসরণ করুন এবং আপনার নিজের ভৌগলিক সরঞ্জামটি তৈরি করুন যা দিয়ে আপনি কোনও ঠিকানার জন্য অক্ষাংশ এবং দ্রাঘিমাংশ স্থানাঙ্ক পেতে পারেন। এ জাতীয় রূপান্তরকারীরা রিয়েল এস্টেট দালালরা সাধারণত ব্যবহার করে।

এখন ডাউনলোড করুন

আপনি যদি যত তাড়াতাড়ি সম্ভব সফ্টওয়্যারটি ব্যবহার শুরু করতে চান, তাহলে আপনি করতে পারেন:

এখনই সফ্টওয়্যারটি ডাউনলোড করুন

অন্যথায়, আপনি ডিআইওয়াই করতে চাইলে, আপনি নীচের সামগ্রীগুলি পড়তে পারেন।

জিইউআই প্রস্তুত করি

আপনার শুধু একটি এক্সেল শীট প্রয়োজন এবং আপনি আপনার প্রয়োজন অনুযায়ী শীটটির নাম দিতে পারেন। এই উদাহরণে, আমি ডিফল্ট শীটের নাম “Sheet1” ব্যবহার করছি। পরবর্তী ধাপ হলো এই শীটে প্রয়োজনীয় হেডার যোগ করা। আমরা যে ঠিকানাটি দিই, ইনপুটে যদি উপশহর, রাজ্য, পোস্টকোড এবং দেশের নাম থাকে, তবে অক্ষাংশ ও দ্রাঘিমাংশ রূপান্তরকারীটি সঠিক ফলাফল দেয়। ছবিতে দেখানো অনুযায়ী হেডারগুলো প্রস্তুত করুন। চলুন শেষ দুটি কলাম হিসেবে অক্ষাংশ এবং দ্রাঘিমাংশ যোগ করি। ব্যবহারকারীকে রূপান্তর করার সুযোগ দেওয়ার জন্য আমাদের একটি বাটনও প্রয়োজন। তাই চলুন একটি শেপ ইনসার্ট করে সেটিকে রঙ দিয়ে পূরণ করি যাতে এটি একটি বাটনের মতো দেখায়।জিইউআই প্রস্তুত করুন

আসুন এটি কার্যকরী করি

এখানে প্রদত্ত স্ক্রিপ্টটি একটি নতুন মডিউলে অনুলিপি করা উচিত। আপনার কাজের বইটি ম্যাক্রো সক্ষম ওয়ার্কবুক ফাইল হিসাবে সংরক্ষণ করতে ভুলবেন না। সাব "ফাইন্ডটিস "টি সবেমাত্র তৈরি করা বোতামের সাথে সংযুক্ত করা উচিত।

আসুন এটি পরীক্ষা করি

অন্যান্য তথ্যের সাথে ঠিকানা নিজ নিজ কলামে যোগ করুন। ম্যাক্রোটি চালানোর জন্য বোতামটিতে ক্লিক করুন, যা শীটে তালিকাভুক্ত সমস্ত ঠিকানার অক্ষাংশ ও দ্রাঘিমাংশের স্থানাঙ্ক প্রদর্শন করবে। ম্যাক্রোটি ২ নং সারি থেকে শুরু হবে এবং একটি খালি সারিতে না পৌঁছানো পর্যন্ত চলতে থাকবে।ঠিকানা যুক্ত করুন এবং বোতামটি ক্লিক করুন

কিভাবে এটা কাজ করে?

স্ক্রিপ্টের সাহায্যে আমরা দুটি ফাংশন তৈরি করেছি। একটি ল্যাট মান আনার জন্য এবং অন্যটি লম্বা মান আনার জন্য। ফর লুপ ব্যবহার করে আমরা প্রতিটি ঠিকানা এই ফাংশনগুলিতে প্রেরণ করছি এবং ফলাফলটি স্ক্রিনে প্রদর্শন করছি।

লিপি

Function GETLAT(v_address As String, v_suburb As String, v_state As String, v_postcode As Long)
    
    Dim URl As String, lastRow As Long
    Dim xmlHttp As Object, html As Object, objResultDiv As Object, objH3 As Object, link As Object
    
    URl = "https://maps.googleapis.com/maps/api/geocode/xml?address=" & Application.WorksheetFunction.Substitute(v_address, " ", "+") & Application.WorksheetFunction.Substitute(v_suburb, " ", "+") & Application.WorksheetFunction.Substitute(v_state, " ", "+") & Application.WorksheetFunction.Substitute(v_postcode, " ", "+") & ",Australia"
    
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    xmlHttp.Open "GET", URl, False
    xmlHttp.setRequestHeader "Content-Type", "text/xml"
    xmlHttp.send
    
    Set html = CreateObject("htmlfile")
    html.body.innerhtml = xmlHttp.ResponseText
    v_string = html.body.innerhtml
    x = InStr(1, v_string, "<LAT>")
    If x <> 0 Then
        y = InStr(x + 5, v_string, "</LAT>")
        GETLAT = Mid(v_string, x + 5, y - (x + 5))
    End If
End Function

Function GETLNG(v_address As String, v_suburb As String, v_state As String, v_postcode As Long)
    
    Dim URl As String, lastRow As Long
    Dim xmlHttp As Object, html As Object, objResultDiv As Object, objH3 As Object, link As Object
    
    URl = "https://maps.googleapis.com/maps/api/geocode/xml?address=" & Application.WorksheetFunction.Substitute(v_address, " ", "+") & Application.WorksheetFunction.Substitute(v_suburb, " ", "+") & Application.WorksheetFunction.Substitute(v_state, " ", "+") & Application.WorksheetFunction.Substitute(v_postcode, " ", "+") & ",Australia"
    
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    xmlHttp.Open "GET", URl, False
    xmlHttp.setRequestHeader "Content-Type", "text/xml"
    xmlHttp.send
    
    Set html = CreateObject("htmlfile")
    html.body.innerhtml = xmlHttp.ResponseText
    v_string = html.body.innerhtml
    
    x = InStr(1, v_string, "<LNG>")
    If x <> 0 Then
        y = InStr(x + 5, v_string, "</LNG>")
        GETLNG = Mid(v_string, x + 5, y - (x + 5))
    End If
End Function

Sub FindThis()
    For r = 2 To 5
        Range("F" & r).Value = GETLAT(Range("A" & r).Value, Range("B" & r).Value, Range("C" & r).Value, Range("D" & r).Value)
        Range("G" & r).Value = GETLNG(Range("A" & r).Value, Range("B" & r).Value, Range("C" & r).Value, Range("D" & r).Value)
    Next r
End Sub

আপনি যদি স্ক্রিপ্টটি ব্যবহার করে যথাযথ ফলাফল না পেয়ে থাকেন তবে দূষিত এক্সেল সম্ভবত সম্ভাব্য কারণ হতে পারে। তারপরে আপনি ব্যবহার করতে পারেন এক্সেল ফাইল পুনরুদ্ধার সরঞ্জাম যেমন DataNumen Excel Repair এক্সেল ঠিক করতে।

লেখকের ভূমিকা:

নিক ভিপন্ড একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় মেরামত ডক সমস্যা এবং আউটলুক পুনরুদ্ধার সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com

এখন শেয়ার:

মন্তব্যসমূহ বন্ধ করা হয়.