[belajar-excel] Digest Number 1586

Milis Belajar Microsoft Excel

Messages In This Digest (7 Messages)

1a.

menerapkan conditional formatting From: Husnul Faizin

1b.

Re: menerapkan conditional formatting From: Rara Wilis

2a.

Re: Laporan dari data keterangan ke bawah menjadi kesamping From: A. Hendri Bp. Algar

3a.

Bls: [belajar-excel] Kombinasi Text Berkedip dan Tombol Print From: Yoni Wibawa Abdillah

3b.

Re: Kombinasi Text Berkedip dan Tombol Print From: Kid Mr.

3c.

Re: Kombinasi Text Berkedip dan Tombol Print From: Yoni Wibawa Abdillah

3d.

Re: Kombinasi Text Berkedip dan Tombol Print From: Rara Wilis

View All Topics | Create New Topic

Messages

1a.

menerapkan conditional formatting

Posted by: "Husnul Faizin" husnulfaizin@yahoo.co.id   husnulfaizin

Mon Apr 16, 2012 2:34 am (PDT)

Salampara suhu excel....!!
mohon
bantuannya dalam permasalahan penerapan conditional formatting disamping....!
Bagaimana
cara menerapkan rumus conditional formatting  pada semua kolom pada tabel mata pelajaran (IPA, MTK, IPS, BIND, BING)
dengan kriteria :
1.  jika nilai dibawah 6.00 cellnya berwarna
merah
2.  jika nilainya diantara 6.00 s/d 6.99 cellnya
berwarna kuning
3.  jika nilainya diantara 7.00 s/d 10.00 cellnya
berwarna hijau
sebagai
contoh saya sudah menerapkan condittional formatting pada tabel IPA, MTK,
IPS.  sehingga ketika saya input nilai
(misalnya 5.90) cellnya otomatis berubah merah dan seterusnya... (file terlampir)

kesulitannya
: saya ingin menerapkannya disemua tabel/kolom nilai agar warna cellnya
otomatis berubah ketika input nilai.
apa
saya harus membuatnya secara manual disemua cell?? sedangkan nilai yang harus
di input banyak sekali....
jadi
mohon bantuannya dari pakar excel semua..!!!!!

SALAMHUSNUL

Back to top

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

1b.

Re: menerapkan conditional formatting

Posted by: "Rara Wilis" ra2wilis@gmail.com   rr_wilis

Mon Apr 16, 2012 3:50 am (PDT)

Blok / Select Range c4:g22
Munculkan Rules Manager ( Ribbon > Tab: HOME > Group: STYLES > Rules
Manager )
Pada New Formatting Rules cukup dibuat 3 KONDISI / RULES saja
1 Cell Value: *BETWEEN : 0.0001 - 5.9999* -> Format Fill : Merah
2 Cell Value: *BETWEEN : 6 - 6.9999* -> Format Fill : Koneng
3 Cell Value: *BETWEEN : 7 - 10* -> Format Fill : Ijo
[image: Inline image 1]

[image: Inline image 2]

Sebaiknya:
Dapatkan BUKU Excel tingkat dasar, bekerja dgn excel jangan tanpa
textbook.. Kelamaan !

http://www.box.com/s/6iqnydi4nga7rd479rp7
http://www.box.com/s/54sp4ta7a0y2n0olds85
http://www.box.com/s/4l84x86jpiy6v7is7e9e

http://computer1001.blogspot.com/2008/07/membuat-conditional-formatting-excel.html
http://www.jagatreview.com/2011/01/tutorial-menggunakan-conditional-formatting-pada-microsoft-excel-2007/
http://www.homeandlearn.co.uk/excel2007/excel2007s6p2.html
http://chandoo.org/wp/2009/03/13/excel-conditional-formatting-basics/

On Mon, Apr 16, 2012 at 11:27 AM, Husnul Faizin <husnulfaizin@yahoo.co.id>wrote:

