Bütün TextBox'ların İçeriğini Temizleme

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

Cevap: Bütün TextBox'ların İçeriğini Temizleme

İleti#21)  feraz » 12 Şub 2020 13:21

Ben ancak akşama bakabilirim,o zamana okadar ilgilenen olmazsa çözeriz Allah'ın izniyle.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 6185
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Bütün TextBox'ların İçeriğini Temizleme

İleti#22)  cglrkltfn » 12 Şub 2020 14:03

Tamamdır. TEşekkürler. Dönüş bekliyorum.
Kullanıcı avatarı
cglrkltfn
Yeni Başlamış
 
Kayıt: 20 Nis 2016 07:39
Meslek: İş Geliştirme
Yaş: 31
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İStanbul / Beylikdüzü

Cevap: Cevap: Bütün TextBox'ların İçeriğini Temizleme

İleti#23)  Miraç CAN » 12 Şub 2020 14:32

Öncelikle şunu belirteyim: Lütfen eklediğiniz Excel dosyalarınızın Visible özelliklerini ve şifreleri kaldırarak ekleyin.
Özellikle Application.Visible
Lütfen site yöneticileri de bu işe destek olsun, duyurulara, genel kurallara vs. eklensin.
Ve insanlar da bir zahmet bunları okuyup, uysunlar.
Çünkü artık bana "gına" geldi...

Yardımseverlik adına buradayız, bir de böyle durumlarla uğraşmayalım; mevcut çalışmalarımıza ve yardım istenilen kişilere zarar veriyorsunuz böylelikle.


cglrkltfn yazdı:Teşekkürler. Kusura bakmayın lütfen. Bİr dahaki sefer dikkat edeceğim.
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Bütün TextBox'ların İçeriğini Temizleme

İleti#24)  Miraç CAN » 12 Şub 2020 14:56

Önceki yazdığım cevap bir şeyleri hatırlatmıştır umarım.

Deneyin;
Kod: Tümünü seç
Format(Application.RoundDown((CDbl(Me.TextBox12.Value) + CDbl(Me.TextBox13.Value)) / 2, 2), "#0.00")
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

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

Cevap: Bütün TextBox'ların İçeriğini Temizleme

İleti#25)  feraz » 12 Şub 2020 21:30

Cdbl eklememişsiniz önceden yazmıştım.

Kod: Tümünü seç
Private Sub CommandButton2_Click()

TextBox167.Value = Format((IIf(TextBox126.Value = "", 0, CDbl(TextBox126.Value)) + IIf(TextBox137.Value = "", 0, CDbl(TextBox137.Value))) / 2, "#,##0.00")

End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 6185
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Bütün TextBox'ların İçeriğini Temizleme

İleti#26)  feraz » 12 Şub 2020 21:34

Kodları düzenleyip eklerim dosyayı.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 6185
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Bütün TextBox'ların İçeriğini Temizleme

İleti#27)  feraz » 12 Şub 2020 22:28

Textbox166 adını TextBox146 olarak değiştirdim göngü için.

.Cells(satýr, 211) = TextBox166 buradaki 166 yerine 146 yazdım.

Resim

Kod: Tümünü seç
Private Sub CommandButton2_Click()

    Dim i As Integer, say As Integer
    Dim sil As Control
   
    Dim arr(1 To 10, 1 To 2)
   
    say = 1
   
    For i = 126 To 135
        If Controls("TextBox" & i) = "" Then Controls("TextBox" & i) = 0
        arr(say, 1) = "TextBox" & i
        say = say + 1
    Next
   
    say = 1
   
    For i = 137 To 146
        If Controls("TextBox" & i) = "" Then Controls("TextBox" & i) = 0
        arr(say, 2) = "TextBox" & i
        say = say + 1
    Next
   
    say = 1

    For i = 167 To 176
        Controls("TextBox" & i).Value = Format((CDbl(Controls(arr(say, 1)).Value) + CDbl(Controls(arr(say, 2)).Value)) / 2, "#,##0.00")
        say = say + 1
    Next


    For Each sil In UserForm1.Controls '0 degerleri temizlemek icin
        Select Case TypeName(sil)
        Case "TextBox"
            Select Case Val(Replace(sil.Name, "TextBox", ""))
            Case 126 To 135, 137 To 146, 167 To 176
               If sil.Value = 0 Then sil.Value = Empty
        End Select
        End Select
    Next sil


    Erase arr

End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 6185
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Bütün TextBox'ların İçeriğini Temizleme

İleti#28)  feraz » 12 Şub 2020 22:41

Miraç hocanın son verdiği koda görede ilgili kodu alttaki gibi değiştiriniz.
Sanırım böyle daha iyi.
145,25 olarak textboxa girince alttaki kod ve önceki dosyada verdiğim kod farklı çıkarıyor sonucu.
Biri 72,62 diğeri 72,63 olarak sonuç veriyor [ilginc]

Kod: Tümünü seç
For i = 167 To 176
        Controls("TextBox" & i).Value = Format(Application.RoundDown((CDbl(Controls(arr(say, 1)).Value) + CDbl(Controls(arr(say, 2)).Value)) / 2, 2), "#0.00")
        say = say + 1
Next
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 6185
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Bütün TextBox'ların İçeriğini Temizleme

İleti#29)  feraz » 12 Şub 2020 23:00

feraz yazdı:Miraç hocanın son verdiği koda görede ilgili kodu alttaki gibi değiştiriniz.
Sanırım böyle daha iyi.
145,25 olarak textboxa girince alttaki kod ve önceki dosyada verdiğim kod farklı çıkarıyor sonucu.
Biri 72,62 diğeri 72,63 olarak sonuç veriyor [ilginc]

Kod: Tümünü seç
For i = 167 To 176
        Controls("TextBox" & i).Value = Format(Application.RoundDown((CDbl(Controls(arr(say, 1)).Value) + CDbl(Controls(arr(say, 2)).Value)) / 2, 2), "#0.00")
        say = say + 1
Next


27.ci mesajdaki dosyada 145,25 in yarısı 72,62 çıkıyor.Normalde doğru çünkü sonuç 72,625 olduğu için 5 alınmıyor.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 6185
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Önceki

Forum TextBox

Online Kullanıcılar

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

Bumerang - Yazarkafe