Messages In This Digest (13 Messages)

1a.: Bls: [belajar-excel] [Invers] Sin Cos Tan dalam excel From: maman hermansyah
1b.: Re: Bls: [belajar-excel] [Invers] Sin Cos Tan dalam excel From: M. Ferdiansyah

2a.: Re: Form Input dengan syarat-syarat (syarat di tabel dan di form) From: Reza 2002
2b.: Re: Form Input dengan syarat-syarat (syarat di tabel dan di form) From: Mr. Kid

3a.: Error : TypeMismatch From: Kurei recca
3b.: Re: Error : TypeMismatch From: STDEV(i)
3c.: Re: Error : TypeMismatch From: Mr. Kid
3d.: Re: Error : TypeMismatch + print From: yusajing_ehm@yahoo.com
3e.: Re: Error : TypeMismatch + print From: yusajing_ehm@yahoo.com

4a.: Re: Belajar Data Tanggal From: STDEV(i)

5a.: bljr From: Herman Joko Mursandi
5b.: Re: bljr From: Sofyan Efendi

6a.: Help From: Johari Rais

View All Topics | Create New Topic

Messages

1a.: Bls: [belajar-excel] [Invers] Sin Cos Tan dalam excel

Posted by: "maman hermansyah" hermansyah_maman@yahoo.com hermansyah_maman

Wed May 18, 2011 1:41 am (PDT)

dengan memakai fungsi DEGREES(ASIN(0.5)) pa..apabila ingin di balikin lagi ke
satuan derajatnya

________________________________
Dari: M. Ferdiansyah <muh_ferdy@pusri.co.id>
Kepada: belajar-excel@yahoogroups.com
Terkirim: Rab, 18 Mei, 2011 14:44:48
Judul: [belajar-excel] [Invers] Sin Cos Tan dalam excel

Terimakasih untuk Bpk.Maman & Bpk.Zainul atas jawabannya..

Karena saya tidak pernah menggunakan satuan sudut dalam excel jadi saya
tidak begitu mengerti..

Tetapi bagaimana dengan Invers Sin ?
Misal :
=Sin(Radians(30)) = 0.5
0.5 = Sin brp ?

Mohon bantuannya..

regard,
Ferdy

> Secara default, satuan sudut dalam excel adalah radian.
>
> Agar hasilnya sama dengan calculator yang bersatuan derajat, sudut nya
> harus
> diconvert menjadi derajat.
>
>
>
> Missal [B5] adalah sudut dalam satuan derajat, Maka untuk mencari sin,
>
> =SIN(RADIANS(B5))=0.5
>
>
>
> Jika berkenan mampir, saya membuat catatan sederhana tentang konversi
> sudut
> di
>
> http://cadex.wordpress.com/2010/02/27/xls-svy-02-catatan-rumus-excel-untuk-j
> uru-ukur-bagian-1/
>
>
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
> On Behalf Of M. Ferdiansyah
> Sent: Wednesday, May 18, 2011 10:09 AM
> To: belajar-excel@yahoogroups.com
> Subject: [belajar-excel] Sin Cos Tan dalam excel
>
>
>
>
>
> Selamat pagi rekan-rekan b-excel,
>
> Langsung aja ke sumber masalahnya ya..
> Saya ada kendala dalam perumusan dengan menggunakan rumus "Sin Cos Tan"..
> Kenapa hasil dari excel dengan kalkulator / tabel derajat beda ya??
>
> Mohon tanggapannya..
>
> Sekian dan terimakasih..
> regard,
>
> Ferdy
>
> ____________ _________ _________ _________ _________ _________ _________
> Notice : This e-mail (and any attachment) is strictly confidential and
> is intended only for the addressee(s)above. Is strictly prohibited to
> forward, print, copy, or otherwise reproduce this message that would
> allow it to be viewed by any individual not originally listed as
> a recipient(s). If you have received this e-mail in error, please
> immediately notify the sender and delete this message. The opinions
> expressed in this e-mail (and any attachment) are those of the individual
> sender and may not necessarily reflect the views of PT Pusri.
> ____________ _________ _________ _________ _________ _________ _________
>
>
>
>

____________ _________ _________ _________ _________ _________ _________
Notice : This e-mail (and any attachment) is strictly confidential and
is intended only for the addressee(s)above. Is strictly prohibited to
forward, print, copy, or otherwise reproduce this message that would
allow it to be viewed by any individual not originally listed as
a recipient(s). If you have received this e-mail in error, please
immediately notify the sender and delete this message. The opinions
expressed in this e-mail (and any attachment) are those of the individual
sender and may not necessarily reflect the views of PT Pusri.
____________ _________ _________ _________ _________ _________ _________

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
1b.: Re: Bls: [belajar-excel] [Invers] Sin Cos Tan dalam excel

Posted by: "M. Ferdiansyah" muh_ferdy@pusri.co.id muh_f3rdi4n5yah

Thu May 19, 2011 12:34 am (PDT)

Terimakasih pak Maman atas solusinya..

Sangat membantu sekali..

> dengan memakai fungsi DEGREES(ASIN(0.5)) pa..apabila ingin di balikin lagi
> ke
> satuan derajatnya
>
>
>
>
>
> ________________________________
> Dari: M. Ferdiansyah <muh_ferdy@pusri.co.id>
> Kepada: belajar-excel@yahoogroups.com
> Terkirim: Rab, 18 Mei, 2011 14:44:48
> Judul: [belajar-excel] [Invers] Sin Cos Tan dalam excel
>
>
> Terimakasih untuk Bpk.Maman & Bpk.Zainul atas jawabannya..
>
> Karena saya tidak pernah menggunakan satuan sudut dalam excel jadi saya
> tidak begitu mengerti..
>
> Tetapi bagaimana dengan Invers Sin ?
> Misal :
> =Sin(Radians(30)) = 0.5
> 0.5 = Sin brp ?
>
> Mohon bantuannya..
>
> regard,
> Ferdy
>
>> Secara default, satuan sudut dalam excel adalah radian.
>>
>> Agar hasilnya sama dengan calculator yang bersatuan derajat, sudut nya
>> harus
>> diconvert menjadi derajat.
>>
>>
>>
>> Missal [B5] adalah sudut dalam satuan derajat, Maka untuk mencari sin,
>>
>> =SIN(RADIANS(B5))=0.5
>>
>>
>>
>> Jika berkenan mampir, saya membuat catatan sederhana tentang konversi
>> sudut
>> di
>>
>> http://cadex.wordpress.com/2010/02/27/xls-svy-02-catatan-rumus-excel-untuk-j
>> uru-ukur-bagian-1/
>>
>>
>>
>> From: belajar-excel@yahoogroups.com
>> [mailto:belajar-excel@yahoogroups.com]
>> On Behalf Of M. Ferdiansyah
>> Sent: Wednesday, May 18, 2011 10:09 AM
>> To: belajar-excel@yahoogroups.com
>> Subject: [belajar-excel] Sin Cos Tan dalam excel
>>
>>
>>
>>
>>
>> Selamat pagi rekan-rekan b-excel,
>>
>> Langsung aja ke sumber masalahnya ya..
>> Saya ada kendala dalam perumusan dengan menggunakan rumus "Sin Cos
>> Tan"..
>> Kenapa hasil dari excel dengan kalkulator / tabel derajat beda ya??
>>
>> Mohon tanggapannya..
>>
>> Sekian dan terimakasih..
>> regard,
>>
>> Ferdy
>>
>> ____________ _________ _________ _________ _________ _________ _________
>> Notice : This e-mail (and any attachment) is strictly confidential and
>> is intended only for the addressee(s)above. Is strictly prohibited to
>> forward, print, copy, or otherwise reproduce this message that would
>> allow it to be viewed by any individual not originally listed as
>> a recipient(s). If you have received this e-mail in error, please
>> immediately notify the sender and delete this message. The opinions
>> expressed in this e-mail (and any attachment) are those of the
>> individual
>> sender and may not necessarily reflect the views of PT Pusri.
>> ____________ _________ _________ _________ _________ _________ _________
>>
>>
>>
>>
>
> ____________ _________ _________ _________ _________ _________ _________
> Notice : This e-mail (and any attachment) is strictly confidential and
> is intended only for the addressee(s)above. Is strictly prohibited to
> forward, print, copy, or otherwise reproduce this message that would
> allow it to be viewed by any individual not originally listed as
> a recipient(s). If you have received this e-mail in error, please
> immediately notify the sender and delete this message. The opinions
> expressed in this e-mail (and any attachment) are those of the individual
> sender and may not necessarily reflect the views of PT Pusri.
> ____________ _________ _________ _________ _________ _________ _________
>
>
>

____________ _________ _________ _________ _________ _________ _________
Notice : This e-mail (and any attachment) is strictly confidential and
is intended only for the addressee(s)above. Is strictly prohibited to
forward, print, copy, or otherwise reproduce this message that would
allow it to be viewed by any individual not originally listed as
a recipient(s). If you have received this e-mail in error, please
immediately notify the sender and delete this message. The opinions
expressed in this e-mail (and any attachment) are those of the individual
sender and may not necessarily reflect the views of PT Pusri.
____________ _________ _________ _________ _________ _________ _________

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

2a.: Re: Form Input dengan syarat-syarat (syarat di tabel dan di form)

Posted by: "Reza 2002" puhaba2005@yahoo.com puhaba2005

Wed May 18, 2011 4:16 am (PDT)

Halo Mas Mr.Kid...

Setelah saya ubek-ubek file yang disaranin, saya kebingungan di formula ini nih mas:

1. cell Q9 = {MAX(IF(MID(dtTrn;4;7)=TEXT(M9;"MM/YYYY");--RIGHT(dtTrn;3)))+1}

ini kan berguna untuk menunjukkan no transaksi yg baru. Mohon dijelaskan lebih lanjut tentang formula ini mas, terutama maksud dari dtTrn didalam fungsi tersebut.

2. cell S8 = IF(Q8;PRODUCT(OFFSET(S11;1;0;Q8));0)
ini berguna untuk apa yah? Mohon penjelasannya ttg formula ini Mas..

3. Kemudian, untuk VB nya:

Set rngData = Range("s8")
If rngData.Value <> 0 Then
rngData.Offset(4, 2).CurrentRegion.Copy
shtTrn.Range("a1").Offset(lOffset).PasteSpecial xlPasteValuesAndNumberFormats

Maksud dari "rngData.Offset(4, 2).CurrentRegion.Copy" ini bagaimana? Mohon penjelasan juga...

Maaf, saya jadi banyak nanya. Malu bertanya, jadi tambah bingung...hehehe....

Makasi atas perhatiannya...

Salam

Reza

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)
2b.: Re: Form Input dengan syarat-syarat (syarat di tabel dan di form)

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

Wed May 18, 2011 5:00 am (PDT)

Halo Pak Reza,

1. betul formula itu untuk meng-create nomor transaksi baru yang tergantung
nomor maksimum untuk bulan itu
nomor transaksi dibatasi pak Franky (yang punya kasus) dengan 3 digit saja,
oleh sebab itu digunakan fungsi Right (yang hasilnya selalu string). Maka
digunakan -- untuk konversinya
nah data yang dikenai right adalah data di range dengan nama dtTrn
jadi dtTrn adalah nama range
untuk kasus ini, dtTrn berisi range hasil formula :
=OFFSET(tbl_Voucher_trn!$B$1,1,0,MAX(1,Input!$Q$6-1))

Coba lihat di ribbon Formulas -> Name Manager

Jadi dtTrn adalah semua nomor transaksi yang sudah masuk ke tabel data.

2. formula Q8 adalah formula validasi data akhir.
Setiap baris input oleh user, akan di-validasi oleh formula validasi yang
template formulanya ada di baris : 3 yang mem validasi data baris 3
Artinya validasi per baris data input diletakkan pada baris data inout
tersebut.

Template formula validasi baris input ada di baris 3 pada kolom S yang
bunyinya :
=PRODUCT(1*(LEN(U3:AA3)>0)) -> array formula
yang berarti semua data di U3:AA3 tidak ada yang blank, karena perkalian
seluruh item (product) dari kondisi bahwa [panjang isi data (Len) di range
U3:AA3 > 0] menghasilkan 1

Jika user menginput n data, maka jumlah n data yang diinout ada di cell Q8
Dengan patokan nilai itu, bisa diketahui baris-baris input yang harus di
validasi
Agar bisa langsung cek seluruh input sudah oke, maka perlu validasi total
yang diambil dari nilai-nilai validasi per baris
nah formula di s8 :
=IF(Q8,PRODUCT(OFFSET(S11,1,0,Q8)),0) ->bukan array formula
adalah hasil perkalian seluruh item (Product) seluruh nilai validasi tiap
baris input (offset S11 dengan blok range setinggi nilai Q8), dimana S
berisi formula validasi baris data.

3. VBA
'buat variabel object simpan data suatu object, yaitu variabel rngData akan
menyimpan object range s8
'object ini kan berisi hasil validasi total
Set rngData = Range("s8")

'cek dulu, hasil validasi total, kalau bukan (<>) 0 maka statusnya input
sudah valid dan layak diproses,
'jika ternyata nol, maka gak perlu diproses
If rngData.Value <> 0 Then
'sampai sini, berarti data sudah valid dan akan diproses

'prosesnya adalah meng-copy image data input ke tabel data
'image input disusun menggunakan template formula setelah kolom S.
Template formula ada di baris 3 kan ya

'berikut step copy paste nya
'lihat di worksheet, dari s8 (rngdata), lompat (offset) 4 baris plus
(kebawah karena positif) dan 2 kolom plus (kekanan karena positif)
'sampainya ada di cell : u12.
'sudah sampai dihasil offset, lakukan pengeblokan seluruh cell yang
bersinggungan (ini alasannya ada kolom kosong T dan baris kosong baris 11)
'proses pengeblokan ini dilakukan oleh CurrentRegion
'hasil ngeblok, di copy (masuk clipboard)
rngData.Offset(4, 2).CurrentRegion.Copy

'setelah di copy, akan di paste ke lokasi lain, tetapi hanya nilainya
dan format number
'oleh sebab itu diawali dengan menuju cell tujuan paste (secara
imajinasi tanpa berpindah -- excel lagi berimajinasi disini), yaitu
'di sheet yang disimpan kedalam variabel shtTrn, pada range a1 nya,
kemudian lompat sebanyak nilai variabel lOffset baris
'setelah tiba ditujuan, dilakukan paste spesial dan yang dipilih adalah
valus dan number format
'selesai membayangkan setiap step perintah, excel segera bergerak
shtTrn.Range("a1").Offset(lOffset).PasteSpecial
xlPasteValuesAndNumberFormats
.
.
else 'potongannya dilengkapi satu blok supaya gak bikin bingung
.
.
endif

4. bertanya adalah satu pijakan untuk memantapkan keimanan dengan ilmu.
Harusnya kita semakin menghargai orang-orang yang bersungguh-sungguh dalam
bertanya.
Andai ada yang belum jelas, silakan diungkapkan.

Wassalam.
Kid.

2011/5/18 Reza 2002 <puhaba2005@yahoo.com>

>
>
> Halo Mas Mr.Kid...
>
> Setelah saya ubek-ubek file yang disaranin, saya kebingungan di formula ini
> nih mas:
>
> 1. cell Q9 =
> {MAX(IF(MID(dtTrn;4;7)=TEXT(M9;"MM/YYYY");--RIGHT(dtTrn;3)))+1}
>
> ini kan berguna untuk menunjukkan no transaksi yg baru. Mohon dijelaskan
> lebih lanjut tentang formula ini mas, terutama maksud dari dtTrn didalam
> fungsi tersebut.
>
> 2. cell S8 = IF(Q8;PRODUCT(OFFSET(S11;1;0;Q8));0)
> ini berguna untuk apa yah? Mohon penjelasannya ttg formula ini Mas..
>
> 3. Kemudian, untuk VB nya:
>
> Set rngData = Range("s8")
> If rngData.Value <> 0 Then
> rngData.Offset(4, 2).CurrentRegion.Copy
> shtTrn.Range("a1").Offset(lOffset).PasteSpecial
> xlPasteValuesAndNumberFormats
>
> Maksud dari "rngData.Offset(4, 2).CurrentRegion.Copy" ini bagaimana? Mohon
> penjelasan juga...
>
> Maaf, saya jadi banyak nanya. Malu bertanya, jadi tambah
> bingung...hehehe....
>
> Makasi atas perhatiannya...
>
> Salam
>
> Reza
>
>
>

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

3a.: Error : TypeMismatch

Posted by: "Kurei recca" yusajing_ehm@yahoo.com yusajing_ehm

Wed May 18, 2011 8:28 am (PDT)

Salam Para Master Excel dan teman2 yang sedang belajar untuk dapat mengembangkan
dirinya dalam dunia excel,

saya ingin bertanya tentang masalah Type Mismatch,,
saya mempunyai coding macro sebagai berikut :

Public Sub oo()
.
.
.

ElseIf Cells(i, 1) = "Programme Name" Then

For u = 1 To 100

If Cells(i, u) = "Ins" Then

Cells(i, u).End(xlDown).End(xlDown).Offset(0,
-1).Font.ColorIndex = 2
Range(Cells(i,
u).End(xlDown).End(xlDown).End(xlDown).End(xlDown).Offset(-1, -1), Cells(i,
u).End(xlDown).End(xlDown).End(xlDown).End(xlDown).Offset(0,
-1)).Font.ColorIndex = 2
Cells(i, u).EntireColumn.Hidden = True

ElseIf Cells(i, u) = "CD" Or Cells(i, u) = "CB" Or Cells(i, u) =
"GRP" Or Cells(i, u) = "cst" Or Cells(i, u) = "max" Or Cells(i, u) = "min" Then
Cells(i, u).EntireColumn.Hidden = True

End If
Next u
.
.
.

end sub

kenapa terjadi type mismatch pada coding tersebut?? tetapi bentuk tabel yang
saya inginkan benar jika sya hentikan proses,,
error ini selalu muncul, saya bingung dimana letak kesalahannya.
Jika saya hilangkan coding diatas maka error tidak akan muncul,,
Mohon pencerahannya,,

Berikut saya lampirkan filenya.

Best Regards,
Ridwan Syarif Hidayat

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3b.: Re: Error : TypeMismatch

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Wed May 18, 2011 2:47 pm (PDT)

Jika makro tsb *bukan* buatan anda sendiri, sebetulnya akan sangat jelas
terjawab bila anda tanyakan kepada pembuatnya; yg tentu sangat mengenal
perilaku dan semua sudut yg ada dlm makro tsb.

Tetapi karena tidak ada catatan siapa pembuatnnya, maka saya anggap
makro itu buatan anda sendiri. (dan anda sudah lupa apa saja yg akan
dilakukan oleh makro tsb, sehingga ketika terjadi sesuatu anda bingung)

Mengenai munculnya error message RunTime Error '13' Type MisMatch:
*MUNGKIN* karena *Cell(i, u) *saat itu berisi *data BUKAN TYPE TEXT / String
*
makanya *ketika mau di test [ dibandingkan: apakah sama dengan text 'Ins" ]
*
VBA nya* harus* bilang kepada anda bahwa telah terjadi *type mismatch, *ketidak
samaan
dua type data yg diperbandingkan)
( Lha wong "type error" (?) kok dibandingkan dengan *type Text / String*! )

