alt karakter

[subutayı]

excelde kimya formülleri kullanıyorum. öyle bir makro atamalıyım excelde yazdığım formülerin rakamları alt karakter olsun. bu mümkünmü yardımlarınız için teşekür ederim.

 

[bedersu]

Merhaba;

Bu işinizi görür mü?

Sub alt_karakter()

With Selection.Font
.Subscript = True
End With
End Sub


seçili hücreyi alt karakter yapıyor.

 

[danersin]

Sayfanın modülüne aşağıdaki kodları yazın.
Herhangi bir hücreye birşey yazıldığında , içindeki rakamları üstkarakter yapar.


[vb:1:44f028df58]Private Sub Worksheet_Change(ByVal Target As Range)
metin = Target.Value
boy = Len(metin)
For i = 1 To boy
kar = Mid(metin, i, 1)
If IsNumeric(kar) = True Then
With Target.Characters(Start:=i, Length:=1).Font
.Subscript = True
End With
End If
Next i
End Sub[/vb:1:44f028df58]

 

[subutayı]

hayır arkadaş bu olmaz. bu bütün karakterleri alt olarak yazıyor. ben sadece rakamları alt yazdırmak istiyorum. mesela. H2So4 burdaki 2 ve dört ün alt karakter olmasını istiyorum. teşekürler

 

[danersin]

Yolladığım kodda .Superscript=true satırı .Subscript = True ile değişecek.

 

[subutayı]

üstat bu kod çalışmadı. dediğin satırıda değiştirdim. modüle kopyaladım. ama hücrelere yazdığım hiç bir şeyde değişiklik yapmıyor.

 

[danersin]

Modüle kopyalamayacaksınız.

Sayfa modülüne. veya şöyle yapın Sayfa sekmesine sağ tıklayıp "Kod Görüntül" seçin ve ordaki modüle kopyalayın.

 

[subutayı]

üstat,
teşekür ederim şimdi oldu. sağolasın