15 New Messages
Digest #1915
Messages
Sun Nov 18, 2012 5:31 pm (PST) . Posted by:
"Mardi" hekerkampoeng
Master Kid atau Masters excel yg laen,
Maaf Master Kid dan yg lainya,menyoal digit ribuan lagi.Ternyata format
ini berjalan mulus di komputer dengan regional seting English(United
States) tapi kalo indonesia dibacanya jadi koma
textbox hasil
1.000 1
100.000 100
1.000.000 1.000.000
mohon solusinya tanpa merubah regional seting jadi english
terimakasih
mardi
On 18/11/2012 21:07, Mr. Kid wrote:
>
> Pak Mardi,
>
> Biasanya menggunakan event change milik si textbox. Pada prosedur
> event tersebut diberi proses format number.
> Contoh untuk textbox bernama txtPunyaku, pada event change-nya bisa
> diberi perintah :
> txtpunyaku.text = format$( txtpunyaku.text , "#,###" )
>
> Tanda koma atau titik sebagai pemisah desimal akan mengikuti setting
> regional komputer setempat (lihat di Windows Control Panel kan ya)
>
> Wassalam,
> Kid.
>
Maaf Master Kid dan yg lainya,menyoal digit ribuan lagi.Ternyata format
ini berjalan mulus di komputer dengan regional seting English(United
States) tapi kalo indonesia dibacanya jadi koma
textbox hasil
1.000 1
100.000 100
1.000.000 1.000.000
mohon solusinya tanpa merubah regional seting jadi english
terimakasih
mardi
On 18/11/2012 21:07, Mr. Kid wrote:
>
> Pak Mardi,
>
> Biasanya menggunakan event change milik si textbox. Pada prosedur
> event tersebut diberi proses format number.
> Contoh untuk textbox bernama txtPunyaku, pada event change-nya bisa
> diberi perintah :
> txtpunyaku.text = format$( txtpunyaku.text , "#,###" )
>
> Tanda koma atau titik sebagai pemisah desimal akan mengikuti setting
> regional komputer setempat (lihat di Windows Control Panel kan ya)
>
> Wassalam,
> Kid.
>
Sun Nov 18, 2012 6:23 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Asumsi : bilangan bulat
textbox1.text=replace$(format$(replace$(textbox1.text,",",vbnullstring),"#,###"),".",",")
Ketika akan menulis ke cell, pastikan untuk menghilangkan seluruh tanda
pemisah ribuan dari nilai dalam textbox.
Hal ini akan membuat nilai ditulis sebagai data bertipe numerik.
Wassalam,
Kid.
2012/11/19 Mardi <sumardiana596@gmail.com >
> **
>
>
> Master Kid atau Masters excel yg laen,
>
> Maaf Master Kid dan yg lainya,menyoal digit ribuan lagi.Ternyata format
> ini berjalan mulus di komputer dengan regional seting English(United
> States) tapi kalo indonesia dibacanya jadi koma
> textbox hasil
> 1.000 1
> 100.000 100
> 1.000.000 1.000.000
> mohon solusinya tanpa merubah regional seting jadi english
>
> terimakasih
>
> mardi
>
> On 18/11/2012 21:07, Mr. Kid wrote:
>
>
>
> Pak Mardi,
>
> Biasanya menggunakan event change milik si textbox. Pada prosedur event
> tersebut diberi proses format number.
> Contoh untuk textbox bernama txtPunyaku, pada event change-nya bisa diberi
> perintah :
> txtpunyaku.text = format$( txtpunyaku.text , "#,###" )
>
> Tanda koma atau titik sebagai pemisah desimal akan mengikuti setting
> regional komputer setempat (lihat di Windows Control Panel kan ya)
>
> Wassalam,
> Kid.
>
>
>
textbox1.text=
Ketika akan menulis ke cell, pastikan untuk menghilangkan seluruh tanda
pemisah ribuan dari nilai dalam textbox.
Hal ini akan membuat nilai ditulis sebagai data bertipe numerik.
Wassalam,
Kid.
2012/11/19 Mardi <sumardiana596@
> **
>
>
> Master Kid atau Masters excel yg laen,
>
> Maaf Master Kid dan yg lainya,menyoal digit ribuan lagi.Ternyata format
> ini berjalan mulus di komputer dengan regional seting English(United
> States) tapi kalo indonesia dibacanya jadi koma
> textbox hasil
> 1.000 1
> 100.000 100
> 1.000.000 1.000.000
> mohon solusinya tanpa merubah regional seting jadi english
>
> terimakasih
>
> mardi
>
> On 18/11/2012 21:07, Mr. Kid wrote:
>
>
>
> Pak Mardi,
>
> Biasanya menggunakan event change milik si textbox. Pada prosedur event
> tersebut diberi proses format number.
> Contoh untuk textbox bernama txtPunyaku, pada event change-nya bisa diberi
> perintah :
> txtpunyaku.text = format$( txtpunyaku.text , "#,###" )
>
> Tanda koma atau titik sebagai pemisah desimal akan mengikuti setting
> regional komputer setempat (lihat di Windows Control Panel kan ya)
>
> Wassalam,
> Kid.
>
>
>
Sun Nov 18, 2012 7:38 pm (PST) . Posted by:
"Mardi" hekerkampoeng
Terima kasih Mr Kid
setelah googling kesana kemari ketemunya sama Mr Kid juga
mardi
On 19/11/2012 9:23, Mr. Kid wrote:
>
> Asumsi : bilangan bulat
> textbox1.text=replace$(format$(replace$(textbox1.text,",",vbnullstring),"#,###"),".",",")
>
> Ketika akan menulis ke cell, pastikan untuk menghilangkan seluruh
> tanda pemisah ribuan dari nilai dalam textbox.
> Hal ini akan membuat nilai ditulis sebagai data bertipe numerik.
>
> Wassalam,
> Kid.
>
setelah googling kesana kemari ketemunya sama Mr Kid juga
mardi
On 19/11/2012 9:23, Mr. Kid wrote:
>
> Asumsi : bilangan bulat
> textbox1.text=
>
> Ketika akan menulis ke cell, pastikan untuk menghilangkan seluruh
> tanda pemisah ribuan dari nilai dalam textbox.
> Hal ini akan membuat nilai ditulis sebagai data bertipe numerik.
>
> Wassalam,
> Kid.
>
Sun Nov 18, 2012 6:27 pm (PST) . Posted by:
"Bagus" bagus4bls
Dear Masters;
Saya ingin menampilkan detail dari suatu transaksi tertentu,
dimana data transaksi ada di sheet IDR.
Untuk lebih jelasnya saya sertakan file nya.
Bagus
Saya ingin menampilkan detail dari suatu transaksi tertentu,
dimana data transaksi ada di sheet IDR.
Untuk lebih jelasnya saya sertakan file nya.
Bagus
Sun Nov 18, 2012 6:52 pm (PST) . Posted by:
"Jan Raisin"
Dear BeExceler,
cara penulisan formula dari worksheet ke VBA dapat dilakukan dengan
cara-cara seperti berikut:
1. Menggunakan fungsi Evaluate
contoh: Cells(1,1).value = Evaluate("
=ini_formula_panjang_dari_worksheet_yang_dipindah_ke_VBA")
perhatikan cara penulisannya
a. formula dari worksheet diapit dengan tanda buka_kurung dan kutip_dua,
lalu ditutup dengan tanda kutip_dua dan tutup_kurung
b. formula dari worksheet ditulis mulai dari tanda sama_dengan sampai
akhir
c. semua tanda pemisah harus menggunakan koma, jika awalnya formula di
tulis di worksheet dengan menggunakan tanda titik_koma sebagai pemisah
antara satu bagian dengan bagian yang lain (asumsi regional setting adalah
Indonesia) dan dapat berjalan dengan baik di worksheet, maka jika tanda
pemisah tidak diganti dari titik_koma menjadi koma maka akan muncul error.
2. Memanfaatkan fungsi Application.WorkSheetFunction.nama_fungsinya
catatan: Tidak semua fungsi dari worksheet dapat digunakan di dalam
VBA, untuk mengetahui fungsi-fungsi yang dapat dipanggil bisa dengan cara
menulis tanda titik setelah syntax Application.WorksheetsFunction
untuk dapat menggunakan cara yang kedua ini, anda harus mengetahui
terlebih dahulu bagaimana cara menunjuk suatu cell dan suatu area (range)
di dalam workheet
Berikut adalah beberapa cara menunjuk suatu cell dan suatu area di
dalam worksheet
a. menunjuk cell menggunakan fungsi Cells
syntax-nya adalah Cells(nomer_baris , nomer_kolom)
contoh: Cells( 2, 3) artinya adalah menunjuk kepada cell di baris 2
dan kolom 3 atau disebut cell C3
cara tersebut hanya berlaku untuk menunjuk pada cell yang tereletak
pada workbook yang aktif dan worksheet yang aktif
jika cell yang ingin ditunjuk terletak pada workbook lain dan/atau
wroksheet lain maka cara menunjuknya selalu melalui hierarki yang lebih
tinggi
contoh: Workbooks("DataPenjualan2012").WorkSheets("Database").Cells(2
, 3)
b. Menunjuk cell dan range menggunakan fungsi Range
1). Menunjuk sebuah cell
contoh: Range("A2") artinya menunjuk kepada sebuah cell yang
bernama cell A2
2). Menunjuk beberapa buah cell yang berhimpitan
contoh: Range("A2:C3") artinya menunjuk kepada beberapa buah
cell mulai dari A2 sampai C3, berarti yang ditunjuka adalah cell A2, A3,
B2, B3, C2, dan C3
3). Menunjuk beberapa cell yang tidak berhimpitan
contoh: Range("A2, C3, E5") artinya menunjuk kepada cell A2,
C3, dan E5 yang letaknya tidak saling berhimpit
4). Menunjuk sebuah kolom
contoh: Range ("A:A") artinya menunjuk seluruh cell di dalam
kolom A
5). Menunjuk beberapa kolom yang saling berhimpit
contoh: Range ("A:E") artinya menunjuk seluruh cell mulai dari
kolom A sampai E
6). Menunjuk beberapa kolom yang tidak saling berhimpit
contoh: Range("A:A, C:C, E:E") artinya menunjuk seluruh cell di
dalam kolom A, kolom C, dan kolom E
selain dengan menunjuk langsung alamat cell atau range,
penunjukan juga bisa dilakukan dengan memberi nama kepada range yang akan
dilipih
contoh:
Option Explicit
Sub Tes()
Dim Pilihan As Range
Set Pilihan = Range("A:A, C:C, E:E")
Pilihan.Select
End Sub
7). Menunjuk suatu area / range dengan syntax baku dari fungsi Range
syntax dari Range adalah Range(alamat_cell_awal ,
alamat_cell_akhir)
contoh: Range(Range("A1") , Range("E5"))
atau
Range(Cells(1,1) , Cells(5,5))
kedua script di atas akan menunjuk kepada suatu range mulai dari
cell A1 sampai dengan cell E5
Setelah sedikit dongeng dari Jan, sekarang Jan akan bertanya ke pak Lukman,
menurut pak Lukman mana yang lebih pas untuk formula yang akan digunakan
oleh pak Lukman?
silakan dicoba dahulu, jika ada kesulitan bisa dishare lagi ke sini
Best Regard,
Miss Jan Raisin
2012/11/17 lkm jktind <lkmjktind@gmail.com >
> **
>
>
> Bagaimana cara penulisannya di macro excel :
> dengan contoh di bawah ini :
>
> Sumproduct(("$A$2:$A$36000"=$A25)*(("$D$1:$AB$1=F$)*($D$2:$AB$36000)
> Index($D$2:$AB$36000;match("$A$2:$A$36000";$A25); match("$D$1:$AB$1;F$))
> Hloopup= (F$1;$D$1:$D$3600;Match($A$1:$A$3600;$A25);0)
>
>
> Cells(r,5) = application.worksheetfunction.sumproduct(
> Cells(r,6) = application.worksheetfunction.Index(
> Cells(r,7) = application.worksheetfunction.Hlookup(
>
>
>
> Salam
>
>
> Lukman.
>
>
>
> nb : maaf nga begitu bisa bahasa inggris.
>
>
>
cara penulisan formula dari worksheet ke VBA dapat dilakukan dengan
cara-cara seperti berikut:
1. Menggunakan fungsi Evaluate
contoh: Cells(1,1).value = Evaluate("
=ini_formula_
perhatikan cara penulisannya
a. formula dari worksheet diapit dengan tanda buka_kurung dan kutip_dua,
lalu ditutup dengan tanda kutip_dua dan tutup_kurung
b. formula dari worksheet ditulis mulai dari tanda sama_dengan sampai
akhir
c. semua tanda pemisah harus menggunakan koma, jika awalnya formula di
tulis di worksheet dengan menggunakan tanda titik_koma sebagai pemisah
antara satu bagian dengan bagian yang lain (asumsi regional setting adalah
Indonesia) dan dapat berjalan dengan baik di worksheet, maka jika tanda
pemisah tidak diganti dari titik_koma menjadi koma maka akan muncul error.
2. Memanfaatkan fungsi Application.
catatan: Tidak semua fungsi dari worksheet dapat digunakan di dalam
VBA, untuk mengetahui fungsi-fungsi yang dapat dipanggil bisa dengan cara
menulis tanda titik setelah syntax Application.
untuk dapat menggunakan cara yang kedua ini, anda harus mengetahui
terlebih dahulu bagaimana cara menunjuk suatu cell dan suatu area (range)
di dalam workheet
Berikut adalah beberapa cara menunjuk suatu cell dan suatu area di
dalam worksheet
a. menunjuk cell menggunakan fungsi Cells
syntax-nya adalah Cells(nomer_
contoh: Cells( 2, 3) artinya adalah menunjuk kepada cell di baris 2
dan kolom 3 atau disebut cell C3
cara tersebut hanya berlaku untuk menunjuk pada cell yang tereletak
pada workbook yang aktif dan worksheet yang aktif
jika cell yang ingin ditunjuk terletak pada workbook lain dan/atau
wroksheet lain maka cara menunjuknya selalu melalui hierarki yang lebih
tinggi
contoh: Workbooks("DataPenj
, 3)
b. Menunjuk cell dan range menggunakan fungsi Range
1). Menunjuk sebuah cell
contoh: Range("A2") artinya menunjuk kepada sebuah cell yang
bernama cell A2
2). Menunjuk beberapa buah cell yang berhimpitan
contoh: Range("A2:C3"
cell mulai dari A2 sampai C3, berarti yang ditunjuka adalah cell A2, A3,
B2, B3, C2, dan C3
3). Menunjuk beberapa cell yang tidak berhimpitan
contoh: Range("A2, C3, E5") artinya menunjuk kepada cell A2,
C3, dan E5 yang letaknya tidak saling berhimpit
4). Menunjuk sebuah kolom
contoh: Range ("A:A") artinya menunjuk seluruh cell di dalam
kolom A
5). Menunjuk beberapa kolom yang saling berhimpit
contoh: Range ("A:E") artinya menunjuk seluruh cell mulai dari
kolom A sampai E
6). Menunjuk beberapa kolom yang tidak saling berhimpit
contoh: Range("A:A, C:C, E:E") artinya menunjuk seluruh cell di
dalam kolom A, kolom C, dan kolom E
selain dengan menunjuk langsung alamat cell atau range,
penunjukan juga bisa dilakukan dengan memberi nama kepada range yang akan
dilipih
contoh:
Option Explicit
Sub Tes()
Dim Pilihan As Range
Set Pilihan = Range("A:A, C:C, E:E")
Pilihan.Select
End Sub
7). Menunjuk suatu area / range dengan syntax baku dari fungsi Range
syntax dari Range adalah Range(alamat_
alamat_cell_
contoh: Range(Range(
atau
Range(Cells(
kedua script di atas akan menunjuk kepada suatu range mulai dari
cell A1 sampai dengan cell E5
Setelah sedikit dongeng dari Jan, sekarang Jan akan bertanya ke pak Lukman,
menurut pak Lukman mana yang lebih pas untuk formula yang akan digunakan
oleh pak Lukman?
silakan dicoba dahulu, jika ada kesulitan bisa dishare lagi ke sini
Best Regard,
Miss Jan Raisin
2012/11/17 lkm jktind <lkmjktind@gmail.
> **
>
>
> Bagaimana cara penulisannya di macro excel :
> dengan contoh di bawah ini :
>
> Sumproduct((
> Index($D$2:$
> Hloopup= (F$1;$D$1:$D$
>
>
> Cells(r,5) = application.
> Cells(r,6) = application.
> Cells(r,7) = application.
>
>
>
> Salam
>
>
> Lukman.
>
>
>
> nb : maaf nga begitu bisa bahasa inggris.
>
>
>
Sun Nov 18, 2012 10:39 pm (PST) . Posted by:
"lkm jktind" lkmjkt
Pak Jan.
Masih belum bisa ?
Yang berwarna biru.
Option Explicit
Sub coba_function()
Dim Sum_T As Range
Dim Sum_J As Range
Dim Sum_N As Range
Set Sum_T = Range("F2:F34")
Set Sum_J = Range("G1:L1")
Set Sum_N = Range("G2:L34")
Range("R3").Formula = "=I2+I3"
Range("R4").Formula = "=SUM(I2:I34)"
Range("R15").Formula = "=SUMPRODUCT((F2:F34=N16)*(G1:L1=O16)*(G2:L34))"
Range("R16").Formula =
"=INDEX($G$2:$M$34,MATCH($N$16,$F$2:$F$34,0),MATCH($O$16,$G$1:$M$1,0))"
Range("R17").Formula =
"=VLOOKUP($N$16,$F$2:$L$34,MATCH($O$16,$F$1:$L$1,0),FALSE)"
Range("U3").Value = Evaluate("=I2+I3")
Range("U4").Value = Evaluate("=SUM(I2:I34)")
Range("U15").Value =
Evaluate("=SUMPRODUCT((F2:F34=N16)*(G1:L1=O16)*(G2:L34))")
Range("U16").Value =
Evaluate("=INDEX($G$2:$M$34,MATCH($N$16,$F$2:$F$34,0),MATCH($O$16,$G$1:$M$1,0))")
Range("U17").Value =
Evaluate("=VLOOKUP($N$16,$F$2:$L$34,MATCH($O$16,$F$1:$L$1,0),FALSE)")
Range("S4") = Application.WorksheetFunction.Sum(Range(Range("I2"),
Range("I34")))
Range("T4") = Application.WorksheetFunction.Sum(Sum_N)
'Range("S15") =
Application.WorksheetFunction.SumProduct((Range(Range("F2"), Range("F34"))
= Range("N16")) * (Range(Range("G1"), Range("L1")) = Range("O16")) *
Range(Range("G2"), Range("L34")))
'Range("T15") = Application.WorksheetFunction.SumProduct((Sum_T =
Range("N16")) * (Sum_J = Range("O16")) * (Sum_N))
'Range("U15") = Application.WorksheetFunction.SumProduct((Range(Sum_T) =
Range("N16")) * (Range(Sum_J) = Range("O16")) * (Range(Sum_N)))
'Range("S16") = Application.WorksheetFunction.Index(Range(Range("G2"),
Range("L34")), 17, 3, 0)
'Range("T16") = Application.WorksheetFunction.Index(
'Range("U16") = Application.WorksheetFunction.Index(
'Range("S17") = Application.WorksheetFunction.VLookup(Range("N16"),
(Range(Range("F2"), Range("F34"))), 4, False)
'Range("T17") = Application.WorksheetFunction.VLookup(Range("N16"),
(Sum_T), 4, False)
'Range("U17") = Application.WorksheetFunction.VLookup(Range("N16"),
Range(Sum_T), 4, False)
Range("S18") = Application.WorksheetFunction.Match(Range("N16"),
Range(Range("F2"), Range("F34")), 0)
Range("T18") = Application.WorksheetFunction.Match(Range("O16"),
Range(Range("G1"), Range("L1")), 0)
End Sub
Salam
Lukman
2012/11/19 Jan Raisin <miss.jan.raisin@gmail.com >
> **
>
>
> Dear BeExceler,
>
> cara penulisan formula dari worksheet ke VBA dapat dilakukan dengan
> cara-cara seperti berikut:
>
> 1. Menggunakan fungsi Evaluate
> contoh: Cells(1,1).value = Evaluate("
> =ini_formula_panjang_dari_worksheet_yang_dipindah_ke_VBA")
> perhatikan cara penulisannya
> a. formula dari worksheet diapit dengan tanda buka_kurung dan kutip_dua,
> lalu ditutup dengan tanda kutip_dua dan tutup_kurung
> b. formula dari worksheet ditulis mulai dari tanda sama_dengan sampai
> akhir
> c. semua tanda pemisah harus menggunakan koma, jika awalnya formula di
> tulis di worksheet dengan menggunakan tanda titik_koma sebagai pemisah
> antara satu bagian dengan bagian yang lain (asumsi regional setting adalah
> Indonesia) dan dapat berjalan dengan baik di worksheet, maka jika tanda
> pemisah tidak diganti dari titik_koma menjadi koma maka akan muncul error.
>
> 2. Memanfaatkan fungsi Application.WorkSheetFunction.nama_fungsinya
> catatan: Tidak semua fungsi dari worksheet dapat digunakan di dalam
> VBA, untuk mengetahui fungsi-fungsi yang dapat dipanggil bisa dengan cara
> menulis tanda titik setelah syntax Application.WorksheetsFunction
> untuk dapat menggunakan cara yang kedua ini, anda harus mengetahui
> terlebih dahulu bagaimana cara menunjuk suatu cell dan suatu area (range)
> di dalam workheet
> Berikut adalah beberapa cara menunjuk suatu cell dan suatu area di
> dalam worksheet
> a. menunjuk cell menggunakan fungsi Cells
> syntax-nya adalah Cells(nomer_baris , nomer_kolom)
> contoh: Cells( 2, 3) artinya adalah menunjuk kepada cell di baris
> 2 dan kolom 3 atau disebut cell C3
> cara tersebut hanya berlaku untuk menunjuk pada cell yang tereletak
> pada workbook yang aktif dan worksheet yang aktif
> jika cell yang ingin ditunjuk terletak pada workbook lain dan/atau
> wroksheet lain maka cara menunjuknya selalu melalui hierarki yang lebih
> tinggi
> contoh: Workbooks("DataPenjualan2012").WorkSheets("Database").Cells(2
> , 3)
> b. Menunjuk cell dan range menggunakan fungsi Range
> 1). Menunjuk sebuah cell
> contoh: Range("A2") artinya menunjuk kepada sebuah cell yang
> bernama cell A2
> 2). Menunjuk beberapa buah cell yang berhimpitan
> contoh: Range("A2:C3") artinya menunjuk kepada beberapa buah
> cell mulai dari A2 sampai C3, berarti yang ditunjuka adalah cell A2, A3,
> B2, B3, C2, dan C3
> 3). Menunjuk beberapa cell yang tidak berhimpitan
> contoh: Range("A2, C3, E5") artinya menunjuk kepada cell A2,
> C3, dan E5 yang letaknya tidak saling berhimpit
> 4). Menunjuk sebuah kolom
> contoh: Range ("A:A") artinya menunjuk seluruh cell di dalam
> kolom A
> 5). Menunjuk beberapa kolom yang saling berhimpit
> contoh: Range ("A:E") artinya menunjuk seluruh cell mulai
> dari kolom A sampai E
> 6). Menunjuk beberapa kolom yang tidak saling berhimpit
> contoh: Range("A:A, C:C, E:E") artinya menunjuk seluruh cell
> di dalam kolom A, kolom C, dan kolom E
> selain dengan menunjuk langsung alamat cell atau range,
> penunjukan juga bisa dilakukan dengan memberi nama kepada range yang akan
> dilipih
> contoh:
> Option Explicit
> Sub Tes()
> Dim Pilihan As Range
> Set Pilihan = Range("A:A, C:C, E:E")
> Pilihan.Select
> End Sub
> 7). Menunjuk suatu area / range dengan syntax baku dari fungsi Range
> syntax dari Range adalah Range(alamat_cell_awal ,
> alamat_cell_akhir)
> contoh: Range(Range("A1") , Range("E5"))
> atau
> Range(Cells(1,1) , Cells(5,5))
> kedua script di atas akan menunjuk kepada suatu range mulai
> dari cell A1 sampai dengan cell E5
>
> Setelah sedikit dongeng dari Jan, sekarang Jan akan bertanya ke pak
> Lukman, menurut pak Lukman mana yang lebih pas untuk formula yang akan
> digunakan oleh pak Lukman?
>
> silakan dicoba dahulu, jika ada kesulitan bisa dishare lagi ke sini
>
> Best Regard,
>
> Miss Jan Raisin
>
>
> 2012/11/17 lkm jktind <lkmjktind@gmail.com >
>
>> **
>>
>>
>> Bagaimana cara penulisannya di macro excel :
>> dengan contoh di bawah ini :
>>
>> Sumproduct(("$A$2:$A$36000"=$A25)*(("$D$1:$AB$1=F$)*($D$2:$AB$36000)
>> Index($D$2:$AB$36000;match("$A$2:$A$36000";$A25); match("$D$1:$AB$1;F$))
>> Hloopup= (F$1;$D$1:$D$3600;Match($A$1:$A$3600;$A25);0)
>>
>>
>> Cells(r,5) = application.worksheetfunction.sumproduct(
>> Cells(r,6) = application.worksheetfunction.Index(
>> Cells(r,7) = application.worksheetfunction.Hlookup(
>>
>>
>>
>> Salam
>>
>>
>> Lukman.
>>
>>
>>
>> nb : maaf nga begitu bisa bahasa inggris.
>>
>>
>
>
Masih belum bisa ?
Yang berwarna biru.
Option Explicit
Sub coba_function(
Dim Sum_T As Range
Dim Sum_J As Range
Dim Sum_N As Range
Set Sum_T = Range("F2:F34"
Set Sum_J = Range("G1:L1"
Set Sum_N = Range("G2:L34"
Range("R3").
Range("R4").
Range("R15")
Range("R16")
"=INDEX($G$2:
Range("R17")
"=VLOOKUP($N$
Range("U3").
Range("U4").
Range("U15")
Evaluate("=SUMPRODU
Range("U16")
Evaluate("=INDEX(
Range("U17")
Evaluate("=VLOOKUP(
Range("S4") = Application.
Range("I34")
Range("T4") = Application.
'Range("S15"
Application.
= Range("N16")
Range(Range(
'Range("T15"
Range("N16")
'Range("U15"
Range("N16")
'Range("S16"
Range("L34")
'Range("T16"
'Range("U16"
'Range("S17"
(Range(Range(
'Range("T17"
(Sum_T), 4, False)
'Range("U17"
Range(Sum_T)
Range("S18") = Application.
Range(Range(
Range("T18") = Application.
Range(Range(
End Sub
Salam
Lukman
2012/11/19 Jan Raisin <miss.jan.raisin@
> **
>
>
> Dear BeExceler,
>
> cara penulisan formula dari worksheet ke VBA dapat dilakukan dengan
> cara-cara seperti berikut:
>
> 1. Menggunakan fungsi Evaluate
> contoh: Cells(1,1).value = Evaluate("
> =ini_formula_
> perhatikan cara penulisannya
> a. formula dari worksheet diapit dengan tanda buka_kurung dan kutip_dua,
> lalu ditutup dengan tanda kutip_dua dan tutup_kurung
> b. formula dari worksheet ditulis mulai dari tanda sama_dengan sampai
> akhir
> c. semua tanda pemisah harus menggunakan koma, jika awalnya formula di
> tulis di worksheet dengan menggunakan tanda titik_koma sebagai pemisah
> antara satu bagian dengan bagian yang lain (asumsi regional setting adalah
> Indonesia) dan dapat berjalan dengan baik di worksheet, maka jika tanda
> pemisah tidak diganti dari titik_koma menjadi koma maka akan muncul error.
>
> 2. Memanfaatkan fungsi Application.
> catatan: Tidak semua fungsi dari worksheet dapat digunakan di dalam
> VBA, untuk mengetahui fungsi-fungsi yang dapat dipanggil bisa dengan cara
> menulis tanda titik setelah syntax Application.
> untuk dapat menggunakan cara yang kedua ini, anda harus mengetahui
> terlebih dahulu bagaimana cara menunjuk suatu cell dan suatu area (range)
> di dalam workheet
> Berikut adalah beberapa cara menunjuk suatu cell dan suatu area di
> dalam worksheet
> a. menunjuk cell menggunakan fungsi Cells
> syntax-nya adalah Cells(nomer_
> contoh: Cells( 2, 3) artinya adalah menunjuk kepada cell di baris
> 2 dan kolom 3 atau disebut cell C3
> cara tersebut hanya berlaku untuk menunjuk pada cell yang tereletak
> pada workbook yang aktif dan worksheet yang aktif
> jika cell yang ingin ditunjuk terletak pada workbook lain dan/atau
> wroksheet lain maka cara menunjuknya selalu melalui hierarki yang lebih
> tinggi
> contoh: Workbooks("DataPenj
> , 3)
> b. Menunjuk cell dan range menggunakan fungsi Range
> 1). Menunjuk sebuah cell
> contoh: Range("A2") artinya menunjuk kepada sebuah cell yang
> bernama cell A2
> 2). Menunjuk beberapa buah cell yang berhimpitan
> contoh: Range("A2:C3"
> cell mulai dari A2 sampai C3, berarti yang ditunjuka adalah cell A2, A3,
> B2, B3, C2, dan C3
> 3). Menunjuk beberapa cell yang tidak berhimpitan
> contoh: Range("A2, C3, E5") artinya menunjuk kepada cell A2,
> C3, dan E5 yang letaknya tidak saling berhimpit
> 4). Menunjuk sebuah kolom
> contoh: Range ("A:A") artinya menunjuk seluruh cell di dalam
> kolom A
> 5). Menunjuk beberapa kolom yang saling berhimpit
> contoh: Range ("A:E") artinya menunjuk seluruh cell mulai
> dari kolom A sampai E
> 6). Menunjuk beberapa kolom yang tidak saling berhimpit
> contoh: Range("A:A, C:C, E:E") artinya menunjuk seluruh cell
> di dalam kolom A, kolom C, dan kolom E
> selain dengan menunjuk langsung alamat cell atau range,
> penunjukan juga bisa dilakukan dengan memberi nama kepada range yang akan
> dilipih
> contoh:
> Option Explicit
> Sub Tes()
> Dim Pilihan As Range
> Set Pilihan = Range("A:A, C:C, E:E")
> Pilihan.Select
> End Sub
> 7). Menunjuk suatu area / range dengan syntax baku dari fungsi Range
> syntax dari Range adalah Range(alamat_
> alamat_cell_
> contoh: Range(Range(
> atau
> Range(Cells(
> kedua script di atas akan menunjuk kepada suatu range mulai
> dari cell A1 sampai dengan cell E5
>
> Setelah sedikit dongeng dari Jan, sekarang Jan akan bertanya ke pak
> Lukman, menurut pak Lukman mana yang lebih pas untuk formula yang akan
> digunakan oleh pak Lukman?
>
> silakan dicoba dahulu, jika ada kesulitan bisa dishare lagi ke sini
>
> Best Regard,
>
> Miss Jan Raisin
>
>
> 2012/11/17 lkm jktind <lkmjktind@gmail.
>
>> **
>>
>>
>> Bagaimana cara penulisannya di macro excel :
>> dengan contoh di bawah ini :
>>
>> Sumproduct((
>> Index($D$2:$
>> Hloopup= (F$1;$D$1:$D$
>>
>>
>> Cells(r,5) = application.
>> Cells(r,6) = application.
>> Cells(r,7) = application.
>>
>>
>>
>> Salam
>>
>>
>> Lukman.
>>
>>
>>
>> nb : maaf nga begitu bisa bahasa inggris.
>>
>>
>
>
Sun Nov 18, 2012 10:39 pm (PST) . Posted by:
"lkm jktind" lkmjkt
Maaf Lupa mengirimkan file .
2012/11/19 lkm jktind <lkmjktind@gmail.com >
> Pak Jan.
>
> Masih belum bisa ?
> Yang berwarna biru.
>
>
>
> Option Explicit
> Sub coba_function()
> Dim Sum_T As Range
> Dim Sum_J As Range
> Dim Sum_N As Range
>
> Set Sum_T = Range("F2:F34")
> Set Sum_J = Range("G1:L1")
> Set Sum_N = Range("G2:L34")
>
> Range("R3").Formula = "=I2+I3"
> Range("R4").Formula = "=SUM(I2:I34)"
> Range("R15").Formula = "=SUMPRODUCT((F2:F34=N16)*(G1:L1=O16)*(G2:L34))"
> Range("R16").Formula =
> "=INDEX($G$2:$M$34,MATCH($N$16,$F$2:$F$34,0),MATCH($O$16,$G$1:$M$1,0))"
> Range("R17").Formula =
> "=VLOOKUP($N$16,$F$2:$L$34,MATCH($O$16,$F$1:$L$1,0),FALSE)"
>
> Range("U3").Value = Evaluate("=I2+I3")
> Range("U4").Value = Evaluate("=SUM(I2:I34)")
> Range("U15").Value =
> Evaluate("=SUMPRODUCT((F2:F34=N16)*(G1:L1=O16)*(G2:L34))")
> Range("U16").Value =
> Evaluate("=INDEX($G$2:$M$34,MATCH($N$16,$F$2:$F$34,0),MATCH($O$16,$G$1:$M$1,0))")
> Range("U17").Value =
> Evaluate("=VLOOKUP($N$16,$F$2:$L$34,MATCH($O$16,$F$1:$L$1,0),FALSE)")
>
> Range("S4") = Application.WorksheetFunction.Sum(Range(Range("I2"),
> Range("I34")))
> Range("T4") = Application.WorksheetFunction.Sum(Sum_N)
>
> 'Range("S15") =
> Application.WorksheetFunction.SumProduct((Range(Range("F2"), Range("F34"))
> = Range("N16")) * (Range(Range("G1"), Range("L1")) = Range("O16")) *
> Range(Range("G2"), Range("L34")))
> 'Range("T15") = Application.WorksheetFunction.SumProduct((Sum_T =
> Range("N16")) * (Sum_J = Range("O16")) * (Sum_N))
> 'Range("U15") = Application.WorksheetFunction.SumProduct((Range(Sum_T) =
> Range("N16")) * (Range(Sum_J) = Range("O16")) * (Range(Sum_N)))
> 'Range("S16") = Application.WorksheetFunction.Index(Range(Range("G2"),
> Range("L34")), 17, 3, 0)
> 'Range("T16") = Application.WorksheetFunction.Index(
> 'Range("U16") = Application.WorksheetFunction.Index(
> 'Range("S17") = Application.WorksheetFunction.VLookup(Range("N16"),
> (Range(Range("F2"), Range("F34"))), 4, False)
> 'Range("T17") = Application.WorksheetFunction.VLookup(Range("N16"),
> (Sum_T), 4, False)
> 'Range("U17") = Application.WorksheetFunction.VLookup(Range("N16"),
> Range(Sum_T), 4, False)
>
> Range("S18") = Application.WorksheetFunction.Match(Range("N16"),
> Range(Range("F2"), Range("F34")), 0)
> Range("T18") = Application.WorksheetFunction.Match(Range("O16"),
> Range(Range("G1"), Range("L1")), 0)
>
> End Sub
>
> Salam
>
> Lukman
>
>
>
> 2012/11/19 Jan Raisin <miss.jan.raisin@gmail.com >
>
>> **
>>
>>
>> Dear BeExceler,
>>
>> cara penulisan formula dari worksheet ke VBA dapat dilakukan dengan
>> cara-cara seperti berikut:
>>
>> 1. Menggunakan fungsi Evaluate
>> contoh: Cells(1,1).value = Evaluate("
>> =ini_formula_panjang_dari_worksheet_yang_dipindah_ke_VBA")
>> perhatikan cara penulisannya
>> a. formula dari worksheet diapit dengan tanda buka_kurung dan
>> kutip_dua, lalu ditutup dengan tanda kutip_dua dan tutup_kurung
>> b. formula dari worksheet ditulis mulai dari tanda sama_dengan sampai
>> akhir
>> c. semua tanda pemisah harus menggunakan koma, jika awalnya formula di
>> tulis di worksheet dengan menggunakan tanda titik_koma sebagai pemisah
>> antara satu bagian dengan bagian yang lain (asumsi regional setting adalah
>> Indonesia) dan dapat berjalan dengan baik di worksheet, maka jika tanda
>> pemisah tidak diganti dari titik_koma menjadi koma maka akan muncul error.
>>
>> 2. Memanfaatkan fungsi Application.WorkSheetFunction.nama_fungsinya
>> catatan: Tidak semua fungsi dari worksheet dapat digunakan di dalam
>> VBA, untuk mengetahui fungsi-fungsi yang dapat dipanggil bisa dengan cara
>> menulis tanda titik setelah syntax Application.WorksheetsFunction
>> untuk dapat menggunakan cara yang kedua ini, anda harus mengetahui
>> terlebih dahulu bagaimana cara menunjuk suatu cell dan suatu area (range)
>> di dalam workheet
>> Berikut adalah beberapa cara menunjuk suatu cell dan suatu area di
>> dalam worksheet
>> a. menunjuk cell menggunakan fungsi Cells
>> syntax-nya adalah Cells(nomer_baris , nomer_kolom)
>> contoh: Cells( 2, 3) artinya adalah menunjuk kepada cell di baris
>> 2 dan kolom 3 atau disebut cell C3
>> cara tersebut hanya berlaku untuk menunjuk pada cell yang
>> tereletak pada workbook yang aktif dan worksheet yang aktif
>> jika cell yang ingin ditunjuk terletak pada workbook lain dan/atau
>> wroksheet lain maka cara menunjuknya selalu melalui hierarki yang lebih
>> tinggi
>> contoh: Workbooks("DataPenjualan2012").WorkSheets("Database").Cells(2
>> , 3)
>> b. Menunjuk cell dan range menggunakan fungsi Range
>> 1). Menunjuk sebuah cell
>> contoh: Range("A2") artinya menunjuk kepada sebuah cell yang
>> bernama cell A2
>> 2). Menunjuk beberapa buah cell yang berhimpitan
>> contoh: Range("A2:C3") artinya menunjuk kepada beberapa buah
>> cell mulai dari A2 sampai C3, berarti yang ditunjuka adalah cell A2, A3,
>> B2, B3, C2, dan C3
>> 3). Menunjuk beberapa cell yang tidak berhimpitan
>> contoh: Range("A2, C3, E5") artinya menunjuk kepada cell A2,
>> C3, dan E5 yang letaknya tidak saling berhimpit
>> 4). Menunjuk sebuah kolom
>> contoh: Range ("A:A") artinya menunjuk seluruh cell di dalam
>> kolom A
>> 5). Menunjuk beberapa kolom yang saling berhimpit
>> contoh: Range ("A:E") artinya menunjuk seluruh cell mulai
>> dari kolom A sampai E
>> 6). Menunjuk beberapa kolom yang tidak saling berhimpit
>> contoh: Range("A:A, C:C, E:E") artinya menunjuk seluruh cell
>> di dalam kolom A, kolom C, dan kolom E
>> selain dengan menunjuk langsung alamat cell atau range,
>> penunjukan juga bisa dilakukan dengan memberi nama kepada range yang akan
>> dilipih
>> contoh:
>> Option Explicit
>> Sub Tes()
>> Dim Pilihan As Range
>> Set Pilihan = Range("A:A, C:C, E:E")
>> Pilihan.Select
>> End Sub
>> 7). Menunjuk suatu area / range dengan syntax baku dari fungsi Range
>> syntax dari Range adalah Range(alamat_cell_awal ,
>> alamat_cell_akhir)
>> contoh: Range(Range("A1") , Range("E5"))
>> atau
>> Range(Cells(1,1) , Cells(5,5))
>> kedua script di atas akan menunjuk kepada suatu range mulai
>> dari cell A1 sampai dengan cell E5
>>
>> Setelah sedikit dongeng dari Jan, sekarang Jan akan bertanya ke pak
>> Lukman, menurut pak Lukman mana yang lebih pas untuk formula yang akan
>> digunakan oleh pak Lukman?
>>
>> silakan dicoba dahulu, jika ada kesulitan bisa dishare lagi ke sini
>>
>> Best Regard,
>>
>> Miss Jan Raisin
>>
>>
>> 2012/11/17 lkm jktind <lkmjktind@gmail.com >
>>
>>> **
>>>
>>>
>>> Bagaimana cara penulisannya di macro excel :
>>> dengan contoh di bawah ini :
>>>
>>> Sumproduct(("$A$2:$A$36000"=$A25)*(("$D$1:$AB$1=F$)*($D$2:$AB$36000)
>>> Index($D$2:$AB$36000;match("$A$2:$A$36000";$A25); match("$D$1:$AB$1;F$))
>>> Hloopup= (F$1;$D$1:$D$3600;Match($A$1:$A$3600;$A25);0)
>>>
>>>
>>> Cells(r,5) = application.worksheetfunction.sumproduct(
>>> Cells(r,6) = application.worksheetfunction.Index(
>>> Cells(r,7) = application.worksheetfunction.Hlookup(
>>>
>>>
>>>
>>> Salam
>>>
>>>
>>> Lukman.
>>>
>>>
>>>
>>> nb : maaf nga begitu bisa bahasa inggris.
>>>
>>>
>>
>>
>
>
2012/11/19 lkm jktind <lkmjktind@gmail.
> Pak Jan.
>
> Masih belum bisa ?
> Yang berwarna biru.
>
>
>
> Option Explicit
> Sub coba_function(
> Dim Sum_T As Range
> Dim Sum_J As Range
> Dim Sum_N As Range
>
> Set Sum_T = Range("F2:F34"
> Set Sum_J = Range("G1:L1"
> Set Sum_N = Range("G2:L34"
>
> Range("R3").
> Range("R4").
> Range("R15")
> Range("R16")
> "=INDEX($G$2:
> Range("R17")
> "=VLOOKUP($N$
>
> Range("U3").
> Range("U4").
> Range("U15")
> Evaluate("=SUMPRODU
> Range("U16")
> Evaluate("=INDEX(
> Range("U17")
> Evaluate("=VLOOKUP(
>
> Range("S4") = Application.
> Range("I34")
> Range("T4") = Application.
>
> 'Range("S15"
> Application.
> = Range("N16")
> Range(Range(
> 'Range("T15"
> Range("N16")
> 'Range("U15"
> Range("N16")
> 'Range("S16"
> Range("L34")
> 'Range("T16"
> 'Range("U16"
> 'Range("S17"
> (Range(Range(
> 'Range("T17"
> (Sum_T), 4, False)
> 'Range("U17"
> Range(Sum_T)
>
> Range("S18") = Application.
> Range(Range(
> Range("T18") = Application.
> Range(Range(
>
> End Sub
>
> Salam
>
> Lukman
>
>
>
> 2012/11/19 Jan Raisin <miss.jan.raisin@
>
>> **
>>
>>
>> Dear BeExceler,
>>
>> cara penulisan formula dari worksheet ke VBA dapat dilakukan dengan
>> cara-cara seperti berikut:
>>
>> 1. Menggunakan fungsi Evaluate
>> contoh: Cells(1,1).value = Evaluate("
>> =ini_formula_
>> perhatikan cara penulisannya
>> a. formula dari worksheet diapit dengan tanda buka_kurung dan
>> kutip_dua, lalu ditutup dengan tanda kutip_dua dan tutup_kurung
>> b. formula dari worksheet ditulis mulai dari tanda sama_dengan sampai
>> akhir
>> c. semua tanda pemisah harus menggunakan koma, jika awalnya formula di
>> tulis di worksheet dengan menggunakan tanda titik_koma sebagai pemisah
>> antara satu bagian dengan bagian yang lain (asumsi regional setting adalah
>> Indonesia) dan dapat berjalan dengan baik di worksheet, maka jika tanda
>> pemisah tidak diganti dari titik_koma menjadi koma maka akan muncul error.
>>
>> 2. Memanfaatkan fungsi Application.
>> catatan: Tidak semua fungsi dari worksheet dapat digunakan di dalam
>> VBA, untuk mengetahui fungsi-fungsi yang dapat dipanggil bisa dengan cara
>> menulis tanda titik setelah syntax Application.
>> untuk dapat menggunakan cara yang kedua ini, anda harus mengetahui
>> terlebih dahulu bagaimana cara menunjuk suatu cell dan suatu area (range)
>> di dalam workheet
>> Berikut adalah beberapa cara menunjuk suatu cell dan suatu area di
>> dalam worksheet
>> a. menunjuk cell menggunakan fungsi Cells
>> syntax-nya adalah Cells(nomer_
>> contoh: Cells( 2, 3) artinya adalah menunjuk kepada cell di baris
>> 2 dan kolom 3 atau disebut cell C3
>> cara tersebut hanya berlaku untuk menunjuk pada cell yang
>> tereletak pada workbook yang aktif dan worksheet yang aktif
>> jika cell yang ingin ditunjuk terletak pada workbook lain dan/atau
>> wroksheet lain maka cara menunjuknya selalu melalui hierarki yang lebih
>> tinggi
>> contoh: Workbooks("DataPenj
>> , 3)
>> b. Menunjuk cell dan range menggunakan fungsi Range
>> 1). Menunjuk sebuah cell
>> contoh: Range("A2") artinya menunjuk kepada sebuah cell yang
>> bernama cell A2
>> 2). Menunjuk beberapa buah cell yang berhimpitan
>> contoh: Range("A2:C3"
>> cell mulai dari A2 sampai C3, berarti yang ditunjuka adalah cell A2, A3,
>> B2, B3, C2, dan C3
>> 3). Menunjuk beberapa cell yang tidak berhimpitan
>> contoh: Range("A2, C3, E5") artinya menunjuk kepada cell A2,
>> C3, dan E5 yang letaknya tidak saling berhimpit
>> 4). Menunjuk sebuah kolom
>> contoh: Range ("A:A") artinya menunjuk seluruh cell di dalam
>> kolom A
>> 5). Menunjuk beberapa kolom yang saling berhimpit
>> contoh: Range ("A:E") artinya menunjuk seluruh cell mulai
>> dari kolom A sampai E
>> 6). Menunjuk beberapa kolom yang tidak saling berhimpit
>> contoh: Range("A:A, C:C, E:E") artinya menunjuk seluruh cell
>> di dalam kolom A, kolom C, dan kolom E
>> selain dengan menunjuk langsung alamat cell atau range,
>> penunjukan juga bisa dilakukan dengan memberi nama kepada range yang akan
>> dilipih
>> contoh:
>> Option Explicit
>> Sub Tes()
>> Dim Pilihan As Range
>> Set Pilihan = Range("A:A, C:C, E:E")
>> Pilihan.Select
>> End Sub
>> 7). Menunjuk suatu area / range dengan syntax baku dari fungsi Range
>> syntax dari Range adalah Range(alamat_
>> alamat_cell_
>> contoh: Range(Range(
>> atau
>> Range(Cells(
>> kedua script di atas akan menunjuk kepada suatu range mulai
>> dari cell A1 sampai dengan cell E5
>>
>> Setelah sedikit dongeng dari Jan, sekarang Jan akan bertanya ke pak
>> Lukman, menurut pak Lukman mana yang lebih pas untuk formula yang akan
>> digunakan oleh pak Lukman?
>>
>> silakan dicoba dahulu, jika ada kesulitan bisa dishare lagi ke sini
>>
>> Best Regard,
>>
>> Miss Jan Raisin
>>
>>
>> 2012/11/17 lkm jktind <lkmjktind@gmail.
>>
>>> **
>>>
>>>
>>> Bagaimana cara penulisannya di macro excel :
>>> dengan contoh di bawah ini :
>>>
>>> Sumproduct((
>>> Index($D$2:$
>>> Hloopup= (F$1;$D$1:$D$
>>>
>>>
>>> Cells(r,5) = application.
>>> Cells(r,6) = application.
>>> Cells(r,7) = application.
>>>
>>>
>>>
>>> Salam
>>>
>>>
>>> Lukman.
>>>
>>>
>>>
>>> nb : maaf nga begitu bisa bahasa inggris.
>>>
>>>
>>
>>
>
>
Sun Nov 18, 2012 7:01 pm (PST) . Posted by:
"the_x_mikey@yahoo.com" the_x_mikey
Hi all,
Mau tanya dong, saya ada kasus dimana saya harus mengklik sebuah cell berdasarkan recordno. Let's say recordno ada di A1, jika A1 berisikan 3 maka saya harus mengklik cell C2. Jika berisikan 5 maka cell E2.
Angka di recordno menandakan abjad ke sekian.
Bagaimana code vba untuk convert number into column ya?
Mau tanya dong, saya ada kasus dimana saya harus mengklik sebuah cell berdasarkan recordno. Let's say recordno ada di A1, jika A1 berisikan 3 maka saya harus mengklik cell C2. Jika berisikan 5 maka cell E2.
Angka di recordno menandakan abjad ke sekian.
Bagaimana code vba untuk convert number into column ya?
Sun Nov 18, 2012 7:21 pm (PST) . Posted by:
"Jan Raisin"
Hi juga Mikey,
yang Jan tangkap adalah: isi di cell A1 selalu menunjukkan nomer urut
kolom, begitu bukan?
jika jawabya "Ya", maka bisa menggunakan fungsi Cells(nomer_baris ,
nomer_kolom)
contoh: Cells(2 , Range("A1").value ) >>> merujuk ke baris 2, nomer kolom
sesuai dengan isi cell A1, script tersebut silakan dikombinasikan dengan
script yang lain, misal sebuah script yang akan menghalangi user untuk
meng-klik cell selain dari yang sudah ditunjuk, atau menampilkan pesan agar
user meng-klik cell tertentu
Best Regard,
Jan Raisin
Pada 19 November 2012 09:42, <the_x_mikey@yahoo.com > menulis:
> **
>
>
> Hi all,
>
> Mau tanya dong, saya ada kasus dimana saya harus mengklik sebuah cell
> berdasarkan recordno. Let's say recordno ada di A1, jika A1 berisikan 3
> maka saya harus mengklik cell C2. Jika berisikan 5 maka cell E2.
> Angka di recordno menandakan abjad ke sekian.
> Bagaimana code vba untuk convert number into column ya?
>
>
>
yang Jan tangkap adalah: isi di cell A1 selalu menunjukkan nomer urut
kolom, begitu bukan?
jika jawabya "Ya", maka bisa menggunakan fungsi Cells(nomer_
nomer_kolom)
contoh: Cells(2 , Range("A1").
sesuai dengan isi cell A1, script tersebut silakan dikombinasikan dengan
script yang lain, misal sebuah script yang akan menghalangi user untuk
meng-klik cell selain dari yang sudah ditunjuk, atau menampilkan pesan agar
user meng-klik cell tertentu
Best Regard,
Jan Raisin
Pada 19 November 2012 09:42, <the_x_mikey@
> **
>
>
> Hi all,
>
> Mau tanya dong, saya ada kasus dimana saya harus mengklik sebuah cell
> berdasarkan recordno. Let's say recordno ada di A1, jika A1 berisikan 3
> maka saya harus mengklik cell C2. Jika berisikan 5 maka cell E2.
> Angka di recordno menandakan abjad ke sekian.
> Bagaimana code vba untuk convert number into column ya?
>
>
>
Sun Nov 18, 2012 8:11 pm (PST) . Posted by:
"the_x_mikey@yahoo.com" the_x_mikey
Bener bgt. Ya ampun semudah itu, saya pikir butuh convert dsb2. Ternyata spt cell R1C1 jaman dl ya. Thanks a lot Jan
-----Original Message-----
From: Jan Raisin <miss.jan.raisin@gmail.com >
Sender: belajar-excel@yahoogroups.com
Date: Mon, 19 Nov 2012 10:21:52
To: <belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Vba convert number into column
Hi juga Mikey,
yang Jan tangkap adalah: isi di cell A1 selalu menunjukkan nomer urut
kolom, begitu bukan?
jika jawabya "Ya", maka bisa menggunakan fungsi Cells(nomer_baris ,
nomer_kolom)
contoh: Cells(2 , Range("A1").value ) >>> merujuk ke baris 2, nomer kolom
sesuai dengan isi cell A1, script tersebut silakan dikombinasikan dengan
script yang lain, misal sebuah script yang akan menghalangi user untuk
meng-klik cell selain dari yang sudah ditunjuk, atau menampilkan pesan agar
user meng-klik cell tertentu
Best Regard,
Jan Raisin
Pada 19 November 2012 09:42, <the_x_mikey@yahoo.com > menulis:
> **
>
>
> Hi all,
>
> Mau tanya dong, saya ada kasus dimana saya harus mengklik sebuah cell
> berdasarkan recordno. Let's say recordno ada di A1, jika A1 berisikan 3
> maka saya harus mengklik cell C2. Jika berisikan 5 maka cell E2.
> Angka di recordno menandakan abjad ke sekian.
> Bagaimana code vba untuk convert number into column ya?
>
>
>
-----Original Message-----
From: Jan Raisin <miss.jan.raisin@
Sender: belajar-excel@
Date: Mon, 19 Nov 2012 10:21:52
To: <belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] Vba convert number into column
Hi juga Mikey,
yang Jan tangkap adalah: isi di cell A1 selalu menunjukkan nomer urut
kolom, begitu bukan?
jika jawabya "Ya", maka bisa menggunakan fungsi Cells(nomer_
nomer_kolom)
contoh: Cells(2 , Range("A1").
sesuai dengan isi cell A1, script tersebut silakan dikombinasikan dengan
script yang lain, misal sebuah script yang akan menghalangi user untuk
meng-klik cell selain dari yang sudah ditunjuk, atau menampilkan pesan agar
user meng-klik cell tertentu
Best Regard,
Jan Raisin
Pada 19 November 2012 09:42, <the_x_mikey@
> **
>
>
> Hi all,
>
> Mau tanya dong, saya ada kasus dimana saya harus mengklik sebuah cell
> berdasarkan recordno. Let's say recordno ada di A1, jika A1 berisikan 3
> maka saya harus mengklik cell C2. Jika berisikan 5 maka cell E2.
> Angka di recordno menandakan abjad ke sekian.
> Bagaimana code vba untuk convert number into column ya?
>
>
>
Sun Nov 18, 2012 8:17 pm (PST) . Posted by:
"jessicapermata@yahoo.com" jessicapermata
Dear Mr. Kid
Kalo mau belajar vba macro ada buku yg rekomen?
Yg menjelaskan fungsi tiap command di macro
Br
Widi
Powered by Telkomsel BlackBerry®
--- Mods ---
Coba jalan-jalan ke website milis (butuh login YahooID) disini :
http://tech.groups.yahoo.com/group/belajar-excel/files/
File yang bisa dimanfaatkan antara lain :
>> ctv_VBA Excel At a Glance.zip
>> Daftar links tutorial Excel-VBA (v2).xls
Untuk buku, bisa coba buku Pak Hendrik dan mbak Siti. Sila hubungi Pak Hendrik cara mendapatkannya. (siapa tahu ada discount buat member.. wakakaka...)
------------
Kalo mau belajar vba macro ada buku yg rekomen?
Yg menjelaskan fungsi tiap command di macro
Br
Widi
Powered by Telkomsel BlackBerry®
--- Mods ---
Coba jalan-jalan ke website milis (butuh login YahooID) disini :
http://tech.
File yang bisa dimanfaatkan antara lain :
>> ctv_VBA Excel At a Glance.zip
>> Daftar links tutorial Excel-VBA (v2).xls
Untuk buku, bisa coba buku Pak Hendrik dan mbak Siti. Sila hubungi Pak Hendrik cara mendapatkannya. (siapa tahu ada discount buat member.. wakakaka...)
------------
Sun Nov 18, 2012 9:08 pm (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Menanggapi tanggapan Mod,
Di beberapa TB Gramedia di Jakarta buku tersebut sudah kosong (entah laku keras atau tidak laku shg ditarik dari peredaran.....). Sayangnya saya tidak bisa mengauditnya karena biaya audit pasti lebih besar dari royaltynya.... ha ha ha.
Mengenai discount ?
Dalam perjanjian dengan Elex Media memang disebutkan kalau penulis membeli langsung dari penerbit dalam jumlah besar (kalau ga salah 100 exemplar) akan mendapat discount yang lumayan (kalau ga salah lagi .... sekitar 30% an). Masalahnya....bagaimana distribusinya ke member, kecuali Mod mau menyelenggarkan seminar.....shg buku dapat didisitribusikan pada saat seminar (tentunya dengan discount khusus tersebut).
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: "jessicapermata@yahoo.com " <jessicapermata@yahoo.com >
To: belajar-excel@yahoogroups.com
Sent: Monday, 19 November 2012, 10:42
Subject: [belajar-excel] Belajar VBA
Dear Mr. Kid
Kalo mau belajar vba macro ada buku yg rekomen?
Yg menjelaskan fungsi tiap command di macro
Br
Widi
Powered by Telkomsel BlackBerry®
--- Mods ---
Coba jalan-jalan ke website milis (butuh login YahooID) disini :
http://tech.groups.yahoo.com/group/belajar-excel/files/
File yang bisa dimanfaatkan antara lain :
>> ctv_VBA Excel At a Glance.zip
>> Daftar links tutorial Excel-VBA (v2).xls
Untuk buku, bisa coba buku Pak Hendrik dan mbak Siti. Sila hubungi Pak Hendrik cara mendapatkannya. (siapa tahu ada discount buat member.. wakakaka...)
------------
------------------------------------
----------------------------------------------------------
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
----------------------------------------------------------Yahoo! Groups Links
http://docs.yahoo.com/info/terms/
Di beberapa TB Gramedia di Jakarta buku tersebut sudah kosong (entah laku keras atau tidak laku shg ditarik dari peredaran...
Mengenai discount ?
Dalam perjanjian dengan Elex Media memang disebutkan kalau penulis membeli langsung dari penerbit dalam jumlah besar (kalau ga salah 100 exemplar) akan mendapat discount yang lumayan (kalau ga salah lagi .... sekitar 30% an). Masalahnya..
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: "jessicapermata@
To: belajar-excel@
Sent: Monday, 19 November 2012, 10:42
Subject: [belajar-excel] Belajar VBA
Dear Mr. Kid
Kalo mau belajar vba macro ada buku yg rekomen?
Yg menjelaskan fungsi tiap command di macro
Br
Widi
Powered by Telkomsel BlackBerry®
--- Mods ---
Coba jalan-jalan ke website milis (butuh login YahooID) disini :
http://tech.
File yang bisa dimanfaatkan antara lain :
>> ctv_VBA Excel At a Glance.zip
>> Daftar links tutorial Excel-VBA (v2).xls
Untuk buku, bisa coba buku Pak Hendrik dan mbak Siti. Sila hubungi Pak Hendrik cara mendapatkannya. (siapa tahu ada discount buat member.. wakakaka...)
------------
------------
------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-
posting ke milis, kirimkan ke:
belajar-excel@
berkunjung ke web milis
http://tech.
melihat file archive / mendownload lampiran
http://www.mail-
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-
menghubungi moderators & owners: belajar-excel-
keluar dari membership milis (UnSubscribe)
kirim mail kosong ke belajar-excel-
------------
http://docs.
Sun Nov 18, 2012 8:19 pm (PST) . Posted by:
"Jan Raisin"
pak Hary,
coba dicari pada arsip milis sebelumnya, kasus ini serupa dengan kasus
mencegah user menutup file dengan cara menekan tombol silang (X) di pojok
kanan atas yang dibahas secara tuntas oleh mr Kid.
maaf, tidak menyertakan linknya karena lagi sibuk nyari segenggam berlian :D
-Jan Raisin-
Pada 18 November 2012 19:03, Harry <hariansyahptk@yahoo.com > menulis:
> **
>
>
> Dear BeExceller,
>
> Pada UserForm yang sudah kita buat biasanya ada tombol "SAVE" dan "CLOSE".
> Jika Workbook yang kita buat digunakan oleh banyak user, sering kali user
> tidak meng-click salah satu tombol tersebut ("SAVE" dan "CLOSE") tetapi
> user meng-click tanda "X" pada sisi kanan UserForm terebut yang dapat
> mengakibatkan Worksheet tidak otomatis terpassword seperti yang sudah kita
> siapkan.
> Mohon informasi bagaimana caranya jika user meng-click tanda "X" tersebut
> diatas, otomatis atau sama dengan user meng-click tombol "CLOSE".
>
> Terima kasih atas bekenan informasinya.
>
> Wasalam,
>
> Harry
>
> Sent from Yahoo! Mail on Android
>
>
>
coba dicari pada arsip milis sebelumnya, kasus ini serupa dengan kasus
mencegah user menutup file dengan cara menekan tombol silang (X) di pojok
kanan atas yang dibahas secara tuntas oleh mr Kid.
maaf, tidak menyertakan linknya karena lagi sibuk nyari segenggam berlian :D
-Jan Raisin-
Pada 18 November 2012 19:03, Harry <hariansyahptk@
> **
>
>
> Dear BeExceller,
>
> Pada UserForm yang sudah kita buat biasanya ada tombol "SAVE" dan "CLOSE".
> Jika Workbook yang kita buat digunakan oleh banyak user, sering kali user
> tidak meng-click salah satu tombol tersebut ("SAVE" dan "CLOSE") tetapi
> user meng-click tanda "X" pada sisi kanan UserForm terebut yang dapat
> mengakibatkan Worksheet tidak otomatis terpassword seperti yang sudah kita
> siapkan.
> Mohon informasi bagaimana caranya jika user meng-click tanda "X" tersebut
> diatas, otomatis atau sama dengan user meng-click tombol "CLOSE".
>
> Terima kasih atas bekenan informasinya.
>
> Wasalam,
>
> Harry
>
> Sent from Yahoo! Mail on Android
>
>
>
Sun Nov 18, 2012 9:10 pm (PST) . Posted by:
"the_x_mikey@yahoo.com" the_x_mikey
Hi Mr Kid,
Saya coba melakukan perubahan pada srnaddr sehingga mengacu kepada sebuah cell
Saya ubah menjadi
Srngaddr = "$" & sheets("sheet1").range("A1").value & "$2"
Atau
Srngaddr = cells(2,sheets("sheet1").range("A1").value)
Tapi ga bisa
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.com >
Sender: belajar-excel@yahoogroups.com
Date: Wed, 14 Nov 2012 17:26:00
To: <belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Select image didalam sebuah cell
Sama-sama.
Jangan lupa, pastikan bahwa sRngAddr benar-benar berisi alamat cell pojok
kiri atas si shape. Kadangkala, si shaope tampak sudah masuk di range D2
padahal masih di D1 atau malah C1.
Wassalam,
Kid.
2012/11/14 <the_x_mikey@yahoo.com >
> **
>
>
> ** Luar biasa mr kid, udah browse google dr pagi akhirnya nemu nya
> disini. Thanks
> ------------------------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Wed, 14 Nov 2012 16:55:46 +0700
> *To: *<belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>
>
>
> Coba dengan prosedur berikut :
>
> public sub SelectShapeAh()
> dim shp as shape
> dim sRngAddr as string 'var ini bisa jadi input parameter agar
> lebih luwes
>
> srngaddr = "$D$2"
> sheet1.activate
> for each shp in sheet1.shapes
> if shp.topleftcell.address=srngaddr then
> shp.select
> endif
> next shp
> end sub
>
> Wassalam,
> Kid.
>
> 2012/11/14 <the_x_mikey@yahoo.com >
>
>> **
>>
>>
>> Hi all,
>>
>> Saya sedang membuat form dimana user akan menginput sebuah image ke dalam
>> suatu cell.
>> Let's say semua image tersebut ditempatkan di sheet 1 row 2, bagaimana
>> jika ingin men-select image yang ada di cell D2 saja?
>>
>> _
>>
>>
>
>
Saya coba melakukan perubahan pada srnaddr sehingga mengacu kepada sebuah cell
Saya ubah menjadi
Srngaddr = "$" & sheets("sheet1"
Atau
Srngaddr = cells(2,sheets(
Tapi ga bisa
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.
Sender: belajar-excel@
Date: Wed, 14 Nov 2012 17:26:00
To: <belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] Select image didalam sebuah cell
Sama-sama.
Jangan lupa, pastikan bahwa sRngAddr benar-benar berisi alamat cell pojok
kiri atas si shape. Kadangkala, si shaope tampak sudah masuk di range D2
padahal masih di D1 atau malah C1.
Wassalam,
Kid.
2012/11/14 <the_x_mikey@
> **
>
>
> ** Luar biasa mr kid, udah browse google dr pagi akhirnya nemu nya
> disini. Thanks
> ------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.
> *Sender: * belajar-excel@
> *Date: *Wed, 14 Nov 2012 16:55:46 +0700
> *To: *<belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>
>
>
> Coba dengan prosedur berikut :
>
> public sub SelectShapeAh(
> dim shp as shape
> dim sRngAddr as string 'var ini bisa jadi input parameter agar
> lebih luwes
>
> srngaddr = "$D$2"
> sheet1.activate
> for each shp in sheet1.shapes
> if shp.topleftcell.
> shp.select
> endif
> next shp
> end sub
>
> Wassalam,
> Kid.
>
> 2012/11/14 <the_x_mikey@
>
>> **
>>
>>
>> Hi all,
>>
>> Saya sedang membuat form dimana user akan menginput sebuah image ke dalam
>> suatu cell.
>> Let's say semua image tersebut ditempatkan di sheet 1 row 2, bagaimana
>> jika ingin men-select image yang ada di cell D2 saja?
>>
>> _
>>
>>
>
>
Sun Nov 18, 2012 9:18 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hi Mike,
>> Srngaddr = "$" sheets("sheet1").range("A1").value "$2"
1. sRngAddr kalau gak salah bertipe string
2. sRngAddr harus berisi teks alamat cell
3. untuk menyambung teks (concatenate) butuh ampersand
4. Pastikan range A1 pada sheet bernama sheet1 berisi nama kolom dalam
huruf kapital
5. Pastikan bahwa topleftcell dari si shape benar-benar memiliki alamat si
sRngAddr
>> Srngaddr = cells(2,sheets("sheet1").range("A1").value)
1. sRngAddr kalau gak salah bertipe string
2. sRngAddr harus berisi teks alamat cell
3. Property Cells milik application adalah bertipe range, sehingga tidak
mungkin disimpan dalam variabel sRngAddr. Coba tambahkan property Address.
4. Pastikan range A1 pada sheet bernama sheet1 berisi nama kolom dalam
huruf kapital atau indeks nomor kolom Excel
5. Pastikan bahwa topleftcell dari si shape benar-benar memiliki alamat si
sRngAddr
Wassalam,
Kid.
2012/11/19 <the_x_mikey@yahoo.com >
> **
>
>
> ** Hi Mr Kid,
>
> Saya coba melakukan perubahan pada srnaddr sehingga mengacu kepada sebuah
> cell
>
> Saya ubah menjadi
> Srngaddr = "$" sheets("sheet1").range("A1").value "$2"
>
> Atau
>
> Srngaddr = cells(2,sheets("sheet1").range("A1").value)
>
> Tapi ga bisa
> ------------------------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Wed, 14 Nov 2012 17:26:00 +0700
> *To: *<belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>
>
>
> Sama-sama.
>
> Jangan lupa, pastikan bahwa sRngAddr benar-benar berisi alamat cell pojok
> kiri atas si shape. Kadangkala, si shaope tampak sudah masuk di range D2
> padahal masih di D1 atau malah C1.
>
> Wassalam,
> Kid.
>
> 2012/11/14 <the_x_mikey@yahoo.com >
>
>> **
>>
>>
>> ** Luar biasa mr kid, udah browse google dr pagi akhirnya nemu nya
>> disini. Thanks
>> ------------------------------
>> *From: * "Mr. Kid" <mr.nmkid@gmail.com >
>> *Sender: * belajar-excel@yahoogroups.com
>> *Date: *Wed, 14 Nov 2012 16:55:46 +0700
>> *To: *<belajar-excel@yahoogroups.com >
>> *ReplyTo: * belajar-excel@yahoogroups.com
>> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>>
>>
>>
>> Coba dengan prosedur berikut :
>>
>> public sub SelectShapeAh()
>> dim shp as shape
>> dim sRngAddr as string 'var ini bisa jadi input parameter agar
>> lebih luwes
>>
>> srngaddr = "$D$2"
>> sheet1.activate
>> for each shp in sheet1.shapes
>> if shp.topleftcell.address=srngaddr then
>> shp.select
>> endif
>> next shp
>> end sub
>>
>> Wassalam,
>> Kid.
>>
>> 2012/11/14 <the_x_mikey@yahoo.com >
>>
>>> **
>>>
>>>
>>> Hi all,
>>>
>>> Saya sedang membuat form dimana user akan menginput sebuah image ke
>>> dalam suatu cell.
>>> Let's say semua image tersebut ditempatkan di sheet 1 row 2, bagaimana
>>> jika ingin men-select image yang ada di cell D2 saja?
>>>
>>> _
>>>
>>>
>>
>
>
>> Srngaddr = "$" sheets("sheet1"
1. sRngAddr kalau gak salah bertipe string
2. sRngAddr harus berisi teks alamat cell
3. untuk menyambung teks (concatenate) butuh ampersand
4. Pastikan range A1 pada sheet bernama sheet1 berisi nama kolom dalam
huruf kapital
5. Pastikan bahwa topleftcell dari si shape benar-benar memiliki alamat si
sRngAddr
>> Srngaddr = cells(2,sheets(
1. sRngAddr kalau gak salah bertipe string
2. sRngAddr harus berisi teks alamat cell
3. Property Cells milik application adalah bertipe range, sehingga tidak
mungkin disimpan dalam variabel sRngAddr. Coba tambahkan property Address.
4. Pastikan range A1 pada sheet bernama sheet1 berisi nama kolom dalam
huruf kapital atau indeks nomor kolom Excel
5. Pastikan bahwa topleftcell dari si shape benar-benar memiliki alamat si
sRngAddr
Wassalam,
Kid.
2012/11/19 <the_x_mikey@
> **
>
>
> ** Hi Mr Kid,
>
> Saya coba melakukan perubahan pada srnaddr sehingga mengacu kepada sebuah
> cell
>
> Saya ubah menjadi
> Srngaddr = "$" sheets("sheet1"
>
> Atau
>
> Srngaddr = cells(2,sheets(
>
> Tapi ga bisa
> ------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.
> *Sender: * belajar-excel@
> *Date: *Wed, 14 Nov 2012 17:26:00 +0700
> *To: *<belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>
>
>
> Sama-sama.
>
> Jangan lupa, pastikan bahwa sRngAddr benar-benar berisi alamat cell pojok
> kiri atas si shape. Kadangkala, si shaope tampak sudah masuk di range D2
> padahal masih di D1 atau malah C1.
>
> Wassalam,
> Kid.
>
> 2012/11/14 <the_x_mikey@
>
>> **
>>
>>
>> ** Luar biasa mr kid, udah browse google dr pagi akhirnya nemu nya
>> disini. Thanks
>> ------------
>> *From: * "Mr. Kid" <mr.nmkid@gmail.
>> *Sender: * belajar-excel@
>> *Date: *Wed, 14 Nov 2012 16:55:46 +0700
>> *To: *<belajar-excel@
>> *ReplyTo: * belajar-excel@
>> *Subject: *Re: [belajar-excel] Select image didalam sebuah cell
>>
>>
>>
>> Coba dengan prosedur berikut :
>>
>> public sub SelectShapeAh(
>> dim shp as shape
>> dim sRngAddr as string 'var ini bisa jadi input parameter agar
>> lebih luwes
>>
>> srngaddr = "$D$2"
>> sheet1.activate
>> for each shp in sheet1.shapes
>> if shp.topleftcell.
>> shp.select
>> endif
>> next shp
>> end sub
>>
>> Wassalam,
>> Kid.
>>
>> 2012/11/14 <the_x_mikey@
>>
>>> **
>>>
>>>
>>> Hi all,
>>>
>>> Saya sedang membuat form dimana user akan menginput sebuah image ke
>>> dalam suatu cell.
>>> Let's say semua image tersebut ditempatkan di sheet 1 row 2, bagaimana
>>> jika ingin men-select image yang ada di cell D2 saja?
>>>
>>> _
>>>
>>>
>>
>
>
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