Perlu diketahui bahwa i dan u di makro anda itu adalah counter/pencacah loop
(bilangan yg selalu berubah sesuai batasan loop)
*i * oleh anda, sebagai pemogramnya, anda tentukan untuk mewakili index
baris;
dan *u* oleh anda (sebagai pemogramnya) anda jadikan index kolom,
Jadi *Cells(i, u)* bisa saja suatu saat berupa sebuah range / *cell AS17
*
(atau bahasa vba nya * Cells(17,45)*

Cobalah melihat-lihat pemandangan di cell AS17 di satu-satunya sheet pada
workbook
kiriman anda, berisi apa dan menghasilkan apa?

[image: error name.PNG]

Di komputer saya, formula di cell AS17 menghasilkan error-value #NAME
karena
workbook kiriman anda itu seharusnya tidak berdiri sendiri, melainkan harus
didampingi workbook lain yg akan dirujuk suatu range / cellsnya (links)
Malah sepertinya workbook itu berupa *add-in *

oiya, karena adanya loop * For sht = 1 To Sheets.Count*
maka makro itupun mengerjakan hal yg sama terhadap SEMUA SHEET yg ada
di dalam workbook. yg artinya antara lain, anda tidak bisa sembarangan
menambah
worksheet kalau STRUKTUR dan isinya tidak seperti yg dikehendaki oleh makro.

CMIIW

2011/5/18 Kurei recca <yusajing_ehm@yahoo.com>
>
> Salam Para Master Excel dan teman2 yang sedang belajar untuk dapat
mengembangkan
> dirinya dalam dunia excel,
>
> saya ingin bertanya tentang masalah Type Mismatch,,
> saya mempunyai coding macro sebagai berikut :
>
> Public Sub oo()
>
> If Cells(i, u) = "Ins" Then
> ' bla bla bla
> End If
>
> end sub
>
> kenapa terjadi type mismatch pada coding tersebut?? tetapi bentuk tabel
yang
> saya inginkan benar jika sya hentikan proses,,
> error ini selalu muncul, saya bingung dimana letak kesalahannya.
> Jika saya hilangkan coding diatas maka error tidak akan muncul,,
> Mohon pencerahannya,,
>
> Berikut saya lampirkan filenya.
>
> Best Regards,
> Ridwan Syarif Hidayat

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3c.: Re: Error : TypeMismatch

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

Wed May 18, 2011 3:35 pm (PDT)

Perbandingan membutuhkan kesamaan datatype, dan sudah dijelaskan mbak Siti.
Karena akan dibandingkan dengan string, coba dikonversi menjadi string lebih
dulu dengan fungsi CStr
misal : CStr(cell(bla).value) = "Ins"

Coba buat penggunaan variabel secara explicit, biar agak mudah membacanya.

Pembatasan jumlah loop sebaiknya dilakukan (biar gak jadi kebiasaan asal
hantam aja semuanya di loop).
Loop pada data yang sedikit, mungkin gak terasa, tetapi tetap ada kegiatan
mubazir yang bisa disedikitkan.

Loop ke semua sheet sudah dijelaskan oleh mbak Siti. Jika ada kriteria nama
sheet atau malah sheet tertentu saja, maka gunakanlah menjadi dasar loop.
Loop dengan for each .. next bisa digunakan untuk hal ini.

Misal :
dim shtLoop as worksheet
for each shtloop in sheets( array( "sheet1" , "sheet2" , "sheet embuh") )
'kode disini
shtloop.activate
next shtloop

atau pakai string daftar sheet
dim sSht() as string
dim vSht as variant
ssht() = split( "sheet1,sheet2,sheet embuh", "," ) '-> syaratnya, sheet
harus bener2 ada, kalau tidak, pasang error trap saat akan pakai sheet
tersebut
for each vsht in ssht
sheets(vsht).activate
next vsht

atau nama sheet punya sesuatu tanda, misal sheet punya teks 'tgl'
dim lSht as long
for lsht=1 to sheets.count
if instr(sheets(lsht).name, "tgl")<>0 then
'kode disini
endif
next lsht

Pada loop object yang lain, sebisa mungkin dibatasi juga, misal pada range
yang ada datanya saja dengan bantuan object usedrange dan sebagainya.

Multi kondisi, bisa memanfaatkan select case agar tidak capek tulis OR bla,
terutama untuk proses yang sama.
Untuk kriteria yang pasti tunggal dan gak mesti berasal dari nilai yang
sama, misal potongan teks yang menjadi syarat, yang pengambilannya gak pasti
dari satu tempat yang sama untuk semua kondisi, if elseif else endif bisa
digunakan.

Regard,
Kid.
2011/5/19 STDEV(i) <setiyowati.devi@gmail.com>

>
>
> Jika makro tsb *bukan* buatan anda sendiri, sebetulnya akan sangat jelas
> terjawab bila anda tanyakan kepada pembuatnya; yg tentu sangat mengenal
> perilaku dan semua sudut yg ada dlm makro tsb.
>
> Tetapi karena tidak ada catatan siapa pembuatnnya, maka saya anggap
> makro itu buatan anda sendiri. (dan anda sudah lupa apa saja yg akan
> dilakukan oleh makro tsb, sehingga ketika terjadi sesuatu anda bingung)
>
> Mengenai munculnya error message RunTime Error '13' Type MisMatch:
> *MUNGKIN* karena *Cell(i, u) *saat itu berisi *data BUKAN TYPE TEXT /
> String*
> makanya *ketika mau di test [ dibandingkan: apakah sama dengan text 'Ins"
> ]*
> VBA nya* harus* bilang kepada anda bahwa telah terjadi *type mismatch, *ketidak
> samaan
> dua type data yg diperbandingkan)
> ( Lha wong "type error" (?) kok dibandingkan dengan *type Text / String*!
> )
>
> Perlu diketahui bahwa i dan u di makro anda itu adalah counter/pencacah
> loop
> (bilangan yg selalu berubah sesuai batasan loop)
> *i * oleh anda, sebagai pemogramnya, anda tentukan untuk mewakili index
> baris;
> dan *u* oleh anda (sebagai pemogramnya) anda jadikan index kolom,
> Jadi *Cells(i, u)* bisa saja suatu saat berupa sebuah range / *cell AS17
> *
> (atau bahasa vba nya * Cells(17,45)*
>
> Cobalah melihat-lihat pemandangan di cell AS17 di satu-satunya sheet pada
> workbook
> kiriman anda, berisi apa dan menghasilkan apa?
>
> [image: error name.PNG]
>
> Di komputer saya, formula di cell AS17 menghasilkan error-value #NAME
> karena
> workbook kiriman anda itu seharusnya tidak berdiri sendiri, melainkan
> harus
> didampingi workbook lain yg akan dirujuk suatu range / cellsnya (links)
> Malah sepertinya workbook itu berupa *add-in *
>
> oiya, karena adanya loop * For sht = 1 To Sheets.Count*
> maka makro itupun mengerjakan hal yg sama terhadap SEMUA SHEET yg ada
> di dalam workbook. yg artinya antara lain, anda tidak bisa sembarangan
> menambah
> worksheet kalau STRUKTUR dan isinya tidak seperti yg dikehendaki oleh
> makro.
>
> CMIIW
>
>
>
>
> 2011/5/18 Kurei recca <yusajing_ehm@yahoo.com>
> >
> > Salam Para Master Excel dan teman2 yang sedang belajar untuk dapat
> mengembangkan
> > dirinya dalam dunia excel,
> >
> > saya ingin bertanya tentang masalah Type Mismatch,,
> > saya mempunyai coding macro sebagai berikut :
> >
> > Public Sub oo()
> >
>
> > If Cells(i, u) = "Ins" Then
> > ' bla bla bla
> > End If
> >
> > end sub
> >
> > kenapa terjadi type mismatch pada coding tersebut?? tetapi bentuk tabel
> yang
> > saya inginkan benar jika sya hentikan proses,,
> > error ini selalu muncul, saya bingung dimana letak kesalahannya.
> > Jika saya hilangkan coding diatas maka error tidak akan muncul,,
> > Mohon pencerahannya,,
> >
> > Berikut saya lampirkan filenya.
> >
> > Best Regards,
> > Ridwan Syarif Hidayat
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3d.: Re: Error : TypeMismatch + print

Posted by: "yusajing_ehm@yahoo.com" yusajing_ehm@yahoo.com yusajing_ehm

Wed May 18, 2011 3:53 pm (PDT)

Terimakasih atas penjelasannya,,
Ya saya sudah mengerti solusinya dan sudah saya perbaiki dan sekarang sudah bisa jalan.

Saya ingin melanjutkan pertanyaan, seperti yg terlampir bahwa pada workbook tsb, macro akan membuat tabel yg saya inginkan, akan tetapi utk pengaturan print agar pas harus saya lakukan sendiri.

Adakah perintah atau coding agar lebar tabel tersebut sebesar lebar kertas (landpage) dengan fit 65% dan kertas legal

Cara manual yg saya lakukan biasanya melebar lebarkan kolom sampai menyentuh garis pembatas print.

Mohon pencerahannya,

Best regards,

Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT

-----Original Message-----
From: "STDEV(i)" <setiyowati.devi@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 19 May 2011 04:47:12
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Error : TypeMismatch

Jika makro tsb *bukan* buatan anda sendiri, sebetulnya akan sangat jelas
terjawab bila anda tanyakan kepada pembuatnya; yg tentu sangat mengenal
perilaku dan semua sudut yg ada dlm makro tsb.

Tetapi karena tidak ada catatan siapa pembuatnnya, maka saya anggap
makro itu buatan anda sendiri. (dan anda sudah lupa apa saja yg akan
dilakukan oleh makro tsb, sehingga ketika terjadi sesuatu anda bingung)

Mengenai munculnya error message RunTime Error '13' Type MisMatch:
*MUNGKIN* karena *Cell(i, u) *saat itu berisi *data BUKAN TYPE TEXT / String
*
makanya *ketika mau di test [ dibandingkan: apakah sama dengan text 'Ins" ]
*
VBA nya* harus* bilang kepada anda bahwa telah terjadi *type mismatch, *ketidak
samaan
dua type data yg diperbandingkan)
( Lha wong "type error" (?) kok dibandingkan dengan *type Text / String*! )

Perlu diketahui bahwa i dan u di makro anda itu adalah counter/pencacah loop
(bilangan yg selalu berubah sesuai batasan loop)
*i * oleh anda, sebagai pemogramnya, anda tentukan untuk mewakili index
baris;
dan *u* oleh anda (sebagai pemogramnya) anda jadikan index kolom,
Jadi *Cells(i, u)* bisa saja suatu saat berupa sebuah range / *cell AS17
*
(atau bahasa vba nya * Cells(17,45)*

Cobalah melihat-lihat pemandangan di cell AS17 di satu-satunya sheet pada
workbook
kiriman anda, berisi apa dan menghasilkan apa?

[image: error name.PNG]

Di komputer saya, formula di cell AS17 menghasilkan error-value #NAME
karena
workbook kiriman anda itu seharusnya tidak berdiri sendiri, melainkan harus
didampingi workbook lain yg akan dirujuk suatu range / cellsnya (links)
Malah sepertinya workbook itu berupa *add-in *

oiya, karena adanya loop * For sht = 1 To Sheets.Count*
maka makro itupun mengerjakan hal yg sama terhadap SEMUA SHEET yg ada
di dalam workbook. yg artinya antara lain, anda tidak bisa sembarangan
menambah
worksheet kalau STRUKTUR dan isinya tidak seperti yg dikehendaki oleh makro.

CMIIW

2011/5/18 Kurei recca <yusajing_ehm@yahoo.com>
>
> Salam Para Master Excel dan teman2 yang sedang belajar untuk dapat
mengembangkan
> dirinya dalam dunia excel,
>
> saya ingin bertanya tentang masalah Type Mismatch,,
> saya mempunyai coding macro sebagai berikut :
>
> Public Sub oo()
>
> If Cells(i, u) = "Ins" Then
> ' bla bla bla
> End If
>
> end sub
>
> kenapa terjadi type mismatch pada coding tersebut?? tetapi bentuk tabel
yang
> saya inginkan benar jika sya hentikan proses,,
> error ini selalu muncul, saya bingung dimana letak kesalahannya.
> Jika saya hilangkan coding diatas maka error tidak akan muncul,,
> Mohon pencerahannya,,
>
> Berikut saya lampirkan filenya.
>
> Best Regards,
> Ridwan Syarif Hidayat

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3e.: Re: Error : TypeMismatch + print

Posted by: "yusajing_ehm@yahoo.com" yusajing_ehm@yahoo.com yusajing_ehm

Wed May 18, 2011 4:05 pm (PDT)

Terimakasih atas penjelasannya,,
Ya saya sudah mengerti solusinya dan sudah saya perbaiki dan sekarang sudah bisa jalan.

Saya ingin melanjutkan pertanyaan, seperti yg terlampir bahwa pada workbook tsb, macro akan membuat tabel yg saya inginkan, akan tetapi utk pengaturan print agar pas harus saya lakukan sendiri.

Adakah perintah atau coding agar lebar tabel tersebut sebesar lebar kertas (landpage) dengan fit 65% dan kertas legal

Cara manual yg saya lakukan biasanya melebar lebarkan kolom sampai menyentuh garis pembatas print.

Mohon pencerahannya,

Best regards,

Sent from my BlackBerry�
powered by Sinyal Kuat INDOSAT

-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 19 May 2011 05:34:33
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Error : TypeMismatch

Perbandingan membutuhkan kesamaan datatype, dan sudah dijelaskan mbak Siti.
Karena akan dibandingkan dengan string, coba dikonversi menjadi string lebih
dulu dengan fungsi CStr
misal : CStr(cell(bla).value) = "Ins"

Coba buat penggunaan variabel secara explicit, biar agak mudah membacanya.

Pembatasan jumlah loop sebaiknya dilakukan (biar gak jadi kebiasaan asal
hantam aja semuanya di loop).
Loop pada data yang sedikit, mungkin gak terasa, tetapi tetap ada kegiatan
mubazir yang bisa disedikitkan.

Loop ke semua sheet sudah dijelaskan oleh mbak Siti. Jika ada kriteria nama
sheet atau malah sheet tertentu saja, maka gunakanlah menjadi dasar loop.
Loop dengan for each .. next bisa digunakan untuk hal ini.

Misal :
dim shtLoop as worksheet
for each shtloop in sheets( array( "sheet1" , "sheet2" , "sheet embuh") )
'kode disini
shtloop.activate
next shtloop

atau pakai string daftar sheet
dim sSht() as string
dim vSht as variant
ssht() = split( "sheet1,sheet2,sheet embuh", "," ) '-> syaratnya, sheet
harus bener2 ada, kalau tidak, pasang error trap saat akan pakai sheet
tersebut
for each vsht in ssht
sheets(vsht).activate
next vsht

atau nama sheet punya sesuatu tanda, misal sheet punya teks 'tgl'
dim lSht as long
for lsht=1 to sheets.count
if instr(sheets(lsht).name, "tgl")<>0 then
'kode disini
endif
next lsht

Pada loop object yang lain, sebisa mungkin dibatasi juga, misal pada range
yang ada datanya saja dengan bantuan object usedrange dan sebagainya.

Multi kondisi, bisa memanfaatkan select case agar tidak capek tulis OR bla,
terutama untuk proses yang sama.
Untuk kriteria yang pasti tunggal dan gak mesti berasal dari nilai yang
sama, misal potongan teks yang menjadi syarat, yang pengambilannya gak pasti
dari satu tempat yang sama untuk semua kondisi, if elseif else endif bisa
digunakan.

Regard,
Kid.
2011/5/19 STDEV(i) <setiyowati.devi@gmail.com>

>
>
> Jika makro tsb *bukan* buatan anda sendiri, sebetulnya akan sangat jelas
> terjawab bila anda tanyakan kepada pembuatnya; yg tentu sangat mengenal
> perilaku dan semua sudut yg ada dlm makro tsb.
>
> Tetapi karena tidak ada catatan siapa pembuatnnya, maka saya anggap
> makro itu buatan anda sendiri. (dan anda sudah lupa apa saja yg akan
> dilakukan oleh makro tsb, sehingga ketika terjadi sesuatu anda bingung)
>
> Mengenai munculnya error message RunTime Error '13' Type MisMatch:
> *MUNGKIN* karena *Cell(i, u) *saat itu berisi *data BUKAN TYPE TEXT /
> String*
> makanya *ketika mau di test [ dibandingkan: apakah sama dengan text 'Ins"
> ]*
> VBA nya* harus* bilang kepada anda bahwa telah terjadi *type mismatch, *ketidak
> samaan
> dua type data yg diperbandingkan)
> ( Lha wong "type error" (?) kok dibandingkan dengan *type Text / String*!
> )
>
> Perlu diketahui bahwa i dan u di makro anda itu adalah counter/pencacah
> loop
> (bilangan yg selalu berubah sesuai batasan loop)
> *i * oleh anda, sebagai pemogramnya, anda tentukan untuk mewakili index
> baris;
> dan *u* oleh anda (sebagai pemogramnya) anda jadikan index kolom,
> Jadi *Cells(i, u)* bisa saja suatu saat berupa sebuah range / *cell AS17
> *
> (atau bahasa vba nya * Cells(17,45)*
>
> Cobalah melihat-lihat pemandangan di cell AS17 di satu-satunya sheet pada
> workbook
> kiriman anda, berisi apa dan menghasilkan apa?
>
> [image: error name.PNG]
>
> Di komputer saya, formula di cell AS17 menghasilkan error-value #NAME
> karena
> workbook kiriman anda itu seharusnya tidak berdiri sendiri, melainkan
> harus
> didampingi workbook lain yg akan dirujuk suatu range / cellsnya (links)
> Malah sepertinya workbook itu berupa *add-in *
>
> oiya, karena adanya loop * For sht = 1 To Sheets.Count*
> maka makro itupun mengerjakan hal yg sama terhadap SEMUA SHEET yg ada
> di dalam workbook. yg artinya antara lain, anda tidak bisa sembarangan
> menambah
> worksheet kalau STRUKTUR dan isinya tidak seperti yg dikehendaki oleh
> makro.
>
> CMIIW
>
>
>
>
> 2011/5/18 Kurei recca <yusajing_ehm@yahoo.com>
> >
> > Salam Para Master Excel dan teman2 yang sedang belajar untuk dapat
> mengembangkan
> > dirinya dalam dunia excel,
> >
> > saya ingin bertanya tentang masalah Type Mismatch,,
> > saya mempunyai coding macro sebagai berikut :
> >
> > Public Sub oo()
> >
>
> > If Cells(i, u) = "Ins" Then
> > ' bla bla bla
> > End If
> >
> > end sub
> >
> > kenapa terjadi type mismatch pada coding tersebut?? tetapi bentuk tabel
> yang
> > saya inginkan benar jika sya hentikan proses,,
> > error ini selalu muncul, saya bingung dimana letak kesalahannya.
> > Jika saya hilangkan coding diatas maka error tidak akan muncul,,
> > Mohon pencerahannya,,
> >
> > Berikut saya lampirkan filenya.
> >
> > Best Regards,
> > Ridwan Syarif Hidayat
>
>
>

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

4a.: Re: Belajar Data Tanggal

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Wed May 18, 2011 3:03 pm (PDT)

ysh pak anton

baik pak,
mewakili mbak haps, berita terakhri dari ybs bahwa si 'anakbuah nyelelek'
itu
sedang dikursusi khusus memasukkan data tanggal yg valid maupun data yg
belum menjadi data tanggal tapi mudah diproses menjadi data tanggal antara
lain
format YYYMMDD

tararengkyu...

2011/5/16 summonery <summonery@yahoo.com>

>
>
> Cuma saran saja ini, yaitu dengan menggunakan format YMD, kedepannya akan
> lebih memudahkan,
> misal A1:20010201
> formula: =TEXT(A6,"0-00-00")+0 (jadi lebih pendek)
>
> >semoga bermanfaat
> --- In belajar-excel@yahoogroups.com, "STDEV(i)" <setiyowati.devi@...>
> wrote:
> >
> > *Belajar Tanggal / sebuah Chalenge*
>
> > Dear Be Excelers....
> >
> > Mbak Haps punya anak buah di poliklinik-nya di kaki gunung kapur jauh
> dari
> > kota kenangan.
> > Setiap akhir pekan *si anak buah *kirim laporan pakai sheet excel ;
> tetapi
> > pada kolom tanggal selalu diisi secara asal asalan,
> > Memang anaknya susah mengikuti aturan, (atau memang belum akrab dengan
> > excel)
> >
> > Walaupun sudah diajar"in" cara memasukkan* data tanggal* tapi dasar anak
> > 'nyelelek' dia lebih senang *pakai caranya sendiri*
> > Tanggal dimasukkan sebagai *bilangan biasa *ada yg* 5 digit *ada* yg 6
> digit
>

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

5a.: bljr

Posted by: "Herman Joko Mursandi" hermanjokomursandi@yahoo.co.id hermanjokomursandi

Thu May 19, 2011 12:40 am (PDT)

selamat siang master excel,,,,

saya ingin bertanya n sambil belajar2 mengenai excel...

setiap mengetik "se.." (semisal menulis Title orang) terus kita enter / spasi selalu muncul tulisan "Selama",, bukan tulisan yang kita inginkan.. cara mengembalikan settingan seperti semula bagaimana..?
mohon bantuannya..

terima kasih banyak atas bantuannya....

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
5b.: Re: bljr

Posted by: "Sofyan Efendi" sofyanefendi@gmail.com accesswebs

Thu May 19, 2011 12:54 am (PDT)

Dear Mas Herman, coba cek di Excel Option, di Proofing -> Autocorrect Option. Di kolom replace cari kata "se". Klik kata tersebut di kolom bawahnya, lalu delete. Klik Ok.

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com/
----- Original Message -----
From: Herman Joko Mursandi
To: belajar-excel@yahoogroups.com
Sent: Thursday, May 19, 2011 2:27 PM
Subject: [belajar-excel] bljr

selamat siang master excel,,,,

saya ingin bertanya n sambil belajar2 mengenai excel...

setiap mengetik "se.." (semisal menulis Title orang) terus kita enter / spasi selalu muncul tulisan "Selama",, bukan tulisan yang kita inginkan.. cara mengembalikan settingan seperti semula bagaimana..?
mohon bantuannya..

terima kasih banyak atas bantuannya....

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

6a.: Help

Posted by: "Johari Rais" zooe_13@yahoo.com

Thu May 19, 2011 12:40 am (PDT)

Rekan2 belajar-excel yang terhormat

Mohon bantuannya,karna saya msh dalam tahap belajar excel

Pertanyaan nya, bagaimana kah cara mengurutkan data dalam excel (data terlampir)
karena selama ini saya mengerjakan nya masih dengan cara manual (copy,insert,paste)
supaya data/no tersebut dapat terurut dengan benar

apakah terdapat cara/formula dalam mengurutkan data tersebut dengan cepat ???

atas bantuannya di ucapkan terima kasih

salam,

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

Create New Topic | Visit Your Group on the Web

Messages

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

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

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

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

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

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

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

Kamis, 19 Mei 2011

Messages In This Digest (13 Messages)

Messages

Posted by: "maman hermansyah" hermansyah_maman@yahoo.com hermansyah_maman

Wed May 18, 2011 1:41 am (PDT)

Posted by: "M. Ferdiansyah" muh_ferdy@pusri.co.id muh_f3rdi4n5yah

Thu May 19, 2011 12:34 am (PDT)

Posted by: "Reza 2002" puhaba2005@yahoo.com puhaba2005

Wed May 18, 2011 4:16 am (PDT)

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

Wed May 18, 2011 5:00 am (PDT)

Posted by: "Kurei recca" yusajing_ehm@yahoo.com yusajing_ehm

Wed May 18, 2011 8:28 am (PDT)

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Wed May 18, 2011 2:47 pm (PDT)

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

Wed May 18, 2011 3:35 pm (PDT)

Posted by: "yusajing_ehm@yahoo.com" yusajing_ehm@yahoo.com yusajing_ehm

Wed May 18, 2011 3:53 pm (PDT)

Posted by: "yusajing_ehm@yahoo.com" yusajing_ehm@yahoo.com yusajing_ehm

Wed May 18, 2011 4:05 pm (PDT)

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Wed May 18, 2011 3:03 pm (PDT)

Posted by: "Herman Joko Mursandi" hermanjokomursandi@yahoo.co.id hermanjokomursandi

Thu May 19, 2011 12:40 am (PDT)

Posted by: "Sofyan Efendi" sofyanefendi@gmail.com accesswebs

Thu May 19, 2011 12:54 am (PDT)

Posted by: "Johari Rais" zooe_13@yahoo.com

Thu May 19, 2011 12:40 am (PDT)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me