> **
> Salam para suhu excel....!!
> mohon bantuannya dalam permasalahan penerapan conditional formatting
> disamping....!
> Bagaimana cara menerapkan rumus conditional formatting pada semua kolom
> pada tabel mata pelajaran (IPA, MTK, IPS, BIND, BING) dengan kriteria :
> 1. jika nilai dibawah 6.00 cellnya berwarna merah
> 2. jika nilainya diantara 6.00 s/d 6.99 cellnya berwarna kuning
> 3. jika nilainya diantara 7.00 s/d 10.00 cellnya berwarna hijau
> sebagai contoh saya sudah menerapkan condittional formatting pada tabel
> IPA, MTK, IPS. sehingga ketika saya input nilai (misalnya 5.90) cellnya
> otomatis berubah merah dan seterusnya... (file terlampir)
>
> kesulitannya : saya ingin menerapkannya disemua tabel/kolom nilai agar
> warna cellnya otomatis berubah ketika input nilai.
> apa saya harus membuatnya secara manual disemua cell?? sedangkan nilai
> yang harus di input banyak sekali....
> jadi mohon bantuannya dari pakar excel semua..!!!!!
>
> SALAM
> HUSNUL
>
>
>

Back to top

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

2a.

Re: Laporan dari data keterangan ke bawah menjadi kesamping

Posted by: "A. Hendri Bp. Algar" mni.agush@gmail.com

Mon Apr 16, 2012 2:37 am (PDT)

Iya, pak saya yang mispersepsi dengan informasi yang disampaikan oleh Mr. Kid. maklum karena saya belum pernah menggunakannya. erima kasih atas penegasannya.
Untuk Ibu Rara, terima kasih atas info link nya. Sangat berguna buat
menambah pengetahuan saya.

Salam,
A. Hendri

2012/4/16 Rara Wilis <ra2wilis@gmail.com>
>
> Mohon maaf datang tak diudang, ikut "rembug"..
>
> Jika pak Hendri ingin mengetahui lebih lengkap mengenai "Format Number
> Custom"
> Bapak dapat memperoleh penjelasan di sini
> 1. BeExcel Milis 'FILES' (downloadable)
> http://f1.grp.yahoofs.com/v1/MIuLTwi85CUJKxy2QTOPN3IdsCWULfuzONvyj6GQmPqsa8r36jsxVMq9baPvMg4o3KRUlN1AkMLJI-u_KPTD3Q/Custom%20Number%20Formatting.zip
>
> 2.
> OnLIne Folder mbak siti (downloadable)
> http://www.box.com/s/s5sa4qu8g3fj736q6cv2
>
> 3
> Situs-situs Excel, antara lain:
>
> http://office.microsoft.com/en-us/excel-help/number-format-codes-HP005198679.aspx
>
> http://www.ozgrid.com/Excel/CustomFormats.htm
>
http://www.exceltip.com/st/Symbols_Used_to_Create_Custom_Formatting/657.html
>

Back to top

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

3a.

Bls: [belajar-excel] Kombinasi Text Berkedip dan Tombol Print

Posted by: "Yoni Wibawa Abdillah" yoniwibawa@yahoo.co.id   yoniwibawa

Mon Apr 16, 2012 7:56 pm (PDT)

Permisi ikut nimbrung bertanya,
Bagaimana kodenya kalau kursor kita arahkan ke teks jalan (bukan click event), teks jalan-nya berhenti?

Terima kasih

--- Pada Sab, 14/4/12, Harry <hariansyahptk@yahoo.com> menulis:

Dari: Harry <hariansyahptk@yahoo.com>
Judul: [belajar-excel] Kombinasi Text Berkedip dan Tombol Print
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Tanggal: Sabtu, 14 April, 2012, 5:41 PM

 

Dear BeExceller,

Mohon info akan 2 pertanyaan saya dengan
penjelasan dan informasi sbb:

Pada salah satu User Form saya
menggunakan Text Berkedip sebagaimana rumus berikut:

 

Option Explicit

Dim EndShow As Boolean

 

Private Sub UserForm_Activate()

   '
movingForm

   Dim u As
Long

   Do Until
Me.Left > 225

      Left
= Left + 2

      Top =
Top + 2

      For u
= 1 To 200000: Next

   Loop

   Me.Top =
167

  
TeksJalan

End Sub

 

Private Sub TeksJalan()

   Dim i As
Long

   EndShow
= False

   On Error
Resume Next

Ulangi:

   If
EndShow = True Then Exit Sub

  
LBL1.Left = LBL1.Left - 2

 

  With
LBLINK

     
.ForeColor = IIf(.ForeColor = &HFF&, &H4000&,
&HFF&)

      End
With

  

      With
LbLive

     
.ForeColor = IIf(.ForeColor = &H8080FF, &HE0E0E0, &H8080FF)

      End
