[belajar-excel] Digest Number 1582

Milis Belajar Microsoft Excel

Messages In This Digest (17 Messages)

1a.

Re: Menghilangkan angka "0" From: hartini_80@yahoo.co.id

1b.

Re: Menghilangkan angka "0" From: Rara Wilis

1c.

Re: Menghilangkan angka "0" From: hartini_80@yahoo.co.id

1d.

Re: Menghilangkan angka "0" From: Rara Wilis

1e.

Re: Menghilangkan angka "0" From: hartini_80@yahoo.co.id

2a.

Re: Tanya : Filter berdasar 1 kriteria : setelah ditambahkan data, t From: Rara Wilis

2b.

Re: Tanya : Filter berdasar 1 kriteria : setelah ditambahkan data, t From: A. Hendri Bp. Algar

3a.

run time error 13 type mismatch From: KSM Absolute - Udin

3b.

Re: run time error 13 type mismatch From: Kid Mr.

3c.

Re: run time error 13 type mismatch From: hendrik karnadi

3d.

Bls: [belajar-excel] run time error 13 type mismatch From: KSM Absolute - Udin

3e.

Re: run time error 13 type mismatch From: Kid Mr.

3f.

Re: run time error 13 type mismatch From: Rara Wilis

4a.

case Mandays From: Aghoest Iwan

4b.

Re: case Mandays From: Rara Wilis

5a.

SUBJECT HARUS DIISI, misal:  'Menggabung Data' From: Yusril Ramadani

5b.

Re: SUBJECT HARUS DIISI, misal: 'Menggabung Data' From: Rara Wilis

View All Topics | Create New Topic

Messages

1a.

Re: Menghilangkan angka "0"

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id   hartini_80

Thu Apr 12, 2012 12:23 am (PDT)

Mba rara, untuk angka 0 ingin dihilangkan, tetapi bukan berarti posisinya menjadi kosong mba, jadi susunannya tetap rapi tanpa angka 0, gimana cara merubahnya ya mba?
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: Rara Wilis <ra2wilis@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 12 Apr 2012 13:26:59
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Menghilangkan angka "0"

Sub PsikoNumGenerator()
'-------------------------------------
' ModifiedBy : Rr_Wilis / 12 Apr 2012
' BeExcel Case No: # 16740 / Hartini
'-------------------------------------
Dim N As Integer, Angka As Integer
Dim StrN As String, LnFeed As String, Garis As String
Randomize
N = InputBox("Jumlah angka yang akan dibuat", "BANYAKNYA DATA")
If Not IsNumeric(N) Then Exit Sub
If Int(N) = 0 Then Exit Sub

For i = 1 To N
Angka = Int(Rnd(i) * 10)
If i Mod 20 = 0 Then LnFeed = vbCrLf Else LnFeed = ""
If (i + 20) Mod 200 = 0 Then Garis = "__" Else Garis = ""
If Angka = 0 Then
StrN = StrN & LnFeed & Garis & vbTab
Else
StrN = StrN & LnFeed & Garis & vbTab & Angka
End If
Next

Selection.TypeText Text:=StrN
End Sub

Rara tidak suka dengan object shape misalnya Line
Object tsb sulit di letakkan di tempat yg berhubungan dengan beradanya
suatu text tertentu; karena Line (dan shape lainnya) sebetulnya berada di
LAYER LAIN
(tidak se LAYER dengan Text di dalam dokumen.
Oleh karena itu bisa dipindah kemana saja. *CMIIW*
LINE yg diminta oleh mbak Hartini diganti dengan* text "__"*

Menjalankan makronya masih belum diotomatiskan:
- hapus dulu data yg ada di dokumen
*- Alt + F8 > pilih nama makro ( PsikoNumGenerator )*
*- klik tombol RUN*

warm regards,
~Rara


*
On Thu, Apr 12, 2012 at 10:15 AM, <hartini_80@yahoo.co.id> wrote:
>
> Dear All,
> Saya ingin membuat kreaplin, tetapi hasil yg saya inginkan kurang
sempurna, *
*> saya ingin menghilangkan angka 0 yang muncul serta menambahkan garis
datar *
*> disetiap 10 barisnya, contoh hasil yg diinginkan ada pada lampiran.
> Mohon bantuan dr rekan2 semua
> Salam
> Tini*

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)

1b.

Re: Menghilangkan angka "0"

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

Thu Apr 12, 2012 1:02 am (PDT)

Dear mbak Hartini,
*Di komputer Rara; Nol tampil RAPIH LHO..*
di antara angka itu sebenarnya ada charakter TAB-nya, (constant di VBA =
vbTab)
Karakter Tab itu dimaksudkan untuk mengatur jarak antar angka
supaya sama; termasuk angka "" (blank) ex NOL yg dikonversi menjadi "" )
[image: Inline image 1]
Karena angka yg digenerate itu adalah sifatnya RANDOM, maka NOL nya juga
Random
bisa muncul dimana saja (bisa gak muncul)

