Sub Subject:
*UDF Terbilang dengan Pengucapan Khusus seperti Nilai Rapor*
kok bom aprilnya gak ketahuan sih..
*dengan cara spt itu *
*99.01 *diterjemahkan sembilan puluh sembilan *koma satu*
*99.10* diterjemahkan sembilan puluh sembilan *koma sepuluh*
sekilas sepertinya benar tetapi sebenarny
Dear Pak Herry
saya masih berpendapat, semoga tidak salah, bahwa
Loop r = 6 to 36 maupun r = 5 to 58, mengunjungi setiap cell di range
di kolom R ataupun M dan P tetap dpat digantikan dengan
WorksheetFunction.COUNTIF
coding yg tadi itu menimbulkan error karena *dicari berkali kali dgn loop*
di
Coba juga :
Private Sub Workbook_SheetDeactivate(ByVal sh As Object)
Dim r As Long
If sh.Name = Sheet1.Name Then
For r = 6 To 36
If sh.Range("R" & r) > 0 Then
sh.Tab.Color = 16711935
Exit Sub
End If
Next r
Else
Sementara begini dulu:
1.
Makro intu akan JALAN, HANYA JIKA kita meninggalkan Suatu sheet
(bepindah seleksi sheet lain) karena kita menggunakan Event
*Workbook_SheetDeactivate*
Di prosedur itu, apa yg dikenal sebagai argument / variable* Sh* itu adalah
*object Sheet *
*yg baru saja ditinggalkan*
Mr Kid & bu Guru STDEV(i),
benar, ternayat itu tidak diperlukan
Private Sub Workbook_SheetDeactivate(ByVal sh As Object)
Dim r As Long
sh.Tab.ColorIndex = 35
If sh.Name = Sheets(1).Name Then
For r = 6 To 36
If sh.Range("R" & r) > 0 Then
sh.Tab.Color = 1671193
karena di sheet (2) dst seterusnya backgroud sheetname akan diberi warna,
jika memenuhi ketentuan sh.Range("M" & r) > 0 And IsEmpty(sh.Range("P" & r))
; r = 5 to 38
dan object sh hanya berisi 1 sheet yang baru saja di-deactivate. Lalu
mewarnai sheet lain kapan ?
Kid.
On Fri, Apr 22, 2011 at 08:
Dear Mr Kid,
karena di sheet (2) dst seterusnya backgroud sheetname akan diberi warna, jika
memenuhi ketentuan sh.Range("M" & r) > 0 And IsEmpty(sh.Range("P" & r)) ; r = 5
to 38
Regards,
herry s
From: Mr. Kid
To: belajar-excel@yahoogroups.com
Sent: Friday, April 22, 2011 8:34 AM
Subject: Re:
di sheet(1) R6:R38 sudah benar tidak ada kaitannya dengan cell lain,
namun
di sheet(2) dst ... M5:M38 ada kaitannya dengan IsEmpty(sh.Range("P" & r)) , r
= 5 to 38
From: STDEV(i) setiyowati.d...@gmail.com
To: belajar-excel@yahoogroups.com
Sent: Friday, April 22, 2011 8:34 AM
Subject: R
iyya ya... kenapa ada loop nya ya??
lagi pula nilai counter (lSheet) sepanjang loop tidak pernah digunakan
seharusna memang harus lihat keadaan workbook dulu ya, baru bertindak..
kalau ndak salah ada perubahan woerkbook, sejak dikatakan bahwa
di sheet lain perlu warna lain, dan workbook belum di
bu Guru STDEV(i)
compile error di ".CountIf"
Regards
Herry Sutjipto
From: STDEV(i)
To: belajar-excel@yahoogroups.com
Sent: Friday, April 22, 2011 8:13 AM
Subject: Re: Fw: [belajar-excel] Memberi warna sheet-name
mungkin bisa diperngkas menjadi spt ini
mohon maaf kalau salah, karena dibu
kenapa harus di loop sejumlah sheet yg ada di workbook?
kid
On Fri, Apr 22, 2011 at 08:13, STDEV(i) wrote:
>
>
> mungkin bisa diperngkas menjadi spt ini
> mohon maaf kalau salah, karena dibuatnya di notepad, tanpa dicoba di
> workbook
> (mencari nilai kosong di range R6:R38 atau M5:M38 tidak pe
maaf salah tulis perlu dikoreksi,
tertulis:
"(mencari* nilai kosong *di range R6:R38 atau M5:M38 tidak perlu pakai
Looping)"
seharusnya"
"(mencari adakah *nilai POSITIP* di range R6:R38 atau M5:M38 tidak perlu
pakai Looping)"
tepatnya :
If .CountIf(sh.Range("R6:R38"), ">0") > 0 Then
jika di
mungkin bisa diperngkas menjadi spt ini
mohon maaf kalau salah, karena dibuatnya di notepad, tanpa dicoba di
workbook
(mencari nilai kosong di range R6:R38 atau M5:M38 tidak perlu pakai Looping)
Private Sub Workbook_SheetDeactivate(ByVal sh As Object)
Dim lSheet As Long
sh.Tab.ColorIndex = 3
Dear Mr Kid,
Terima kasih atas masukannya.
Saya jadi bisa mengembangkan macro dari bu guru STDEV(i) menjadi sbb:
Private Sub Workbook_SheetDeactivate(ByVal sh As Object)
Dim r As Long
Dim lSheet As Long
sh.Tab.ColorIndex = 35
For lSheet = 1 To Sheets.Count
If sh.Name = Sheets(
Bisa dengan memberi cek nama sheet pada event di workbook-nya untuk
melewatkan proses pewarnaan.
Private Sub Worksheet_Deactivate(*byval sh as object*)
Dim Kolor, r As Long
if *sh.name*<>sheets(1).name then
Kolor = 16711935
Me.Tab.Color = xlAutomatic
For r = 6 To 38
Dear mBak STDEV(i),
Ternyata prtediksi mBak STDEV(i) tidak meleset.
Saya perlu di sheet pertama kriterianya berbeda, yaitu di range R6:R38 "Jika
dalam range tersebut nilainya ada yang > 0, maka background sheetmane nya
diberi warna PINK"
Saya coba kumpulan statement spt di bawah saya letak kan
http://rattansklep.pl/shop.html
Hehhe, datax sama persis yg dikirim ama pak ezza, ndak ada yg dirubah pak, td
saya tunjukin bos katax begitu saja udah sip, okex krn data 1bln saya sudah
saya masukin semua jadi aman dah pak kid, begitu bpk, kalo mengharapkan saya
membuat rumus wah ampe ubanan juga ndak bisa2 pak, lah excel aja
mbok yao hasil yang dah oke dibuat itu ada cuplikannya untuk dikirim kemilis
jadi bahan buat member lainnya. kalo boleh sih. datanya dikit aja ya lha
wong cuma contoh.
Regards.
Kid.
2011/4/21
>
>
> Udah pak, dah oke neh saya buat, makasih ya pak atas bantuannya. Ntar nanya
> lagi ^_^
>
> Salam
terima kasih, tengkyu, matur nuwun, hatur nuhun, i love you ful
wehh... orderan jadi & didelivered secepat titipan kilat...
mudah mudahan selain beguna bagiku juga bermanfaat bagi orang lain.
semua doa baik 'bwat mbak siti, pak kid dan semua konco-konconya
*~belajar excel ? 'gak akan 'nye
catatan moderator
Untuk y.a.d dimohon pertanyaan ke milis TIDAK dikirim
secara CROSS POSTING / ada cc / alamat lain yg dituju.
Selain melanggar imbauan milis, juga membingungkan
members yg kena cc / moderators
---
Saya masih menunggu janji mbak siti mau membuatkan UDF *terbilang KHUSUS
dengan
cara pengucapan seperti yg dikehendaki pak Muzaeni *(kalau formula yg
ditawarkan tidak
cucok dihati pak Muzaeni).
Soale aku jug aada keperluan seperti itu, untuk digunakan di penulisan Buku
Rapor di TPA -
masjid sebelah
Udah pak, dah oke neh saya buat, makasih ya pak atas bantuannya. Ntar nanya
lagi ^_^
Salam
Tini
Powered by Telkomsel BlackBerry®
-Original Message-
From: ezzar dinnovan
Sender: belajar-excel@yahoogroups.com
Date: Thu, 21 Apr 2011 08:17:05
To:
Reply-To: belajar-excel@yahoogroups.com
Sub
mba tini itu kan tinggal di utak atik di saldo awal/jurnalnya...
Pada 21 April 2011 06:09, menulis:
>
>
> Kurang lebih hasil akhirnya yg seperti itu yg diinginkan oleh bos pak,
> hanya untuk yang transaksi saldo akhirnya harus kosong bisa ndak ya pak di
> buat kosong, an apriyanto misalx, saldo
bukan mengganti no urutnya pak kid tetapi setelah d reset untuk memperbaharui
form terus kita input form tsb kok tidak bisa di save (nyimpan data yg barusan
diinput)itu permasalahannya, jadi tombol saveny tidak berfungsi ato macronya yg
kurang??
Terima Kasih
--- In belajar-excel@yahoogroups.co
25 matches
Mail list logo