With

  

   DoEvents

   For i =
1 To 15000000: Next

   If
LBL1.Left + LBL1.Width < 0 Then LBL1.Left = Width

 

   GoTo
Ulangi

End Sub

 

Private Sub UserForm_Terminate()

   EndShow
= True

End Sub

 

 

Dari rumus diatas saya mendapatkan
Text yang berkedip saling bergantian berwarna MERAH dan PUTIH.

Pertanyaan saya adalah Bagaimana caranya atau apa
rumusnya jika Text berkedip tersebut ingin saya ganti dengan warna MERAH dan
BIRU…???

 

Masih berkaitan dengan rumus tersebut
diatas dan saya tambahkan tombol PRINT dengan rumus seperti dibawah ini:

 

Private Sub cmdCetak_Click()

Set wsdtbs = Sheets("PRINT")

wsdtbs.PrintOut copies:=1, collate:=True

With Sheets("DAILY OUTPUT")

.Visible = -1: .Activate

End With

Unload Me

ThisWorkbook.Save

End Sub

 

Hasilnya saya mengalami kendala atau
tombol PRINT tersebut tidak berfungsi dengan signal rumus wsdtbs terblock berwarna
kuning. Sebaliknya jika rumus Text berkedip tersebut saya hapus, tombol PRINT
bisa berfungsi sebagaimana mestinya.

Pertanyaan saya adalah bagaimana cara
dan rumusnya atau apa yang harus diganti jika tombol PRINT tersebut tetap bisa
berfungsi tanpa menghapus rumus Text berkedip…???

 

Mohon berkenan informasi dan
pencerahannya akan 2 pertanyaan saya tersebut diatas.

Terima kasih atas bekenannya.

 

Regards,

 

 

Harry

Back to top

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

3b.

Re: Kombinasi Text Berkedip dan Tombol Print

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

Mon Apr 16, 2012 8:00 pm (PDT)

Hai Yoni,

Mungkin dengan event selection change milik worksheet
kira-kira isi event tersebut :
if not intersect( target,range("d5:z5")) is nothing then
*EndShow = True*
endif

Kid.
On Tue, Apr 17, 2012 at 09:56, Yoni Wibawa Abdillah
<yoniwibawa@yahoo.co.id>wrote:

> **
>
>
> Permisi ikut nimbrung bertanya,
> Bagaimana kodenya kalau kursor kita arahkan ke teks jalan (bukan click
> event), teks jalan-nya berhenti?
>
> Terima kasih
>
> --- Pada *Sab, 14/4/12, Harry <hariansyahptk@yahoo.com>* menulis:
>
>
> Dari: Harry <hariansyahptk@yahoo.com>
> Judul: [belajar-excel] Kombinasi Text Berkedip dan Tombol Print
> Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> Tanggal: Sabtu, 14 April, 2012, 5:41 PM
>
>
>
>
> Dear BeExceller,
>
> Mohon info akan 2 pertanyaan saya dengan penjelasan dan informasi sbb:
> Pada salah satu User Form saya menggunakan Text Berkedip sebagaimana rumus
> berikut:
>
> *Option Explicit*
> *Dim EndShow As Boolean*
> * *
> *Private Sub UserForm_Activate()*
> * ' movingForm*
> * Dim u As Long*
> * Do Until Me.Left > 225*
> * Left = Left + 2*
> * Top = Top + 2*
> * For u = 1 To 200000: Next*
> * Loop*
> * Me.Top = 167*
> * TeksJalan*
> *End Sub*
> * *
> *Private Sub TeksJalan()*
> * Dim i As Long*
> * EndShow = False*
> * On Error Resume Next*
> *Ulangi:*
> * If EndShow = True Then Exit Sub*
> * LBL1.Left = LBL1.Left - 2*
> * *
> * With LBLINK*
> * .ForeColor = IIf(.ForeColor = &HFF&, &H4000&, &HFF&)*
> * End With*
> * *
> * With LbLive*
> * .ForeColor = IIf(.ForeColor = &H8080FF, &HE0E0E0, &H8080FF)*
> * End With*
> * *
> * DoEvents*
> * For i = 1 To 15000000: Next*
> * If LBL1.Left + LBL1.Width < 0 Then LBL1.Left = Width*
> * *
> * GoTo Ulangi*
> *End Sub*
> * *
> *Private Sub UserForm_Terminate()*
> * EndShow = True*
> *End Sub*
>
>
> Dari rumus diatas saya mendapatkan Text yang berkedip saling bergantian
> berwarna MERAH dan PUTIH.
> *Pertanyaan saya adalah **Bagaimana caranya atau apa rumusnya jika Text
> berkedip tersebut ingin saya ganti dengan warna MERAH dan BIRU…???*
>
> Masih berkaitan dengan rumus tersebut diatas dan saya tambahkan tombol
> PRINT dengan rumus seperti dibawah ini:
>
> *Private Sub cmdCetak_Click()*
> *Set wsdtbs = Sheets("PRINT")*
> *wsdtbs.PrintOut copies:=1, collate:=True*
> *With Sheets("DAILY OUTPUT")*
> *.Visible = -1: .Activate*
> *End With*
> *Unload Me*
> *ThisWorkbook.Save*
> *End Sub*
>
> Hasilnya saya mengalami kendala atau tombol PRINT tersebut tidak berfungsi
> dengan signal rumus wsdtbs terblock berwarna kuning. Sebaliknya jika
> rumus Text berkedip tersebut saya hapus, tombol PRINT bisa berfungsi
> sebagaimana mestinya.
> Pertanyaan saya adalah bagaimana cara dan rumusnya atau apa yang harus
> diganti jika tombol PRINT tersebut tetap bisa berfungsi tanpa menghapus
> rumus Text berkedip…???
>
> Mohon berkenan informasi dan pencerahannya akan 2 pertanyaan saya tersebut
> diatas.
> Terima kasih atas bekenannya.
>
> Regards,
>
>
> Harry
>
>
>
>

Back to top

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

3c.

Re: Kombinasi Text Berkedip dan Tombol Print

Posted by: "Yoni Wibawa Abdillah" yoniwibawa@yahoo.co.id   yoniwibawa

Mon Apr 16, 2012 11:14 pm (PDT)

Terima kasih Mas Kid., tapi bagaimana kalau di UserForm?

--- Pada Sel, 17/4/12, Kid Mr. <mr.nmkid@gmail.com> menulis:

Dari: Kid Mr. <mr.nmkid@gmail.com>
Judul: Re: [belajar-excel] Kombinasi Text Berkedip dan Tombol Print
Kepada: belajar-excel@yahoogroups.com
Tanggal: Selasa, 17 April, 2012, 3:00 AM

 

Hai Yoni,

Mungkin dengan event selection change milik worksheet
kira-kira isi event tersebut :
if not intersect( target,range("d5:z5")) is nothing then
EndShow
= True
endif

Kid.
On Tue, Apr 17, 2012 at 09:56, Yoni Wibawa Abdillah <yoniwibawa@yahoo.co.id> wrote:

Permisi ikut nimbrung bertanya,
Bagaimana kodenya kalau kursor kita arahkan ke teks jalan (bukan click event), teks jalan-nya berhenti?

Terima kasih

--- Pada Sab, 14/4/12, Harry <hariansyahptk@yahoo.com> menulis:

Dari: Harry <hariansyahptk@yahoo.com>
Judul: [belajar-excel] Kombinasi Text Berkedip dan Tombol Print
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>

Tanggal: Sabtu, 14 April, 2012, 5:41 PM

Dear BeExceller,

Mohon info akan 2 pertanyaan saya dengan
penjelasan dan informasi sbb:

Pada salah satu User Form saya
menggunakan Text Berkedip sebagaimana rumus berikut:

Option Explicit

Dim EndShow As Boolean

Private Sub UserForm_Activate()

'
movingForm

Dim u As
Long

Do Until
Me.Left > 225

Left
= Left + 2

Top =
Top + 2

For u
= 1 To 200000: Next

Loop

Me.Top =
167

TeksJalan

End Sub

Private Sub TeksJalan()

Dim i As
Long

EndShow
= False

On Error
Resume Next

Ulangi:

If
EndShow = True Then Exit Sub

LBL1.Left = LBL1.Left - 2

With
LBLINK

.ForeColor = IIf(.ForeColor = &HFF&, &H4000&,
&HFF&)

End
With

With
LbLive

.ForeColor = IIf(.ForeColor = &H8080FF, &HE0E0E0, &H8080FF)

End
With

DoEvents