*On Thu, Apr 12, 2012 at 2:23 PM, <hartini_80@yahoo.co.id> wrote:
*
>
> * *
> * *
>
> * Mba rara, untuk angka 0 ingin dihilangkan, tetapi bukan berarti
> posisinya menjadi kosong mba, jadi susunannya tetap rapi tanpa angka 0,
> gimana cara merubahnya ya mba? *
>
> ------------------------------
> *From: * Rara Wilis <ra2wilis@gmail.com>
> *Date: *Thu, 12 Apr 2012 13:26:59 +0700
> *Subject: *Re: [belajar-excel] Menghilangkan angka "0"
>
>
> Sub PsikoNumGenerator()
> '-------------------------------------
> ' ModifiedBy : Rr_Wilis / 12 Apr 2012
> ' BeExcel Case No: # 16740 / Hartini
> '-------------------------------------
> Dim N As Integer, Angka As Integer
> Dim StrN As String, LnFeed As String, Garis As String
> Randomize
> N = InputBox("Jumlah angka yang akan dibuat", "BANYAKNYA DATA")
> If Not IsNumeric(N) Then Exit Sub
> If Int(N) = 0 Then Exit Sub
>
> For i = 1 To N
> Angka = Int(Rnd(i) * 10)
> If i Mod 20 = 0 Then LnFeed = vbCrLf Else LnFeed = ""
> If (i + 20) Mod 200 = 0 Then Garis = "__" Else Garis = ""
> If Angka = 0 Then
> StrN = StrN & LnFeed & Garis & vbTab
> Else
> StrN = StrN & LnFeed & Garis & vbTab & Angka
> End If
> Next
>
> Selection.TypeText Text:=StrN
> End Sub
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)

1c.

Re: Menghilangkan angka "0"

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id   hartini_80

Thu Apr 12, 2012 1:05 am (PDT)

Jika menghilangkan agar tidak muncul blank gimana mba? Dalam artian 0 or blank tidak diakui sama sekali? Bagian mana di vba yg hrs dirubah?
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: Rara Wilis <ra2wilis@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 12 Apr 2012 15:02:01
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Menghilangkan angka "0"

Dear mbak Hartini,
*Di komputer Rara; Nol tampil RAPIH LHO..*
di antara angka itu sebenarnya ada charakter TAB-nya, (constant di VBA =
vbTab)
Karakter Tab itu dimaksudkan untuk mengatur jarak antar angka
supaya sama; termasuk angka "" (blank) ex NOL yg dikonversi menjadi "" )
[image: Inline image 1]
Karena angka yg digenerate itu adalah sifatnya RANDOM, maka NOL nya juga
Random
bisa muncul dimana saja (bisa gak muncul)



*On Thu, Apr 12, 2012 at 2:23 PM, <hartini_80@yahoo.co.id> wrote:
*
>
> * *
> * *
>
> * Mba rara, untuk angka 0 ingin dihilangkan, tetapi bukan berarti
> posisinya menjadi kosong mba, jadi susunannya tetap rapi tanpa angka 0,
> gimana cara merubahnya ya mba? *
>
> ------------------------------
> *From: * Rara Wilis <ra2wilis@gmail.com>
> *Date: *Thu, 12 Apr 2012 13:26:59 +0700
> *Subject: *Re: [belajar-excel] Menghilangkan angka "0"
>
>
> Sub PsikoNumGenerator()
> '-------------------------------------
> ' ModifiedBy : Rr_Wilis / 12 Apr 2012
> ' BeExcel Case No: # 16740 / Hartini
> '-------------------------------------
> Dim N As Integer, Angka As Integer
> Dim StrN As String, LnFeed As String, Garis As String
> Randomize
> N = InputBox("Jumlah angka yang akan dibuat", "BANYAKNYA DATA")
> If Not IsNumeric(N) Then Exit Sub
> If Int(N) = 0 Then Exit Sub
>
> For i = 1 To N
> Angka = Int(Rnd(i) * 10)
> If i Mod 20 = 0 Then LnFeed = vbCrLf Else LnFeed = ""
> If (i + 20) Mod 200 = 0 Then Garis = "__" Else Garis = ""
> If Angka = 0 Then
> StrN = StrN & LnFeed & Garis & vbTab
> Else
> StrN = StrN & LnFeed & Garis & vbTab & Angka
> End If
> Next
>
> Selection.TypeText Text:=StrN
> End Sub
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)

1d.

Re: Menghilangkan angka "0"

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

Thu Apr 12, 2012 1:13 am (PDT)

Kalau maksudnya : ANGKA RANDOM HANYA dibolehkan bernilai 1 sampai 9
maka yg diubah : cara membuat angka random

yg sudah ada
Angka = Int(Rnd(i) * 10

boleh diganti:
*Angka = 1 + Int(Rnd() * 9) *

boleh dicoba di sheet di cell A1
formula
=1 + INT(*RAND*() * 9)
lalu dicopy ke sekitarnya sesuai yg diperlukan

Jadi sebenarnya tidak perlu WORD dan makro
*
*
*
*
On Thu, Apr 12, 2012 at 3:05 PM, <hartini_80@yahoo.co.id> wrote:

> **
>
>
> **Jika menghilangkan agar tidak muncul blank gimana mba? Dalam artian 0
> or blank tidak diakui sama sekali? Bagian mana di vba yg hrs dirubah?
>
> ------------------------------
> *From: * Rara Wilis <ra2wilis@gmail.com>
> *Date: *Thu, 12 Apr 2012 15:02:01 +0700
> *ReplyTo: * belajar-excel@yahoogroups.com
> *
> *
> Dear mbak Hartini,
> *Di komputer Rara; Nol tampil RAPIH LHO..*
> di antara angka itu sebenarnya ada charakter TAB-nya, (constant di VBA =
> vbTab)
> Karakter Tab itu dimaksudkan untuk mengatur jarak antar angka
> supaya sama; termasuk angka "" (blank) ex NOL yg dikonversi menjadi "" )
> [image: Inline image 1]
> Karena angka yg digenerate itu adalah sifatnya RANDOM, maka NOL nya juga
> Random
> bisa muncul dimana saja (bisa gak muncul)
>
>
>
> *On Thu, Apr 12, 2012 at 2:23 PM, <hartini_80@yahoo.co.id> wrote:
> *
>>
>> * *
>> * *
>>
>> * Mba rara, untuk angka 0 ingin dihilangkan, tetapi bukan berarti
>> posisinya menjadi kosong mba, jadi susunannya tetap rapi tanpa angka 0,
>> gimana cara merubahnya ya mba? *
>>
>>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)

