DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Kelimeniz a1 hücresinde ise b1 hücresine =UZUNLUK(a1) yazabilirsiniz.
Merhaba.
Aşağıdaki formül ile A1 hücresindeki karakter adedini bulursunuz.
=UZUNLUK(A1)
O zaman x'leri saydırmak için =EĞERSAY(a1:a30;"x") formülünü kullanabilirsiniz.
Umarım x'ler sayı değildir.
Arkadaşlar aranızda yeniyim. Benim bir sorum olacaktı. Benim yapmaya çalıştığım buna benzer birşey. Bu restaurantlarda kullanılan adisyondan yapmaya çalışıyorum.
Mesela a1 hücresi ürün adı.Çay b1 hücresine XXX/ yazdım diyelim. C1 hücresi ise bunu 7 olarak yorumlayacak.
ben =uzunluk(a1)*2 ile sadece harfsayısının 2 katını bulabildim. İyi günler. İyi forumlar.
=(UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;"X";"")))*2+UZUNLUK(YERİNEKOY(A1;"X";""))
Option Explicit
Sub değişik_karakter()
With WorksheetFunction
If Range("A1") = Empty Then
Range("A1") = "/"
ElseIf .CountIf(Range("A1"), "*/*") > 0 Then
Range("A1") = Replace(Range("A1"), "/", "X")
Else
Range("A1") = Range("A1") & "/"
End If
Range("A2").FormulaR1C1 = _
"=IF(RIGHT(R[-1]C,1)=""/"",LEN(R[-1]C)*2-1,LEN(R[-1]C)*2)"
End With
End Sub
Sub çaylar()
With WorksheetFunction
If Selection = Empty Then
Selection = "/"
ElseIf .CountIf(Selection, "*/*") > 0 Then
Selection = Replace(Selection, "/", "X")
Else
Selection = Selection & "/"
End If
Selection.Offset(0, 1).FormulaR1C1 = _
"=IF(RIGHT(RC[-1],1)=""/"",LEN(RC[-1])*2-1,LEN(RC[-1])*2)"
End With
End Sub