For i =
1 To 15000000: Next

If
LBL1.Left + LBL1.Width < 0 Then LBL1.Left = Width

GoTo
Ulangi

End Sub

Private Sub UserForm_Terminate()

EndShow
= True

End Sub

Dari rumus diatas saya mendapatkan
Text yang berkedip saling bergantian berwarna MERAH dan PUTIH.

Pertanyaan saya adalah Bagaimana caranya atau apa
rumusnya jika Text berkedip tersebut ingin saya ganti dengan warna MERAH dan
BIRU…???

Masih berkaitan dengan rumus tersebut
diatas dan saya tambahkan tombol PRINT dengan rumus seperti dibawah ini:

Private Sub cmdCetak_Click()

Set wsdtbs = Sheets("PRINT")

wsdtbs.PrintOut copies:=1, collate:=True

With Sheets("DAILY OUTPUT")

.Visible = -1: .Activate

End With

Unload Me

ThisWorkbook.Save

End Sub

Hasilnya saya mengalami kendala atau
tombol PRINT tersebut tidak berfungsi dengan signal rumus wsdtbs terblock berwarna
kuning. Sebaliknya jika rumus Text berkedip tersebut saya hapus, tombol PRINT
bisa berfungsi sebagaimana mestinya.

Pertanyaan saya adalah bagaimana cara
dan rumusnya atau apa yang harus diganti jika tombol PRINT tersebut tetap bisa
berfungsi tanpa menghapus rumus Text berkedip…???

Mohon berkenan informasi dan
pencerahannya akan 2 pertanyaan saya tersebut diatas.

Terima kasih atas bekenannya.

Regards,

Harry

Back to top

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

3d.

Re: Kombinasi Text Berkedip dan Tombol Print

Posted by: "Rara Wilis" ra2wilis@gmail.com   rr_wilis

Tue Apr 17, 2012 12:17 am (PDT)

maaf ikutan..
kalau di userform *ya sama saja.*

TEXT jalan itu kan ditaruh di suatu OBJECT; Mungkin Label, mungkin TextBox
atau object lain
( Anda tidak mendeskripsikannya !?)

Sebuah object control di userform itu sepertinya punya juga Event Click
Atau event lain pilih sesuai yg anda kehendaki.

Jadi seperti kehendak Anda, bisa saja yg dikllik *BUKAN CommandButton, *
melainkan *object tempat dituliskannya Text Jalan tsb* lah di dikenai
Event!!

Jika pertanyan berlanjut, pertanyaan hendaknya jangan terlalu pendek,
Kita mengharapkan contoh nyata-nya atau deskripsikan dengan jelas
Berdasarkan contoh nyata iatau kejelasan deskripsi tu kita akan lebih mudah
membicarakannya...

Lampiran file xlsm mudah-mudahan memperjelas tanggapan Rara..
Lihat prosedur di dalam userform ini

Private Sub Label1_Click()
If Stopped Then
Stopped = False
Jalankan
Else
Stopped = True
End If
End Sub

maksudnya Jika label (berwarna coklat mudah) di klik, akanmenghintikan text
jalan
klik berikutnya akan menjalakan lagi (seperti toggle button)

~Rr

On Tue, Apr 17, 2012 at 1:14 PM, Yoni Wibawa Abdillah <
yoniwibawa@yahoo.co.id> wrote:
>
> Terima kasih Mas Kid., *tapi bagaimana kalau di UserForm*?
>
>
> --- Pada Sel, 17/4/12, Kid Mr. <mr.nmkid@gmail.com> menulis:
> Hai Yoni,
> Mungkin dengan event selection change milik worksheet
> kira-kira isi event tersebut :
> if not intersect( target,range("d5:z5")) is nothing then
> EndShow = True
> endif
> Kid.
>
> On Tue, Apr 17, 2012 at 09:56, Yoni Wibawa Abdillah <
yoniwibawa@yahoo.co.id> wrote:
> Permisi ikut nimbrung bertanya,
> Bagaimana kodenya kalau kursor kita arahkan ke teks jalan (bukan click
event), teks jalan-nya berhenti?
> Terima kasih

Back to top

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

Recent Activity

•  14
  New Members
•  1
  New Files

Visit Your Group

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Mental Health Zone

Find support for

Mental illnesses

Check out the

Y! Groups blog

Stay up to speed

on all things Groups!

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

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