1e.

Re: Menghilangkan angka "0"

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id   hartini_80

Thu Apr 12, 2012 1:28 am (PDT)

Wah iya, neh dah saya coba di excel, makasih ya mba rara
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: Rara Wilis <ra2wilis@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 12 Apr 2012 15:13:30
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Menghilangkan angka "0"

Kalau maksudnya : ANGKA RANDOM HANYA dibolehkan bernilai 1 sampai 9
maka yg diubah : cara membuat angka random

yg sudah ada
Angka = Int(Rnd(i) * 10

boleh diganti:
*Angka = 1 + Int(Rnd() * 9) *

boleh dicoba di sheet di cell A1
formula
=1 + INT(*RAND*() * 9)
lalu dicopy ke sekitarnya sesuai yg diperlukan

Jadi sebenarnya tidak perlu WORD dan makro
*
*
*
*
On Thu, Apr 12, 2012 at 3:05 PM, <hartini_80@yahoo.co.id> wrote:

> **
>
>
> **Jika menghilangkan agar tidak muncul blank gimana mba? Dalam artian 0
> or blank tidak diakui sama sekali? Bagian mana di vba yg hrs dirubah?
>
> ------------------------------
> *From: * Rara Wilis <ra2wilis@gmail.com>
> *Date: *Thu, 12 Apr 2012 15:02:01 +0700
> *ReplyTo: * belajar-excel@yahoogroups.com
> *
> *
> Dear mbak Hartini,
> *Di komputer Rara; Nol tampil RAPIH LHO..*
> di antara angka itu sebenarnya ada charakter TAB-nya, (constant di VBA =
> vbTab)
> Karakter Tab itu dimaksudkan untuk mengatur jarak antar angka
> supaya sama; termasuk angka "" (blank) ex NOL yg dikonversi menjadi "" )
> [image: Inline image 1]
> Karena angka yg digenerate itu adalah sifatnya RANDOM, maka NOL nya juga
> Random
> bisa muncul dimana saja (bisa gak muncul)
>
>
>
> *On Thu, Apr 12, 2012 at 2:23 PM, <hartini_80@yahoo.co.id> wrote:
> *
>>
>> * *
>> * *
>>
>> * Mba rara, untuk angka 0 ingin dihilangkan, tetapi bukan berarti
>> posisinya menjadi kosong mba, jadi susunannya tetap rapi tanpa angka 0,
>> gimana cara merubahnya ya mba? *
>>
>>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)

2a.

Re: Tanya : Filter berdasar 1 kriteria : setelah ditambahkan data, t

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

Thu Apr 12, 2012 12:41 am (PDT)

Waalaikumussalam wr wb...

Mas Seno-nya lagi ngumpet Pak, ... ketakutan ada gempa 9 SR...
ha ha ha..

