InputBox biçimleme

[hassan26]

Selam Arkadaşlar
Inputbox biçimlendirilebilirmi? (şifreleme olayındaki karakterleri yıldız göstermesini sormuyorum) sadece klavyede Caps Lock pozisyonu ne olursa olsun Inputbox'a girilen metinsel ifadenin büyük karakter yazılması sağlanabilirmi.

Dim NewName As String
NewName = InputBox("Lütfen adınızı yazın girin")
On Error Resume Next
ActiveCell.Offset(0, 0).Value = NewName

Saygılar

 

[Necdet]

Merhaba,

InputBox da biçimleme olduğunu sanmıyorum ama kodları aşağıdaki gibi değiştirirseniz büyük harfe çevirebilirsiniz.

Sub Deneme()
Dim NewName As String
NewName = InputBox("Lütfen adınızı yazın girin")
If NewName = "" Then Exit Sub
NewName = UCase(Replace(Replace(NewName, "ı", "I"), "i", "İ"))
ActiveCell.Offset(0, 0).Value = NewName
End Sub