Soru Excel sayfasında Rakam Klavyesi yapmak için yardım.

[Faulkner]

Merhaba Sayın Arkadaşlar

sizden yardım rica ediyorum. aşağıdaki resimde görüldüğü gibi textboxlara rakam butonları basarak rakam yazmasını istiyorum. ekteki dosyada yapay zeka ile yaptırmıştım ama çalışmadı. bu konuda yardımlarınızı rica ediyorum. saygılarımla.

rakamları kullanacağım textboxlar: Textbox1, textbox7 textbox8, textbox9 'dur



EXCEL DOSYASI:

İndir örnek xlsm

Dosyayı indir örnek xlsm

dosya.co

 

[systran]

Seçili olan textbox'ı tespit etmek için GotFocus olayını deneyin. (Aşağıdaki kod 1 butonu için)

Private Sub TextBox1_GotFocus()
Set SeciliTextBox = TextBox1
End Sub

Ayrıca Butonlara tıklayınca rakamı yanına ilave etmek için :
SeciliTextBox.value = SeciliTextBox.value & "1" ya da
SeciliTextBox.value = "1" & SeciliTextBox.value

mantığına göre hepsini düzeltip deneyiniz.

Tavsiye: Butonların ve textboxların isimleri çok karışık , değiştirmenizi tavsiye ederim.
1 nolu buton--> btn_1
2 nolu buton --> btn_2

1 nolu textbox --> txt_1
2 nolu textbox --> txt_2

 

[Faulkner]

Dim SeciliTextBox As MSForms.TextBox

Private Sub TextBox_Enter()
    Set SeciliTextBox = Application.ActiveControl
End Sub

Private Sub CommandButton8_Click()
    If SeciliTextBox Is Nothing Then
        MsgBox "Lütfen önce bir TextBox seçin!", vbExclamation, "Uyarı"
        Exit Sub
    End If

    SeciliTextBox.value = "1"
End Sub

Private Sub TextBox_DblClick()
    If Not SeciliTextBox Is Nothing Then
        ActiveCell.value = SeciliTextBox.value
    End If
End Sub

Private Sub UserForm_Initialize()
    Dim ctrl As Control

    For Each ctrl In Me.Controls
        If TypeOf ctrl Is MSForms.TextBox Then
            With ctrl
                .Enter = "TextBox_Enter"
                .DblClick = "TextBox_DblClick"
            End With
        End If
    Next ctrl
End Sub

nereye düzeltme yapacağız. anlayamadım.

 

[systran]

Örnek çalışmayı inceleyiniz, Buton1 ve 2 için, İlk2 textboxta veri girişi yapan kodlara bakıp benzer ilaveleri diğer düğme ve textboxlar için yapınız.
Anlaşılır olması için ilave kodları kod sayfasının üst tarafına taşıdın ve yorum ekledim.