Class Module ile TextBox'ların Toplamını Alma

Class Module İşlemleri

Class Module ile TextBox'ların Toplamını Alma

İleti#1)  Erkan Akayay » 14 Arl 2011 15:09

Örnek Dosya Ektedir.
Class Module Kodları :

Kod: Tümünü seç
Public WithEvents txt As MSForms.TextBox
Private Sub txt_Change()
    ToplamAL
End Sub

Private Sub ToplamAL()
On Error Resume Next
Dim nesne As Control
Dim Top1 As Double, Top2 As Double
Dim Ad As String
Dim No As Integer

With UserForm1
    For Each nesne In .Controls
        If TypeName(nesne) = "TextBox" Then
            No = Right(nesne.Name, Len(nesne.Name) - 7)
            Ad = "TextBox"
                Select Case No
                    Case 1 To 3
                        Top1 = Top1 + Format(.Controls(Ad & No).Value, "#.00")
                        .Controls(Ad & No + 4).Value = Format(.Controls(Ad & No).Value * 0.16, "#0.00")
                    Case 5 To 7
                        Top2 = Top2 + Format(.Controls(Ad & No).Value, "#.00")
                End Select
        End If
    Next
.TextBox4 = Format(Top1, "#.00")
.TextBox8 = Format(Top2, "#.00")
End With
End Sub


Userform Kodları :


Kod: Tümünü seç
Dim txtler() As New Class1
Private Sub UserForm_Initialize()
    Dim nesne As Control

    For Each nesne In Controls
        If TypeName(nesne) = "TextBox" Then
            ReDim Preserve txtler(i)
            Set txtler(i).txt = nesne
            i = i + 1
        End If
    Next
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Sorularınızı düzgün bir Türkçe ile, detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 49
İleti: 4048
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Class Module ile Textboxların Toplamını Alma

İleti#2)  Tarkan VURAL » 14 Arl 2011 15:20

Eline sağlık, güzel örnek. --)(
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ş: 46
İleti: 27044
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Class Module ile Textboxların Toplamını Alma

İleti#3)  Ali Kırksekiz » 14 Arl 2011 15:24

Elinize sağlık. şkşk
Ali Kırksekiz
Forum Moderatörü
 
Adı Soyadı:Ali Kırksekiz
Kayıt: 18 Eyl 2008 07:12
Konum: Sivas
Meslek: Lab ve Kalite Kontrol
Yaş: 45
İleti: 1566
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Sivas

Cevap: Class Module ile Textboxların Toplamını Alma

İleti#4)  Murat OSMA » 14 Arl 2011 16:03

Teşekkürler Erkan abi, ellerine sağlık... --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14344
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

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

Cevap: Class Module ile Textboxların Toplamını Alma

İleti#5)  Erhan Yavuz » 14 Arl 2011 16:03

Erkan sağol, eline sağlık.. [evet]
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 60
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: Class Module ile TextBox'ların Toplamını Alma

İleti#6)  takunya » 01 Eyl 2013 11:18

Elinize sağlık. şkşk

Ama Userform modülleri de birer class olarak düşünülebileceğine göre (class modüllerinde yapacağımız hemen her şeyi uxerform modüllerinde de yapabiliriz demek oluyor), neden class modülünde yaptık ki bu işlemleri? Kodlarımız okunaklı olsun, temiz görünsün, diye mi?
Kullanıcı avatarı
takunya
 
Adı Soyadı:orhan somuncu
Kayıt: 21 Mar 2009 16:16
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kayseri/merkez

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Class Module ile TextBox'ların Toplamını Alma

İleti#7)  alicimri » 22 Oca 2016 13:30

Merhaba
Erkan bey sizin bu çalışmanızı kendi dosyama uyarlamaya çalıştım, Ancak iki konuda sorun çıktı.
Bir Formum var, Forumda sütun ve satır şeklinde TextBox'larım var. Name özellikler ilk satır için A, A1, A2, A3 ....... ikinci satır için B, B1, ......... şeklinde gidiyor. İlk Metin Kutularına A-F arasında bir karakter yazınca (değiştirilecek satır adı) ilgili satırlardaki değerlerin yer değişmesi gerekiyor.
1. Sorun Sayfadaki Düğmeye tıklayınca açılan forumda kodlar hiç çalışmıyor ama "Run Sub/UseForm" düğmesi ile Form açılınca kodlar çalışıyor.
2. Sorun ise birer metin kutusunda değer varsa (Örnek A metin kutusuna B yazınca A1 Metin Kutusundaki değer B1'e B1'deki değer A1'e yazıyor) çalışıyor. Birden fazla Metin kutusunda değer varsa sonsuz döngüye girip program çöküyor.
Daha önce Class Modul ile pek çalışmamıştım. Yardım ederseniz sevinirim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
alicimri
 
Kayıt: 22 Oca 2016 12:47
Meslek: Emekli
Yaş: 62
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Akyaka

Cevap: Class Module ile TextBox'ların Toplamını Alma

İleti#8)  alicimri » 25 Oca 2016 20:19

:)
Kullanıcı avatarı
alicimri
 
Kayıt: 22 Oca 2016 12:47
Meslek: Emekli
Yaş: 62
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Akyaka


Forum Class Module

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe