[Çözüldü] - TextBox'ların İlk Harfini Büyük Yapma

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

[Çözüldü] - TextBox'ların İlk Harfini Büyük Yapma

İleti#1)  nuklay2003 » 14 Ağu 2012 16:02

Merhaba arkadaşlar,
Forum'un textbox kısmında bulunan 15 sayfada arama yapmama rağmen soruma çözüm bulamadım, müsait olan arkadaşlardan cevap bekliyorum. Hazırlamış olduğum userformda bulunan 40'a yakın textboxların ilk harfları tek kod ile büyük harf yapma imkanı varmıdır. Oysa her textbox'un keydown kısmına tek tek kodlamam mı gerekir.
Kullanıcı avatarı
nuklay2003
Yeni Başlamış
 
Adı Soyadı:gani yakup
Kayıt: 28 Şub 2009 02:18
Yaş: 45
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: salzburg

Cevap: textbox change olayı

İleti#2)  Tarkan VURAL » 14 Ağu 2012 19:17

Selamlar. Class ile olur.

Module içine
Private Textler() As New Class1

Kod: Tümünü seç
Sub evnClass()
Dim a As Integer
For Each i In UserForm1.Controls
    a = a + 1
    ReDim Preserve Textler(1 To a)
        If TypeName(i) = "TextBox" Then
            Set Textler(a).evnText = i
        End If
Next i
UserForm1.Show
End Sub


Class içine

Kod: Tümünü seç
Public WithEvents evnText As MSForms.TextBox

Private Sub evnText_Change()
evnText.Text = StrConv(evnText.Text, vbProperCase)
End Sub


Thisworkbook kod sayfası içine

Kod: Tümünü seç
Sub auto_open()
Call evnClass
End Sub


Buyrun bir de örnek. 60 tane TextBox kullandım.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 26990
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: TextBox'ların İlk Harfini Büyük Yapma

İleti#3)  nuklay2003 » 16 Ağu 2012 21:58

Sen süpersin Tarkan bey; eline sağlık. Sen olmazsan ben az kaldı tüm textbox'ların hepisine tek tek change olayına kod yazacaktım. Bu Excel manyak bir şey!!!. Ayıp olmasında, sen bunu nasıl hallediyorsun? [ilginc] Unutmayalım da bu arada, konu süper çözülmüştür. [evet]
Kullanıcı avatarı
nuklay2003
Yeni Başlamış
 
Adı Soyadı:gani yakup
Kayıt: 28 Şub 2009 02:18
Yaş: 45
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: salzburg

Cevap: TextBox'ların İlk Harfini Büyük Yapma

İleti#4)  Tarkan VURAL » 22 May 2013 09:13

Rica ederim, o sizin süperliğiniz. 8-)
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 26990
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: [Çözüldü] - TextBox'ların İlk Harfini Büyük Yapma

İleti#5)  Enes Recep BAĞ » 22 May 2013 10:02

Konuyla tam ilişkili değil ama, aşağıdaki kodlar textbox içinde yazınlan isimlerin baş harflerini büyük yazar en son kelimeyi büyük yazar.
Örnek verecek olursak; küçük veya büyük harfle enes recep bağ yazarsanız, kodlar bu yazıyı Enes Recep BAĞ olarak düzeltecektir.
Kod: Tümünü seç
Private Sub Textbox1_Change()
On Error Resume Next
Dim a, j, Ad, Soyad
a = Split(adsoyad)
    For j = 0 To UBound(a) - 1
        Ad = Trim(Ad & " " & a(j))
    Next j
Soyad = Trim(a(UBound(a)))

If Soyad = "" Then
Soyad = Evaluate("=UPPER(""" & Soyad & """)")
Else
Ad = Evaluate("=PROPER(""" & Ad & """)")
End If

Soyad = Evaluate("=UPPER(""" & Soyad & """)")
adsoyad = Ad & " " & Soyad
End Sub
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 37
İleti: 8261
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez


Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe