Jumat, 25 November 2011

[belajar-excel] Digest Number 1412

Messages In This Digest (24 Messages)

Messages

1a.

Re: Fungsi LARGE dengan Data Kembar

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

Thu Nov 24, 2011 6:29 am (PST)



Coba array formula untuk ambil data selain Kls : (misal pada kolom D)
=IF(N(C3),INDEX('SUKSESI JAB'!$T$3:$T$195,*SMALL(IF('SUKSESI
JAB'!$X$3:$X$276="MD",ROW('SUKSESI JAB'!$X$3:$X$276)-ROW('SUKSESI
JAB'!$X$2)),COUNTIF($C$2:$C3,$C3))*),"")

Yang biru, pengganti penggunaan Match.

Wassalamualaikum Wr. Wb.,
Kid.

2011/11/24 afif farihin <farick03@yahoo.com>

> **
>
>
> Assm, Expert Excel [image: :) happy]
>
> saya nubie di grup ini, setelah baca2 akhirnya memberanikan diri utk
> bergabung dan diskusi.
> abis explore mail archive, tempat belajar excel, saya ada persoalan yg
> banyak serupa dgn tmn2 di grup, tp sy kondisikan di file saya tetep gk bs
> ya..
>
> Nah, saya lampirkan file yg beberapa hari ini berputar2 otak utk mencari
> solusi..
> Begini maksudnya, di sheet "talent pool" adalah hasil akhir utk
> mengurutkan nilai orang2 dr yg tertinggi sampai yg terendah (saya
> menggunakan fungsi large), ohya referensi data dari sheet "suksesi jab",
> nah masalahnya ketika ada nilai yg kembar, maka nama orangnya pun ikutan
> kembar sesuai dgn nama yg paling atas kembarnya, puyeng saya ini, hehehhe...
>
> gimana caranya ya biar di sheet "talent pool" tersebut bs otomatis nilai
> berurut dr yg tertinggi termasuk nama2 pemilik nilai tsb..
> Mohon pencerahannya..
>
> Wassm,
>
>
> Farick
>
> ------------------------------
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1b.

[Bls] Re: Fungsi LARGE dengan Data Kembar

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

Thu Nov 24, 2011 12:18 pm (PST)



Nite Mr. Kid,
trims atas bantuannya, arahan Mr sukses array formulanya di kolom D :
1 50,3 NB
2 50,3 HC

tetapi sy coba copy paste di kolom G : (gagal)
1 200,7 RR
2 200,7 CC
3 100,0 RR --> harusnya EC

dan, dikolom J : (gagal juga)
1 300,0 CC --> harusnya ZZ, klo manual
2 150,3 CC --> harusnya MM
3 100,2 CC --> Udh cucok)
4 100,2 MM --> harusnya UU
5 70,0 CC --> harusnya ZB

maap, udah larut ini saya kirim imelnya, lg utak atik formula dimaksud blm nyantol2 :(
Mohon dibantu lg ya rekans yg budiman..

/Farick

--- In belajar-excel@yahoogroups.com, "Kid Mr." <mr.nmkid@...> wrote:
>
> Coba array formula untuk ambil data selain Kls : (misal pada kolom D)
> =IF(N(C3),INDEX('SUKSESI JAB'!$T$3:$T$195,*SMALL(IF('SUKSESI
> JAB'!$X$3:$X$276="MD",ROW('SUKSESI JAB'!$X$3:$X$276)-ROW('SUKSESI
> JAB'!$X$2)),COUNTIF($C$2:$C3,$C3))*),"")
>
> Yang biru, pengganti penggunaan Match.
>
> Wassalamualaikum Wr. Wb.,
> Kid.

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

Re: [Bls] Re: Fungsi LARGE dengan Data Kembar

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

Thu Nov 24, 2011 2:17 pm (PST)



hehehe.... kondisi berdasar nilai kls nya belum masuk ya
Coba yang array formula berikut :
=IF(N(C3),INDEX('SUKSESI JAB'!$T$3:$T$195,SMALL(IF(('SUKSESI
JAB'!$X$3:$X$276="MD")**('SUKSESI JAB'!$Y$3:$Y$276=C3)*,ROW('SUKSESI
JAB'!$X$3:$X$276)-ROW('SUKSESI JAB'!$X$2)),COUNTIF($C$2:$C3,$C3))),"")

Yang biru adalah kondisi berdasar nilainya kls yang akan diambil.
Kid.

2011/11/24 farick03 <farick03@yahoo.com>

> **
>
>
> Nite Mr. Kid,
> trims atas bantuannya, arahan Mr sukses array formulanya di kolom D :
> 1 50,3 NB
> 2 50,3 HC
>
> tetapi sy coba copy paste di kolom G : (gagal)
> 1 200,7 RR
> 2 200,7 CC
> 3 100,0 RR --> harusnya EC
>
> dan, dikolom J : (gagal juga)
> 1 300,0 CC --> harusnya ZZ, klo manual
> 2 150,3 CC --> harusnya MM
> 3 100,2 CC --> Udh cucok)
> 4 100,2 MM --> harusnya UU
> 5 70,0 CC --> harusnya ZB
>
> maap, udah larut ini saya kirim imelnya, lg utak atik formula dimaksud blm
> nyantol2 :(
> Mohon dibantu lg ya rekans yg budiman..
>
> /Farick
>
>
> --- In belajar-excel@yahoogroups.com, "Kid Mr." <mr.nmkid@...> wrote:
> >
> > Coba array formula untuk ambil data selain Kls : (misal pada kolom D)
> > =IF(N(C3),INDEX('SUKSESI JAB'!$T$3:$T$195,*SMALL(IF('SUKSESI
>
> > JAB'!$X$3:$X$276="MD",ROW('SUKSESI JAB'!$X$3:$X$276)-ROW('SUKSESI
> > JAB'!$X$2)),COUNTIF($C$2:$C3,$C3))*),"")
>
> >
> > Yang biru, pengganti penggunaan Match.
> >
> > Wassalamualaikum Wr. Wb.,
> > Kid.
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
2a.

Re: men-tidak jadi milih cell

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

Thu Nov 24, 2011 6:37 am (PST)



Ada yang kurang.
bagian :
'set range di baris cell aktif, pada kolom selain kolom
cell aktif
lCols = .EntireRow.Cells.Count
Select Case .Column
Case 1
Set rngCols = Range(Cells(.Row, 2), Cells(.Row, lCols))
*Case 2*
*Set rngCols = Range(Cells(.Row, 2), Cells(.Row, lCols))
*
Case Else
Set rngCols = Union(Range(Cells(.Row, 1), Cells(.Row,
ActiveCell.Column - 1)), _

>
> Range(Cells(.Row, ActiveCell.Column + 1), Cells(.Row, lCols)))
> End Select

Yang biru diubah menjadi :
*Case lCols
Set rngCols = Range(Cells(.Row, 1), Cells(.Row, lCols - 1))*

Wassalamualaikum Wr. Wb.
Kid.

2011/11/24 Kid Mr. <mr.nmkid@gmail.com>

> Ada yang lupa belum pakai lCols.
> Coba cari bagian :
> 'set range di baris cell aktif, pada kolom selain kolom
> cell aktif
> lCols = .EntireRow.Cells.Count
> Select Case .Column
> Case 1
> Set rngCols = Range(Cells(.Row, 2), Cells(.Row, lCols))
> *Case 2*
> Set rngCols = Range(Cells(.Row, 2), Cells(.Row, lCols))
> Case Else
> Set rngCols = Union(Range(Cells(.Row, 1), Cells(.Row,
> ActiveCell.Column - 1)), _
> Range(Cells(.Row,
> ActiveCell.Column + 1), Cells(.Row, lCols)))
> End Select
>
> Nah, yang dibiru harusnya :
> *Case lCols*
>
> Makasih atas koreksinya ya. Moga-moga bisa nemu lagi error yang lain.
> Kid.
>
> 2011/11/24 ppc lambda <ppc_03@sami.co.id>
>
>> **
>>
>>
>> **
>> Mr kid VBA nya keren dan hasilnya pun menakjubkan
>> namun ketika yang ingin di unselect itu kolom B, kok yang ter Unselect
>> kolom A ya??
>>
>>
>> Terimakasih
>> Best Regard
>> <>.<>.<>.<>.<>.<>.
>> Sidoel
>> ----- Original Message -----
>>
>> *From:* Kid Mr. <mr.nmkid@gmail.com>
>> *To:* belajar-excel@yahoogroups.com
>> *Sent:* Thursday, November 24, 2011 2:24 AM
>> *Subject:* Re: [belajar-excel] men-tidak jadi milih cell
>>
>>
>>
>> Ada yang gak pas di workbook open. Jadi, file yang lalu diabaikan saja.
>> Coba file terlampir yang baru ini saja ya.
>>
>> Select seperti biasa, bisa manfaatkan Shift unuk membuat sebuah area
>> terselect, bisa menggunakan Ctrl untuk membentuk area baru terselect.
>> Untuk unselect, tekan tombol Ctrl dan klik sebuah cell yang sudah
>> terselect.
>>
>> Dicoba untuk jumlah cells terselect yang buanyak, siapa tahu muncul bug
>> nya.
>> Jika bertemu bug, mohon kerjasama untuk laporan bugnya.
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2011/11/24 Kid Mr. <mr.nmkid@gmail.com>
>>
>>> Coba pada jumlah cell terselect sekitar 12 kolom (seluruh row) pada file
>>> terlampir.
>>> Kemudian untuk unselect sebuah cell, tekan Ctrl dan klik cell yang akan
>>> di unselect.
>>>
>>> Moga-moga gak terlalu lama prosesnya.
>>>
>>> Wassalam,
>>> Kid.
>>>
>>> 2011/11/23 Kid Mr. <mr.nmkid@gmail.com>
>>>
>>> Oh udah ditutup ya.
>>>>
>>>> Tapi gpp, sapa tahu mau coba dengan event selection change-nya
>>>> wprksheet.
>>>> Mungkin kalau diletakkan di workbook sheet selection change event juga
>>>> bisa jadi lebih bagus ya...
>>>>
>>>> Berikut script worksheet event selection change :
>>>> Private rng As Range, rngLastAktif As Range
>>>>
>>>> Private Sub Worksheet_Activate()
>>>> Set rngLastAktif = ActiveCell
>>>> Set rng = Selection
>>>> End Sub
>>>>
>>>> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>>>> Dim rngTmp As Range
>>>> Dim lNew As Long
>>>>
>>>> 'cek : obj ada isi proses terakhir
>>>> If rngLastAktif Is Nothing Then
>>>> Set rngLastAktif = ActiveCell
>>>> Exit Sub
>>>> ElseIf rng Is Nothing Then
>>>> Set rng = Selection
>>>> Exit Sub
>>>> End If
>>>>
>>>> 'hitung : range baru
>>>> For Each rngTmp In Selection
>>>> If Intersect(rngTmp, rng) Is Nothing Then
>>>> lNew = lNew + 1
>>>> End If
>>>> Next rngTmp
>>>>
>>>> 'cek by range baru
>>>> If lNew > 0 Then 'ada
>>>> Set rng = Target
>>>> ElseIf rng.Count > 1 Then 'gak ada dan ter-select > 1
>>>> Set rng = Nothing
>>>> For Each rngTmp In Selection
>>>> If Intersect(rngTmp, ActiveCell) Is Nothing Then
>>>> If rng Is Nothing Then
>>>> Set rng = rngTmp
>>>> Else
>>>> Set rng = Union(rngTmp, rng)
>>>> End If
>>>> End If
>>>> Next rngTmp
>>>> Application.EnableEvents = False
>>>> rng.Select
>>>> Application.EnableEvents = True
>>>> End If
>>>> Set rngLastAktif = ActiveCell
>>>> End Sub
>>>>
>>>> 'sayangnya, yang dihilangkan masih satu per satu
>>>>
>>>> Wassalamualaikum Wr. Wb.
>>>> Kid.
>>>>
>>>>
>>>> 2011/11/23 Iwan کuryawan <iwan@asco.co.id>
>>>>
>>>>> **
>>>>>
>>>>>
>>>>> **Ternyata harus pakai macro ya. Sebelumnya lumayan alergi kalo
>>>>> berurusan sama machluk satu ini, akhirnya mesti kenalan juga skrg...
>>>>> Mbak Hapsari dan Pak Sudarsono terima kasih, keduanya berjalan dengan
>>>>> baik. Untuk saat ini saya pakai coding punya Pak Sudarsono yang bisa
>>>>> fleksibel dalam meng-unselect-nya dengan tambahan pemahaman tentang macro
>>>>> dari Mbak Haps.
>>>>>
>>>>> *Salam
>>>>> **| suryawan arief | iwan |
>>>>> *
>>>>>
>>>>>
>>>>> On Tue, 22 Nov 2011 13:26:33 +0700 (SE Asia Standard Time)
>>>>> Haps <hapsari.stlizbeth@gmail.com> <hapsari.stlizbeth@gmail.com>menulis begini:
>>>>>
>>>>> makro ini meng UnSelect *Cell yg terakhir diselect* dalam*MultiSelection,
>>>>> *sambil
>>>>> mengaktifkan cell yg diselect sebelum-*nya*
>>>>> Jadi, jika di jalankan berkali kali, ia akan menselect "mundur"
>>>>> dengan urutan kebalikan
>>>>> dari urutan saat anda menselectnya meskipun urutannya aneh (maju-mundur
>>>>> 'gak-genah!)
>>>>>
>>>>> Makro dapat di beri option untuk dijalankan dengan* Keyboard-Shortcut*,
>>>>> misalnya
>>>>> [ Ctrl + k ] atau [ Ctrl + Shift + K] atau huruf pilihan anda sendiri.
>>>>>
>>>>> Jika dirasa benar dan ada gunanya, makro ini dapat anda rekam di *Personal
>>>>> Makro Workbook*,
>>>>> dengan maksud agar dapat berlaku pada semua workbook yg sedang anda
>>>>> buka.
>>>>>
>>>>> f.y.i. : *Personal Workbook* selalu dibuka (sbg workbook tersembunyi)
>>>>> pada saat excel diaktifkan.
>>>>>
>>>>>
>>>>> Sub UndoLastSelect()
>>>>> *' coded by Hapsari / nov 22, 2011*
>>>>> *' unselect last activecell*
>>>>> *' Kibor-Shortcut: Ctrl + Shift + K*
>>>>> *'----------------------------------*
>>>>> Dim SelAdrs As String, ActAdrs As String
>>>>> Dim NewAdrs As String, NewActv As String
>>>>> Dim Tempe As Variant
>>>>>
>>>>> SelAdrs = Selection.Address(False, False)
>>>>> ActAdrs = ActiveCell.Address(False, False)
>>>>> NewAdrs = Replace(SelAdrs, "," & ActAdrs, vbNullString)
>>>>> Tempe = Split(NewAdrs, ",")
>>>>> NewActv = Tempe(UBound(Tempe))
>>>>>
>>>>> Range(NewAdrs).Select
>>>>> Range(NewActv).Activate
>>>>>
>>>>> End Sub
>>>>>
>>>>>
>>>>
>>>
>>
>>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (14)
3a.

Re: Login Pada Program Excel

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Thu Nov 24, 2011 3:25 pm (PST)



Sementara belum sempat membuat tanggapan, haps ingin komentar saja dulu

Suatu File diberi login adalah dlm rangka keamanan data dlm file itu, jadi
soal keamanan file dan data menjadi hal yg cukup penting dalam membuat
program tsb.

Tetapi....
Pak harry ingin menyederhanakan ( menurunkan tingkat keamanannya) dengan
meniadakan enkripsi. Ini dapat kita tebak: untuk mempermudah penglihatan di
tabel user (dilihat dari segi pembuat program); dan tanpa disadari juga
mempermudah penglihtaan bagi user biasa... (hampir semua user suka
jahil ingin menembus dinding keamanan)

Di lain bagian: pak hari ingin menambahkan hal-hal yg tidak perlu
misal

*** text berkedip* (ini kan hanya soal kosmetik, tetapi di excel cukup
menyita source)

(kita berikan file contoh contoh yg pernah dibuat Yu Siti di
sini<http://www.box.com/shared/13oo4lbqrr>
http://www.box.com/shared/13oo4lbqrr
walaupun judulnya Tutorial TEKS JALAN, tetapi didalamnya ada *blinking
text*- nya

*** satu file ingin di BOSS-i oleh banyak orang ( ?!) *
sebetulnya misal memang benar itu yg dikehendaki; logikanya masih ringan,
tetap pakai *struktur IF* atau pun Select Case

mungkin seperti ini (pelajari dulu: struktur Select Case), atau cara lain

Private Sub CmdNewUser_Click()
Select Case Application.Range("ActUser").Value
Case "boss", "IsteriBoss", "KeponakanBoss", "PacarBoss", "MertuaBoss"
Me.Hide
frmNewUser.Show
Case Else
MsgBox "MAAF, ANDA TIDAK BERHAK MENAMBAH USER", 48, "Program Creator"
End Select
End Sub

Oiya, ini hal kecil tapi sering jadi lucu...
Dalam banyak message box, dlm program program serius.., Box Title /
Pemberi peringatan: bukanlah si pembuat program, tetapi Program itu sendiri
(diwakili nama program).
Coba perhatikan contoh2 besar:

*"Windows is shuting down " *
(bukan: "Bill Gate is shutting down the Windows operating system")

*"Excel tidak dapat menutup file karena bla bla bla"*
(bukan : "Pembuat program tidak dapat menurup file excel yg sedang anda
tutup karena bla bla bla..")

Demikian sekedar gambaran. tetapi bgmanapun anda-lah penentunya...

-haps-

2011/11/24 Harry <hariansyahptk@yahoo.com>

> **
> Terima kasih atas berkanan jawaban dan penjelasannya.
> Selanjunya saya akan mencoba memahami penjelasan tersebut.
> Selanjutnya, mohon berkanan diinformasikan akan pertanyaan saya sbb:
>
> 1. Dari rumus tersebut diatas berarti hanya �boss� yang berhak
> menambah �User Baru�.
> Pertanyaan saya adalah bagaimana rumusnya jika ada 3 atau 4 user yang
> berhak menambah �User Baru��???
>
> Private Sub CmdNewUser_Click()
> If Application.Range("ActUser") = "boss" Then
> Me.Hide
> frmNewUser.Show
> Else
> MsgBox "MAAF, ANDA TIDAK BERHAK MENAMBAH USER", 48, "Program
> Creator"
> End If
> End Sub
>
> 2. Untuk menggantian �Password�, bagaimana rumusnya agar
> penggantian �Password� diperkenan oleh semua user tetapi User �boss� dan 3
> atau 4 user yang berhak menambah user baru tersebut diatas tidak bisa
> diubah / diganti�??
>
> 3. Pada User Form, bisa atau tidak membuat �Teks Kedap Kedip��???
> Kalau bisa, bagaimana cara dan rumusnya�???
>
> Sebelum dan sesudahnya saya mengucapkan banyak terima kasih.
> Regards,
> Harry
>
> ------------------------------
> *Dari:* Haps <hapsari.stlizbeth@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Selasa, 22 November 2011 5:26
>
> *Judul:* Re: [belajar-excel] Login Pada Program Excel
> *Menulis data tanpa Fungsi KRIP*
> Misal kode vba tertulis spt ini: *Krip(LCase(sUser), True) *
> dapat diganti dengan spt ini saja : *LCase(sUser)*
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
4a.

Re: Mewarnai kursor

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com   jkssbma

Thu Nov 24, 2011 5:46 pm (PST)




kalau mau aman maka deklarasikan sbg string. ' semua kode ini berada pada level workbook' caranya : ' 1. pada saat berada di sheet, tekan [ALT] , jangan dilepas , lalu tekan [F11] . maka anda berada di VBA Editor' 2. saat berada di VBA editor , tekan [Ctrl] , jangan dilepas, lalu tekan [R] , maka anda berada di VBA-Project' 3. disana ada kumpulan sheet dan juga mungkin kumpulan workbook ( kalau buka lebih dari 1 file excel )' 4. pilih workbook ( di vbaproject berlabel 'this workbook' ) dimana fungsi ganti warna diinginkan ' 5. lalu double-klik ( 2 kali klik kiri secara berurutan dan cepat )' 6. anda kini berada vba-editor level workbook' 7. lalu ketik koding dibawah ini' 8. untuk kembali ke sheet : pilih menu [File] ,lalu pilih [Close and Return to Microsoft Excel]' 9. jika anda window / tampilan untuk simpan , maka simpan saja.' 10. untuk menguji silakan pindah ke sheet lain lalu pindahkan kursor ke beberapa sel. ' 11. Kini anda aman untuk menyimpan file excel anda ( bila ingin lebih aman simpan dgn nama lain ).' ----------- ' koding yang perlu ditulis di VBA EditorPublic alamatsebelumnya As String
Private Sub Workbook_SheetActivate(ByVal Sh As Object)' kursor pada saat sheet aktif
alamatsebelumnya = ActiveCell.Address
With Range(alamatsebelumnya).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
End SubPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If alamatsebelumnya <> "" Then
With Range(alamatsebelumnya).Interior
.Color = 10
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With

End If
With Target.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4' atau .color = .........
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
alamatsebelumnya = Target.AddressEnd Sub
To: belajar-excel@yahoogroups.com
From: hapsari.stlizbeth@gmail.com
Date: Thu, 24 Nov 2011 18:44:14 +0700
Subject: Re: [belajar-excel] Mewarnai kursor

kenapa ya..?mungkin makronya belum di enabled-kan

coba workbook lampiran ini...

di pc yg sedang haps pakai, jalan dengan baik di semua (3) sheet.

2011/11/24 <hartini_80@yahoo.co.id>

Mba Haps, dah saya ganti kata2nya sesuai dgn yg mba kirim, kok malah ndak berfungsi, kursor ndak berwarna apapun, piye kie mba...?
Salam
Tiny

From: Haps <hapsari.stlizbeth@gmail.com>
Date: Thu, 24 Nov 2011 18:23:56 +0700maaf ikutan sedikit...untuk memberlakukan di semua sheets dlm 1 workbooksepertinya tidak perlu prosedurnya dicopy ke semua sheet

tetapi cukup dipindah ke level workbook (module ThisWorkbook)

dengan sedikit perubahan di Baris Pembukanya / Nama Prosedur Sub nya

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Static OldTarget As Range If Not OldTarget Is Nothing Then OldTarget.Interior.ColorIndex = xlNone

With Target.Interior .ColorIndex = 38

.Pattern = xlSolid End With

Set OldTarget = TargetEnd Sub

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

Re: Mewarnai kursor

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

Thu Nov 24, 2011 5:53 pm (PST)



Coba ganti bagian ini menjadi Application
 
Private Sub Workbook_Open()
    Set OldTarget =Application.ActiveCell
End Sub
 
karena sudah diganti menjadi level Workbook, sekalian kita pakai "orang tua" (parentnya) dari workbook.
Silsilah object Worksheet adalah sbb:
Application.Workbook.Worksheet.Range
 
Semoga sedikit lebih mencerahkan.
 
Salam,
Hendrik Karnadi

________________________________
From: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 24 November 2011, 18:55
Subject: Re: [belajar-excel] Mewarnai kursor

 
Mba haps, iya jalan, hanya saja jika pertama kali dibuka muncul peringatan Run-time error '438': object doesn't support this property or method, begitu saya pilih end baru bisa dijalankan, itu kenapa ya mba?
Salam
Tiny
Powered by Telkomsel BlackBerry®

________________________________

From: Haps <hapsari.stlizbeth@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 24 Nov 2011 18:44:14 +0700
To: <belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mewarnai kursor
 
kenapa ya..?
mungkin makronya belum di enabled-kan

coba workbook lampiran ini...
di pc yg sedang haps pakai, jalan dengan baik di semua (3) sheet.

2011/11/24 <hartini_80@yahoo.co.id>

Mba Haps, dah saya ganti kata2nya sesuai dgn yg mba kirim, kok malah ndak berfungsi, kursor ndak berwarna apapun, piye kie mba...?
>
>Salam
>Tiny
>From: Haps <hapsari.stlizbeth@gmail.com>
>Date: Thu, 24 Nov 2011 18:23:56 +0700
>maaf ikutan sedikit...
>untuk memberlakukan di semua sheets dlm 1 workbook
>sepertinya tidak perlu prosedurnya dicopy ke semua sheet
>tetapi cukup dipindah ke level workbook (module ThisWorkbook) 
>dengan sedikit perubahan di Baris Pembukanya / Nama Prosedur Sub nya
>
>
>
>
>Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
>   Static OldTarget As Range
>   If Not OldTarget Is Nothing Then OldTarget.Interior.ColorIndex = xlNone
>   With Target.Interior
>      .ColorIndex = 38
>      .Pattern = xlSolid
>   End With
>   Set OldTarget = Target
>End Sub
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
4c.

Re: Mewarnai kursor

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

Thu Nov 24, 2011 6:28 pm (PST)



Bisa tlng disertai contoh pak, jadi sambil lihat contoh, sambil baca teori ;-)
Salam
Tiny
Powered by Telkomsel BlackBerry�

-----Original Message-----
From: jkssxls Sudarsono <jkssxls@hotmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Fri, 25 Nov 2011 01:44:05
To: Belajar-Excel Yahoo Groups<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] Mewarnai kursor


kalau mau aman maka deklarasikan sbg string. ' semua kode ini berada pada level workbook' caranya : ' 1. pada saat berada di sheet, tekan [ALT] , jangan dilepas , lalu tekan [F11] . maka anda berada di VBA Editor' 2. saat berada di VBA editor , tekan [Ctrl] , jangan dilepas, lalu tekan [R] , maka anda berada di VBA-Project' 3. disana ada kumpulan sheet dan juga mungkin kumpulan workbook ( kalau buka lebih dari 1 file excel )' 4. pilih workbook ( di vbaproject berlabel 'this workbook' ) dimana fungsi ganti warna diinginkan ' 5. lalu double-klik ( 2 kali klik kiri secara berurutan dan cepat )' 6. anda kini berada vba-editor level workbook' 7. lalu ketik koding dibawah ini' 8. untuk kembali ke sheet : pilih menu [File] ,lalu pilih [Close and Return to Microsoft Excel]' 9. jika anda window / tampilan untuk simpan , maka simpan saja.' 10. untuk menguji silakan pindah ke sheet lain lalu pindahkan kursor ke beberapa sel. ' 11. Kini anda aman untuk menyimpan file excel anda ( bila ingin lebih aman simpan dgn nama lain ).' ----------- ' koding yang perlu ditulis di VBA EditorPublic alamatsebelumnya As String
Private Sub Workbook_SheetActivate(ByVal Sh As Object)' kursor pada saat sheet aktif
alamatsebelumnya = ActiveCell.Address
With Range(alamatsebelumnya).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
End SubPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If alamatsebelumnya <> "" Then
With Range(alamatsebelumnya).Interior
.Color = 10
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With

End If
With Target.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4' atau .color = .........
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
alamatsebelumnya = Target.AddressEnd Sub
To: belajar-excel@yahoogroups.com
From: hapsari.stlizbeth@gmail.com
Date: Thu, 24 Nov 2011 18:44:14 +0700
Subject: Re: [belajar-excel] Mewarnai kursor




























kenapa ya..?mungkin makronya belum di enabled-kan


coba workbook lampiran ini...

di pc yg sedang haps pakai, jalan dengan baik di semua (3) sheet.



2011/11/24 <hartini_80@yahoo.co.id>
















Mba Haps, dah saya ganti kata2nya sesuai dgn yg mba kirim, kok malah ndak berfungsi, kursor ndak berwarna apapun, piye kie mba...?
Salam
Tiny

From: Haps <hapsari.stlizbeth@gmail.com>
Date: Thu, 24 Nov 2011 18:23:56 +0700maaf ikutan sedikit...untuk memberlakukan di semua sheets dlm 1 workbooksepertinya tidak perlu prosedurnya dicopy ke semua sheet

tetapi cukup dipindah ke level workbook (module ThisWorkbook)

dengan sedikit perubahan di Baris Pembukanya / Nama Prosedur Sub nya

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)



Static OldTarget As Range If Not OldTarget Is Nothing Then OldTarget.Interior.ColorIndex = xlNone



With Target.Interior .ColorIndex = 38

.Pattern = xlSolid End With

Set OldTarget = TargetEnd Sub





















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

Re: Mewarnai kursor

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

Thu Nov 24, 2011 6:30 pm (PST)



Pak hendrik, thanks ya dah bisa, tapi setelah itu kita tidak bisa menggunakan Fill Color ya pak, karena setiap saya warnai suatu Cell dia berubah sesuai warna yg saya inginkan setelah itu menghilang lagi (kembali menjadi putih)
Gimana itu pak?
Thanks
Salam
Tiny
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 24 Nov 2011 17:53:03
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mewarnai kursor

Coba ganti bagian ini menjadi Application
 
Private Sub Workbook_Open()
    Set OldTarget =Application.ActiveCell
End Sub
 
karena sudah diganti menjadi level Workbook, sekalian kita pakai "orang tua" (parentnya) dari workbook.
Silsilah object Worksheet adalah sbb:
Application.Workbook.Worksheet.Range
 
Semoga sedikit lebih mencerahkan.
 
Salam,
Hendrik Karnadi


________________________________
From: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 24 November 2011, 18:55
Subject: Re: [belajar-excel] Mewarnai kursor


 
Mba haps, iya jalan, hanya saja jika pertama kali dibuka muncul peringatan Run-time error '438': object doesn't support this property or method, begitu saya pilih end baru bisa dijalankan, itu kenapa ya mba?
Salam
Tiny
Powered by Telkomsel BlackBerry®

________________________________

From: Haps <hapsari.stlizbeth@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 24 Nov 2011 18:44:14 +0700
To: <belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mewarnai kursor
 
kenapa ya..?
mungkin makronya belum di enabled-kan


coba workbook lampiran ini...
di pc yg sedang haps pakai, jalan dengan baik di semua (3) sheet.



2011/11/24 <hartini_80@yahoo.co.id>

Mba Haps, dah saya ganti kata2nya sesuai dgn yg mba kirim, kok malah ndak berfungsi, kursor ndak berwarna apapun, piye kie mba...?
>
>Salam
>Tiny
>From: Haps <hapsari.stlizbeth@gmail.com>
>Date: Thu, 24 Nov 2011 18:23:56 +0700
>maaf ikutan sedikit...
>untuk memberlakukan di semua sheets dlm 1 workbook
>sepertinya tidak perlu prosedurnya dicopy ke semua sheet
>tetapi cukup dipindah ke level workbook (module ThisWorkbook) 
>dengan sedikit perubahan di Baris Pembukanya / Nama Prosedur Sub nya
>
>
>
>
>Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
>   Static OldTarget As Range
>   If Not OldTarget Is Nothing Then OldTarget.Interior.ColorIndex = xlNone
>   With Target.Interior
>      .ColorIndex = 38
>      .Pattern = xlSolid
>   End With
>   Set OldTarget = Target
>End Sub
>
>
>
>

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

Re: Mewarnai kursor

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

Thu Nov 24, 2011 7:29 pm (PST)



Bukankan jawabannya sesuai dengan pertanyaan anda seperti kutipan di bawah ini?
"Ada yg tau ndak ya, bagaimana cara mewarnai kursor? Contohx jika kursor ada di cell A1 maka cell A1 akan berwarna merah, jika berpindah ke A2 maka cell A2 yg akan berwarna merah, cell A1 kembali putih."

Salam,
Hendrik Karnadi

________________________________
From: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Friday, 25 November 2011, 9:30
Subject: Re: [belajar-excel] Mewarnai kursor

 
Pak hendrik, thanks ya dah bisa, tapi setelah itu kita tidak bisa menggunakan Fill Color ya pak, karena setiap saya warnai suatu Cell dia berubah sesuai warna yg saya inginkan setelah itu menghilang lagi (kembali menjadi putih)
Gimana itu pak?
Thanks
Salam
Tiny
Powered by Telkomsel BlackBerry®

________________________________

From: hendrik karnadi <hendrikkarnadi@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 24 Nov 2011 17:53:03 -0800 (PST)
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mewarnai kursor
 
Coba ganti bagian ini menjadi Application
 
Private Sub Workbook_Open()
    Set OldTarget =Application.ActiveCell
End Sub
 
karena sudah diganti menjadi level Workbook, sekalian kita pakai "orang tua" (parentnya) dari workbook.
Silsilah object Worksheet adalah sbb:
Application.Workbook.Worksheet.Range
 
Semoga sedikit lebih mencerahkan.
 
Salam,
Hendrik Karnadi

________________________________
From: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 24 November 2011, 18:55
Subject: Re: [belajar-excel] Mewarnai kursor

 
Mba haps, iya jalan, hanya saja jika pertama kali dibuka muncul peringatan Run-time error '438': object doesn't support this property or method, begitu saya pilih end baru bisa dijalankan, itu kenapa ya mba?
Salam
Tiny
Powered by Telkomsel BlackBerry®

________________________________

From: Haps <hapsari.stlizbeth@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 24 Nov 2011 18:44:14 +0700
To: <belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mewarnai kursor
 
kenapa ya..?
mungkin makronya belum di enabled-kan

coba workbook lampiran ini...
di pc yg sedang haps pakai, jalan dengan baik di semua (3) sheet.

2011/11/24 <hartini_80@yahoo.co.id>

Mba Haps, dah saya ganti kata2nya sesuai dgn yg mba kirim, kok malah ndak berfungsi, kursor ndak berwarna apapun, piye kie mba...?
>
>Salam
>Tiny
>From: Haps <hapsari.stlizbeth@gmail.com>
>Date: Thu, 24 Nov 2011 18:23:56 +0700
>maaf ikutan sedikit...
>untuk memberlakukan di semua sheets dlm 1 workbook
>sepertinya tidak perlu prosedurnya dicopy ke semua sheet
>tetapi cukup dipindah ke level workbook (module ThisWorkbook) 
>dengan sedikit perubahan di Baris Pembukanya / Nama Prosedur Sub nya
>
>
>
>
>Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
>   Static OldTarget As Range
>   If Not OldTarget Is Nothing Then OldTarget.Interior.ColorIndex = xlNone
>   With Target.Interior
>      .ColorIndex = 38
>      .Pattern = xlSolid
>   End With
>   Set OldTarget = Target
>End Sub
>
>
>
>

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

Re: Mewarnai kursor

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

Thu Nov 24, 2011 7:35 pm (PST)



Bener pak, tetapi dalam logika saya hanya kursornya aja yg berwarna, eh sekalinya mempengaruhi semua ya, sehingga saya tidak bisa menggunakan fill color he he he, kalo emang ndak bisa yo ndak papa pak, kursor ingin saya warnai agar lebih memudahkan melihat posisi angka yg ingin saya input, thanks atas bantuannya ya pak.
Salam
Tiny
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 24 Nov 2011 19:29:02
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mewarnai kursor

Bukankan jawabannya sesuai dengan pertanyaan anda seperti kutipan di bawah ini?
"Ada yg tau ndak ya, bagaimana cara mewarnai kursor? Contohx jika kursor ada di cell A1 maka cell A1 akan berwarna merah, jika berpindah ke A2 maka cell A2 yg akan berwarna merah, cell A1 kembali putih."

Salam,
Hendrik Karnadi


________________________________
From: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Friday, 25 November 2011, 9:30
Subject: Re: [belajar-excel] Mewarnai kursor


 
Pak hendrik, thanks ya dah bisa, tapi setelah itu kita tidak bisa menggunakan Fill Color ya pak, karena setiap saya warnai suatu Cell dia berubah sesuai warna yg saya inginkan setelah itu menghilang lagi (kembali menjadi putih)
Gimana itu pak?
Thanks
Salam
Tiny
Powered by Telkomsel BlackBerry®

________________________________

From: hendrik karnadi <hendrikkarnadi@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 24 Nov 2011 17:53:03 -0800 (PST)
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mewarnai kursor
 
Coba ganti bagian ini menjadi Application
 
Private Sub Workbook_Open()
    Set OldTarget =Application.ActiveCell
End Sub
 
karena sudah diganti menjadi level Workbook, sekalian kita pakai "orang tua" (parentnya) dari workbook.
Silsilah object Worksheet adalah sbb:
Application.Workbook.Worksheet.Range
 
Semoga sedikit lebih mencerahkan.
 
Salam,
Hendrik Karnadi


________________________________
From: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 24 November 2011, 18:55
Subject: Re: [belajar-excel] Mewarnai kursor


 
Mba haps, iya jalan, hanya saja jika pertama kali dibuka muncul peringatan Run-time error '438': object doesn't support this property or method, begitu saya pilih end baru bisa dijalankan, itu kenapa ya mba?
Salam
Tiny
Powered by Telkomsel BlackBerry®

________________________________

From: Haps <hapsari.stlizbeth@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 24 Nov 2011 18:44:14 +0700
To: <belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mewarnai kursor
 
kenapa ya..?
mungkin makronya belum di enabled-kan


coba workbook lampiran ini...
di pc yg sedang haps pakai, jalan dengan baik di semua (3) sheet.



2011/11/24 <hartini_80@yahoo.co.id>

Mba Haps, dah saya ganti kata2nya sesuai dgn yg mba kirim, kok malah ndak berfungsi, kursor ndak berwarna apapun, piye kie mba...?
>
>Salam
>Tiny
>From: Haps <hapsari.stlizbeth@gmail.com>
>Date: Thu, 24 Nov 2011 18:23:56 +0700
>maaf ikutan sedikit...
>untuk memberlakukan di semua sheets dlm 1 workbook
>sepertinya tidak perlu prosedurnya dicopy ke semua sheet
>tetapi cukup dipindah ke level workbook (module ThisWorkbook) 
>dengan sedikit perubahan di Baris Pembukanya / Nama Prosedur Sub nya
>
>
>
>
>Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
>   Static OldTarget As Range
>   If Not OldTarget Is Nothing Then OldTarget.Interior.ColorIndex = xlNone
>   With Target.Interior
>      .ColorIndex = 38
>      .Pattern = xlSolid
>   End With
>   Set OldTarget = Target
>End Sub
>
>
>
>



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

Re: lookup untuk mendapatkan hasil yang ke-1, ke-2, dst

Posted by: "yulian nugroho" yuliannug@gmail.com   yuliannug

Thu Nov 24, 2011 10:20 pm (PST)



makasih cik gu

2011/11/24 Haps <hapsari.stlizbeth@gmail.com>

> **
>
>
> *=Row(1:100)*
> jika di tulis di 1 cell tanpa dienter dengan C+S+E, hanya menghasilkan 1
> Kalau ditulis di 100 cell SEBARIS secara sekaligus dan di-enter secara
> ArrayFormula, misalnya di F134:F233, hasilnya adalah angka urut 1 sampai
> 100.
> Jadi Row(1:100) yg di enter sebagai ArrayFormula tugasnya *membuat nomor
> urut*
>
> Nantinya nomor-urut itu mungkin akan dikalikan dengan array lain dlm satu
> rumus (hasil suatu rumus misal IF(bla bla bla) yg hasilnya (multi hasil) {False;
> True; True; False; False; True dst sampai 100 data).
> Maka hasil perkaliannya bisa anda bayangkan sendiri :
> Data yg sejajar dengan TRUE akan tetap uncul nomor urutnya; Sedangkan data
> yg sejajar dengan FALSE, akan muncul 0 (false)
> Kira kira bentuk array hasil perkalian nomor urut dan array false-true: {False;
> 2; 3; False; False; 6; dst sampai 100 data)
>
> Kelanjutannya, seandainya rumus tersebut belum selesai tetapi masih
> dibingkai oleh Fungsi SMALL
> =Semoll(RUMUS, AngkaUrutUntukSemoll)
>
> Hasil array nya seerti ini *{2; 3; 6; False; False; False; dst sampai
> 100 data)*
> Artinya terjadi PENGUMPULAN DATA KE ATAS ( atau ke KIRI) dan URUT; serta
> membuang FALSE ke bawah atau ke kanan)
>
> Dalam FORMULA SORTING, Angka itulah yg dimanfaatkan oleh fungsi INDEX atau
> OFFSET untuk memanggil data sebanarnya
>
>
> CMIIW.--
> mudah mudahan tidak terlau jauh ngawurrnya...
>
>
>
> 2011/11/24 yulian nugroho <yuliannug@gmail.com>
> >
> > *tentang row(1:1) dan column(1:5) dimaksudkan buat apa ya?*
> >
> > salam
> > YN
>
>
>

--
Thanks & Regards
Yulian Nugroho
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (15)
6a.

Tanya agar sheet tidak bisa di scroll

Posted by: "Asror Al-Aliif's" asrorcakep@yahoo.com   asrorcakep

Thu Nov 24, 2011 10:20 pm (PST)



Rekan rekan yang berbahagia,

Mau tanya nee, bagaimana cara agar file excel tidak bisa di scroll ke kabawah dan ke kanan?
Apakah bisa? Karena kalau hanya hide row dan kolom masih bisa dipindahin ke bawah dan ke kanan.
Terimakasih.

Asror,

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

Re: Tanya agar sheet tidak bisa di scroll

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Thu Nov 24, 2011 11:36 pm (PST)



gampang...
*property ScrollArea* - nya dibatasi !

[image: scroll_area.PNG]

2011/11/25 Asror Al-Aliif's <asrorcakep@yahoo.com>
> Rekan rekan yang berbahagia,
> Mau tanya nee, bagaimana cara agar file excel tidak bisa di scroll ke
kabawah dan ke kanan?
> Apakah bisa? Karena kalau hanya hide row dan kolom masih bisa dipindahin
ke bawah dan ke kanan.
> Terimakasih.
> Asror,
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
7a.

Re: Bls: [belajar-excel] Help, bulan romawi

Posted by: "reni irmawanti" reny.irmawanti@yahoo.com   reny.irmawanti

Thu Nov 24, 2011 10:22 pm (PST)



Dear Mas undang,
 
knp  ya pas angka 10 nilai #VALUE! ya? pdahal rumusnya sudah copy dari yang diatas.. tq
 
1 I
2 II
3 III
4 IV
5 V
6 VI
7 VII
8 VIII
9 IX
10 #VALUE!
11 XI
12 XII

From: Undang Satrianie <und4nk@rocketmail.com>
Sent: Wednesday, November 23, 2011 6:53 PM
 
Coba :
=ROMAN(TEXT(NOW();"mm"))

Dari: Asror Al-Aliif's <asrorcakep@yahoo.com>
Dikirim: Rabu, 23 November 2011 18:35
 
Selamat malam,
Rekan2, minta tolong lagi nee, saya mau menulis bulan dalam huruf romawi, bisa g yah?
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
7b.

Re: Bls: [belajar-excel] Help, bulan romawi

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Thu Nov 24, 2011 11:45 pm (PST)



Mbak Reni
kalau rumus yg diberikan kan untuk mengubah DATA TANGGAL,
diambil nilai BULANNYA lalu di tampakkan sebagai ANGKA ROMAWI

kalau akan menguubah ANGKA biasa (di cell A1) menjadi Angka Romawi
ya cukup dengan rumus *=ROMAN(A1)* doang...
c.m.i.i.w.

mengenai 1 sampai 9 yg ada di data mbak reni
1 jika dianggap tgl adalah = tgl 1 jan 1900
2 = 2 jan 1900 dst

2011/11/25 reni irmawanti <reny.irmawanti@yahoo.com>

> **
>
> Dear Mas undang,
> knp ya pas angka 10 nilai #VALUE! ya? pdahal rumusnya sudah copy dari
> yang diatas.. tq
> 1 I
> 2 II
> 3 III
> 4 IV
> 5 V
> 6 VI
> 7 VII
> 8 VIII
> 9 IX
> 10 #VALUE!
> 11 XI
> 12 XII
>
> From: Undang Satrianie <und4nk@rocketmail.com>
> Sent: Wednesday, November 23, 2011 6:53 PM
> Coba :
> =ROMAN(TEXT(NOW();"mm"))
> Dari: Asror Al-Aliif's <asrorcakep@yahoo.com>
> Dikirim: Rabu, 23 November 2011 18:35
>
Rekan2, minta tolong lagi nee, saya mau menulis bulan dalam huruf romawi,
> bisa g yah?
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
7c.

Re: Bls: [belajar-excel] Help, bulan romawi

Posted by: "reni irmawanti" reny.irmawanti@yahoo.com   reny.irmawanti

Fri Nov 25, 2011 1:12 am (PST)



oke... thanks ya mba Haps :)

From: Haps <hapsari.stlizbeth@gmail.com>
Sent: Friday, November 25, 2011 2:44 PM

Mbak Reni
kalau rumus yg diberikan kan untuk mengubah DATA TANGGAL,
diambil nilai BULANNYA lalu di tampakkan sebagai ANGKA ROMAWI

kalau akan menguubah ANGKA biasa (di cell A1) menjadi Angka Romawi
ya cukup dengan rumus �=ROMAN(A1)�doang...
c.m.i.i.w.

mengenai 1 sampai 9 yg ada di data mbak reni
1 jika dianggap tgl adalah = tgl 1 jan 1900
2 = 2 jan 1900 dst�

2011/11/25 reni irmawanti <reny.irmawanti@yahoo.com>
Dear Mas undang,
>knp� ya pas angka 10 nilai #VALUE! ya? pdahal rumusnya sudah copy dari yang diatas.. tq
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
8a.

Fwd: [belajar-excel] menampilkan nama sheet dari file lain

Posted by: "yulian nugroho" yuliannug@gmail.com   yuliannug

Thu Nov 24, 2011 10:25 pm (PST)



kawans,
adakah penyelesaiannya, ato mungkin excel memang tidak bisa melakukan itu (meuliskan nama-nama tab sheet file lain)

thanks
YN

---------- Forwarded message ----------
From: yulian nugroho <yuliannug@gmail.com>
Date: 2011/11/18

om Arief
nampaknya yang kumaksud belum kesampaian karena kurang jelas
menyampaikannya barangkali,

1. hasil yang diinginkan yang di blok kuning, yaitu hanya dengan mengetik
nama file-nya ("file bernama angka" dan "file bernama huruf") maka secara
otomatis nama sheet "satu" s.d "tiga", dan "a" s.d "b" muncul di kolom "C"

2. "file bernama angka" dan "file bernama huruf" tidak perlu diotak-atik
karena hanya mau diambil nama2 sheet yang ada di file tsb.

eniwei, terimakasih sudah coba bantu

Salam
YN

2011/11/18 Arief Herry Cahyono <990978@mli.panasonic.co.id>

> Saya coba pakai Dengan fungsi cell , filename****
> Mohon lihat attachment****
> Terima kasih****
>
> *Best Regards,*
> *ARIF HERRY CAHYONO*
> PPIC - Supply Chain Control Department****
> *PT. PANASONIC LIGHTING INDONESIA*
> Jl. Rembang industri Raya 47 PIER ****
> P A S U R U A N****
> Telp : 0343-740230****
> Fax : 0343-740239****
> e-mail : ariev@mli.panasonic.co.id****
>
> *From:* belajar-excel@yahoogroups.com On Behalf Of *yulian nugroho
> *Sent:* Friday, November 18, 2011 9:34 AM
>
> kawans,
> apakah excel mampu menampilkan nama2 sheet dari suatu file.
>
> contoh soal:
> file dengan nama "file yang dikerjakan" menyusun nama2 sheet dari 2 file
> yang berbeda ("file bernama huruf" dan "file bernama angka")
>
> smoga aku tak berharap terlalu banyak untuk excel , hehehe
>
> bantu ya? tengkyu ....
>
> --
> Thanks & Regards
> Yulian Nugroho
>
> =================================================
> mods' note:
> Coba buka help untuk fungsi bernama CELL
> Argument pertama ("infotype") mempunyai 13 enum.
> / 13 pilihan, salah satunya: "FILENAME"
> mbok yao dicoba-coba.....
> =================================================****
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
8b.

Re: menampilkan nama sheet dari file lain

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Fri Nov 25, 2011 12:57 am (PST)



ysh Kakek YuliYan,..
kalau sulit-sulit, jèngkèl..., pakai makro saja kek !
terlampir contoh files nya..

syarat nan berat:
file yg akan didaftar nama sheetnya harus dlm keadaan terbuka (opened)

2011/11/25 yulian nugroho <yuliannug@gmail.com>

> **
>
> kawans,
> adakah penyelesaiannya, ato mungkin excel memang tidak bisa melakukan itu
> (meuliskan nama-nama tab sheet file lain)
> thanks
> YN
> >
> > >
> > > *From:* belajar-excel@yahoogroups.com On Behalf Of *yulian nugroho
> > > *Sent:* Friday, November 18, 2011 9:34 AM
> > > kawans,
> > > apakah excel mampu menampilkan nama2 sheet dari suatu file.
> > > contoh soal:
> > > file dengan nama "file yang dikerjakan" menyusun nama2 sheet dari 2
> file
> > > yang berbeda ("file bernama huruf" dan "file bernama angka")
> > > smoga aku tak berharap terlalu banyak untuk excel , hehehe
> > > bantu ya? tengkyu ....
> > > --
> > > Thanks & Regards
> > > Yulian Nugroho
> > > =================================================
> > > mods' note:
> > > Coba buka help untuk fungsi bernama CELL
> > > Argument pertama ("infotype") mempunyai 13 enum.
> > > / 13 pilihan, salah satunya: "FILENAME"
> > > mbok yao dicoba-coba.....
> > > =================================================
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
8c.

penjumlahan dengan kriteria tertentu

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

Fri Nov 25, 2011 2:10 am (PST)



Dear rekan" excel yang berbahagia,

Bagaimanakah cara menjumlahkan suatu data apabila kode datanya berada di
tengah dari nama data tsb.

Mohon bantuannya.

Regard,

Ferdy

file terlampir.

____________ _________ _________ _________ _________ _________ _________
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 (5)
8d.

Re: penjumlahan dengan kriteria tertentu

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Fri Nov 25, 2011 3:27 am (PST)



mungkin begini: (satu rumus)

=SUMIF($A$2:$A$11,"*pink*",B2:B11) +
SUMIF($A$2:$A$11,"*NoN*",B2:B11) +
SUMIF($A$2:$A$11,"*BIRU*",B2:B11)

On Fri, Nov 25, 2011 at 5:10 PM, M. Ferdiansyah <muh_ferdy@pusri.co.id>
wrote:
>
> Dear rekan" excel yang berbahagia,
> Bagaimanakah cara menjumlahkan suatu data apabila kode datanya berada di
> tengah dari nama data tsb.
> Mohon bantuannya.
> Regard,
> Ferdy
> file terlampir.
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
8e.

Bls: [belajar-excel] penjumlahan dengan kriteria tertentu

Posted by: "Undang Satrianie" und4nk@rocketmail.com   und4nk@rocketmail.com

Fri Nov 25, 2011 5:10 am (PST)





Mungkin Maksud Nona Hapsari Ini Dipisah

Pink = SUMIF($A$2:$A$11,"*pink*",B2:B11) Hasilnya : 10810,35
Non  = SUMIF($A$2:$A$11,"*NoN*",B2:B11)  Hasilnya : 2245,1
Biru = SUMIF($A$2:$A$11,"*BIRU*",B2:B11) Hasilnya :10331,5

Kalo Ditotal Semuanya Jadi : 23386,95
Sama Hasilnya Dengan = SUM(B2:B11)
Mungkin Kira² Begitu ?¿?¿?..CMIIW

________________________________
Dari: Haps <hapsari.stlizbeth@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 25 November 2011 18:26
Judul: Re: [belajar-excel] penjumlahan dengan kriteria tertentu


 
mungkin begini: (satu rumus)
=SUMIF($A$2:$A$11,"*pink*",B2:B11) + 
 SUMIF($A$2:$A$11,"*NoN*",B2:B11) +
 SUMIF($A$2:$A$11,"*BIRU*",B2:B11)

On Fri, Nov 25, 2011 at 5:10 PM, M. Ferdiansyah <muh_ferdy@pusri.co.id> wrote:
>
> Dear rekan" excel yang berbahagia,
> Bagaimanakah cara menjumlahkan suatu data apabila kode datanya berada di
> tengah dari nama data tsb.
> Mohon bantuannya.
> Regard,
> Ferdy
> file terlampir.

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

Re: Menyisipkan 3 blankcell antar kelompok data

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Thu Nov 24, 2011 11:26 pm (PST)



Sampai sesaat sebelum post ini di SEND... threads yg dibuka oleh Andri
Andreemobile (pertanyaan) ini, sudah mendapat 6 tanggapan
Paling tidak, 2 (dua) rumus kiriman, dari Um Ghozi dan Um Kid, adalah
formulaes yg* RuarrrBiasssa *yg memerlukan ijtihaad yg menguras tenaga.
(Ketika enteran C+S+E terakhir sukses memunculkan hasil tanpa cacat, maka
bagi seorang formula composser-terasa "mak-plong", walaupun badan, tangan
dan mungkin dengkul menjadi gemetaran (ya karena ijtihaat yg menguras
tenaga tadi itu.. ). )

Namun formula luar-biasa itu rupanya belum memenuhi keinginan Um
Andreemobil, buktinya sampai saat ini tidak ada kabar "gelengan" maupun
"anggukan" dari ybs. Kemungkinan besar: ybs sedang bertugas keluar / sulit
membuka inbox.

Kalo begitu, biarlah saya menjadi orang yg semakin tertarik dengan kasus
ini..., ingin melaporkan bugs dan ingin pula bertanya.
*Laporan:*
Rumus pak Ghozi yg terakhir entah karena apa, di hasil-hasil bagian bawah
memunculkan errorvalues
Rumus pak Kid sudah di test dengan data angka maupun teks, berhasil lolos
uji.

*Review keadaan data asli dari pemilik kasus*
Saat ini kondisi data (ex pertanyaan) sudah dlm keadaan ter-sortir (data yg
sama sudah BERKUMPUL menjadi 1 Grup.
Asli data petanyaan dari Andreemobile berupa Bilangan dan URUT (tidak ada
missing numbers-nya).
( tetapi telah kami coba di "lab" kami, dengan data yg lebih liar, rumus2
berhasil mengantisipasinya )
Dalam asli kasusnya, sisipan blank cells antar grup data = cacah-nya sudah
fixed, pasti 3 cells.

*Pertanyaan (belajar) lanjutan:*
Bagimana kalau tingkat kesulitannya dinaikkan? Masih adakah rumusnya ?
(pasti ada la yaa...)

1. Data tidak hanya berupa type Bilangan (numbers) saja; tetapi boleh type
TEXT maupun campuran Numbers & Text
2. Data tidak harus dlm keadan tersortir, jadi data yg sama boleh terpencar
letaknya dlm kolom.
3. Satu* grup data*, selain bisa terdiri dari beberapa data kembar, boleh
hanya berisi 1 data unik.
4. Rumus harus bisa diedit dengan mudah agar BANYAKNYA CELL YG DISISIPKAN
bisa / mudah diubah,
misal (per sekali rumus) banyaknya sisipan cell antar grup data bisa 1
atau 2, atau 3 atau 7 atau 13 dst.
5. Urutan (sortOrder) data hasilnya bisa diubah-ubah: bisa Terurut Menurun
(Descending) maupun bisa Terurut menaik (Ascending).
6. Rumus tetap berupa rumus tunggal, tidak ada kolom / rumus bantu.

Contoh data dan contoh hasil yg diinginkan ada dilampiran.

(yaaah. ini seperti Challenge dong.. )
terus terang & terang-terangan terus,.. aku tidak bisa.. 'teuk tiasa... 'ra
jègos !

2011/11/24 Kid Mr. <mr.nmkid@gmail.com>

> **
>
> Coba juga : Pada B1 diberi header, dan B2 diberi formula :
>
> =IF(ROW(1:1)-COUNTBLANK(B$1:B1)>=COUNTA($A$2:$A$55),"",IF((MOD(COUNTBLANK(B$1:B1),3)>0)+
> (COUNTIF(B$1:B1,B1)=COUNTIF($A$2:$A$55,B1)),"",INDEX($A$2:$A$55,ROW(1:1)-COUNTBLANK(B$1:B1))))
> Copy ke bawah sesuai kebutuhan.
> Wassalam,
> Kid.
>
> 2011/11/24 andri apriyadi <andreemobile@yahoo.co.id>
>
>> **
>> Dear Pakar excel,
>> Mohon bantuannya, bagaimana formulanya agar deretdata bisa dipisahkan
>> dengan 3 baris blank cell antar kelompoknya?
>> (contoh terlampir)
>> awal hasil
>> 1 1
>> 1 1
>> 1 1
>> 2
>> 2
>> 3
>> 4 2
>> 4 2
>> 4
>> 5
>> 6
>> 6 3
>> dst..
>>
>> Thank atas bantuannya!
>> Regards
>> Andree
>>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)
10a.

Bls: [belajar-excel] Mencari 3 data atau lebih yang sama

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Fri Nov 25, 2011 5:42 am (PST)



sorry terlambat responnya

mudah mudahan masih berguna
formula array  tulis di kolom nomer pengunjung

{=IF(COUNTIF(J$13:J13;INDEX(B$5:B$47;SMALL(IF(COUNTIF($B$5:$B$45;$B$5:$B$47)>2;ROW($B$5:$B$47));ROW(1:1))-4))=1;"";INDEX(B$5:B$47;SMALL(IF(COUNTIF($B$5:$B$45;$B$5:$B$47)>2;ROW($B$5:$B$47));ROW(1:1))-4))}

copy ke kanan dan ke bawah

wassalam

Ghozi Alkatiri

________________________________
Dari: dimas iqbal <iqb4l_00@yahoo.co.id>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Selasa, 22 November 2011 11:12
Judul: [belajar-excel] Mencari 3 data atau lebih yang sama


 
Dear Para master Excel,

kepada para master excel mohon bantuan & solusinya untuk kasus terlampir.

atas bantuannya yang berharga saya ucapkan terima kasih.

salam
iik
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
Recent Activity
Visit Your Group
Yahoo! Groups

Parenting Zone

Tips for a happy,

healthy home

Yahoo! Groups

Mental Health Zone

Bi-polar disorder

Find support

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Need to Reply?

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

Create New Topic | Visit Your Group on the Web
---------------------------------------------------------------------
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
---------------------------------------------------------------------
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Diposting oleh EXCEL FEED LEARNING di 06.02

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)