Messages In This Digest (6 Messages)

1a.: Re: durasi waktu From: Kid Mr.

2a.: Re: Menampilkan message alert dengan kriteria tertentu From: Leonardo Endry widodo
2b.: Re: Menampilkan message alert dengan kriteria tertentu From: Kid Mr.

3a.: Re: Chekbox click From: Markonah
3b.: Re: Chekbox click From: Kid Mr.

4a.: Bls: [belajar-excel] help sepertinya ada yg salah dengan code ku From: Harumi Wanasita

View All Topics | Create New Topic

Messages

1a.: Re: durasi waktu

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

Thu Jun 21, 2012 11:20 pm (PDT)

Misal data jam awal (dalam desimal) di A2 dan jam akhir (dalam desimal) di
B2 :
=INT(FLOOR(B2+0.02,0.3)-A2)+MOD(FLOOR(B2+0.02,0.3),1)/0.6

Wassalam,
Kid.

2012/6/22 tuti andrayani <andrayani_lee@yahoo.co.id>

> **
>
>
> Dear All,
>
> Mohon pencerahannya, apabila saya ingin menghitung durasi antara 2 waktu
> dalam desimal 0,5 an dengan toleransi 2 menit bagaimana rumusnya?
> Misal :
> 10.00 - 15.27 durasinya adalah 5 jam
> 10.00 - 15.28 durasinya adalah 5,5 jam
> 10.00 - 15.32 durasinya adalah 5,5 jam
> Thanks
>
> Tuti
>
>
>
>

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

2a.: Re: Menampilkan message alert dengan kriteria tertentu

Posted by: "Leonardo Endry widodo" monalisaxx_16@yahoo.com monalisaxx_16

Thu Jun 21, 2012 11:26 pm (PDT)

Setelah workbook dibuka, script akan mulai membaca tabel dan bila ada cell yg kosong (B2,B2) (contoh tabel dibawah) dengan cell menunjukkan tanggal kemarin atau 2 hari lalu (A2,A2) atau (A3,A3) dan alert akan muncul

logika sederhananya
JIKA tanggal hari ini ( tanggal 22 Juni ) > tanggal hari ini( tanggal 22 Juni) - 1 DAN cell B2 bernilai kosong MAKA Message alert akan muncul dengan informasi terdapat nomor LS yg belum diinput atau belum di release dan JIKA tidak ada yg cocok dengan kriteria diatas Message alert akan menginformasikan OK

________________________________
From: Kid Mr. <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, June 22, 2012 12:59 PM
Subject: Re: [belajar-excel] Menampilkan message alert dengan kriteria tertentu

Kapan alert akan muncul ?
Saat diinput tanggal ? saat buka workbook ? saat ada cell berubah isi ? saat pencet tombol cek ? atau kapan ?

Kid.

2012/6/22 Leonardo Endry widodo <monalisaxx_16@yahoo.com>

>
>Dari hasil script dibawah, script akan meloop sebanyak n (5000x) dengan mengabaikan kondisi-kondisi if.
>Maksud awal utk di buatnya message alert ini yaitu
>
>
>message alert akan tampil jika pada kolom B bernilai blank/ kosong dan tanggal 1 hari / 2 hari dari tanggal sekarang
>misal
>
>
>Hari ini tanggal 22 Juni
>
>
>Table
>=========================
> = A = B =
>=========================
> 1 = 6/21/2012 = LSL111000 =
> 2 = 6/21/2012 = =
> 3 = 6/20/2012 = =
>=========================
>
>
>Message akan tampil setelah memeriksa bhwa pada baris 2 kolom B terdapat nilai kolom B yang masih kosong dan tanggal sudah 1 atau 2 hari berlalu
>Mohon bimbingannya
>
>________________________________
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (13)
2b.: Re: Menampilkan message alert dengan kriteria tertentu

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

Thu Jun 21, 2012 11:50 pm (PDT)

Buat event workbook open :
>> ke VBE -> object ThisWorkbook -> lihat lembar kanannya -> pilih combobox
kiri : workbook -> pilih combobox kanan : open

Isi dengan :
Dim rng As Range, rngTgl As Range
Dim lFail As Long
Dim dtKini As Date

Set rngTgl =
Sheet1.Range("d3").Resize(WorksheetFunction.Count(Sheet1.Columns("d:d")))
dtKini = Date
lFail = 0
For Each rng In rngTgl
If rng.Value < dtKini Then
If LenB(rng.Offset(0, 1).Value) = 0 Then
lFail = lFail + 1
End If
End If
Next rng
If lFail <> 0 Then
MsgBox lFail & " record(s) dengan LS kosong", vbExclamation, "Pesan"
Else
MsgBox "OK", vbInformation, "Pesan"
End If

Wassalam,
Kid.

2012/6/22 Leonardo Endry widodo <monalisaxx_16@yahoo.com>

> **
>
>
> Setelah workbook dibuka, script akan mulai membaca tabel dan bila ada cell
> yg kosong (B2,B2) (contoh tabel dibawah) dengan cell menunjukkan tanggal
> kemarin atau 2 hari lalu (A2,A2) atau (A3,A3) dan alert akan muncul
>
> logika sederhananya
> JIKA tanggal hari ini ( tanggal 22 Juni ) > tanggal hari ini( tanggal 22
> Juni) - 1 DAN cell B2 bernilai kosong MAKA Message alert akan muncul dengan
> informasi terdapat nomor LS yg belum diinput atau belum di release dan JIKA
> tidak ada yg cocok dengan kriteria diatas Message alert akan
> menginformasikan OK
>
> ------------------------------
> **
>

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