*Memasukkan Array Formula MULTI HASIL*
Formula dimasukkan secara SE-KA-LI-GUS di sekolom Range (dlm hal ini range
H7:H40)
caranya:
Select dulu Range H7:H40
Klik / aktifkan FormulaBar, bisa juga dengan menekan tombol F2
Pada FormulaBar masukkan ArryFormula-nya secara biasa (tanpa diapit
kurung '{kurawal} / braces.
* =SMALL(IF(C7:C40=K4,A7:A40),A7:A40)*
*
*
*Tekan tombol Ctrl + Shift, (tahan !) lalu tekan tombol ENTER*
[image: Inline image 1]

Jika kita lihat di formula bar formula sekarang sudah di-apit oleh Braces
{=ArrayFormula }:
Lihat hasilnya !!

Array Formula MULTI HASIL yg ditulis sekaligus di BANYAK CELLS, jika akan
diedit
*harus diselect dulu Se-Array Penuh (H7:H40)*, barulah bisa di edit/
dihapus dsb

Selain array formula MULTI HASIL, ada lagi *Array Formula HASIL TUNGGAL yg*
cukup ditulis di 1 cells saja (kalau perlu dicopy ke cells lain)
Array Formula Hasil Tunggal sebenarnya juga ex Array Formula Multi hasil,
tetapi hasil-hasil
yg lebih dari 1 itu dirangkum dengan fungsi perangkum, misal SUM, MAX,
AVERAGE dsb

Ada fungsi-fungsi yg dari SONOnya harus di perlakukan sbg array formula,
misal
TRANSPOSE
OFFSET (jika mengoffset range lebih dari 1 cell)

Arrtikel mengenai Array Formula banyak terdapat di internet

*Faforit saya *:
http://www.cpearson.com/excel/ArrayFormulas.aspx

*lihat juga*
http://www.excelfunctions.net/Excel-Array-Formulas.html
http://www.xtremevbtalk.com/showthread.php?t=296012

*File Unduhan/ berbahasa indonesia - khusus array formula*
http://www.box.com/s/cimq7tvispi3g53hyyvn
http://www.box.com/s/37245fe10219d1d01b30
http://www.box.com/s/m4d7k8gixi2lmp25631r
http://www.box.com/shared/kfiiafmpj8
*File Unduhan/ berbahasa indonesia - khusus formula filtering*
http://www.box.com/s/6gm0di257l5stfzxa43p
http://www.box.com/shared/yefinlqv0p
http://www.box.com/shared/9l5c8lanr3

*On Thu, Apr 12, 2012 at 11:20 AM, A. Hendri Bp. Algar
<mni.agush@gmail.com>wrote:
*
>
> * *
> * *
>
> *Assalamu'alaikum Wr. Wb,*
> *Dari pertanyaan teman-teman sebelumnya terkait dengan "Memfilter
> berdasarkan satu Kriteria", saya coba utak-atik file yang dikirim oleh Bp.
> Seno (file terlampir). Intinya file tersebut menunjukkan jika kita masukkan
> pilihan kode pelanggan tertentu dari satu tabel, maka yang akan muncul
> data-data transaksi yang terkait dengan Kode Pelanggan itu saja. Saya coba
> utak atik file tersebut dengan menambahkan data-datanya. Lalu area tampilan
> saya copy ke bawah sebanyak data yang tambahkan nama. Kemudian kriteria
> saya masukkan lagi yang baru, *
> *1. Ternyata hasilnya tidak semua yang sesuai filter muncul. Mohon
> bantuan teman-teman.*
> *2. Bagaimana mengcopy rumus array tanpa angka baris berubah
> tanpa membuat sel menjadi sel absolut ? (contoh (C$7$:C$40$)*
> *3. Bagaimana menghilangkan tanda array ({ }) tanpa harus mendelete sel
> tersebut ? Mohon maaf sampai sekarang saya masih confuse dengan penggunaan
> tanda { }, adakah artikel ataupun link yang menjelaskan kegunaan tanda { }
> ini ?(Shift-Ctr-Enter)*
> *
> *
> *Salam,*
> Agus H
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

2b.

Re: Tanya : Filter berdasar 1 kriteria : setelah ditambahkan data, t

Posted by: "A. Hendri Bp. Algar" mni.agush@gmail.com

Thu Apr 12, 2012 3:34 am (PDT)

Wah Terima kasih sekali Ibu Rara Wilis atas tips nya. Ternyata sangat
sederhana sekali. Cuma karena saya yang belum tahu ttg Array formula
sehingga tidak kebingungan sendiri.

Salam,
Agus H

2012/4/12 Rara Wilis <ra2wilis@gmail.com>

> Waalaikumussalam wr wb...
>
> Mas Seno-nya lagi ngumpet Pak, ... ketakutan ada gempa 9 SR...
> ha ha ha..
>
> *Memasukkan Array Formula MULTI HASIL*
> Formula dimasukkan secara SE-KA-LI-GUS di sekolom Range (dlm hal ini range
> H7:H40)
> caranya:
> Select dulu Range H7:H40
> Klik / aktifkan FormulaBar, bisa juga dengan menekan tombol F2
> Pada FormulaBar masukkan ArryFormula-nya secara biasa (tanpa diapit
> kurung '{kurawal} / braces.
> * =SMALL(IF(C7:C40=K4,A7:A40),A7:A40)*
> *
> *
> *Tekan tombol Ctrl + Shift, (tahan !) lalu tekan tombol ENTER*
> [image: Inline image 1]
>
> Jika kita lihat di formula bar formula sekarang sudah di-apit oleh Braces
> {=ArrayFormula }:
> Lihat hasilnya !!
>
> Array Formula MULTI HASIL yg ditulis sekaligus di BANYAK CELLS, jika akan
> diedit
> *harus diselect dulu Se-Array Penuh (H7:H40)*, barulah bisa di edit/
> dihapus dsb
>
> Selain array formula MULTI HASIL, ada lagi *Array Formula HASIL TUNGGAL yg
> *
> cukup ditulis di 1 cells saja (kalau perlu dicopy ke cells lain)
> Array Formula Hasil Tunggal sebenarnya juga ex Array Formula Multi hasil,
> tetapi hasil-hasil
> yg lebih dari 1 itu dirangkum dengan fungsi perangkum, misal SUM, MAX,
> AVERAGE dsb
>
> Ada fungsi-fungsi yg dari SONOnya harus di perlakukan sbg array formula,
> misal
> TRANSPOSE
> OFFSET (jika mengoffset range lebih dari 1 cell)
>
> Arrtikel mengenai Array Formula banyak terdapat di internet
>
> *Faforit saya *:
> http://www.cpearson.com/excel/ArrayFormulas.aspx
>
> *lihat juga*
> http://www.excelfunctions.net/Excel-Array-Formulas.html
> http://www.xtremevbtalk.com/showthread.php?t=296012
>
> *File Unduhan/ berbahasa indonesia - khusus array formula*
> http://www.box.com/s/cimq7tvispi3g53hyyvn
> http://www.box.com/s/37245fe10219d1d01b30
> http://www.box.com/s/m4d7k8gixi2lmp25631r
> http://www.box.com/shared/kfiiafmpj8
> *File Unduhan/ berbahasa indonesia - khusus formula filtering*
> http://www.box.com/s/6gm0di257l5stfzxa43p
> http://www.box.com/shared/yefinlqv0p
> http://www.box.com/shared/9l5c8lanr3
>
>
>
>
>
>
> *On Thu, Apr 12, 2012 at 11:20 AM, A. Hendri Bp. Algar <
> mni.agush@gmail.com> wrote:
> *
>>
>> * *
>> * *
>>
>> *Assalamu'alaikum Wr. Wb,*
>> *Dari pertanyaan teman-teman sebelumnya terkait dengan "Memfilter
>> berdasarkan satu Kriteria", saya coba utak-atik file yang dikirim oleh Bp.
>> Seno (file terlampir). Intinya file tersebut menunjukkan jika kita masukkan
>> pilihan kode pelanggan tertentu dari satu tabel, maka yang akan muncul
>> data-data transaksi yang terkait dengan Kode Pelanggan itu saja. Saya coba
>> utak atik file tersebut dengan menambahkan data-datanya. Lalu area tampilan
>> saya copy ke bawah sebanyak data yang tambahkan nama. Kemudian kriteria
>> saya masukkan lagi yang baru, *
>> *1. Ternyata hasilnya tidak semua yang sesuai filter muncul. Mohon
>> bantuan teman-teman.*
>> *2. Bagaimana mengcopy rumus array tanpa angka baris berubah
>> tanpa membuat sel menjadi sel absolut ? (contoh (C$7$:C$40$)*
>> *3. Bagaimana menghilangkan tanda array ({ }) tanpa harus mendelete sel
>> tersebut ? Mohon maaf sampai sekarang saya masih confuse dengan penggunaan
>> tanda { }, adakah artikel ataupun link yang menjelaskan kegunaan tanda { }
>> ini ?(Shift-Ctr-Enter)*
>> *
>> *
>> *Salam,*
>> Agus H
>>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

3a.

run time error 13 type mismatch

Posted by: "KSM Absolute - Udin" omnivora@yahoo.com   omnivora

Thu Apr 12, 2012 3:03 am (PDT)

Sub sumcolor(daerah As Range)
    Dim Selrow As Range
    Dim sel As Range
    Dim SelAkhir As Range
    Dim SumKuning, SumBiru, SumHijau As Double
  
    For Each Selrow In daerah.Rows
        SumKuning = 0
        SumBiru = 0
        SumHijau = 0
        For Each sel In Selrow.Cells
            Select Case sel.Interior.Color
            Case 65535 ' Kuning
                SumKuning = SumKuning + sel.Value
            Case 12611584 ' Biru
                Nilai = sel.Value
                If Nilai > 7 Then
                    SumKuning = SumKuning + Nilai - 7
                    Nilai = 7
                End If
                SumBiru = SumBiru + Nilai
            Case 5287936  'Hijau
                Nilai = sel.Value
                If Nilai > 7 Then
                    SumKuning = SumKuning + Nilai - 7
                    Nilai = 7
                End If
                SumHijau = SumHijau + Nilai
            End Select
' untuk menyimpan posisi sel terakhir  tiap baris
            Set SelAkhir = sel
        Next
' isi julah warna
        SelAkhir.Offset(0, 1) = SumKuning
        SelAkhir.Offset(0, 2) = SumBiru
        SelAkhir.Offset(0, 3) = SumHijau
    Next
End Sub
Private Sub CommandButton1_Click()
Call sumcolor(Range("k4:As300"))
End Sub

kenapa muncul  "run time error '13' type mismatch" apa yang salah dengan kode ini? 
terima kasih

Back to top

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

3b.

Re: run time error 13 type mismatch

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu Apr 12, 2012 4:41 am (PDT)

Coba cek isi dari range k4:As300 memiliki tipe data apa saja.

Salam
Kid

On Thu, Apr 12, 2012 at 16:55, KSM Absolute - Udin <omnivora@yahoo.com>wrote:

> **
>
>
> Sub sumcolor(daerah As Range)
> Dim Selrow As Range
> Dim sel As Range
> Dim SelAkhir As Range
> Dim SumKuning, SumBiru, SumHijau As Double
>
> For Each Selrow In daerah.Rows
> SumKuning = 0
> SumBiru = 0
> SumHijau = 0
> For Each sel In Selrow.Cells
> Select Case sel.Interior.Color
> Case 65535 ' Kuning
> SumKuning = SumKuning + sel.Value
> Case 12611584 ' Biru
> Nilai = sel.Value
> If Nilai > 7 Then
> SumKuning = SumKuning + Nilai - 7
> Nilai = 7
> End If
> SumBiru = SumBiru + Nilai
> Case 5287936 'Hijau
> Nilai = sel.Value
> If Nilai > 7 Then
> SumKuning = SumKuning + Nilai - 7
> Nilai = 7
> End If
> SumHijau = SumHijau + Nilai
> End Select
> ' untuk menyimpan posisi sel terakhir tiap baris
> Set SelAkhir = sel
> Next
> ' isi julah warna
> SelAkhir.Offset(0, 1) = SumKuning
> SelAkhir.Offset(0, 2) = SumBiru
> SelAkhir.Offset(0, 3) = SumHijau
> Next
> End Sub
> Private Sub CommandButton1_Click()
> Call sumcolor(Range("k4:As300"))
> End Sub
>
> kenapa muncul "run time error '13' type mismatch" apa yang salah dengan
> kode ini?
> terima kasih
>
>
>

Back to top

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

3c.

Re: run time error 13 type mismatch

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

Thu Apr 12, 2012 8:47 am (PDT)

Kalau tujuannya menjumlahkan angka dalam warna, mungkin UDF nya Mbak Siti bisa jadi bahan pertimbangan.

Salam,
Hendrik Karnadi

________________________________
From: KSM Absolute - Udin <omnivora@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Thursday, 12 April 2012, 16:55
Subject: [belajar-excel] run time error 13 type mismatch


 
Sub sumcolor(daerah As Range)
    Dim Selrow As Range
    Dim sel As Range
    Dim SelAkhir As Range
    Dim SumKuning, SumBiru, SumHijau As Double
  
    For Each Selrow In daerah.Rows
        SumKuning = 0
        SumBiru = 0
        SumHijau = 0
        For Each sel In Selrow.Cells
            Select Case sel.Interior.Color
            Case 65535 ' Kuning
                SumKuning
= SumKuning + sel.Value
            Case 12611584 ' Biru
                Nilai = sel.Value
                If Nilai > 7 Then
                    SumKuning = SumKuning + Nilai - 7
                    Nilai = 7
                End If
                SumBiru = SumBiru + Nilai
            Case 5287936 
'Hijau
                Nilai = sel.Value
                If Nilai > 7 Then
                    SumKuning = SumKuning + Nilai - 7
                    Nilai = 7
                End If
                SumHijau = SumHijau + Nilai
            End Select
' untuk menyimpan posisi sel terakhir  tiap baris
            Set SelAkhir =
sel
        Next
' isi julah warna
        SelAkhir.Offset(0, 1) = SumKuning
        SelAkhir.Offset(0, 2) = SumBiru
        SelAkhir.Offset(0, 3) = SumHijau
    Next
End Sub
Private Sub CommandButton1_Click()
Call sumcolor(Range("k4:As300"))
End Sub

kenapa muncul  "run time error '13' type mismatch" apa yang salah dengan kode ini? 
terima kasih

Back to top

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

3d.

Bls: [belajar-excel] run time error 13 type mismatch

Posted by: "KSM Absolute - Udin" omnivora@yahoo.com   omnivora

Thu Apr 12, 2012 7:05 pm (PDT)

sebagian data adalah angka sebagian angka adalah huruf, sebelumnya tidak eror tapi setelah saya  instal addin datepicker muculu eror tersebut. addin tsb sudah saya uninstall tp tetap saja muncul "run time error '13' type mismatch".
baris code yg menjadi kuning adalah

Case 5287936  'Hijau
                Nilai = sel.Value
                If Nilai > 7 Then
                    SumKuning = SumKuning + Nilai - 7
                    Nilai = 7
                End If
                SumHijau = SumHijau + Nilai
            End Select

________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 12 April 2012 18:41
Judul: Re: [belajar-excel] run time error 13 type mismatch


 
Coba cek isi dari range k4:As300 memiliki tipe data apa saja.

Salam
Kid

On Thu, Apr 12, 2012 at 16:55, KSM Absolute - Udin <omnivora@yahoo.com> wrote:

> 
>Sub sumcolor(daerah As Range)
>    Dim Selrow As Range
>    Dim sel As Range
>    Dim SelAkhir As Range
>    Dim SumKuning, SumBiru, SumHijau As Double
>  
>    For Each Selrow In daerah.Rows
>        SumKuning = 0
>        SumBiru = 0
>        SumHijau = 0
>        For Each sel In Selrow.Cells
>            Select Case sel.Interior.Color
>            Case 65535 ' Kuning
>                SumKuning
= SumKuning + sel.Value
>            Case 12611584 ' Biru
>                Nilai = sel.Value
>                If Nilai > 7 Then
>                    SumKuning = SumKuning + Nilai - 7
>                    Nilai = 7
>                End If
>                SumBiru = SumBiru + Nilai
>            Case 5287936 
'Hijau
>                Nilai = sel.Value
>                If Nilai > 7 Then
>                    SumKuning = SumKuning + Nilai - 7
>                    Nilai = 7
>                End If
>                SumHijau = SumHijau + Nilai
>            End Select
>' untuk menyimpan posisi sel terakhir  tiap baris
>            Set SelAkhir =
sel
>        Next
>' isi julah warna
>        SelAkhir.Offset(0, 1) = SumKuning
>        SelAkhir.Offset(0, 2) = SumBiru
>        SelAkhir.Offset(0, 3) = SumHijau
>    Next
>End Sub
>Private Sub CommandButton1_Click()
>Call sumcolor(Range("k4:As300"))
>End Sub
>
>
>kenapa muncul  "run time error '13' type mismatch" apa yang salah dengan kode ini? 
>terima kasih

Back to top

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

3e.

Re: run time error 13 type mismatch

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu Apr 12, 2012 7:45 pm (PDT)

Hai Udin,

Sebaiknya disempatkan mempelajari tentang datatype sampai ke
karakteristiknya.
Variabel Nilai berdatatype variant. Oleh sebab itu bisa berisi data bertipe
text (ketika cell berisi data text) atau data numerik (ketika cell berisi
bilangan) menurut baris :
Nilai = sel.Value

Karena tipedata Nilai adalah variant, maka baris :
If Nilai > 7 Then
tidak akan menimbulkan error walau isi dari nilai adalah data bertipe text,
karena disimpan dalam variabel nilai bertipe variant.
Andai.... andai loh ya....
1. variabel Nilai bertipe string (misal ada baris diatasnya berbunyi Dim
Nilai as string, maka baris IF ini akan error 13 juga
2. variabel Nilai bertipe numerik seperti Long, Integer, Double, Single
atau bahkan Date, maka ketika di baris kode Nilai=sel.value ternyata isi
cell adalah data teks (bertipe text atau string), maka akan muncul error 13
juga.

Jadi, error 13 itu apa sih ?
Penjelan dari VB nya sudah lengkap, yaitu : *type mismatch*

Sekarang, baris yang dikuning (karena baris IF Nilai > 7 Then tidak
menimbulkan error 13 dan isi cell adalah teks)
SumKuning = SumKuning + Nilai - 7
Maka akan terjadi proses matematis penjumlahan dan pengurangan antara data
teks dengan data numerik.
Ini yang menyebabkan munculnya error 13.
Coba bayangkan, bisakah anda mendapatkan hasil dari proses matematis ini :
1000 + Kudaku lari kencang - 7 = ....
Berapa isi titik-titik diatas ?

Error 13 pada kasus ini tidak ada kaitannya dengan addin apapun.

Jadi, bagaimana caranya supaya gak error 13 lagi ?

Perhatikan bagian :
For Each sel In Selrow.Cells
Select Case sel.Interior.Color
Case 65535 ' Kuning
SumKuning = SumKuning + sel.Value
Case 12611584 ' Biru
Nilai = sel.Value
If Nilai > 7 Then
SumKuning = SumKuning + Nilai - 7
Nilai = 7
End If
SumBiru = SumBiru + Nilai
Case 5287936 'Hijau
Nilai = sel.Value
If Nilai > 7 Then
SumKuning = SumKuning + Nilai - 7
Nilai = 7
End If
SumHijau = SumHijau + Nilai
End Select
' untuk menyimpan posisi sel terakhir tiap baris
Set SelAkhir = sel
Next

Ubah menjadi :

For Each sel In Selrow.Cells
Nilai = sel.value
if isnumeric( nilai ) then
nilai = cdbl( nilai )
Select Case sel.Interior.Color
Case 65535 ' Kuning
'SumKuning = SumKuning + sel.Value
SumKuning = SumKuning + nilai
Case 12611584 ' Biru
'Nilai = sel.Value
If Nilai > 7 Then
SumKuning = SumKuning + Nilai - 7
Nilai = 7
End If
SumBiru = SumBiru + Nilai
Case 5287936 'Hijau
'Nilai = sel.Value
If Nilai > 7 Then
SumKuning = SumKuning + Nilai - 7
Nilai = 7
End If
SumHijau = SumHijau + Nilai
End Select
' untuk menyimpan posisi sel terakhir tiap baris

endif
Set SelAkhir = sel
Next

Wassalam,
Kid.

On Fri, Apr 13, 2012 at 08:46, KSM Absolute - Udin <omnivora@yahoo.com>wrote:

> **
>
>
> sebagian data adalah angka sebagian angka adalah huruf, sebelumnya tidak
> eror tapi setelah saya instal addin datepicker muculu eror tersebut. addin
> tsb sudah saya uninstall tp tetap saja muncul "run time error '13' type
> mismatch".
> baris code yg menjadi kuning adalah
>
> Case 5287936 'Hijau
> Nilai = sel.Value
> If Nilai > 7 Then
> SumKuning = SumKuning + Nilai - 7
> Nilai = 7
> End If
> SumHijau = SumHijau + Nilai
> End Select
>
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 12 April 2012 18:41
> *Judul:* Re: [belajar-excel] run time error 13 type mismatch
>
>
> Coba cek isi dari range k4:As300 memiliki tipe data apa saja.
>
> Salam
> Kid
>
> On Thu, Apr 12, 2012 at 16:55, KSM Absolute - Udin <omnivora@yahoo.com>wrote:
>
> **
>
> Sub sumcolor(daerah As Range)
> Dim Selrow As Range
> Dim sel As Range
> Dim SelAkhir As Range
> Dim SumKuning, SumBiru, SumHijau As Double
>
> For Each Selrow In daerah.Rows
> SumKuning = 0
> SumBiru = 0
> SumHijau = 0
>
>
>
>

Back to top

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

3f.

Re: run time error 13 type mismatch

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

Thu Apr 12, 2012 9:37 pm (PDT)

Nanti kalau masalah "Type Mismatch" sudah selesai, bolehkah saya titip warna
Kuning, Biru, Hijau kalau boleh juga Merah ?

Mohon warna level ke 3 sampai level 8 di formatkan (copy > PasteSpecial >
Format)
ke data Bapak (yg sebaiknya bertye BILANGAN /Numbers) bukan TEXT.

Mohon dijalankan makro Bapak yg bisa "menghitung" / "menjumlah" Nilai Cells
yg berwarna KUNING, BIRU dan HIJAU tsb

Mohon pula di-periksa apakah hasilnya bisa menunjukkan Nilai yg sesuai ?

[image: Inline image 1]

*catatan:*
Levelling tsb buatan kami sendiri yaitu dengan mengubah nilai InteriorColor;
Interval perubahan = 2 untuk golongan kuning, 4 untuk golongan lain)
Level di atas 1, nilainya sudah lain dibanding *Nilai Select Case *di makro
Bapak.
Meskipun begitu MATA Manusia tetap menganggapnya sebagai KUNING, HIJAU
dan BIRU.
Bukan tidak mungkin, bahwa Cell data bapak akan diformat dengan warna-warna
"Kuning" "Hijau" Biru" seperti titipan kami, karena sekedar memberi warna
Kuning
/Hijau/Biru jarang sekali orang memeriksa dulu nilai RGB-nya,
Kuning di mata, maka Kuning pula penilaian kita. (bukan : "mari kita format
cell itu
dengan warna yg nilai InteriorColornya = 65535 " )

Mudah-mudahan pandangan yg mengada-ada ini, suatu saat, bukan sekarang,
dapat
ikut dipakai sbg bahan untuk meningkatkan keakuratan kinerja makro Bapak...

Terima kasih
wassalam
~rara

On Fri, Apr 13, 2012 at 8:46 AM, KSM Absolute - Udin <omnivora@yahoo.com>wrote:

> **
> sebagian data adalah angka sebagian angka adalah huruf, sebelumnya tidak
> eror tapi setelah saya instal addin datepicker muculu eror tersebut. addin
> tsb sudah saya uninstall tp tetap saja muncul "run time error '13' type
> mismatch".
> baris code yg menjadi kuning adalah
>
> Case *5287936* 'Hijau
> Nilai = sel.Value
> If Nilai > 7 Then
> SumKuning = SumKuning + Nilai - 7
> Nilai = 7
> End If
> SumHijau = SumHijau + Nilai
> End Select
>
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com>
> *Dikirim:* Kamis, 12 April 2012 18:41
> *Judul:* Re: [belajar-excel] run time error 13 type mismatch
>
> Coba cek isi dari range k4:As300 memiliki tipe data apa saja.
>
> Salam
> Kid
>

Back to top

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

4a.

case Mandays

Posted by: "Aghoest Iwan" aghoestiwan@yahoo.com   aghoestiwan

Thu Apr 12, 2012 4:23 am (PDT)

Waah.. iya ya.. maaf saya lupa memberikan info "hasil output" yang diharapkan (sudah saya lengkapi di file terlampir).
Trims utk "Rara Wilis" (mas atau mbak ya...? takut salah hehe..)
Saya terima salah.. Maap..sekali lagi maap ya master..
n terima kasih sebelumnya..


________________________________
Dari: Rara Wilis <ra2wilis@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 12 April 2012 13:46
Judul: Re: [belajar-excel] Trs: case Mandays


sepi yaa.. 

Bapak...
tidak ada penjelasannya kah ?
di badan email hanya "mohon pencerahan"
di lampiran hanya ada tabel2 yg tidak ada penjelasannya

Sambil menunggu members lain yg langsung tahu maksudnya,
jika Bapak ada kesempatan, bolehkah kpd kami diberi informasi:

* ini mengenai apa.. 
* mana inputnya.. 
* mana outputnya..
* mau-nya (proses yg disyaratkan) bgmana..
* contoh hasil seperti apa.. 
standarnya 'kan begitu..

maaf ya Bapak, bukan mencarikan solusi tapi malah bertanya...

wassalam
~Rr

On Thu, Apr 12, 2012 at 11:12 AM, Aghoest Iwan <aghoestiwan@yahoo.com> wrote:

>Dear all Masters..
>Mohon pencerahannya atas kasus terlampir..
>Maaf merepotkan..semoga dengan arahan para master, saya bisa tambah wawasannya.
>Terima kasih..
>Iwan.

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

4b.

Re: case Mandays

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

Thu Apr 12, 2012 9:06 am (PDT)

Pak Ag, terima kasih tambahan penjelasannya...

Rumusnya mungkin seperti ini:
Ditulis di *cell S4*
*=SUMPRODUCT( ($D$4:$N$13=S$3) * ($B$4:$B$13=$P4) )*

*kemudian dicopy ke S4:V11*

Atau cara lain (hanya cara penulisan Formula di banyak cell sekaligus
dgn mempertahankan Relatif Reference-nya):

Blok / Select: range S4:V11
Pastikan S4 = cell aktif
(bila cell-aktif bukan S4, pindahkan cell aktif ke S4
dgn cara menekan tombol Tab (maju) atau Shift+Tab (mundur)
Tulis rumus tsb di FormulaBar / atau di cell-aktif
*Tekan [Ctrl] + [Enter]*

~Rara

*
On Thu, Apr 12, 2012 at 6:23 PM, Aghoest Iwan <aghoestiwan@yahoo.com> wrote:
>
> Waah.. iya ya.. maaf saya lupa memberikan info "hasil output" yang
diharapkan (sudah saya lengkapi di file terlampir).
> Trims utk "Rara Wilis" (mas atau mbak ya...? takut salah hehe..)
> Saya terima salah.. Maap..sekali lagi maap ya master..
> n terima kasih sebelumnya..
>*
*>*
*> On Thu, Apr 12, 2012 at 11:12 AM, Aghoest Iwan <aghoestiwan@yahoo.com>
wrote:
> Dear all Masters..
> Mohon pencerahannya atas kasus terlampir..
> Maaf merepotkan..semoga dengan arahan para master, saya bisa tambah
wawasannya.
> Terima kasih..
> Iwan.*

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

5a.

SUBJECT HARUS DIISI, misal:  'Menggabung Data'

Posted by: "Yusril Ramadani" yusrilramadani@gmail.com   yusril_rmd

Thu Apr 12, 2012 10:50 am (PDT)

Dear para pakar

Saya ingin menggabungkan data yg ada di berbagai sheet dengan formulasi
yang cepat berdasarkan uniq No (Nama )

Mohon bantuannya

Terimakasih sebelumnya
YR

=====================================================
Mods Note:
Cuma mengisi Subject saja, kok masih sering lupa ya!?
=====================================================

Back to top

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

5b.

Re: SUBJECT HARUS DIISI, misal: 'Menggabung Data'

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

Thu Apr 12, 2012 6:15 pm (PDT)

KALAU
-- letak dan dimensi tabel Sumber = SAMA (dimulai dari cell yg sama misal
A1 semua)
-- urutan item = SAMA
maka kita dapat menggunakan 3D Reference (Rujukan 3 Dimensi) karena SUM
termasuk
fungsi yg di-support oleh 3D Reference

menjumlah Cell A3 di tiap sheet (Sheet1 sampai Sheet10), dlm 3D reference
dapat dinotasikan sbb:

=SUM(Sheet1:Sheet10!A3)

*Cara kedua *
(letak tiap tabel-sumber tidak harus sama)
Kita dapat menggunakan *Data > Consolidate*

Contoh keduanya dapat dilihat di workbook lampiran
Cara lain tentu masih ada..

~Rr

*
*
*On Thu, Apr 12, 2012 at 7:08 PM, Yusril Ramadani
<yusrilramadani@gmail.com>wrote:
*
>
> * *
>
> *Dear para pakar
> Saya ingin menggabungkan data yg ada di berbagai sheet dengan formulasi
> yang cepat berdasarkan uniq No (Nama )
> Mohon bantuannya
> Terimakasih sebelumnya
> YR
> *
> =====================================================
> Mods Note:
> Cuma mengisi Subject saja, kok masih sering lupa ya!?
> =====================================================
>

Back to top

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

Recent Activity

•  15
  New Members
•  1
  New Files

Visit Your Group

Yahoo! Groups

Small Business Group

Own a business?

Connect with others.

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Y! Groups blog

the best source

for the latest

scoop on Groups.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

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