Messages In This Digest (11 Messages)

1a.: Re: Mohon Dibantu: Membuat Kotak Combo Dinamis From: Rara Wilis
1b.: Re: Mohon Dibantu: Membuat Kotak Combo Dinamis From: guru muda
1c.: Re: Mohon Dibantu: Membuat Kotak Combo Dinamis From: Rara Wilis
1d.: Re: Mohon Dibantu: Membuat Kotak Combo Dinamis From: guru muda

2a.: Bls: [belajar-excel] help sepertinya ada yg salah dengan code ku From: Harumi Wanasita
2b.: Re: help sepertinya ada yg salah dengan code ku From: Rara Wilis
2c.: Re: Bls: [belajar-excel] help sepertinya ada yg salah dengan code ku From: hendrik karnadi
2d.: Bls: Bls: [belajar-excel] help sepertinya ada yg salah dengan code k From: Harumi Wanasita

3a.: Bls: [belajar-excel] RoundUp dan RoundDown dengan kriteria From: Harumi Wanasita

4a.: Hapus droplist menu buatan {userform show} From: didon13@ymail.com
4b.: Re: Hapus droplist menu buatan {userform show} From: Rara Wilis

View All Topics | Create New Topic

Messages

1a.: Re: Mohon Dibantu: Membuat Kotak Combo Dinamis

Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis

Mon Jun 25, 2012 12:59 am (PDT)

maaf, koreksi sedikit
pada bagian Loop : For i - Next i, sebarusnya seperti ini

For i = LBound(UniqList) To UBound(UniqList)
t = t & UniqList(i) & ","
Next i
FmlTxt = Left(t, Len(t) - 1)

Pembuangan KOMA terkanan pada variable t dilakukan setelah loop selesai !!
gitu loch...

2012/6/25 Rara Wilis <ra2wilis@gmail.com>

> *priiiittttt... pak guru kena tilang: fie kegedean he he he, untung pak
> polisinya sedang shalat... *
>
> lihat lampiran; lihat prosedur di module 2
>
> Sub CreateDropDownUniqList()
> ' Rara / 25 Jun 2012
> '-------------------
> Dim MasterPensiun As Range, FmlTxt As String
> Dim i As Long, t As String, UniqList
> Set MasterPensiun = Sheets("MASTER").Range("L12")
> Set MasterPensiun = Range(MasterPensiun, MasterPensiun.End(xlDown))
> UniqList = LOUV(MasterPensiun)
> *For i = LBound(UniqList) To UBound(UniqList)*
> *t = t & UniqList(i) & ","*
> *FmlTxt = Left(t, Len(t) - 1)*
> *Next*
> With Sheets("PAKAI-FORMULA").Range("B5").Validation
> .Delete
> .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
> Operator:=xlBetween, Formula1:=FmlTxt
> .IgnoreBlank = True: .InCellDropdown = True
> .InputTitle = "": .ErrorTitle = ""
> .InputMessage = "": .ErrorMessage = ""
> .ShowInput = True: .ShowError = True
> End With
> End Sub
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
1b.: Re: Mohon Dibantu: Membuat Kotak Combo Dinamis

Posted by: "guru muda" mudaguru@yahoo.com mudaguru

Mon Jun 25, 2012 5:05 am (PDT)

Terima kasih Mbak Rara.

Alhamdulillah, combo box sudah berjalan dengan baik. Tetapi kok gak ngefek ya sama tabel. Udah saya klak klik di combo box-nya tetapi sang tabel diam membatu? Kenapa ini terjadi?

Mohon bantuannya?

--- On Mon, 6/25/12, Rara Wilis <ra2wilis@gmail.com> wrote:

From: Rara Wilis <ra2wilis@gmail.com>
Subject: Re: [belajar-excel] Mohon Dibantu: Membuat Kotak Combo Dinamis
To: belajar-excel@yahoogroups.com
Date: Monday, June 25, 2012, 7:58 AM

