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 harusditambah
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
