• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

hexdecimal çalışma

  • Konbuyu başlatan Konbuyu başlatan andon
  • Başlangıç tarihi Başlangıç tarihi
A

andon

Katılım
30 Nisan 2008
Mesajlar
64
Excel Vers. ve Dili
office 2007 ve Türkçe
merhaba,
elimde 45D69A5F şeklinde hexadecimal sayı var ve ben bu sayıları decimal sayılara çevirmek istiyorum. ancak çevirme işleminden önce 45D69A5F şeklinde olan hexadecimal sayısını kurallı olarak 5F9AD645 şeklinde okuyup öyle çevirme yapmam gerekiyor.
örnek: 45D69A5F = 5F9AD645
yardımcı olursanız minnettar olurum.
(dosya eklemek istedim ancak sunucu yoğun olduğundan göndermeme müsade etmedi)
 
andon' Alıntı:
merhaba,
elimde 45D69A5F şeklinde hexadecimal sayı var ve ben bu sayıları decimal sayılara çevirmek istiyorum. ancak çevirme işleminden önce 45D69A5F şeklinde olan hexadecimal sayısını kurallı olarak 5F9AD645 şeklinde okuyup öyle çevirme yapmam gerekiyor.
örnek: 45D69A5F = 5F9AD645
yardımcı olursanız minnettar olurum.
(dosya eklemek istedim ancak sunucu yoğun olduğundan göndermeme müsade etmedi)
Genişletmek için tıkla ...

.

Fazla uzağa gitmeden, bir de buraya bakın.

http://www.excel.web.tr/f60/sayy-sistemleri-ve-excel-fonksiyonlary-t78065.html


.
 
Sn. yurttas'in verdiği linke bakmadan şu kodları bir deneyin; :yazici: :D

Kod: 
Sub Hex_to_Decimal()
    Dim Rky As Object, i As Integer
    Set Rky = CreateObject("internetexplorer.application")
    With Rky
        .navigate "http://www.binaryhexconverter.com/hex-to-decimal-converter"
        .Visible = True
        Do While .busy: DoEvents: Loop
        Do While Not .readystate = 4: DoEvents: Loop
            For i = 2 To Range("H65536").End(3).Row
                .document.getelementbyID("tabin").Value = Cells(i, "H")
                .document.all.Item(52).Click
                Application.Wait Now + (TimeValue("00:00:02"))
                Cells(i, "I") = .document.getelementbyID("resulttxt").innertext
            Next i
        .Quit
    End With
    Set Rky = Nothing: i = empty
End Sub
 
Son düzenleme:
selam,
eki inceleyiniz..Formülle çözümlenmiştir..
kolay gelsin..
 
Son düzenleme:
Merhaba,

Ofis 2007-2010 için HEX2DEC() formülü kullanılabilir
 
sakman26' Alıntı:
selam,
eki inceleyiniz..Formülle çözümlenmiştir..
kolay gelsin..
Genişletmek için tıkla ...
merhaba sayın sakman,
çok teşekkür ederim vermiş olduğunuz emek için. ancak şöyle de bir durum var. ben mesajda belirtmiştim ama sanırım excell de yazmış olduğum hexdecimal sayı konusunda hata yapmışım.
benim elimde binlerce hexdecimal sayı var ve ben bunların decimal karşılığını bulmak istiyorum. ne var ki elimde olan sayılar örnek; 45D69A5F iken ben bu sayıyı 5F9AD645 şeklinde okumalıyım ki asıl işime yarayacak olan decimal sayıya ulaşabileyim. mesela 45D69A5F hexdecimal sayısının decimal karşılığı 1171692127 iken 5F9AD645 sayısının decimal karşılığı 1603982917 şeklindedir.
burada hexdecimal yazıldığı gibi okunmayacak ve benim yazdığım decimal sayıya ait rakam ve harfler kendi içinde kurallı olarak yer değiştirecek ve ondan sonra bana decimal sayıyı verecektir.
kural şudur; 45-D6-9A-5F sayısını soldan başlayarak 1,2,3,4,5,6,7,8 şeklinde okumak yerine 5F-9A-D6-45 yani 7,8,5,6,3,4,1,2 şeklinde okumamız gerekiyor. formülü bu kuraala göre nasıl düzenleyebiliriz.
yeniden çok teşekkür ediyorum.
 
hayır. ekte gönderdiğim ve sarı zemin rengi ile boyadığım şekilde olmalı. okunma sıralamasını da yazdım.
 

Ekli dosyalar

selam,
eki inceleyiniz..
kolay gelsin..
 
Son düzenleme:
çok teşekkür ederim. söylediğiniz şekilde tam da istediğim gibi oldu.
iyi çalışmalar,
 
çözüldü... teşekkür ederim

sakman26' Alıntı:
selam,
eki inceleyiniz..
kolay gelsin..
Genişletmek için tıkla ...

çok teşekkür ederim hocam, inanın hem emek verilmiş ve öğretmeye çalışılmış hem de çözüm sunan bir çalışma olmuş.
iyi çalışmalar diliyorum,
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst