üslü sayı

[natura]

yardımcı olabilecek varsa sevinirim

Range("a2").Value = Range("a1").Value / 1000

With Range("f5").Characters(4, 1).Font
.Superscript = True
End With
Range("a2").Value = Range("a2").Value & Range("f5").value
f5 te sabit değer var "x106"
a2 hücresindeki sayı, 3200 ise sonuç =3,2x106

ben ise son rakam olan 6 yı üslü ifade etmek istiyorum.
With Range("f5").Characters(7, 1).Font
.Superscript = True
End With

kodlarını a2 de yaparsam oluyor ancak a1 de eğer 3000 yazılı ise bir basamak azaldığı için olmuyor. a2 hücresinin sayı bi
çimini 1 ondalıklı yaptım yine olmuyor.


şimdiden teşekkürler

 

[uzmanamele]

merhaba

bunun gibi bişey olabilir mi?
With Range("f5").Characters(len(f5), 1).Font

 

[natura]

sayın uzmanamele, ilginize teşekkür ederim ancak ya ben düzenleyemedim , yada istediğim gibi değil
a2 hücresinde, a1 de yazan değerin 1000 e bölüm sonucu ve f5 deki "x106" ' burada x çarpı değil yı yanyana ancak 6 nın üs olmasını istiyorum teşekkürler

 

[natura]

sayın uzman amele ilginize teşekkürler
ancak ya ben düzenleyenedim yada istediğim gibi değil.
iki hücreyi birleştiriyorum a1 ve f5 a1 de 3000 sayısı f5 te x106 (x çarpı değil) sonuç 3x106 buradaki 6 rakamının üs olmasını istiyorum. bunu yapabiliyorum Characters(4, 1).Font
.Superscript = True şeklinde ancak basamak sayısı değişince ör:3,2x106 olunca 1 değeri üs oluyor. olası gereken değer her koşulda 6 üs olmalı teşekkürler

 

[natura]

sayın uzman amele ilginize teşekkürler
ancak ya ben düzenleyenedim yada istediğim gibi değil.
iki hücreyi birleştiriyorum a1 ve f5 a1 de 3000 sayısı f5 te x106 (x çarpı değil) sonuç 3x106 buradaki 6 rakamının üs olmasını istiyorum. bunu yapabiliyorum Characters(4, 1).Font
.Superscript = True şeklinde ancak basamak sayısı değişince ör:3,2x106 olunca 1 değeri üs oluyor. olası gereken değer her koşulda 6 üs olmalı teşekkürler

 

[uzmanamele]

merhaba

sorunuzu örnek dosya ile destekleyiniz

 

[natura]

dosya ekte

 

[uzmanamele]

merhaba

bunun gibi bişey işinizi görür mü?

Private Sub CommandButton1_Click()
Range("a2").Value = Range("a1").Value / 1000

With Range("f5").Characters(4, 1).Font
       .Superscript = True
        End With
Range("a2").Value = Range("a2").Value & Range("f5").Value
  With Range("a2").Characters(Len(Range("a2")), 1).Font
         .Superscript = True
        End With
End Sub

 

[natura]

sayın uzmanamele tam isabet, emeğinize ve bilginize sağlık...