13 New Messages
Digest #1863
Messages
Tue Oct 23, 2012 2:44 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Untuk meng-unmerge semua merged cells, bisa langsung (tanpa perlu cari) dengan
:
sheets("nama worksheetnya").cells.unmerge
Jika ingin cari mana yang di-merge
Public Sub MergedCellsInfo()
Dim rng As Range, rngRes As Range
Dim lCount As Long
For Each rng In ActiveSheet.UsedRange
If rng.MergeCells Then 'kalau
ketemu merge cells
'mau diapain ?
'contoh : mau buat daftar range yang di-merge
If rngRes Is Nothing Then
lCount = 1
Set rngRes = rng.MergeArea
End If
If Intersect(rng, rngRes) Is Nothing Then
lCount = lCount + 1
Set rngRes = Union(rngRes, rng.MergeArea)
End If
End If
Next rng
MsgBox "Jumlah area merge cells : " & lCount & vbCrLf & _
"Jumlah cell yang termerge : " & rngRes.Count & vbCrLf & _
"Range yang di-merge : " & rngRes.Address
End Sub
Wassalam,
Kid.
2012/10/23 rodhy hakim <odhyz83_assasaky@yahoo.com >
> **
>
>
> Dear Master,
> Bagaimana Macro untuk Mencari Cell yang di Marge Kemudian di UnMarge di
> Excel.
> Sebelumnya saya ucapkan terima kasih,
>
>
>
> Salam,
> Odhy
>
> _
>
:
sheets("nama worksheetnya"
Jika ingin cari mana yang di-merge
Public Sub MergedCellsInfo(
Dim rng As Range, rngRes As Range
Dim lCount As Long
For Each rng In ActiveSheet.
If rng.MergeCells Then 'kalau
ketemu merge cells
'mau diapain ?
'contoh : mau buat daftar range yang di-merge
If rngRes Is Nothing Then
lCount = 1
Set rngRes = rng.MergeArea
End If
If Intersect(rng, rngRes) Is Nothing Then
lCount = lCount + 1
Set rngRes = Union(rngRes, rng.MergeArea)
End If
End If
Next rng
MsgBox "Jumlah area merge cells : " & lCount & vbCrLf & _
"Jumlah cell yang termerge : " & rngRes.Count & vbCrLf & _
"Range yang di-merge : " & rngRes.Address
End Sub
Wassalam,
Kid.
2012/10/23 rodhy hakim <odhyz83_assasaky@
> **
>
>
> Dear Master,
> Bagaimana Macro untuk Mencari Cell yang di Marge Kemudian di UnMarge di
> Excel.
> Sebelumnya saya ucapkan terima kasih,
>
>
>
> Salam,
> Odhy
>
> _
>
Tue Oct 23, 2012 3:18 am (PDT) . Posted by:
"aji mumpung"
ikutan...
kalo tujuannya hanya untuk meng-UnMerge cell yang sebelumnya sudah
di-Merge, kenapa harus memakai macro?
solusi tanpa macro sbb:
1. klik sebelah kiri header kolom A, di atas nomor baris 1, maka seluruh
cell akan terselect
2. klik kanan tombol mouse, pilih "Format Cells"
3. klik tab "Alignment" pada kotak "Merge Cells" hilangkan dari tanda
centrang atau pun tanda yang lain
4. klik "OK"
lain lagi kalo tujuannya bukan untuk itu.. solusi dari mister Kid-lah yang
digunakan
wassalam,
-aji mumpung-
*kalo bisa dipersulit, kenapa mesti dipermudah? tanya kenapa..*
*::mode iklan on::*
Pada 23 Oktober 2012 15:04, rodhy hakim <odhyz83_assasaky@yahoo.com >menulis:
> **
>
>
> Dear Master,
> Bagaimana Macro untuk Mencari Cell yang di Marge Kemudian di UnMarge di
> Excel.
> Sebelumnya saya ucapkan terima kasih,
>
>
>
> Salam,
> Odhy
>
>
>
kalo tujuannya hanya untuk meng-UnMerge cell yang sebelumnya sudah
di-Merge, kenapa harus memakai macro?
solusi tanpa macro sbb:
1. klik sebelah kiri header kolom A, di atas nomor baris 1, maka seluruh
cell akan terselect
2. klik kanan tombol mouse, pilih "Format Cells"
3. klik tab "Alignment" pada kotak "Merge Cells" hilangkan dari tanda
centrang atau pun tanda yang lain
4. klik "OK"
lain lagi kalo tujuannya bukan untuk itu.. solusi dari mister Kid-lah yang
digunakan
wassalam,
-aji mumpung-
*kalo bisa dipersulit, kenapa mesti dipermudah? tanya kenapa..*
*::mode iklan on::*
Pada 23 Oktober 2012 15:04, rodhy hakim <odhyz83_assasaky@
> **
>
>
> Dear Master,
> Bagaimana Macro untuk Mencari Cell yang di Marge Kemudian di UnMarge di
> Excel.
> Sebelumnya saya ucapkan terima kasih,
>
>
>
> Salam,
> Odhy
>
>
>
Tue Oct 23, 2012 4:09 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Untuk kategori :
=IF(N(D4)<3,"MEWARNAI","MENGGAMBAR")
Untuk susunan kartu yang dicetak (sebuah blok seperti range B2:B6) pada
sheet cetak dengan asumsi A1 berisi nomor urut mulainya.
1. blok B2:B6
2. tulis formula : (jangan tekan ENTER)
=IF(MAX($A$2:A$60,$A$1-1)+COUNTIF(A$2:A2,A2)>MAX('Data
Awal'!$A:$A),"",TRANSPOSE(INDEX('Data
Awal'!$A$4:$E$53,MAX($A$2:A$60,$A$1-1)+COUNTIF(A$2:A2,A2),0)))
3. tekan CTRL SHIFT ENTER bersamaan
Di Excel 2007 ke atas, bagian kondisi bisa diganti dengan IFError :
=IFError(TRANSPOSE(INDEX('Data
Awal'!$A$4:$E$53,MAX($A$2:A$60,$A$1-1)+COUNTIF(A$2:A2,A2),0)),"")
Wassalam,
Kid.
2012/10/23 rey <personalia_manado@ag.co.id >
> **
>
>
> **
> hai, master....
>
> Mohon bantuannya...
> di sheet data awal ada kolom kategory mewarnai dan menggambar ( aku coba
> pake =IF(D4<3;"MEWARNAI";"MENGGAMBAR") ternyata TK sama PAUD ngga masuk....
>
> disheet cetak.....maunya aku cetak sekalian dalam 1 halaman ada 30
> nama....setelah dicetak aku panggil lagi nama yang ke 31 dan
> seterusnya...bisa ngga?
>
>
> mohon bantuannya...
>
> tq
>
> Rey
>
>
>
=IF(N(D4)<3,
Untuk susunan kartu yang dicetak (sebuah blok seperti range B2:B6) pada
sheet cetak dengan asumsi A1 berisi nomor urut mulainya.
1. blok B2:B6
2. tulis formula : (jangan tekan ENTER)
=IF(MAX($A$2:
Awal'!$A:$A)
Awal'!$A$4:$
3. tekan CTRL SHIFT ENTER bersamaan
Di Excel 2007 ke atas, bagian kondisi bisa diganti dengan IFError :
=IFError(TRANSPOSE(
Awal'!$A$4:$
Wassalam,
Kid.
2012/10/23 rey <personalia_manado@
> **
>
>
> **
> hai, master....
>
> Mohon bantuannya..
> di sheet data awal ada kolom kategory mewarnai dan menggambar ( aku coba
> pake =IF(D4<3;"MEWARNAI"
>
> disheet cetak.....maunya aku cetak sekalian dalam 1 halaman ada 30
> nama....setelah dicetak aku panggil lagi nama yang ke 31 dan
> seterusnya..
>
>
> mohon bantuannya..
>
> tq
>
> Rey
>
>
>
Tue Oct 23, 2012 4:18 am (PDT) . Posted by:
"Titis Ardiyana Wulandari" tiez_2289
Assalamu'alaikum
Teman-teman,
minta penjelasan rumus macro ketika sumproduct di masukan kerumus macro, bagaimana rumusnya?
Terimakasih
Tue Oct 23, 2012 4:46 am (PDT) . Posted by:
"aji mumpung"
wa'alaikumsalam wr. wb.,
ibu Titis.
bisa menggunakan:
akan menghasilkan rumus di cell yang dituju
nama_workbook.range(alamat_cell).Formula = "=SumProduct(rumusnya)"
akan menghasilkan nilai pada cell yang dituju
nama_workbook.range(alamat_cell).Value = Evaluate("=SumProduct(rumusnya)")
nama_workbook.range(alamat_cell).Value = Application.WorkSheetsFunction.
Sumproduct(rumusnya)
monggo, dipilih mana yang disuka
wassalam,
-aji mumpung-
Pada 23 Oktober 2012 18:14, Titis Ardiyana Wulandari
<tiez_2289@yahoo.com >menulis:
> **
>
>
>
> Assalamu'alaikum
>
> Teman-teman,
> minta penjelasan rumus macro ketika sumproduct di masukan kerumus macro,
> bagaimana rumusnya?
>
> Terimakasih
>
>
>
ibu Titis.
bisa menggunakan:
akan menghasilkan rumus di cell yang dituju
nama_workbook.
akan menghasilkan nilai pada cell yang dituju
nama_workbook.
nama_workbook.
Sumproduct(rumusnya
monggo, dipilih mana yang disuka
wassalam,
-aji mumpung-
Pada 23 Oktober 2012 18:14, Titis Ardiyana Wulandari
<tiez_2289@yahoo.
> **
>
>
>
> Assalamu'alaikum
>
> Teman-teman,
> minta penjelasan rumus macro ketika sumproduct di masukan kerumus macro,
> bagaimana rumusnya?
>
> Terimakasih
>
>
>
Tue Oct 23, 2012 5:31 am (PDT) . Posted by:
"lkm jktind" lkmjkt
Pak Aji.
Cara pakai evaluate yg ku gunakan itu salah nya dimana ?
Sub rubah_formula()
Cells(2, 5).Formula = "=Upper(RC[-3])"
Cells(2, 6).Formula = "=RC[-3]*rc[-2]"
Cells(2, 8).Value = Cells(2, 5)
Cells(2, 9).Value = Cells(2, 6)
Cells(2, 11).Value = Evaluate(Cells(2, 5))
Cells(2, 12).Value = Evaluate(Cells(2, 6))
End Sub
2012/10/23 aji mumpung <pupung1986@gmail.com >
> **
>
>
> wa'alaikumsalam wr. wb.,
>
> ibu Titis.
>
> bisa menggunakan:
>
> akan menghasilkan rumus di cell yang dituju
> nama_workbook.range(alamat_cell).Formula = "=SumProduct(rumusnya)"
>
> akan menghasilkan nilai pada cell yang dituju
> nama_workbook.range(alamat_cell).Value = Evaluate("=SumProduct(rumusnya)")
> nama_workbook.range(alamat_cell).Value = Application.WorkSheetsFunction.
> Sumproduct(rumusnya)
>
> monggo, dipilih mana yang disuka
>
> wassalam,
>
> -aji mumpung-
>
>
> Pada 23 Oktober 2012 18:14, Titis Ardiyana Wulandari <tiez_2289@yahoo.com >menulis:
>
> **
>>
>>
>>
>> Assalamu'alaikum
>>
>> Teman-teman,
>> minta penjelasan rumus macro ketika sumproduct di masukan kerumus macro,
>> bagaimana rumusnya?
>>
>> Terimakasih
>>
>>
>
>
Cara pakai evaluate yg ku gunakan itu salah nya dimana ?
Sub rubah_formula(
Cells(2, 5).Formula = "=Upper(RC[-
Cells(2, 6).Formula = "=RC[-3]*rc[
Cells(2, 8).Value = Cells(2, 5)
Cells(2, 9).Value = Cells(2, 6)
Cells(2, 11).Value = Evaluate(Cells(
Cells(2, 12).Value = Evaluate(Cells(
End Sub
2012/10/23 aji mumpung <pupung1986@gmail.
> **
>
>
> wa'alaikumsalam wr. wb.,
>
> ibu Titis.
>
> bisa menggunakan:
>
> akan menghasilkan rumus di cell yang dituju
> nama_workbook.
>
> akan menghasilkan nilai pada cell yang dituju
> nama_workbook.
> nama_workbook.
> Sumproduct(rumusnya
>
> monggo, dipilih mana yang disuka
>
> wassalam,
>
> -aji mumpung-
>
>
> Pada 23 Oktober 2012 18:14, Titis Ardiyana Wulandari <tiez_2289@yahoo.
>
> **
>>
>>
>>
>> Assalamu'alaikum
>>
>> Teman-teman,
>> minta penjelasan rumus macro ketika sumproduct di masukan kerumus macro,
>> bagaimana rumusnya?
>>
>> Terimakasih
>>
>>
>
>
Tue Oct 23, 2012 5:36 am (PDT) . Posted by:
"Titis Ardiyana Wulandari" tiez_2289
Terimakasih banyak atas penjelasannya Pak Pupung,
tanya lagi,
dengan rumus yg Bapak berikan, bila saya punya data seperti attach file,
range (alamat cell) nya mulai dari yg mana?
terimakasih
________________________________
From: aji mumpung <pupung1986@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, October 23, 2012 6:46 PM
Subject: Re: [belajar-excel] SUMPRODUCT DI MACRO
wa'alaikumsalam wr. wb.,
ibu Titis.
bisa menggunakan:
akan menghasilkan rumus di cell yang dituju
nama_workbook.range(alamat_cell).Formula = "=SumProduct(rumusnya)"
akan menghasilkan nilai pada cell yang dituju
nama_workbook.range(alamat_cell).Value = Evaluate("=SumProduct(rumusnya)")
nama_workbook.range(alamat_cell).Value = Application.WorkSheetsFunction.Sumproduct(rumusnya)
monggo, dipilih mana yang disuka
wassalam,
-aji mumpung-
Pada 23 Oktober 2012 18:14, Titis Ardiyana Wulandari <tiez_2289@yahoo.com > menulis:
>
>
>
>Assalamu'alaikum
>
>
>Teman-teman,
>minta penjelasan rumus macro ketika sumproduct di masukan kerumus macro, bagaimana rumusnya?
>
>
>Terimakasih
tanya lagi,
dengan rumus yg Bapak berikan, bila saya punya data seperti attach file,
range (alamat cell) nya mulai dari yg mana?
terimakasih
____________
From: aji mumpung <pupung1986@gmail.
To: belajar-excel@
Sent: Tuesday, October 23, 2012 6:46 PM
Subject: Re: [belajar-excel] SUMPRODUCT DI MACRO
wa'alaikumsalam wr. wb.,
ibu Titis.
bisa menggunakan:
akan menghasilkan rumus di cell yang dituju
nama_workbook.
akan menghasilkan nilai pada cell yang dituju
nama_workbook.
nama_workbook.
monggo, dipilih mana yang disuka
wassalam,
-aji mumpung-
Pada 23 Oktober 2012 18:14, Titis Ardiyana Wulandari <tiez_2289@yahoo.
>
>
>
>Assalamu'alaikum
>
>
>Teman-teman,
>minta penjelasan rumus macro ketika sumproduct di masukan kerumus macro, bagaimana rumusnya?
>
>
>Terimakasih
Tue Oct 23, 2012 5:56 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Evaluate digunakan untuk mengubah suatu nama range menjadi sebuah object
atau menjadi suatu nilai.
Jadi yang diubah adalah sebuah nama range.
Contoh :
1. Evaluate("A1") artinya mengubah nama range A1 (tentu saja nama range A1
adalah cell A1), maka hasil evaluate adalah sebuah object range a1.
Jadi, jika ada cell C7 akan diisi dengan nilai A1, bisa dengan :
range("c7").value = evaluate("A1").value
yang sering disingkat dengan :
range("c7").value = evaluate("A1")
karena properti default suatu range adalah value.
2. Evaluate("=A1") artinya mengubah nama range yang dirujuk dengan formula
(refers to berisi formula) yang berbunyi =A1
begitu juga ketika ada Evaluate("=suatu formula panjang").
Pada kasus :
Cells(2, 11).Value = Evaluate(Cells(2, 5))
artinya : nilai di cell baris 2 kolom 11 [cells(2,11).value] akan diisi
dengan nilai hasil evaluate terhadap cell(2,5) dan diambil nilainya
(default properti range adalah value.
Jika cell(2,5) berisi tulisan atau angka berbunyi 125, berarti baris :
Cells(2, 11).Value = Evaluate(Cells(2, 5))
akan berarti :
nilai di cell baris 2 kolom 11 [cells(2,11).value] akan diisi dengan nilai
hasil evaluate terhadap 125 dan diambil nilainya (default properti range
adalah value.
Karena nama range 125 tidak bisa didefinisikan maka nilai dalam nama range
antah berantah itu akan menghasilkan error value.
Jika baris Cells(2, 11).Value = Evaluate(Cells(2, 5)) maksudnya adalah
mengambil nilai di cells(2,5), maka :
Cells(2, 11).Value = Evaluate("=" & Cells(2, 5).value)
atau
Cells(2, 11).Value = Cells(2, 5).value
Wassalam,
Kid.
2012/10/23 lkm jktind <lkmjktind@gmail.com >
> **
>
>
> Pak Aji.
>
> Cara pakai evaluate yg ku gunakan itu salah nya dimana ?
>
> Sub rubah_formula()
> Cells(2, 5).Formula = "=Upper(RC[-3])"
> Cells(2, 6).Formula = "=RC[-3]*rc[-2]"
>
> Cells(2, 8).Value = Cells(2, 5)
> Cells(2, 9).Value = Cells(2, 6)
>
> Cells(2, 11).Value = Evaluate(Cells(2, 5))
> Cells(2, 12).Value = Evaluate(Cells(2, 6))
>
>
> End Sub
>
>
>
> 2012/10/23 aji mumpung <pupung1986@gmail.com >
>
>> **
>>
>>
>> wa'alaikumsalam wr. wb.,
>>
>> ibu Titis.
>>
>> bisa menggunakan:
>>
>> akan menghasilkan rumus di cell yang dituju
>> nama_workbook.range(alamat_cell).Formula = "=SumProduct(rumusnya)"
>>
>> akan menghasilkan nilai pada cell yang dituju
>> nama_workbook.range(alamat_cell).Value = Evaluate("=SumProduct(rumusnya)
>> ")
>> nama_workbook.range(alamat_cell).Value = Application.WorkSheetsFunction.
>> Sumproduct(rumusnya)
>>
>> monggo, dipilih mana yang disuka
>>
>> wassalam,
>>
>> -aji mumpung-
>>
>>
>> Pada 23 Oktober 2012 18:14, Titis Ardiyana Wulandari <tiez_2289@yahoo.com
>> > menulis:
>>
>> **
>>>
>>>
>>>
>>> Assalamu'alaikum
>>>
>>> Teman-teman,
>>> minta penjelasan rumus macro ketika sumproduct di masukan kerumus macro,
>>> bagaimana rumusnya?
>>>
>>> Terimakasih
>>>
>>>
>>
>
>
atau menjadi suatu nilai.
Jadi yang diubah adalah sebuah nama range.
Contoh :
1. Evaluate("A1"
adalah cell A1), maka hasil evaluate adalah sebuah object range a1.
Jadi, jika ada cell C7 akan diisi dengan nilai A1, bisa dengan :
range("c7").
yang sering disingkat dengan :
range("c7").
karena properti default suatu range adalah value.
2. Evaluate("=A1"
(refers to berisi formula) yang berbunyi =A1
begitu juga ketika ada Evaluate("=suatu formula panjang").
Pada kasus :
Cells(2, 11).Value = Evaluate(Cells(
artinya : nilai di cell baris 2 kolom 11 [cells(2,11)
dengan nilai hasil evaluate terhadap cell(2,5) dan diambil nilainya
(default properti range adalah value.
Jika cell(2,5) berisi tulisan atau angka berbunyi 125, berarti baris :
Cells(2, 11).Value = Evaluate(Cells(
akan berarti :
nilai di cell baris 2 kolom 11 [cells(2,11)
hasil evaluate terhadap 125 dan diambil nilainya (default properti range
adalah value.
Karena nama range 125 tidak bisa didefinisikan maka nilai dalam nama range
antah berantah itu akan menghasilkan error value.
Jika baris Cells(2, 11).Value = Evaluate(Cells(
mengambil nilai di cells(2,5), maka :
Cells(2, 11).Value = Evaluate("=" & Cells(2, 5).value)
atau
Cells(2, 11).Value = Cells(2, 5).value
Wassalam,
Kid.
2012/10/23 lkm jktind <lkmjktind@gmail.
> **
>
>
> Pak Aji.
>
> Cara pakai evaluate yg ku gunakan itu salah nya dimana ?
>
> Sub rubah_formula(
> Cells(2, 5).Formula = "=Upper(RC[-
> Cells(2, 6).Formula = "=RC[-3]*rc[
>
> Cells(2, 8).Value = Cells(2, 5)
> Cells(2, 9).Value = Cells(2, 6)
>
> Cells(2, 11).Value = Evaluate(Cells(
> Cells(2, 12).Value = Evaluate(Cells(
>
>
> End Sub
>
>
>
> 2012/10/23 aji mumpung <pupung1986@gmail.
>
>> **
>>
>>
>> wa'alaikumsalam wr. wb.,
>>
>> ibu Titis.
>>
>> bisa menggunakan:
>>
>> akan menghasilkan rumus di cell yang dituju
>> nama_workbook.
>>
>> akan menghasilkan nilai pada cell yang dituju
>> nama_workbook.
>> ")
>> nama_workbook.
>> Sumproduct(rumusnya
>>
>> monggo, dipilih mana yang disuka
>>
>> wassalam,
>>
>> -aji mumpung-
>>
>>
>> Pada 23 Oktober 2012 18:14, Titis Ardiyana Wulandari <tiez_2289@yahoo.
>> > menulis:
>>
>> **
>>>
>>>
>>>
>>> Assalamu'alaikum
>>>
>>> Teman-teman,
>>> minta penjelasan rumus macro ketika sumproduct di masukan kerumus macro,
>>> bagaimana rumusnya?
>>>
>>> Terimakasih
>>>
>>>
>>
>
>
Tue Oct 23, 2012 6:40 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Kalau saya, (gak tahu yang lainnya...)
jika ingin memasang formula pada suatu range (misal 12 baris x 8 kolom),
langkahnya :
Contoh : formula akan dipasang di cell C13:J24
1. buat formula tersebut di cell pertama dari area yang akan diberi formula
>> cell pertama di C13
>> cell C13 diberi formula, misal formula saya adalah =a1+2
>> tekan Enter
2. coba copy formula ke seluruh area, dan pastikan formula menghasilkan nilai
yang tepat.
>> cell C13 di klik lalu tekan CTRL C
>> blok range C13:J24 lalu tekan CTRL V
>> periksa hasil formula di C13:J24
>> oh ternyata sudah OK. (jika belum, ulangi dari nomor 1)
3. setelah pasti formula di cell pertama tadi tepat jika di copy ke cell
lain, maka copy bunyi formula
>> cell C13 di edit (tekan F2)
>> blok seluruh teks formulanya
>> klik kanan pilih Copy
4. ke VBE untuk buat prosedur pemasang formula
>> tekan ALT F11
>> menu Insert -> pilih Module
>> di lembar kanan, mulai tulis blok prosedurnya, misal akan diberi nama
PasangFormula, maka bunyi bloknya :
Public Sub PasangFormula()
'prosesnya nanti disini loh
End Sub
5. paste formula hasil copy tadi ke sebelah kanan tulisan 'prosesnya nanti
disini loh sehingga bentuknya menjadi :
Public Sub PasangFormula()
'prosesnya nanti disini loh =A1+2
End Sub
6. mulai susun isi proses persis dibawah tulisan 'proses blabla dan sebelum
baris End Sub
Public Sub PasangFormula()
'prosesnya nanti disini loh =A1+2
Sheets("nama sheetku").range("c13:j24").formula = "=A1+2"
Sheets("nama sheetku").calculate 'supaya worksheet dikalkulasi
(antisipasi setting calculation sedang manual)
End Sub
7. saya pengen hasilnya tidak berwujud formula, tapi hanya nilainya saja,
supaya Excel gak berat kalkulasinya
>> langkah ini, sifatnya optional [bila perlu saja]
>> jadi harus ada tambahan proses untuk mem-values-kan hasil formula
>> kalau langkah manual di worksheet, biasanya tangan user akan melakukan
Copy Paste Special Values
>> dengan pemrograman, bahasanya :
Sheets("nama sheetku").range("c13:j24").value=Sheets("nama
sheetku").range("c13:j24").value
atau
Sheets("nama sheetku").range("c13:j24").copy
Sheets("nama sheetku").range("c13").pastespecial xlpastevalues
tinggal pilih cara yang mana (biru atau hijau)
>> saya pilih yang hijau saja deh
>> maka setelah proses nomor 6, ditambahkan lagi proses copy values ini,
menjadi :
Public Sub PasangFormula()
'prosesnya nanti disini loh =A1+2
Sheets("nama sheetku").range("c13:j24").formula = "=A1+2"
Sheets("nama sheetku").calculate 'supaya worksheet dikalkulasi
(antisipasi setting calculation sedang manual)
'mau mem-values-kan hasil formula
Sheets("nama sheetku").range("c13:j24").copy
Sheets("nama sheetku").range("c13").pastespecial xlpastevalues
End Sub
8. sekarang, diingat-ingat nama prosedurnya (yang merah) dan kembali ke
worksheet dengan menekan ALT F11
9. simpan file dengan ekstensi .xlsm atau .xlsb atau .xls, caranya :
>> tekan ALT F A
>> beri nama file dengan nama yang baru (misal myVBA)
>> lihat Save as type
>> pilih .xlsm atau .xlsb atau .xls
>> tekan tombol Save
10. coba jalankan prosedur (sering disebut jalankan Macro)
>> tekan ALT F8
>> muncul dialog, pilih nama prosedurnya (yang merah kan ya, yang bunyinya
PasangFormula)
>> tekan tombol Run
11. Capek dong kalau tiap kali ubah nilai data harus jalankan prosedur.
Salah satu caranya adalah dengan tombol, yang gampang
>> insert sebuah shape (di Excel 2007 : ribbon Insert -> Shapes -> pilih
Rectangle -> gambar kotak di worksheet)
>> klik kanan si shape yang ada di worksheet -> pilih Assign Macro -> pilih
nama prosedurnya (yang merah lagi kan) -> tekan OK
>> klik sebuah cell (misal klik cell F7)
>> klik si shape
12. terus belajar lagi tentang worksheet event, kalau sudah lanyah
(terbiasa) membuat seperti yang di atas.
>> browsing sana sini jadi tambah pinter dan pengen coba hal lain
Wassalam,
Kid.
formula
2012/10/23 Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
> **
>
>
>
> Assalamu'alaikum
>
> Teman-teman,
> minta penjelasan rumus macro ketika sumproduct di masukan kerumus macro,
> bagaimana rumusnya?
>
> Terimakasih
>
> _
>
Kalau saya, (gak tahu yang lainnya...)
jika ingin memasang formula pada suatu range (misal 12 baris x 8 kolom),
langkahnya :
Contoh : formula akan dipasang di cell C13:J24
1. buat formula tersebut di cell pertama dari area yang akan diberi formula
>> cell pertama di C13
>> cell C13 diberi formula, misal formula saya adalah =a1+2
>> tekan Enter
2. coba copy formula ke seluruh area, dan pastikan formula menghasilkan nilai
yang tepat.
>> cell C13 di klik lalu tekan CTRL C
>> blok range C13:J24 lalu tekan CTRL V
>> periksa hasil formula di C13:J24
>> oh ternyata sudah OK. (jika belum, ulangi dari nomor 1)
3. setelah pasti formula di cell pertama tadi tepat jika di copy ke cell
lain, maka copy bunyi formula
>> cell C13 di edit (tekan F2)
>> blok seluruh teks formulanya
>> klik kanan pilih Copy
4. ke VBE untuk buat prosedur pemasang formula
>> tekan ALT F11
>> menu Insert -> pilih Module
>> di lembar kanan, mulai tulis blok prosedurnya, misal akan diberi nama
PasangFormula, maka bunyi bloknya :
Public Sub PasangFormula(
'prosesnya nanti disini loh
End Sub
5. paste formula hasil copy tadi ke sebelah kanan tulisan 'prosesnya nanti
disini loh sehingga bentuknya menjadi :
Public Sub PasangFormula(
'prosesnya nanti disini loh =A1+2
End Sub
6. mulai susun isi proses persis dibawah tulisan 'proses blabla dan sebelum
baris End Sub
Public Sub PasangFormula(
'prosesnya nanti disini loh =A1+2
Sheets("nama sheetku").range(
Sheets("nama sheetku").calculate 'supaya worksheet dikalkulasi
(antisipasi setting calculation sedang manual)
End Sub
7. saya pengen hasilnya tidak berwujud formula, tapi hanya nilainya saja,
supaya Excel gak berat kalkulasinya
>> langkah ini, sifatnya optional [bila perlu saja]
>> jadi harus ada tambahan proses untuk mem-values-kan hasil formula
>> kalau langkah manual di worksheet, biasanya tangan user akan melakukan
Copy Paste Special Values
>> dengan pemrograman, bahasanya :
Sheets("nama sheetku").range(
sheetku").range(
atau
Sheets("nama sheetku").range(
Sheets("nama sheetku").range(
tinggal pilih cara yang mana (biru atau hijau)
>> saya pilih yang hijau saja deh
>> maka setelah proses nomor 6, ditambahkan lagi proses copy values ini,
menjadi :
Public Sub PasangFormula(
'prosesnya nanti disini loh =A1+2
Sheets("nama sheetku").range(
Sheets("nama sheetku").calculate 'supaya worksheet dikalkulasi
(antisipasi setting calculation sedang manual)
'mau mem-values-kan hasil formula
Sheets("nama sheetku").range(
Sheets("nama sheetku").range(
End Sub
8. sekarang, diingat-ingat nama prosedurnya (yang merah) dan kembali ke
worksheet dengan menekan ALT F11
9. simpan file dengan ekstensi .xlsm atau .xlsb atau .xls, caranya :
>> tekan ALT F A
>> beri nama file dengan nama yang baru (misal myVBA)
>> lihat Save as type
>> pilih .xlsm atau .xlsb atau .xls
>> tekan tombol Save
10. coba jalankan prosedur (sering disebut jalankan Macro)
>> tekan ALT F8
>> muncul dialog, pilih nama prosedurnya (yang merah kan ya, yang bunyinya
PasangFormula)
>> tekan tombol Run
11. Capek dong kalau tiap kali ubah nilai data harus jalankan prosedur.
Salah satu caranya adalah dengan tombol, yang gampang
>> insert sebuah shape (di Excel 2007 : ribbon Insert -> Shapes -> pilih
Rectangle -> gambar kotak di worksheet)
>> klik kanan si shape yang ada di worksheet -> pilih Assign Macro -> pilih
nama prosedurnya (yang merah lagi kan) -> tekan OK
>> klik sebuah cell (misal klik cell F7)
>> klik si shape
12. terus belajar lagi tentang worksheet event, kalau sudah lanyah
(terbiasa) membuat seperti yang di atas.
>> browsing sana sini jadi tambah pinter dan pengen coba hal lain
Wassalam,
Kid.
formula
2012/10/23 Titis Ardiyana Wulandari <tiez_2289@yahoo.
> **
>
>
>
> Assalamu'alaikum
>
> Teman-teman,
> minta penjelasan rumus macro ketika sumproduct di masukan kerumus macro,
> bagaimana rumusnya?
>
> Terimakasih
>
> _
>
Tue Oct 23, 2012 6:36 am (PDT) . Posted by:
"leo pcs" leopcs81
hai teman...
sebelumnya saya sudah berusaha mengotak-atik rumus yang digunakan untuk memunculkan data berdasarkan karakter yg dikehendaki, namun belum berhasil. saya berharap teman belajar-excel bs membantu saya untuk memecahkan masalah yang bagi saya ini sangat membingungkan.
untuk karakter, saya gunakan daftar list, setiap list karakter terdapat karakter "ALL".
bersama ini saya sertakan attach ny...
terima kasih,
Leo
sebelumnya saya sudah berusaha mengotak-atik rumus yang digunakan untuk memunculkan data berdasarkan karakter yg dikehendaki, namun belum berhasil. saya berharap teman belajar-excel bs membantu saya untuk memecahkan masalah yang bagi saya ini sangat membingungkan.
untuk karakter, saya gunakan daftar list, setiap list karakter terdapat karakter "ALL".
bersama ini saya sertakan attach ny...
terima kasih,
Leo
Tue Oct 23, 2012 6:50 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Leo,
Coba manfaatkan wildcard character (*) untuk penjumlahan 'ALL' record (seluruh
item pada kriteria tersebut)
Contoh :
kriteria diinput (dengan data valiedation di C1) yang ada pilihan ALL dan
item lainnya.
bunyi formula yang tadinya mirip dengan :
=SumIFs( data_kolom_nilai , data_kriteria_kolom_sesuatu , C1 )
Bahasa manusianya :
"Jumlahkan semua kolom nilai yang kolom sesuatunya bernilai sama dengan
nilai C1"
harus diubah menjadi :
=SumIFs( data_kolom_nilai , data_kriteria_kolom_sesuatu , *Substitute(* C1 *,
"ALL" , "*" )* )
Jika kriterianya ada banyak, maka buat juga untuk bagian lain formula yang
membutuhkan pengkondisian ALL seperti contoh di atas.
Wassalam,
Kid.
2012/10/23 leo pcs <leopcs81@yahoo.com >
> **
>
>
> hai teman...
>
> sebelumnya saya sudah berusaha mengotak-atik rumus yang digunakan untuk
> memunculkan data berdasarkan karakter yg dikehendaki, namun belum berhasil.
> saya berharap teman belajar-excel bs membantu saya untuk memecahkan masalah
> yang bagi saya ini sangat membingungkan.
> untuk karakter, saya gunakan daftar list, setiap list karakter terdapat
> karakter "ALL".
> bersama ini saya sertakan attach ny...
>
> terima kasih,
> Leo
>
> _
>
>
Coba manfaatkan wildcard character (*) untuk penjumlahan 'ALL' record (seluruh
item pada kriteria tersebut)
Contoh :
kriteria diinput (dengan data valiedation di C1) yang ada pilihan ALL dan
item lainnya.
bunyi formula yang tadinya mirip dengan :
=SumIFs( data_kolom_nilai , data_kriteria_
Bahasa manusianya :
"Jumlahkan semua kolom nilai yang kolom sesuatunya bernilai sama dengan
nilai C1"
harus diubah menjadi :
=SumIFs( data_kolom_nilai , data_kriteria_
"ALL" , "*" )* )
Jika kriterianya ada banyak, maka buat juga untuk bagian lain formula yang
membutuhkan pengkondisian ALL seperti contoh di atas.
Wassalam,
Kid.
2012/10/23 leo pcs <leopcs81@yahoo.
> **
>
>
> hai teman...
>
> sebelumnya saya sudah berusaha mengotak-atik rumus yang digunakan untuk
> memunculkan data berdasarkan karakter yg dikehendaki, namun belum berhasil.
> saya berharap teman belajar-excel bs membantu saya untuk memecahkan masalah
> yang bagi saya ini sangat membingungkan.
> untuk karakter, saya gunakan daftar list, setiap list karakter terdapat
> karakter "ALL".
> bersama ini saya sertakan attach ny...
>
> terima kasih,
> Leo
>
> _
>
>
Tue Oct 23, 2012 6:59 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Oh iya,
Wildcard character bisa digunakan antara lain oleh fungsi-fungsi :
CountIF, CountIFs, SumIF, SumIFs, Seacrh, Match, VLookUp, HLookUp
Wassalam,
Kid.
2012/10/23 Mr. Kid <mr.nmkid@gmail.com >
> Hai Leo,
>
> Coba manfaatkan wildcard character (*) untuk penjumlahan 'ALL' record (seluruh
> item pada kriteria tersebut)
> Contoh :
> kriteria diinput (dengan data valiedation di C1) yang ada pilihan ALL dan
> item lainnya.
> bunyi formula yang tadinya mirip dengan :
> =SumIFs( data_kolom_nilai , data_kriteria_kolom_sesuatu , C1 )
> Bahasa manusianya :
> "Jumlahkan semua kolom nilai yang kolom sesuatunya bernilai sama dengan
> nilai C1"
>
> harus diubah menjadi :
> =SumIFs( data_kolom_nilai , data_kriteria_kolom_sesuatu , *Substitute(* C1
> *, "ALL" , "*" )* )
>
> Jika kriterianya ada banyak, maka buat juga untuk bagian lain formula yang
> membutuhkan pengkondisian ALL seperti contoh di atas.
>
> Wassalam,
> Kid.
>
>
> 2012/10/23 leo pcs <leopcs81@yahoo.com >
>
>> **
>>
>>
>> hai teman...
>>
>> sebelumnya saya sudah berusaha mengotak-atik rumus yang digunakan untuk
>> memunculkan data berdasarkan karakter yg dikehendaki, namun belum berhasil.
>> saya berharap teman belajar-excel bs membantu saya untuk memecahkan masalah
>> yang bagi saya ini sangat membingungkan.
>> untuk karakter, saya gunakan daftar list, setiap list karakter terdapat
>> karakter "ALL".
>> bersama ini saya sertakan attach ny...
>>
>> terima kasih,
>> Leo
>>
>> _
>>
>>
>
Wildcard character bisa digunakan antara lain oleh fungsi-fungsi :
CountIF, CountIFs, SumIF, SumIFs, Seacrh, Match, VLookUp, HLookUp
Wassalam,
Kid.
2012/10/23 Mr. Kid <mr.nmkid@gmail.
> Hai Leo,
>
> Coba manfaatkan wildcard character (*) untuk penjumlahan 'ALL' record (seluruh
> item pada kriteria tersebut)
> Contoh :
> kriteria diinput (dengan data valiedation di C1) yang ada pilihan ALL dan
> item lainnya.
> bunyi formula yang tadinya mirip dengan :
> =SumIFs( data_kolom_nilai , data_kriteria_
> Bahasa manusianya :
> "Jumlahkan semua kolom nilai yang kolom sesuatunya bernilai sama dengan
> nilai C1"
>
> harus diubah menjadi :
> =SumIFs( data_kolom_nilai , data_kriteria_
> *, "ALL" , "*" )* )
>
> Jika kriterianya ada banyak, maka buat juga untuk bagian lain formula yang
> membutuhkan pengkondisian ALL seperti contoh di atas.
>
> Wassalam,
> Kid.
>
>
> 2012/10/23 leo pcs <leopcs81@yahoo.
>
>> **
>>
>>
>> hai teman...
>>
>> sebelumnya saya sudah berusaha mengotak-atik rumus yang digunakan untuk
>> memunculkan data berdasarkan karakter yg dikehendaki, namun belum berhasil.
>> saya berharap teman belajar-excel bs membantu saya untuk memecahkan masalah
>> yang bagi saya ini sangat membingungkan.
>> untuk karakter, saya gunakan daftar list, setiap list karakter terdapat
>> karakter "ALL".
>> bersama ini saya sertakan attach ny...
>>
>> terima kasih,
>> Leo
>>
>> _
>>
>>
>
Tue Oct 23, 2012 8:12 am (PDT) . Posted by:
"summonery" summonery
sebagai tambahan,
AVERAGEIF dan AVERAGEIFS
>semoga bermanfaat
--- In belajar-excel@yahoogroups.com , "Mr. Kid" <mr.nmkid@...> wrote:
>
> Oh iya,
> Wildcard character bisa digunakan antara lain oleh fungsi-fungsi :
> CountIF, CountIFs, SumIF, SumIFs, Seacrh, Match, VLookUp, HLookUp
>
> Wassalam,
> Kid.
>
>
>
> 2012/10/23 Mr. Kid <mr.nmkid@...>
>
> > Hai Leo,
> >
> > Coba manfaatkan wildcard character (*) untuk penjumlahan 'ALL' record (seluruh
> > item pada kriteria tersebut)
> > Contoh :
> > kriteria diinput (dengan data valiedation di C1) yang ada pilihan ALL dan
> > item lainnya.
> > bunyi formula yang tadinya mirip dengan :
> > =SumIFs( data_kolom_nilai , data_kriteria_kolom_sesuatu , C1 )
> > Bahasa manusianya :
> > "Jumlahkan semua kolom nilai yang kolom sesuatunya bernilai sama dengan
> > nilai C1"
> >
> > harus diubah menjadi :
> > =SumIFs( data_kolom_nilai , data_kriteria_kolom_sesuatu , *Substitute(* C1
> > *, "ALL" , "*" )* )
> >
> > Jika kriterianya ada banyak, maka buat juga untuk bagian lain formula yang
> > membutuhkan pengkondisian ALL seperti contoh di atas.
> >
> > Wassalam,
> > Kid.
> >
> >
> > 2012/10/23 leo pcs <leopcs81@...>
> >
> >> **
> >>
> >>
> >> hai teman...
> >>
> >> sebelumnya saya sudah berusaha mengotak-atik rumus yang digunakan untuk
> >> memunculkan data berdasarkan karakter yg dikehendaki, namun belum berhasil.
> >> saya berharap teman belajar-excel bs membantu saya untuk memecahkan masalah
> >> yang bagi saya ini sangat membingungkan.
> >> untuk karakter, saya gunakan daftar list, setiap list karakter terdapat
> >> karakter "ALL".
> >> bersama ini saya sertakan attach ny...
> >>
> >> terima kasih,
> >> Leo
> >>
> >> _
> >>
> >>
> >
>
AVERAGEIF dan AVERAGEIFS
>semoga bermanfaat
--- In belajar-excel@
>
> Oh iya,
> Wildcard character bisa digunakan antara lain oleh fungsi-fungsi :
> CountIF, CountIFs, SumIF, SumIFs, Seacrh, Match, VLookUp, HLookUp
>
> Wassalam,
> Kid.
>
>
>
> 2012/10/23 Mr. Kid <mr.nmkid@..
>
> > Hai Leo,
> >
> > Coba manfaatkan wildcard character (*) untuk penjumlahan 'ALL' record (seluruh
> > item pada kriteria tersebut)
> > Contoh :
> > kriteria diinput (dengan data valiedation di C1) yang ada pilihan ALL dan
> > item lainnya.
> > bunyi formula yang tadinya mirip dengan :
> > =SumIFs( data_kolom_nilai , data_kriteria_
> > Bahasa manusianya :
> > "Jumlahkan semua kolom nilai yang kolom sesuatunya bernilai sama dengan
> > nilai C1"
> >
> > harus diubah menjadi :
> > =SumIFs( data_kolom_nilai , data_kriteria_
> > *, "ALL" , "*" )* )
> >
> > Jika kriterianya ada banyak, maka buat juga untuk bagian lain formula yang
> > membutuhkan pengkondisian ALL seperti contoh di atas.
> >
> > Wassalam,
> > Kid.
> >
> >
> > 2012/10/23 leo pcs <leopcs81@..
> >
> >> **
> >>
> >>
> >> hai teman...
> >>
> >> sebelumnya saya sudah berusaha mengotak-atik rumus yang digunakan untuk
> >> memunculkan data berdasarkan karakter yg dikehendaki, namun belum berhasil.
> >> saya berharap teman belajar-excel bs membantu saya untuk memecahkan masalah
> >> yang bagi saya ini sangat membingungkan.
> >> untuk karakter, saya gunakan daftar list, setiap list karakter terdapat
> >> karakter "ALL".
> >> bersama ini saya sertakan attach ny...
> >>
> >> terima kasih,
> >> Leo
> >>
> >> _
> >>
> >>
> >
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar