verinin uzunluğuna göre bölme işlemi

[tamer42]

Merhabalar,

bir verinin uzunluğuna göre bölme işlemi yapacak bir fonksiyon yazmaya çalışıyorum,

yani
sayının uzunluğu 1 karekter ise, ilgili sayıyı 10 üzeri 1' e (10) bölecek
sayının uzunluğu 2 karekter ise, ilgili sayıyı 10 üzeri 2' ye (100) bölecek
sayının uzunluğu 3 karekter ise, ilgili sayıyı 10 üzeri 3' e (1000) bölecek
.......
.........
rakamın uzunluğu 6 karekter ise, ilgili sayıyı 10 üzeri 6' ya (1000000) bölecek

  If Len(DERECE) = 1 Then
    
        DERECE = DERECE / 10
    
     ElseIf Len(DERECE) = 2 Then
     
        DERECE = DERECE / 100

     ElseIf Len(DERECE) = 3 Then
     
        DERECE = DERECE / 1000

     
     End If

bu kodun daha pratik (kısaltılmış) bir halini yazabilirmiyiz,


iyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki fonksiyonu denermisiniz.

Option Explicit
 
Function DERECE_HESAPLA(Hücre As Range)
    Application.Volatile True
    DERECE_HESAPLA = Hücre.Value / (10 ^ Len(Hücre.Value))
End Function

 

[Murat OSMA]

Fonksiyon için teşekkürler Korhan bey.