menyembunyikan kolom berdasarkan data yang dipilih

  1. 6 tahun lalu

    Assalamualaikum...maaf hadir lagi..mohon bantuannya bagaimana caranya apabila data yang dipilih "I" maka kolom yang di inginkan terlihat sedangkan yang lain tersembunyi.
    untuk lebih jelasnya file terlampir

  2. Caton

    12 Agu 2018 Terverifikasi Indonesia + 20.101 Poin
    Di sunting 6 tahun lalu oleh Caton

    Wa'alaikumsalam Mas @Farud ...

    Terlampir contohnya. Lihat scriptnya pada Worksheet Module Sheet1. Semoga sesuai ...

  3. mas @Caton ikutan yak ;)

  4. terimakasih untuk jawaban mas caton dan mas manweljs...jawabannya sudah hampir sesuai cuma dari 2 contoh yang diberikan ketika data di pilih semisal kelas I maka langsung meluncur ke sheet hasil,saya ingin ketika data kelas dipilih posisi sheet tetap cuma kolom di sheet hasil yang berubah.karena niatnya ingin ganti kelas kelas dan ketika klik sheet hasil posisi kolom sudah berganti sesuai kelasnya.mohon bantuannya untuk para master

  5. Caton

    12 Agu 2018 Terverifikasi Indonesia + 20.101 Poin

    @farud ... maka langsung meluncur ke sheet hasil ...

    Yang kami berikan ini khan hanya sebagai contoh saja mas @Farud ... Daripada repot bolak-balik antar sheet DATA dan sheet HASIL buat melihat script-nya udah sesuai atau belum. Untuk menghilangkannya, khan tinggal dihapus saja baris script:

    .Activate

    Coba dianalisa dahulu script-nya. Cari script yang kira-kira sesuai dengan kondisi yang ingin diinginkan. Ubah atau hapus atau berikan tanda komentar (tanda petik tunggal) untuk menon-aktifkan script dan sebagainya. Simpan dan lakukan kompilasi (RUN atau F5). Lihat hasilnya sesuai atau tidak, bermasalah atau tidak, perubahan atau perbedaannya apa. Dengan demikian diharapkan mas @Farud dapat memahami tujuan setiap baris script macro tersebut...

    Sebagai contoh, coba saja pada baris script tersebut mas berikan tanda petik tunggal (tanda ') pada awal script menjadi seperti berikut:

    '.Activate

    kemudian ubah pilihan di sel B4 sheet DATA. Lihat apa hasilnya. Atau ubah script tersebut menjadi:

    .Select

    kemudian ubah pilihan di sel B4 sheet DATA kemudian lihat apa yang terjadi.

    Demikian asiknya formula dan macro Excel. Untuk tujuan yang sama, mas @Farud bisa menggunakan beberapa cara. Contohnya seperti yang mas tanyakan, mas mendapatkan 2 macam susunan script yang berbeda — bahkan mungkin bisa lebih jika ada yang ingin menambahkan dengan cara lainnya ... :) :D

  6. iya betul mas caton...maaf saya masih belum ngerti2 amat masalah macro jadinya tnya terus.nach diforum ini saya betul2 terbantu mas karena selain diberikan penjelasan yang detail juga diberikan contoh2nya sehingga bisa belajar sedikit demi sedikit..sekali lagi terimakasih mas caton dan juga master2 yang lain...

  7. Caton

    12 Agu 2018 Terverifikasi Indonesia + 20.101 Poin

    Mas @Farud ...

    Tidak perlu minta maaf mas ... :)

    Saya hanya memberikan saran bagaimana langkah awal yang dapat mas lakukan, karena saya pun masih melakukan hal yang sama. Di forum ini tujuan kita memang belajar dan berdiskusi tentang formula dan macro Excel. Jangan sungkan bertanya jika tidak tahu atau tidak paham. InsyaAllah, rekan-rekan yang mampu akan membantu memberikan jawaban atau mencarikan solusi.

    Tetap aktif berdiskusi mas @Farud ... Semoga ilmunya makin bertambah.

  8. Di sunting 6 tahun lalu oleh manweljs_

    @farud ...jawabannya sudah hampir sesuai ...

    sebenarnya sudah sesuai, karena kolom yang diinginkan terlihat sesuai dengan pertanyaannya :P

    @farud ...apabila data yang dipilih "I" maka kolom yang di inginkan terlihat...

    mas @Caton Yang kami berikan ini khan hanya sebagai contoh saja...

    iya nih, gara-gara contoh yang mas berikan saya juga ikut2an hampir sesuai :D ;)

  9. maaf mas caton ada pertanyaan tambahan dalam pembahasan ini,jika di sheet data kita pilih kelas I atau II maka di sheet hasil di garis 20 dan 21 ikut tersembunyi dan ketika dipilih kelas III dan IV garis itu kembali muncul

  10. Caton

    13 Agu 2018 Terverifikasi Indonesia + 20.101 Poin

    Mas @Farud ...

    ... jika di sheet data kita pilih kelas I atau II maka di sheet hasil di garis 20 dan 21 ikut tersembunyi dan ketika dipilih kelas III dan IV garis itu kembali muncul ...

    Garis 20 dan 21 itu garis apa atau garis yang mana mas? Garis atau Baris ... :) Saya gak paham ... :D

  11. iya baris maksudnya mas

  12. Caton

    13 Agu 2018 Terverifikasi Indonesia + 20.101 Poin

    Mas @Farud ...

    Asli ... saya tidak tahu baris 20 dan 21 yang mana ... :D Di PC saya, mau pilih kelas berapun, baris 20 dan baris 21 tetap terlihat. Di script yang saya buat tidak ada satu pun baris script untuk menyembunyikan baris. Kasih screen shoot saja mas ...

  13. ini mas di sheet hasil...

  14. dibagian yg saya tandai biru langit

  15. Caton

    13 Agu 2018 Terverifikasi Indonesia + 20.101 Poin
    Di sunting 6 tahun lalu oleh Caton

    Mas @Farud ...

    Saya lagi ada pekerjaan, jadi gak fokus baca pertanyaannya ... :D Oke, yang mas maksud, kalau dipilih kelas I atau kelas II, maka baris 20 dan 21 disembunyikan. Kalau dipilih kelas II atau kelas IV, maka baris 20 dan 21 ditampilkan. Begitu khan?! Coba ubah scriptnya menjadi:

    Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Address(0, 0) = "B4" Then
            Dim lIdx As Long
            Dim xArray
            
            xArray = [{"I", "C:F";"II", "G:J";"III", "K:N";"IV","O:R"}]
            For lIdx = 1 To 4
                If Target.Value = xArray(lIdx, 1) Then
                    With Sheet2
                        .Range("C:AB").Columns.Hidden = True
                        .Range(xArray(lIdx, 2)).Columns.Hidden = False
                        '.Activate
                    End With
                    Sheet2.[20:21].Rows.Hidden = (lIdx < 3)
                    Exit For
                End If
            Next
        End If
    End Sub

    Semoga sesuai ... ;)

  16. Alhamdulillah sudah bisa mas caton...seandainya kelasnya ada 6 kelas mas selain script ini " xArray = [{"I", "C:F";"II", "G:J";"III", "K:N";"IV","O:R"}] " yang diubah saya harus ngubah yang mana lagi mas.

  17. Caton

    13 Agu 2018 Terverifikasi Indonesia + 20.101 Poin

    Mas @Farud ...

    Terlampir dengan contoh script yang sedikit berbeda ... :)

  18. wach terimakasih banyak mas caton....

  19. Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [B4].Address Then
    Dim lIdx As Long

    On Error Resume Next

    lIdx = Application.Match(UCase$(Trim$(UCase$(Target))), [{"I","II","III","IV","V","VI"}], 0)
    If Err.Number = 0 Then
    With Sheet2
    .Columns("C:Z").Hidden = True
    .Columns((lIdx - 1) * 4 + 3).Resize(ColumnSize:=4).Hidden = False
    Debug.Print .Columns((lIdx - 1) * 4 + 3).Column
    Sheet2.[20:21].Rows.Hidden = (lIdx < 3)
    '.Select
    End With
    End If

    Err.Clear
    On Error GoTo 0
    End If
    End Sub

    dari script ini saya ingin menyembunyikan juga baris 13 di sheet 4,bagaimana penambahan scriptnya,,mohon bantuannya

  20. Caton

    14 Agu 2018 Terverifikasi Indonesia + 20.101 Poin

    Mas @Farud ...

    Khan sudah ada contohnya pada script tersebut:

    ...
    Sheet2.[20:21].Rows.Hidden = (lIdx < 3)
    ...

    Kalau kondisinya sama seperti sebelumnya:

    ... kalau dipilih kelas I atau kelas II, maka baris 20 dan 21 disembunyikan. Kalau dipilih kelas II atau kelas IV, maka baris 20 dan 21 ditampilkan ...

    tinggal ditambahkan baris script:

    ...
    Sheet4.[13].Rows.Hidden = (lIdx < 3)
    ...

    atau

    ...
    Sheet4.Rows(13).Hidden = (lIdx < 3)
    ...

    atau jika ingin disembunyikan hanya untuk kelas III dan kelas IV:

    ...
    Sheet4.Rows(13).Hidden = (lIdx>2) And (lIdx<5) 
    ...

    Demikian

  21. Newer ›
 

atau Mendaftar untuk ikut berdiskusi!