ok terima kasih, cukup jelas dan gak pusing kok. sy akan coba terapkan ke tugas yg lain.
________________________________ Dari: hendrik karnadi <[email protected]> Kepada: "[email protected]" <[email protected]> Dikirim: Senin, 25 Juni 2012 15:50 Judul: Re: Bls: [belajar-excel] help sepertinya ada yg salah dengan code ku Dear Harumi, RowIdx = Sheets("bantuan").Range("D1").Value + 1 terjemahan bebasnya kurang lebih begini: (Nilai) RowIdx adalah sama dengan ( Value ) dari Sheets("bantuan").Range("D1") ditambah 1 (+ 1 ). Pertanyaan berikutnya yang harus dijawab dari mana ( Value ) pada Sheets("bantuan").Range("D1") tersebut berasal dan mengapa harus ditambah 1 (+ 1 ) ? Value tersebut berasal dari Cell Link Combo Box yang ada pada Sheet("Form") (Bantuan!$D$1) dan harus ditambah 1 (+ 1 ) karena Nama pertama pada Sheet Bantuan berada pada baris ke 2 (si Combo mulai dari 1, kalau ditambah 1 jadi 2 kan ?). Semoga penjelasan yang muter2 ini tidak menambah anda semakin muter tujuh keliling alias pusing. Salam, Hendrik Karnadi ________________________________ From: Harumi Wanasita <[email protected]> To: "[email protected]" <[email protected]> Sent: Monday, 25 June 2012, 14:31 Subject: Bls: [belajar-excel] help sepertinya ada yg salah dengan code ku sorry bisa terjemahin ini saja? RowIdx = Sheets("bantuan").Range("D1").Value + 1 dari rumusan. Sub MengambilData() Dim RowIdx As Long, ShBt As Worksheet Set ShBt = Sheets("bantuan") RowIdx = Sheets("bantuan").Range("D1").Value + 1 With Worksheets("Form") .Cells(5, 2).Value = ShBt.Cells(RowIdx, 1) .Cells(6, 2).Value = ShBt.Cells(RowIdx, 2) .Cells(7, 2).Value = ShBt.Cells(RowIdx, 3) End With ShBt.Cells(1, 4).ClearContents End Sub ________________________________ Dari: Rara Wilis <[email protected]> Kepada: [email protected] Dikirim: Sabtu, 23 Juni 2012 16:29 Judul: Re: [belajar-excel] help sepertinya ada yg salah dengan code ku Berhubung mbak Connie sedang tidak online, saya ingin mewakilinya Alkisah dlm cerita makro "AMBIL_DATA", bu Harumi menyiapkan (mendeklarasikan) 3 variable: NAMA, NIS, KELAS Dengan perjuangan suci, gigih dan tak kenal menyerah, 3 variable itu diisi dengan data hasil dari dioperasikannya struktur "Selec Case". Akhirnya perjuangan mendebarkan itu berhasil mengisi 3 variable itu dengan 3 data, misal Bambang, 12345, 3C Tiga data ini menurut RENCANA-nyaakan di tampilkan di 3 cells pada sheet 'Form' yaitu cell B5, B6 dan B7 (atau dlm bhs VBA-Excel dapat disebut pula Cells(5,2), Cells(6,2), Cells(7,2) Variable adalah sejumput MEMORY di RAM, dapat diberi NAMA, diisi DATA, datanya dapat diganti dgn data lain kapan pun, termasuk dikosongkan, kapan saja, selama prosedur bejalan. VARIABLE istilah lengkapnya adalah MEMORY VARIABLE Pengisian/edit nya harus melalui pemrograman. Cell, secara teknis-komputer, juga berupa Memory Variable, hanya oleh excel dilengkapi dengan penampilan visualnya di suatu SHEET berupa kotak segi empat, sifatnya tidak jauh berbeda dengan Variable, dapat diisi tanpa pemrograman, langsung pada mode excel interaktif, dapat juga di isi/edit melalui pemrograman (VBA) Sekarang (perjuangan suci berikutnya) adalah bgmana caranya agar isi/ data didalam 3 variable (NAMA. NIS, KELAS) dipindahkan/dicopy ke 3 cell B5, B6 dan B7 (1) Apakah value/data di 3 CELL itu dimasukkan/diisikan ke 3 Variable ?? Cell(r,c).Value = NamaVariable (2) Ataukah 3 VARIABLE itu diisi dengan data yg ada di 3 CELL ?? (lha tadi kan sudah diperjuangan untuk diisi hasil Select Case. kok mau diubah sebelum digunakan) NamaVariable = Cell(r,c).Value Nah Teman2 dapat menjawab sendiri bukan ? Catatan Gak Penting: Dlm VBA, tanda/operator "=" bisa bertindak sbg salah satu OPERATOR sesuai jenis data/object yg dioperasikan; misal ** Sebagai operator Penugasan / assignment (gampangnya mengisikan data ke suatu tempat/memory ataupun cell Nama = "Asanti" , artinya variable Nama diberi nilai text "Asanti" ** Sebagai operator Pembanding (equal to) : x = 4=3 lebih mudah dipahami x = (4=3) "=" yg bertama = assignment, "=" yg kedua : pembanding hasilnya x = False Mungkin perbedaan tugas "=" inilah yg sering membuat pemula belajar VB / VBA sering agak bingung (karena belum membaca penjelasannya yg harusnya ada di buku yg dipegangnya) Mudah-mudahan dapat difahami & CMIIW ~Rara. 2012/6/22 Harumi Wanasita <[email protected]> > oh begitu ya mbak... > jdi berbeda yah dengan menuliskan dulu > nama =.cells(5,2).value > dengan > .cells(5,2).value = nama > jadi seperti sy bikin rumus baru di worksheet form dan tidak tehubung dengan > worksheet bantuan gitu kah mbak? > trims... > > ________________________________ > Dari: Markonah <[email protected]> > Dikirim: Jumat, 22 Juni 2012 14:48 > > coba dibandingkan makro asli dari mbak Harum -VS > makro yg telah kami coba perbaiki ini > kesalahan hanya pengisian cell terbalik > > harusnya cell diisi dengan variables hasil select case > yg mbak Harum lakukan Variables diisi dengan cell di FORM > > Sub GetData() > Dim nama, kelas As String > Dim nim As Long > With Worksheets("Bantuan") > nama = .Cells(1, 5).Value > Select Case nama > Case "Budi" > nis = .Cells(2, 2).Value: kelas = .Cells(2, 3).Value > Case "Bambang" > nis = .Cells(3, 2).Value: kelas = .Cells(3, 3).Value > Case "Wati" > nis = .Cells(4, 2).Value: kelas = .Cells(4, 3).Value > Case "Iwan" > nis = .Cells(5, 2).Value: kelas = .Cells(5, 3).Value > End Select > > Cells(1, 4).ClearContents > End With > > With Worksheets("Form") > .Cells(5, 2).Value = nama > .Cells(6, 2).Value = nis > .Cells(7, 2).Value = kelas > End With > End Sub