3a.: Re: Chekbox click

Posted by: "Markonah" markonatul@gmail.com m_tulqiyem

Thu Jun 21, 2012 11:26 pm (PDT)

Mungkin lebih baik begini, menyendiri di sudut kota ini.....
(pulang ngamen masih ingat lagu yg tadi saya nyanyikan....)

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Sheets("1").Visible = xlSheetVisible
Else
Sheets("1").Visible = xlHidden
End If
End Sub

Private Sub CheckBox2_Click()
If CheckBox2 = True Then
Sheets("2").Visible = xlSheetVisible
Else
Sheets("2").Visible = xlHidden
End If
End Sub
'-----------------------

2012/6/22 Yusril Ramadani <yusrilramadani@gmail.com>
> Saya mau menggunakan chekbok untuk memunculkan dan menyembunyikan sheet
> Pada posisi pertama ke dua sheet tersembunyi dan bergantung kepada clck
chekbox nya
> dan pada saat close pun hanya sheet yg di click yg tetap muncul
> Salam
> YR

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

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

Thu Jun 21, 2012 11:29 pm (PDT)

Di object sheet-nya si option
Buat event change dari checkbox1 dan checkbox2 (2 prosedur event change)
isi dengan perintah untuk set visible sheet
Private Sub CheckBox1_Change()
Sheet2.Visible = CheckBox1.Value
Sheet3.Activate
End Sub

Private Sub CheckBox2_Change()
Sheet1.Visible = CheckBox2.Value
Sheet3.Activate
End Sub

lalu di object this workbook
buat event open dan before close (2 prosedur)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheet3.CheckBox1.Value = False
Sheet3.CheckBox2.Value = False
Application.DisplayAlerts = False
ThisWorkbook.Save
End Sub

Private Sub Workbook_Open()
Sheet3.CheckBox1.Value = False
Sheet3.CheckBox2.Value = False
End Sub

Kemudian save file excel dan pilih ekstensi .xlsm atau .xlsb

Wassalam,
Kid.

2012/6/22 Yusril Ramadani <yusrilramadani@gmail.com>

> **
>
>
> Selamat pagi para pakar
>
> Mohon bantuannya untuk case terlampir
>
> Saya mau menggunakan chekbok untuk memunculkan dan menyembunyikan sheet
> Pada posisi pertama ke dua sheet tersembunyi dan bergantung kepada clck
> chekbox nya
> dan pada saat close pun hanya sheet yg di click yg tetap muncul
>
> Salam
> YR
>
>
>

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

4a.: Bls: [belajar-excel] help sepertinya ada yg salah dengan code ku

Posted by: "Harumi Wanasita" hwanasita@yahoo.com hwanasita

Fri Jun 22, 2012 12:18 am (PDT)

thanks buat jawabannya dan rumusnya yg singkat. tp sy lg belajar dr buku... kl misalkan tetap pake rumus itu yg salah yg dimana? karena sy sedang belajar bertahap. biar lebih ngerti lg.. terlepas dr jumlah murid berapapun.

________________________________
Dari: Markonah <markonatul@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 22 Juni 2012 6:48
Judul: Re: [belajar-excel] help sepertinya ada yg salah dengan code ku

yg pendek saja mbak, karena nilai dropdwon itu adalah Bilangan
(index baris range yg dirujuk), tidak seperti yg tampak di dropdownnya;
dan tabel juga punya index, jadi tinggal ambil berdasarkan alamat Cell(RowIdx,ColumnIdx) saja
tidak perlu membuat select case sebanyak data tabel yg ada
Kalau jml muridnya 1000, selec casenya tentu panjang sekali (1000 case)

Sub MengambilData()
Dim RowIdx As Long, ShBt As Worksheet
Set ShBt = Sheets("bantuan")
RowIdx = Sheets("bantuan").Range("D1").Value + 1
With Worksheets("Form")
.Cells(5, 2).Value = ShBt.Cells(RowIdx, 1)
.Cells(6, 2).Value = ShBt.Cells(RowIdx, 2)
.Cells(7, 2).Value = ShBt.Cells(RowIdx, 3)
End With
ShBt.Cells(1, 4).ClearContents
End Sub

2012/6/22 Harumi Wanasita <hwanasita@yahoo.com>

>help
>
>apakah ada yg salah dengan kode ku di vb yah?
>kenapa saat pilih nama di combo box nya kok gak otomatis tertulis di worksheet form?
>makasih...

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

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

EXCEL FEED

Jumat, 22 Juni 2012

[belajar-excel] Digest Number 1661

Messages In This Digest (6 Messages)

Messages

Re: durasi waktu

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

Thu Jun 21, 2012 11:20 pm (PDT)

Re: Menampilkan message alert dengan kriteria tertentu

Posted by: "Leonardo Endry widodo" monalisaxx_16@yahoo.com monalisaxx_16

Thu Jun 21, 2012 11:26 pm (PDT)

Re: Menampilkan message alert dengan kriteria tertentu

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

Thu Jun 21, 2012 11:50 pm (PDT)

Re: Chekbox click

Posted by: "Markonah" markonatul@gmail.com m_tulqiyem

Thu Jun 21, 2012 11:26 pm (PDT)

Re: Chekbox click

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

Thu Jun 21, 2012 11:29 pm (PDT)

Bls: [belajar-excel] help sepertinya ada yg salah dengan code ku

Posted by: "Harumi Wanasita" hwanasita@yahoo.com hwanasita

Fri Jun 22, 2012 12:18 am (PDT)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me