maaf, koreksi sedikitpada bagian Loop : For i - Next i, sebarusnya seperti ini
For i = LBound(UniqList) To UBound(UniqList)

t = t & UniqList(i) & ","Next iFmlTxt = Left(t, Len(t) - 1)

Pembuangan KOMA terkanan pada variable t dilakukan setelah loop selesai !! gitu loch...

2012/6/25 Rara Wilis <ra2wilis@gmail.com>

priiiittttt... pak guru kena tilang: fie kegedean he he he, untung pak polisinya sedang shalat...

lihat lampiran; lihat prosedur di module 2

Sub CreateDropDownUniqList()' Rara / 25 Jun 2012'-------------------

Dim MasterPensiun As Range, FmlTxt As StringDim i As Long, t As String, UniqList

Set MasterPensiun = Sheets("MASTER").Range("L12")Set MasterPensiun = Range(MasterPensiun, MasterPensiun.End(xlDown))

UniqList = LOUV(MasterPensiun)For i = LBound(UniqList) To UBound(UniqList)

t = t & UniqList(i) & ","FmlTxt = Left(t, Len(t) - 1)

NextWith Sheets("PAKAI-FORMULA").Range("B5").Validation

.Delete.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _Operator:=xlBetween, Formula1:=FmlTxt

.IgnoreBlank = True: .InCellDropdown = True
.InputTitle = "": .ErrorTitle = "".InputMessage = "": .ErrorMessage = ""

.ShowInput = True: .ShowError = TrueEnd With

End Sub

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
1c.: Re: Mohon Dibantu: Membuat Kotak Combo Dinamis

Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis

Mon Jun 25, 2012 8:40 am (PDT)

Quote :*" Tapi kok gak ngefek ya sama Tabel" *UnQuote.

*Lho ?! *(heran dan terkejut)*, pak guru kok gitu ya...*
Berarti pak guru *belum (tidak mau) *membaca penjelasan dlm jawaban bahwa
dengan makro itu *hanya dibuatkan DropDownList di Cell B5* (Sheet
"Pakai-Formula")
Istilahnyapun kurang tepat jika dikatakan sebagai ComboBox karena akan
rancu dengan istilah Combobox yg sudah ada.
Dia, Cell B5 itu, *BUKAN (belum direkayayasa agar menjadi) KRITERIA FILTER
!!*!

Untuk menjadikannya sebagai Kriteria Filter tentu harus ada FORMULA di
tabelnya
(ingat formula Small(IF(syarat, Row(1:xxx)),Row(1:xxx)) dan kemudian di
gandengkan dengan INDEX(Tabel, [hasil Small-IF] )

Atau Makro lain yg mengerjakan pemfilteran, misalnya
For 1 to N
if TabelSumber(N,c) = Range("B5") then....
'-baris yg memenuhi syarat ditampakkan di tabel hasil filter
End If
Next N

Jika bekenan, ini diberikan LINK ke *OnLine_Shared_Folder* milik mbak siti
di box.com)
sub Folder : About Filtering & Sorting<https://www.box.com/shared/0xm3lk4z4i>,
(saat ini berisi 20 files) yg dapat anda unduh gratis:
https://www.box.com/shared/0xm3lk4z4i

2012/6/25 guru muda <mudaguru@yahoo.com>
>
> Terima kasih Mbak Rara.
> Alhamdulillah, combo box sudah berjalan dengan baik. *Tetapi kok gak
ngefek ya sama tabel*. Udah saya klak klik di combo box-nya tetapi sang
tabel diam membatu? Kenapa ini terjadi?
> Mohon bantuannya?
>
>
> --- On Mon, 6/25/12, Rara Wilis <ra2wilis@gmail.com> wrote:
>
> maaf, koreksi sedikit
> pada bagian Loop : For i - Next i, sebarusnya seperti ini
>
> For i = LBound(UniqList) To UBound(UniqList)
> t = t & UniqList(i) & ","
> Next i
> FmlTxt = Left(t, Len(t) - 1)
> Pembuangan KOMA terkanan pada variable t dilakukan setelah loop selesai
!! gitu loch...
>
>
*> 2012/6/25 Rara Wilis <ra2wilis@gmail.com>*
> priiiittttt... pak guru kena tilang: fie kegedean he he he, untung pak
polisinya sedang shalat...
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
1d.: Re: Mohon Dibantu: Membuat Kotak Combo Dinamis

