excel لطفا کمممممممممممک

[ab 84]

سلام
بچه ها من چطور درجه دقیقه ثانیه رو تو اکسل به درجه تبدیل کنم؟
مثلا:

طول جغرافيايي

"45 '31 46°‏

یک راه حل کوتاه میخوامَ

 

[reeza1]

سلام
یه سری به جامعه اکسل ایران بزنید بد نیست
http://exceliran.com/

 

[asn.sport]

سلام..
یه راه بسیار ابتدایی خب میتونید خیلی راحت فورمول بنویسید....به راحتی
ثانیه/3600+دقیقه/60+درجه
در هر صورت باید اول ثانیه و دقیقه ودرجه از هم جدا کنی

 

[rkm7232]

اگه ورودیتون همینیه که دادین..
کافیه از داخل اکسل VBA رو باز کنید و کد زیرو توی ماژول 1 بریزین:

'####################################################
'#              Reza Kiani Moghaddam                #
'#  Convert Degree/Minute/Second to Decimal Degree  #
'#              TH 03/28/2013  14:32                #
'####################################################
Function ConvertToDecimalDegree(R As Range) As Double
    Dim t As String
    For Each cell In R
        t = cell
        Dim sp1 As Integer, sp2 As Integer
        sp1 = InStr(1, t, " ")
        sp2 = InStrRev(t, " ")


        ConvertToDecimalDegree = CDbl(Replace(Mid(t, sp2 + 1), "°", "")) + _
            CDbl(Replace(Mid(t, sp1 + 1, sp2 - sp1), "'", "")) / 60 + _
            CDbl(Replace(Mid(t, 1, sp1), """", "")) / 3600
    Next cell
End Function

یعد از اون برا استفاده ش کافیه که ادرس خونه ای که توش متنو نوشتی بعنوان پارامتر بهش بدی

مثلا اگه خونه K9 خونه ایه که توش نوشتی : "45 '31 46°
برا استفاده از تابع، توی یه خونه دیگه بنویس :

=ConvertToDecimalDegree(K9)

به همین راحتی!!

 

[Checkmate]

اگه ورودیتون همینیه که دادین..
کافیه از داخل اکسل VBA رو باز کنید و کد زیرو توی ماژول 1 بریزین:

'####################################################
'#              Reza Kiani Moghaddam                #
'#  Convert Degree/Minute/Second to Decimal Degree  #
'#              TH 03/28/2013  14:32                #
'####################################################
Function ConvertToDecimalDegree(R As Range) As Double
    Dim t As String
    For Each cell In R
        t = cell
        Dim sp1 As Integer, sp2 As Integer
        sp1 = InStr(1, t, " ")
        sp2 = InStrRev(t, " ")


        ConvertToDecimalDegree = CDbl(Replace(Mid(t, sp2 + 1), "°", "")) + _
            CDbl(Replace(Mid(t, sp1 + 1, sp2 - sp1), "'", "")) / 60 + _
            CDbl(Replace(Mid(t, 1, sp1), """", "")) / 3600
    Next cell
End Function

یعد از اون برا استفاده ش کافیه که ادرس خونه ای که توش متنو نوشتی بعنوان پارامتر بهش بدی

مثلا اگه خونه K9 خونه ایه که توش نوشتی : "45 '31 46°
برا استفاده از تابع، توی یه خونه دیگه بنویس :

=ConvertToDecimalDegree(K9)

به همین راحتی!!

کدی که نوشتید متعلق به Visual Basic هست؟! چطوری میشه از توی اکسل با ویژوال بیسیک کدنویسی کرد؟

 

[rkm7232]

کدی که نوشتید متعلق به Visual Basic هست؟! چطوری میشه از توی اکسل با ویژوال بیسیک کدنویسی کرد؟

کافیه که تب developer رو به اکسل اضافه کنین..
اگه نمیدونین چجوری کافیه تو گوگل سرچ کنین من خودم با گوشی میام الان نمیتونم بگم..
بعدش توی ماژول 1 کد اولی رو بنویسید..

 

[Checkmate]

کافیه که تب developer رو به اکسل اضافه کنین..
اگه نمیدونین چجوری کافیه تو گوگل سرچ کنین من خودم با گوشی میام الان نمیتونم بگم..
بعدش توی ماژول 1 کد اولی رو بنویسید..

پیدا میکنم، ممنون! خیلی خوبه که میشه با VBscript کار کرد تو اکسل...

 

["ALIREZA & M"]

آموزش Excel

آموزش Excel

سلام دوست عزیز،آموزش کامل Excel بصورت pdf برایتان ارسال شد.امیدوارم که مفید باشد.مشاهده پیوست 143621

 

[ab 84]

بچه ها از همتون ممنونم که کمکم کردید .اینم یک راه حله که خودم استفاده کردم ، براتون میذارم شاید روزی به دردتون بخوره
مشاهده پیوست Book1.rar

 

[reeza1]

بچه ها از همتون ممنونم که کمکم کردید .اینم یک راه حله که خودم استفاده کردم ، براتون میذارم شاید روزی به دردتون بخوره
مشاهده پیوست 145676

روش جالب و مبتکرانه ای بود
مرسی

 

[ab 84]

روش جالب و مبتکرانه ای بود
مرسی

خواهش میکنم قابلی نداشت