spinbutton

  1. 6 bulan yang lalu

    mohon pencerahan suhu, saya buat form untuk menampilkan data dari sheet menggunakan spinbutton data kenapa munculnya mulai dari sheet "A1", harusnya mulai dari "A6" dan ketika tombol simpan di klik perubahan yang muncul di text box tersimpan.

  2. filenya

  3. manweljs_

    Mei 30 Terverifikasi + 5.825 Poin
    Di sunting 6 bulan yang lalu oleh manweljs_

    @Mr.P

    ...kenapa munculnya mulai dari sheet "A1"...

    mungkin karena DataCell tidak di set pada nilai berapa sehingga dibaca 1

    coba skrip ini :

    Private Sub SpinButton1_Change()
    Dim DataCell As Long
    
    Set Datab = Sheets("Data_Bakul")
    DataCell = SpinButton1.Value
    a = 5
    
    If DataCell < 1 Then
    Exit Sub
    Else
        With Datab
            TextBox1.Value = .Cells(DataCell + a, 1).Value
            TextBox2.Value = .Cells(DataCell + a, 2).Value
            TextBox3.Value = .Cells(DataCell + a, 3).Value
            TextBox4.Value = .Cells(DataCell + a, 4).Value
        End With
    End If
    End Sub

    ketika tombol simpan di klik perubahan yang muncul di text box tersimpan.

    tersimpan dimana mas ? (^_^)/

 

atau Mendaftar untuk ikut berdiskusi!