Posted by: "guru muda" mudaguru@yahoo.com mudaguru

Mon Jun 25, 2012 7:17 pm (PDT)

Maaf Mbak Rara,

Saya agak tergesa-gesa kemarin membacanya. Sehingga kalimat tersebut tidak terbaca.

Sekarang tabel udah mau berubah. Saya pakai rumus ini:

=COUNTIFS(MASTER!$S$12:$S$1011;PENSIUN!$A10;MASTER!$I$12:$I$1011;PENSIUN!B$9;MASTER!$L$12:$L$1011;PENSIUN!$B$5)

Jika ada yang salah dengan rumus saya di atas tolong dikoreksi.

Terima kasih

--- On Mon, 6/25/12, Rara Wilis <ra2wilis@gmail.com> wrote:

From: Rara Wilis <ra2wilis@gmail.com>
Subject: Re: [belajar-excel] Mohon Dibantu: Membuat Kotak Combo Dinamis
To: belajar-excel@yahoogroups.com
Date: Monday, June 25, 2012, 3:39 PM

Quote :" Tapi kok gak ngefek ya sama Tabel" UnQuote.
Lho ?! (heran dan terkejut), pak guru kok gitu ya...

Berarti pak guru belum (tidak mau) membaca penjelasan dlm jawaban bahwa dengan makro itu hanya dibuatkan DropDownList di Cell B5 (Sheet "Pakai-Formula") Istilahnyapun kurang tepat jika dikatakan sebagai ComboBox karena akan rancu dengan istilah Combobox yg sudah ada.

Dia, Cell B5 itu, BUKAN (belum direkayayasa agar menjadi) KRITERIA FILTER !!!
Untuk menjadikannya sebagai Kriteria Filter tentu harus ada FORMULA di tabelnya (ingat formula Small(IF(syarat, Row(1:xxx)),Row(1:xxx)) dan kemudian di gandengkan dengan INDEX(Tabel, [hasil Small-IF] )

Atau Makro lain yg mengerjakan pemfilteran, misalnyaFor 1 to Nif TabelSumber(N,c) = Range("B5") then....

'-baris yg memenuhi syarat ditampakkan di tabel hasil filterEnd IfNext N

Jika bekenan, ini diberikan LINK ke OnLine_Shared_Folder milik mbak siti di box.com)sub Folder : About Filtering & Sorting, (saat ini berisi 20 files) yg dapat anda unduh gratis:

https://www.box.com/shared/0xm3lk4z4i

2012/6/25 guru muda <mudaguru@yahoo.com>

>
> Terima kasih Mbak Rara.
> Alhamdulillah, combo box sudah berjalan dengan baik. Tetapi kok gak ngefek ya sama tabel. Udah saya klak klik di combo box-nya tetapi sang tabel diam membatu? Kenapa ini terjadi?

> Mohon bantuannya?
>
>
> --- On Mon, 6/25/12, Rara Wilis <ra2wilis@gmail.com> wrote:

>
> maaf, koreksi sedikit
> pada bagian Loop : For i - Next i, sebarusnya seperti ini

>
> For i = LBound(UniqList) To UBound(UniqList)
> t = t & UniqList(i) & ","

> Next i
> FmlTxt = Left(t, Len(t) - 1)
> Pembuangan KOMA terkanan pada variable t dilakukan setelah loop selesai !! gitu loch...
>

>
> 2012/6/25 Rara Wilis <ra2wilis@gmail.com>

> priiiittttt... pak guru kena tilang: fie kegedean he he he, untung pak polisinya sedang shalat...

>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

2a.: Bls: [belajar-excel] help sepertinya ada yg salah dengan code ku

Posted by: "Harumi Wanasita" hwanasita@yahoo.com hwanasita

Mon Jun 25, 2012 1:00 am (PDT)

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 <ra2wilis@gmail.com>
Kepada: belajar-excel@yahoogroups.com
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 <hwanasita@yahoo.com>
> 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 <markonatul@gmail.com>
> 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

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
2b.: Re: help sepertinya ada yg salah dengan code ku

Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis

Mon Jun 25, 2012 1:24 am (PDT)

RowIdx = Sheets("bantuan").Range("D1").Value + 1

*artinya:*
Nilai Cell D1 ditambah 1, kemudian HASILNYA dimsukkan / diingat di Variable
bernama RowIdx

*Catatan:*
D1 itu selalu berubah nilainya sesuai NAMA yg dipilih melalui Drow Down
Ingat DropDown itu Anda buat dengan FORM ComboBox (bukan ActiveX control
ComboBox)
Jadi setiap dipilih sebenarnya nilainya adalah ANGKA URUT DATA
Dan Anda telah menunjuk Cell D1 itu sebagai Cell-Link - nya.

Row Index di Tabel (Khusus Data) di sheet "bantuan") tidak sama dengan row
index milik Sheet,
dlm contoh selisih 1 karena baris 1 pada tabel berupa JUDUL KOLOM (bukan
data)
Sedangkan nantinya anga RowIdx itu akan dipakai untuk merujuk cell
berdasarkan Sheet
(bukan Range(Tabel)

Maka Nilai Cell D1 harus ditambah 1 agar nantinya dapat digunakan untuk
merujuk
data /cell yg berindukkan SHEET secara langsung.

*Catatan Tambahan:*
Dengan telah diketahuinya nilai di D1 (sheet bantuan), setiap anda menunjuk
nama melalui
"ComboBox" sebenarnya dapat dicari data KELAS dan NIS secara langsung,
TIDAK PERLU
menggunakan Select Case yg bisa panjang.

~Rara

2012/6/25 Harumi Wanasita <hwanasita@yahoo.com>

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

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
2c.: Re: Bls: [belajar-excel] help sepertinya ada yg salah dengan code ku

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Mon Jun 25, 2012 1:50 am (PDT)

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 <hwanasita@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
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 <ra2wilis@gmail.com>
Kepada: belajar-excel@yahoogroups.com
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 <hwanasita@yahoo.com>
> 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 <markonatul@gmail.com>
> 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

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
2d.: Bls: Bls: [belajar-excel] help sepertinya ada yg salah dengan code k

Posted by: "Harumi Wanasita" hwanasita@yahoo.com hwanasita

Mon Jun 25, 2012 5:05 am (PDT)

ok terima kasih, cukup jelas dan gak pusing kok.

sy akan coba terapkan ke tugas yg lain.

________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
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 <hwanasita@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
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 <ra2wilis@gmail.com>
Kepada: belajar-excel@yahoogroups.com
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 <hwanasita@yahoo.com>
> 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 <markonatul@gmail.com>
> 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

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

3a.: Bls: [belajar-excel] RoundUp dan RoundDown dengan kriteria

Posted by: "Harumi Wanasita" hwanasita@yahoo.com hwanasita

Mon Jun 25, 2012 1:20 am (PDT)

boleh minta lampirannya tidak? biar lebih jelas... thanks

=================================================
Mods Note:
Mestinya Bu Harumi bisa ikuti dulu Thread ini dari mula
http://tech.groups.yahoo.com/group/belajar-excel/message/17815
=================================================

________________________________
Dari: dwint ruswanto <dwint.ruswanto@gmail.com>
Dikirim: Senin, 25 Juni 2012 13:38
Judul: Re: [belajar-excel] RoundUp dan RoundDown dengan kriteria

mohon maaf kepada anggota millis dan moderator..

jawaban saya pada thread ini sebelumnya tulisannya besar2 bukan di sengaja, tapi karena kesalahan teknis.. saya kirim dari yahoo mail dan tampilan dilayar kecil.. tetapi setelah terkirim ternyata hurufnya menjadi besar2.

-dwint-

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

4a.: Hapus droplist menu buatan {userform show}

Posted by: "didon13@ymail.com" didon13@ymail.com didon13@ymail.com

Mon Jun 25, 2012 1:25 am (PDT)

.mohon bantuanya..setelah ngotak ngatik makro untk menganti nama droplist..akhirny berhasl jg,tetapi permasalahanny..droplist yg lama masih nongol.bgaimana cara menghlangkany..mohon pencerahany..para sesepuh
Powered by Telkomsel BlackBerry�

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
4b.: Re: Hapus droplist menu buatan {userform show}

Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis

Mon Jun 25, 2012 1:46 am (PDT)

tidak ada "BONUS"nya sama sekali ya ??; misal berupa contoh data, conton
text makro yg katanya diutak-utik itu..

*Drop-List* itu mungkinkah berupa List yg "nge"-Drop jika ada sesuaitu ci
klik ya ?
misal dlm Cell yg diberi Validation - List; atau dalm Combo Box Ex From
Control; atau dlm ComboBox ex ActiveX Control.
Istilah "droplist" sendiri tidak terdapat di seluruh text yg ada di
Excel-VBA-HELP
Menurut pertanyaan Anda: DropList punya property Nama, berarti dia sebuah
object, bisakah ditunjukkan contohnya?

"DropList" mana yg anda tanyakan dari ketiga jenis itu ?
Sekedar diketahui ComboBox (ActiveX Control) bisa diisi dengan berbagai
cara, dan ternyata cara menghapusnya Item-List-nya berbeda !

Pertanyaan yg baik akan mendapat jawaban yg insyaallah baik;
Pertanyaan yg masih penuh pencabangan / kemungkinan yg bercabang cabang
(+tanpa contoh "BENDA"nya) akan menakutkan teman lain untuk membantu
(karena harus tulis SEMUA kemungkinan jawaban)

~Rara

2012/6/25 <didon13@ymail.com>
> .mohon bantuanya..setelah ngotak ngatik *makro untk menganti nama droplist
*..akhirny berhasl jg,tetapi permasalahanny..droplist yg lama masih
nongol.bgaimana cara menghlangkany..mohon pencerahany..para sesepuh

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

Selasa, 26 Juni 2012

Messages In This Digest (11 Messages)

Messages

Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis

Mon Jun 25, 2012 12:59 am (PDT)

Posted by: "guru muda" mudaguru@yahoo.com mudaguru

Mon Jun 25, 2012 5:05 am (PDT)

Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis

Mon Jun 25, 2012 8:40 am (PDT)

Posted by: "guru muda" mudaguru@yahoo.com mudaguru

Mon Jun 25, 2012 7:17 pm (PDT)

Posted by: "Harumi Wanasita" hwanasita@yahoo.com hwanasita

Mon Jun 25, 2012 1:00 am (PDT)

Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis

Mon Jun 25, 2012 1:24 am (PDT)

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Mon Jun 25, 2012 1:50 am (PDT)

Posted by: "Harumi Wanasita" hwanasita@yahoo.com hwanasita

Mon Jun 25, 2012 5:05 am (PDT)

Posted by: "Harumi Wanasita" hwanasita@yahoo.com hwanasita

Mon Jun 25, 2012 1:20 am (PDT)

Posted by: "didon13@ymail.com" didon13@ymail.com didon13@ymail.com

Mon Jun 25, 2012 1:25 am (PDT)

Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis

Mon Jun 25, 2012 1:46 am (PDT)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me