Kamis, 31 Desember 2015

[belajar-excel] Digest Number 3705

10 Messages

Digest #3705

Messages

Wed Dec 30, 2015 5:37 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Nah itu sudah ada script nya...

1. kalau mengaktifkan Application.OnTime berbunyi :
application.ontime waktu_A, "prosedur yang dipanggil"
maka buat penon aktifannya diakhir proses (misal saat workbook ditutup,
userform ditutup atau sebagainya) dengan
application.ontime waktu_A, "prosedur yang dipanggil", schedule:=false

2. kalau mengatur Application.visible=false, maka buat juga
Application.visible=true diakhir proses.

dst-dst

Silakan dicoba untuk ditata ulang alurnya.

Wassalam,
Kid

2015-12-31 7:35 GMT+07:00 HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Yth. Pak Kid
>
> Terlampir code script yang saya gunakan
>
> *di ThisWoorkbook :*
>
> 'proses untuk disable macro
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> Dim ws As Worksheet ' ws sebagai worksheet
>
> Application.ScreenUpdating = False
> Worksheets("warning").Visible = xlSheetVisible
>
> For Each ws In ThisWorkbook.Worksheets
> If Not ws.Name = "warning" Then ws.Visible = xlSheetVeryHidden
> Next ws
>
> Application.DisplayAlerts = False
> ActiveWorkbook.Save
> Application.DisplayAlerts = True
> End Sub
> 'proses untuk enable macro
> Private Sub Workbook_Open()
> Dim ws As Worksheet
> Application.ScreenUpdating = True
> For Each ws In ThisWorkbook.Worksheets
> If Not ws.Name = "warning" Then ws.Visible = xlSheetVisible
> Next ws
>
> Worksheets("warning").Visible = xlSheetVeryHidden
>
> With Application
> .DisplayFullScreen = True
> .CommandBars("Worksheet Menu Bar").Enabled = False
> .Visible = False
> LOGIN.Show
> .Visible = True
> End With
>
> End Sub
>
> *di Userform :*
>
> 'LOGIN FORMAT
> Private Sub UserForm_Activate()
> Dim ws As Worksheet
> ThisWorkbook.Application.Calculate
>
> Set ws = Sheets("Password")
>
> ws.Activate
> ws.Range("A1:N50").Font.ColorIndex = 2
> Range("B4").Select
> LogNam.SetFocus
> FrmDaf.Visible = False
>
> End Sub
> Private Sub Masuk_Click()
> Dim ws As Worksheet
> Dim ws1 As Worksheet
> Dim ws2 As Worksheet
>
> ThisWorkbook.Application.Calculate
>
> Set ws = Sheets("Password")
> Set ws1 = Sheets("Admin")
> Set ws2 = Sheets("User")
>
> ws.Range("E4").Activate
>
>
> ActiveCell.Value = LogNam.Value
> ActiveCell.Offset(0, 1) = LogPwd.Value
>
> LogNam.Value = ""
> LogPwd.Value = ""
> LogNam.SetFocus
>
> If Range("I4").Value = True Then
> MsgBox "Nama Anda " & Range("E4") & " dan anda adalah " &
> Range("J4").Value
> Me.Hide
> Else
> MsgBox "Nama dan password salah... Kalau belum termasuk Anggota
> silahkan Daftar"
> ws.Select
> End If
>
> If Range("J4").Value = "Admin" Then
> ws1.Activate
>
> ElseIf Range("J4").Value = "User" Then
> ws2.Activate
>
> Else
> ws.Select
>
> End If
> LogNam.SetFocus
> End Sub
> Private Sub Daftar_Click()
> FrmDaf.Visible = True
> With Status
> .AddItem "User"
> .AddItem "Admin"
> End With
> End Sub
> Private Sub Tambah_Click()
> Dim Msg, Style, Title, Help, Ctxt, Response, MyString
>
> Dim ws As Worksheet
> ThisWorkbook.Application.Calculate
>
> Set ws = Sheets("Password")
> If DafNam.Value = "" Or DafPwd.Value = "" Or Status.Value = "" Then
> MsgBox "Data harus diisi semua"
> DafNam.Value = ""
> DafPwd.Value = ""
> Status.Value = ""
> DafNam.SetFocus
> Else
> ws.Range("B4").Select
> Do
> If IsEmpty(ActiveCell) = False Then
> ActiveCell.Offset(1, 0).Select
> End If
> Loop Until IsEmpty(ActiveCell) = True
>
> ActiveCell.Value = DafNam.Value
> ActiveCell.Offset(0, 1) = DafPwd.Value
> ActiveCell.Offset(0, 2) = Status.Value
>
> If Range("N4").Value > 1 Then
> MsgBox "Data sudah ada coba cari yang lain"
>
> Range("B4").End(xlDown).Select
> Range(Selection, Selection.End(xlToRight)).ClearContents
>
> DafNam.Value = ""
> DafPwd.Value = ""
> Status.Value = ""
> DafNam.SetFocus
>
> Else
> Msg = "Nama Anda : " & DafNam.Value & " ,Password : " & DafPwd.Value & " ,
> Coba Login"
> Style = vbOKCancel + vbDefaultButton1
> Title = "Konfirmasi"
>
> Response = MsgBox(Msg, Style, Title)
> If Response = vbOK Then
> ws.Range("B4").Select
> FrmDaf.Visible = False
> LogNam.SetFocus
> Else
> Range("B4").End(xlDown).Select
> Range(Selection, Selection.End(xlToRight)).ClearContents
>
> DafNam.Value = ""
> DafPwd.Value = ""
> Status.Value = ""
> DafNam.SetFocus
>
> End If
> End If
> End If
>
>
> ws.Range("B4").Select
>
> End Sub
>
> Private Sub FrmDaf_Layout()
> DafNam.Value = ""
> DafPwd.Value = ""
> Status.Value = ""
> DafNam.SetFocus
> End Sub
> Private Sub keluar_Click()
> ThisWorkbook.Close False
> End Sub
> Private Sub LogNam_MouseMove(ByVal Button As Integer, ByVal Shift As
> Integer, ByVal X As Single, ByVal Y As Single)
> LJUDUL.Caption = "MASUKKAN NAMA"
> End Sub
> Private Sub LogPwd_MouseMove(ByVal Button As Integer, ByVal Shift As
> Integer, ByVal X As Single, ByVal Y As Single)
> LJUDUL.Caption = "MASUKKAN PASSWORD"
> End Sub
> Private Sub DafNam_MouseMove(ByVal Button As Integer, ByVal Shift As
> Integer, ByVal X As Single, ByVal Y As Single)
> LJUDUL.Caption = "MASUKKAN NAMA BARU"
> End Sub
> Private Sub DafPwd_MouseMove(ByVal Button As Integer, ByVal Shift As
> Integer, ByVal X As Single, ByVal Y As Single)
> LJUDUL.Caption = "MASUKKAN PASSWORD BARU"
> End Sub
> Private Sub Status_MouseMove(ByVal Button As Integer, ByVal Shift As
> Integer, ByVal X As Single, ByVal Y As Single)
> LJUDUL.Caption = "MASUKKAN STATUS"
> End Sub
> Private Sub keluar_MouseMove(ByVal Button As Integer, ByVal Shift As
> Integer, ByVal X As Single, ByVal Y As Single)
> keluar.BackColor = vbBlack
> LJUDUL.Caption = "KELUAR DARI APLIKASI"
> End Sub
> Private Sub Masuk_MouseMove(ByVal Button As Integer, ByVal Shift As
> Integer, ByVal X As Single, ByVal Y As Single)
> Masuk.BackColor = vbRed
> LJUDUL.Caption = "MASUK KE APLIKASI"
> End Sub
> Private Sub Tambah_MouseMove(ByVal Button As Integer, ByVal Shift As
> Integer, ByVal X As Single, ByVal Y As Single)
> Tambah.BackColor = vbGreen
> LJUDUL.Caption = "TAMBAH NAMA"
> End Sub
> Private Sub Daftar_MouseMove(ByVal Button As Integer, ByVal Shift As
> Integer, ByVal X As Single, ByVal Y As Single)
> Daftar.BackColor = vbGreen
> LJUDUL.Caption = "DAFTAR NAMA"
> End Sub
> 'JAM digital
> Private Sub UserForm_Initialize()
> jam = Format(Now, "dd mmmm yyyy hh:mm:ss")
> m_lasttime = Now + TimeValue("00:00:01")
> Application.OnTime m_lasttime, "GetTime"
> End Sub
> Public Property Get LastTime() As Date
> LastTime = m_lasttime
> End Property
> Public Property Let LastTime(ByVal Value As Date)
> m_lasttime = Value
> End Property
> Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
> If CloseMode = vbFormControlMenu Then
> Cancel = True
> MsgBox "PAKAI TOMBOL EXIT"
> End If
> End Sub
>
> *di module :*
>
> Option Explicit
>
> Public Sub GetTime()
>
> Dim ld As Date
>
> LOGIN.jam = Format(Now, "dd mmmm yyyy hh:mm:ss")
> ld = Now + TimeValue("00:00:01")
>
> LOGIN.LastTime = ld
> Application.OnTime ld, "GetTime"
>
> End Sub
>
> Mohon Maaf mungkin pada kode tersebut terdapat kesalahan.
>
> Terimakasih Penjelasannya Pak Kid
>
> Wassalamualaikum
>
>
> Pada Kamis, 31 Desember 2015 7:05, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Wa'alaikumussalam wr wb
>
> Di set jadi per menit terus berhasil ? Yakin kalau berhasil ?
>
> Coba diperiksa lagi script nya...
> Anda meng-Aktif-kan Application.OnTime
> >> Pertanyaannya, ada gak baris script yang me-non-aktif-kan
> Application.OnTime ?
> >> Kalau tidak ada, mau Anda set timenya per 1 tahun juga gak bakalan
> selesai
>
> hadeeh...
> Jadi, kalau ada baris yang mengatur sesuatu yang sesuai selera, maka harus
> ada baris yang mengembalikan pengaturan tadi ke setting awalnya.
>
> Coba perhatikan berbagai script yang tersebar di milis. Contoh simpelnya
> adalah pengaturan lingkungan kerja VBA yang bunyinya begini :
> application.screenupdating=false
> application.enableevents=false
>
> maka harus ada baris pengaturan yang mengembalikannya menjadi true
> kembali. Misal sebelum baris End Sub di prosedur itu ada baris berbunyi :
> application.enableevents=true
> application.screenupdating=true
>
> Set balik suatu pengaturan yang kelihatannya merepotkan seperti itu perlu
> didisiplinkan.
> Apalagi kalau sudah menyangkut pengaturan yang melibatkan object
> Application, seperti Application.OnTime, Application.Visible,
> Application.CommandBars, Application.DisplayFullScreen, dan sebagainya.
> Karena 1 aplikasi Excel bisa berisi banyak workbook dan bisa jadi tidak
> semua workbook yang terbuka di aplikasi Excel yang diatur tersebut
> membutuhkan pengaturan yang sama.
>
> :(
>
> Wassalamu'alaikum wr wb
> Kid
>
>
> On Thu, Dec 31, 2015 at 5:56 AM, HAIRUL ALAM ha_mj76@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Assalamualaikum
>
> Yth. Pak Kid
>
> Terimakasih Banyak Penjelasannya
> Udah saya coba rubah waktu menjadi per menit, Alhamdulillah berhasil
> Terimakasih dan mohon maaf bila dalam pertanyaan saya ada yang kurang jelas
>
> Wassalamualaikum
>
>
> Pada Rabu, 30 Desember 2015 23:57, "Toby kenzo tobykenzo@yahoo.co.id
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Dear Hairul,
> Saya coba untuk menjawab.
> Crash yg terjadi pada program yg anda buat adalah penggunaan "Aplikasi jam
> digital".
> Pada Excel 2007 penggunaan formula application.ontime dgn di tambah
> timevalue cuma 1 detik akan membuat program menjadi "kacau" karna "time"
> pada saat active program tertentu akan terpengaruh oleh program yg ada
> application.ontime + timevalue nya.
> #. Program PIPELINE_INSPECTION ada dimana ya...?
>
> #. Program jam digital bisa digunakan dgn baik di excel 2007 keatas, jika
> ingin tetap digunakan coba beri delay timenya permenit bukan per detik.
> TerimaKasih.
> Sent from Yahoo Mail on Android
> <http://overview.mail.yahoo.com/mobile/?.src=Android>
>
> ------------------------------
> * From: * HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <
> belajar-excel@yahoogroups.com>;
> * To: * <belajar-excel@yahoogroups.com>;
> * Subject: * Bls: [belajar-excel] Aplikasi Excel yang menggunakan VBA [1
> Attachment]
> * Sent: * Wed, Dec 30, 2015 12:04:52 PM
>
>
> Assalamualaikum
>
> Yth. Pak Kid
>
> Betul Pak jadi ada code yang membuat aplikasi vba saya crash
>
> terlampir contoh aplikasi saya yang dimaksud
>
> Terimakasih Banyak Penjelasannya Pak
>
> Wassalamualaikum
>
>
> Pada Rabu, 30 Desember 2015 17:33, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Wa'alaikumussalam wr wb
>
> Jadi masalahnya bukan VBA yang menutup workbook atau aplikasi. Tapi ada
> elemen yang dijalankan VBA yang membuat crash. Begitu ?
> Dalam workbook yang ber VBA ada yang pakai Application.OnTime atau Do Loop
> ?
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
>
>
> On Wed, Dec 30, 2015 at 5:27 PM, HAIRUL ALAM ha_mj76@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Assalamualaikum
>
> Terimakasih Penjelasannya Pak Kid
>
> Maksud saya
>
> saya mempunyai file beberapa file excel
>
> file 1 (Data base) banyak workbook dalam satu aplikasi dengan menggunakan
> vba
> file 2 (Data harian) hanya workbook biasa dan tidak menggunakan vba
>
> jadi kedua file 1 & 2 saya buka dan setelah selesai menggunakan file 1 dan
> ingin menutupnya disitulah terjadi crash yang membuat file 2 juga ikut
> tertutup, begitulah maksud saya Pak
>
> Terimakasih banyak
>
> Wassalamualaikum
>
>
> Pada Rabu, 30 Desember 2015 17:16, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Sama-sama.
>
> Moga-moga jadi jelas ya...
>
> Aplikasi Excel (di VBA diwakili dengan Application) bisa berisi banyak
> Workbook.
> Menutup workbook TIDAK sama dengan menutup aplikasi.
> Kalau menutup aplikasi, seluruh workbook dalam aplikasi akan ditutup juga,
> soale bandarnya dah beres-beres disuruh tutup.
> Kalau menutup workbook, maka hanya workbook tersebut yang ditutup. Walau
> semua workbook dalam aplikasi sudah ditutup, aplikasinya ndak akan tertutup
> alias tampak blank tak ada workbook.
>
> Wassalam,
> Kid
>
>
>
>
>
>
>
> On Wed, Dec 30, 2015 at 5:05 PM, HAIRUL ALAM ha_mj76@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Terimkasih banyak Pak Kid
>
>
> Pada Rabu, 30 Desember 2015 14:20, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai Hairul,
>
> Coba cari di dalam script, semua yang berbunyi Application.quit diganti
> dengan
> thisworkbook.close false 'kalau tidak ingin disave dulu
> atau lakukan save workbook dengan thisworkbook.save sebelum
> thisworkbook.close false
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
>
>
>
>
> On Wed, Dec 30, 2015 at 2:14 PM, HAIRUL ALAM ha_mj76@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Assalamualaikum
>
> Yth. Pak Kid
>
> Maksud dari berpengaruh pada file lain, bila saya menutup aplikasi yang
> memiliki Vba yang ada saya lampirkan kemarin, file excel yang lain ikut
> tertutup, yang artinya harus buka ulang file yang lain tadi Pak, Mohon Maaf
> bila penjelasan saya kurang dimengerti
>
> Terimakasih
> Wassalamualaikum
>
>
> Pada Senin, 28 Desember 2015 6:37, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai Hairul,
>
> Adakah penjelasan yang lebih spesifik tentang 'berpengaruh pada file Excel
> Lain yang sedang aktif' ?
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
>
>
> 2015-12-23 10:27 GMT+07:00 HAIRUL ALAM ha_mj76@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Assalamualaikum
>
> Yth. Para Milis Excel
>
> Saya memiliki masalah Close aplikasi Excel yang menggunakan VBA,
> berpengaruh pada file Excel Lain yang sedang aktif
>
> Bagaimana mengatasinya agar file excel yang memiliki VBA tersebut bekerja
> sendiri dan bila di close file excel yang lain tidak berpengaruh
>
> Terimakasih Banyak
>
> Wassalamualaikum
> Hairul Alam
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

Wed Dec 30, 2015 7:02 pm (PST) . Posted by:

"HAIRUL ALAM"

Assalamualaikum
Yth. Pak Kid
Terimakasih Banyak Penjelasannya Pak Kid
Akan saya pelajari lagi
Wassalamualaikum

Pada Kamis, 31 Desember 2015 8:36, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Nah itu sudah ada script nya...

1. kalau mengaktifkan Application.OnTime berbunyi :
     application.ontime waktu_A, "prosedur yang dipanggil"
maka buat penon aktifannya diakhir proses (misal saat workbook ditutup, userform ditutup atau sebagainya) dengan
     application.ontime waktu_A, "prosedur yang dipanggil", schedule:=false

2. kalau mengatur Application.visible=false, maka buat juga Application.visible=true diakhir proses.

dst-dst

Silakan dicoba untuk ditata ulang alurnya.

Wassalam,
Kid

2015-12-31 7:35 GMT+07:00 HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

  Yth. Pak Kid
Terlampir code script yang saya gunakan
di ThisWoorkbook :
'proses untuk disable macroPrivate Sub Workbook_BeforeClose(Cancel As Boolean)    Dim ws As Worksheet ' ws sebagai worksheet        Application.ScreenUpdating = False    Worksheets("warning").Visible = xlSheetVisible        For Each ws In ThisWorkbook.Worksheets        If Not ws.Name = "warning" Then ws.Visible = xlSheetVeryHidden    Next ws      Application.DisplayAlerts = False    ActiveWorkbook.Save    Application.DisplayAlerts = TrueEnd Sub'proses untuk enable macroPrivate Sub Workbook_Open()Dim ws As Worksheet Application.ScreenUpdating = True    For Each ws In ThisWorkbook.Worksheets        If Not ws.Name = "warning" Then ws.Visible = xlSheetVisible    Next ws         Worksheets("warning").Visible = xlSheetVeryHidden    With Application  .DisplayFullScreen = True  .CommandBars("Worksheet Menu Bar").Enabled = False    .Visible = False    LOGIN.Show    .Visible = TrueEnd With
End Sub
di Userform :
'LOGIN FORMATPrivate Sub UserForm_Activate()Dim ws As Worksheet    ThisWorkbook.Application.Calculate
    Set ws = Sheets("Password")
    ws.Activate    ws.Range("A1:N50").Font.ColorIndex = 2    Range("B4").Select    LogNam.SetFocus    FrmDaf.Visible = False   End SubPrivate Sub Masuk_Click()Dim ws As WorksheetDim ws1 As WorksheetDim ws2 As Worksheet
ThisWorkbook.Application.Calculate
Set ws = Sheets("Password")Set ws1 = Sheets("Admin")Set ws2 = Sheets("User")
ws.Range("E4").Activate

ActiveCell.Value = LogNam.ValueActiveCell.Offset(0, 1) = LogPwd.Value  LogNam.Value = ""LogPwd.Value = ""LogNam.SetFocus   If Range("I4").Value = True Then        MsgBox "Nama Anda " & Range("E4") & " dan anda adalah " & Range("J4").Value        Me.Hide    Else        MsgBox "Nama dan password salah... Kalau belum termasuk Anggota silahkan Daftar"        ws.SelectEnd If    If Range("J4").Value = "Admin" Then        ws1.Activate                    ElseIf Range("J4").Value = "User" Then        ws2.Activate            Else        ws.Select        End IfLogNam.SetFocusEnd SubPrivate Sub Daftar_Click()FrmDaf.Visible = True    With Status        .AddItem "User"        .AddItem "Admin"    End WithEnd SubPrivate Sub Tambah_Click()Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Dim ws As WorksheetThisWorkbook.Application.Calculate
Set ws = Sheets("Password")If DafNam.Value = "" Or DafPwd.Value = "" Or Status.Value = "" ThenMsgBox "Data harus diisi semua"    DafNam.Value = ""    DafPwd.Value = ""    Status.Value = ""    DafNam.SetFocusElsews.Range("B4").SelectDo    If IsEmpty(ActiveCell) = False Then        ActiveCell.Offset(1, 0).Select    End IfLoop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = DafNam.Value    ActiveCell.Offset(0, 1) = DafPwd.Value    ActiveCell.Offset(0, 2) = Status.Value
If Range("N4").Value > 1 ThenMsgBox "Data sudah ada coba cari yang lain"
Range("B4").End(xlDown).SelectRange(Selection, Selection.End(xlToRight)).ClearContents        DafNam.Value = ""    DafPwd.Value = ""    Status.Value = ""    DafNam.SetFocus
ElseMsg = "Nama Anda : " & DafNam.Value & " ,Password : " & DafPwd.Value & " , Coba Login"Style = vbOKCancel + vbDefaultButton1Title = "Konfirmasi"
Response = MsgBox(Msg, Style, Title)If Response = vbOK Then    ws.Range("B4").Select    FrmDaf.Visible = False    LogNam.SetFocusElse    Range("B4").End(xlDown).Select    Range(Selection, Selection.End(xlToRight)).ClearContents        DafNam.Value = ""    DafPwd.Value = ""    Status.Value = ""    DafNam.SetFocus
End IfEnd IfEnd If

ws.Range("B4").Select
End Sub
Private Sub FrmDaf_Layout()    DafNam.Value = ""    DafPwd.Value = ""    Status.Value = ""    DafNam.SetFocusEnd SubPrivate Sub keluar_Click()ThisWorkbook.Close FalseEnd SubPrivate Sub LogNam_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)LJUDUL.Caption = "MASUKKAN NAMA"End SubPrivate Sub LogPwd_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)LJUDUL.Caption = "MASUKKAN PASSWORD"End SubPrivate Sub DafNam_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)LJUDUL.Caption = "MASUKKAN NAMA BARU"End SubPrivate Sub DafPwd_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)LJUDUL.Caption = "MASUKKAN PASSWORD BARU"End SubPrivate Sub Status_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)LJUDUL.Caption = "MASUKKAN STATUS"End SubPrivate Sub keluar_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)keluar.BackColor = vbBlackLJUDUL.Caption = "KELUAR DARI APLIKASI"End SubPrivate Sub Masuk_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)Masuk.BackColor = vbRedLJUDUL.Caption = "MASUK KE APLIKASI"End SubPrivate Sub Tambah_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)Tambah.BackColor = vbGreenLJUDUL.Caption = "TAMBAH NAMA"End SubPrivate Sub Daftar_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)Daftar.BackColor = vbGreenLJUDUL.Caption = "DAFTAR NAMA"End Sub'JAM digitalPrivate Sub UserForm_Initialize()jam = Format(Now, "dd mmmm yyyy   hh:mm:ss")m_lasttime = Now + TimeValue("00:00:01")Application.OnTime m_lasttime, "GetTime"End SubPublic Property Get LastTime() As DateLastTime = m_lasttimeEnd PropertyPublic Property Let LastTime(ByVal Value As Date)m_lasttime = ValueEnd PropertyPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)If CloseMode = vbFormControlMenu ThenCancel = TrueMsgBox "PAKAI TOMBOL EXIT"End IfEnd Sub
di module :
Option Explicit Public Sub GetTime() Dim ld As Date LOGIN.jam = Format(Now, "dd mmmm yyyy   hh:mm:ss")ld = Now + TimeValue("00:00:01") LOGIN.LastTime = ldApplication.OnTime ld, "GetTime" End Sub
Mohon Maaf mungkin pada kode tersebut terdapat kesalahan.
Terimakasih Penjelasannya Pak Kid
Wassalamualaikum

Pada Kamis, 31 Desember 2015 7:05, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Wa'alaikumussalam wr wb

Di set jadi per menit terus berhasil ? Yakin kalau berhasil ?

Coba diperiksa lagi script nya...
Anda meng-Aktif-kan Application.OnTime
>> Pertanyaannya, ada gak baris script yang me-non-aktif-kan Application.OnTime ?
>> Kalau tidak ada, mau Anda set timenya per 1 tahun juga gak bakalan selesai

hadeeh...
Jadi, kalau ada baris yang mengatur sesuatu yang sesuai selera, maka harus ada baris yang mengembalikan pengaturan tadi ke setting awalnya.

Coba perhatikan berbagai script yang tersebar di milis. Contoh simpelnya adalah pengaturan lingkungan kerja VBA yang bunyinya begini :
application.screenupdating=false
application.enableevents=false

maka harus ada baris pengaturan yang mengembalikannya menjadi true kembali. Misal sebelum baris End Sub di prosedur itu ada baris berbunyi :
application.enableevents=true
application.screenupdating=true

Set balik suatu pengaturan yang kelihatannya merepotkan seperti itu perlu didisiplinkan.
Apalagi kalau sudah menyangkut pengaturan yang melibatkan object Application, seperti Application.OnTime, Application.Visible, Application.CommandBars, Application.DisplayFullScreen, dan sebagainya. Karena 1 aplikasi Excel bisa berisi banyak workbook dan bisa jadi tidak semua workbook yang terbuka di aplikasi Excel yang diatur tersebut membutuhkan pengaturan yang sama.

:(

Wassalamu'alaikum wr wb
Kid

On Thu, Dec 31, 2015 at 5:56 AM, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  Assalamualaikum
Yth. Pak Kid
Terimakasih Banyak PenjelasannyaUdah saya coba rubah waktu menjadi per menit, Alhamdulillah berhasilTerimakasih dan mohon maaf bila dalam pertanyaan saya ada yang kurang jelas
Wassalamualaikum

Pada Rabu, 30 Desember 2015 23:57, "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


 
| Dear Hairul,Saya coba untuk menjawab.
Crash yg terjadi pada program yg anda buat adalah penggunaan "Aplikasi jam digital".
Pada Excel 2007 penggunaan formula application.ontime dgn di tambah timevalue cuma 1 detik akan membuat program menjadi "kacau" karna "time" pada saat active program tertentu akan terpengaruh oleh program yg ada application.ontime + timevalue nya.#. Program PIPELINE_INSPECTION ada dimana ya...?

#. Program jam digital bisa digunakan dgn baik di excel 2007 keatas, jika ingin tetap digunakan coba beri delay timenya permenit bukan per detik.TerimaKasih.
Sent from Yahoo Mail on Android |

From: HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: Bls: [belajar-excel] Aplikasi Excel yang menggunakan VBA [1 Attachment]
Sent: Wed, Dec 30, 2015 12:04:52 PM


|   Assalamualaikum
Yth. Pak Kid
Betul Pak jadi ada code yang membuat aplikasi vba saya crash
terlampir contoh aplikasi saya yang dimaksud
Terimakasih Banyak Penjelasannya Pak
Wassalamualaikum

Pada Rabu, 30 Desember 2015 17:33, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Wa'alaikumussalam wr wb

Jadi masalahnya bukan VBA yang menutup workbook atau aplikasi. Tapi ada elemen yang dijalankan VBA yang membuat crash. Begitu ?
Dalam workbook yang ber VBA ada yang pakai Application.OnTime atau Do Loop ?

Wassalamu'alaikum wr wb
Kid

On Wed, Dec 30, 2015 at 5:27 PM, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  Assalamualaikum
Terimakasih Penjelasannya Pak Kid
Maksud saya

saya mempunyai file beberapa file excel
file 1 (Data base) banyak workbook dalam satu aplikasi dengan menggunakan vbafile 2 (Data harian) hanya workbook biasa dan tidak menggunakan vba
jadi kedua file 1 & 2 saya buka dan setelah selesai menggunakan file 1 dan ingin menutupnya disitulah terjadi crash yang membuat file 2 juga ikut tertutup, begitulah maksud saya Pak
Terimakasih banyak
Wassalamualaikum

Pada Rabu, 30 Desember 2015 17:16, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Sama-sama.

Moga-moga jadi jelas ya...

Aplikasi Excel (di VBA diwakili dengan Application) bisa berisi banyak Workbook.
Menutup workbook TIDAK sama dengan menutup aplikasi.
Kalau menutup aplikasi, seluruh workbook dalam aplikasi akan ditutup juga, soale bandarnya dah beres-beres disuruh tutup.
Kalau menutup workbook, maka hanya workbook tersebut yang ditutup. Walau semua workbook dalam aplikasi sudah ditutup, aplikasinya ndak akan tertutup alias tampak blank tak ada workbook.

Wassalam,
Kid

On Wed, Dec 30, 2015 at 5:05 PM, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  Terimkasih banyak Pak Kid

Pada Rabu, 30 Desember 2015 14:20, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Wa'alaikumussalam wr wb

Hai Hairul,

Coba cari di dalam script, semua yang berbunyi Application.quit diganti dengan
    thisworkbook.close false   'kalau tidak ingin disave dulu
atau lakukan save workbook dengan thisworkbook.save sebelum thisworkbook.close false

Wassalamu'alaikum wr wb
Kid

On Wed, Dec 30, 2015 at 2:14 PM, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  Assalamualaikum
Yth. Pak Kid
Maksud dari berpengaruh pada file lain, bila saya menutup aplikasi yang memiliki Vba yang ada saya lampirkan kemarin, file excel yang lain ikut tertutup, yang artinya harus buka ulang file yang lain tadi Pak, Mohon Maaf bila penjelasan saya kurang dimengerti
TerimakasihWassalamualaikum

Pada Senin, 28 Desember 2015 6:37, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Wa'alaikumussalam wr wb

Hai Hairul,

Adakah penjelasan yang lebih spesifik tentang 'berpengaruh pada file Excel Lain yang sedang aktif' ?

Wassalamu'alaikum wr wb
Kid

2015-12-23 10:27 GMT+07:00 HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

  Assalamualaikum
Yth. Para Milis Excel
Saya memiliki masalah Close aplikasi Excel yang menggunakan VBA, berpengaruh pada file Excel Lain yang sedang aktif
Bagaimana mengatasinya agar file excel yang memiliki VBA tersebut bekerja sendiri dan bila di close file excel yang lain tidak berpengaruh
Terimakasih Banyak
WassalamualaikumHairul Alam

|

#yiv9198845721 #yiv9198845721 -- #yiv9198845721ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9198845721 #yiv9198845721ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9198845721 #yiv9198845721ygrp-mkp #yiv9198845721hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9198845721 #yiv9198845721ygrp-mkp #yiv9198845721ads {margin-bottom:10px;}#yiv9198845721 #yiv9198845721ygrp-mkp .yiv9198845721ad {padding:0 0;}#yiv9198845721 #yiv9198845721ygrp-mkp .yiv9198845721ad p {margin:0;}#yiv9198845721 #yiv9198845721ygrp-mkp .yiv9198845721ad a {color:#0000ff;text-decoration:none;}#yiv9198845721 #yiv9198845721ygrp-sponsor #yiv9198845721ygrp-lc {font-family:Arial;}#yiv9198845721 #yiv9198845721ygrp-sponsor #yiv9198845721ygrp-lc #yiv9198845721hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9198845721 #yiv9198845721ygrp-sponsor #yiv9198845721ygrp-lc .yiv9198845721ad {margin-bottom:10px;padding:0 0;}#yiv9198845721 #yiv9198845721actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9198845721 #yiv9198845721activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9198845721 #yiv9198845721activity span {font-weight:700;}#yiv9198845721 #yiv9198845721activity span:first-child {text-transform:uppercase;}#yiv9198845721 #yiv9198845721activity span a {color:#5085b6;text-decoration:none;}#yiv9198845721 #yiv9198845721activity span span {color:#ff7900;}#yiv9198845721 #yiv9198845721activity span .yiv9198845721underline {text-decoration:underline;}#yiv9198845721 .yiv9198845721attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9198845721 .yiv9198845721attach div a {text-decoration:none;}#yiv9198845721 .yiv9198845721attach img {border:none;padding-right:5px;}#yiv9198845721 .yiv9198845721attach label {display:block;margin-bottom:5px;}#yiv9198845721 .yiv9198845721attach label a {text-decoration:none;}#yiv9198845721 blockquote {margin:0 0 0 4px;}#yiv9198845721 .yiv9198845721bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9198845721 .yiv9198845721bold a {text-decoration:none;}#yiv9198845721 dd.yiv9198845721last p a {font-family:Verdana;font-weight:700;}#yiv9198845721 dd.yiv9198845721last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9198845721 dd.yiv9198845721last p span.yiv9198845721yshortcuts {margin-right:0;}#yiv9198845721 div.yiv9198845721attach-table div div a {text-decoration:none;}#yiv9198845721 div.yiv9198845721attach-table {width:400px;}#yiv9198845721 div.yiv9198845721file-title a, #yiv9198845721 div.yiv9198845721file-title a:active, #yiv9198845721 div.yiv9198845721file-title a:hover, #yiv9198845721 div.yiv9198845721file-title a:visited {text-decoration:none;}#yiv9198845721 div.yiv9198845721photo-title a, #yiv9198845721 div.yiv9198845721photo-title a:active, #yiv9198845721 div.yiv9198845721photo-title a:hover, #yiv9198845721 div.yiv9198845721photo-title a:visited {text-decoration:none;}#yiv9198845721 div#yiv9198845721ygrp-mlmsg #yiv9198845721ygrp-msg p a span.yiv9198845721yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9198845721 .yiv9198845721green {color:#628c2a;}#yiv9198845721 .yiv9198845721MsoNormal {margin:0 0 0 0;}#yiv9198845721 o {font-size:0;}#yiv9198845721 #yiv9198845721photos div {float:left;width:72px;}#yiv9198845721 #yiv9198845721photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9198845721 #yiv9198845721photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9198845721 #yiv9198845721reco-category {font-size:77%;}#yiv9198845721 #yiv9198845721reco-desc {font-size:77%;}#yiv9198845721 .yiv9198845721replbq {margin:4px;}#yiv9198845721 #yiv9198845721ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9198845721 #yiv9198845721ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9198845721 #yiv9198845721ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9198845721 #yiv9198845721ygrp-mlmsg select, #yiv9198845721 input, #yiv9198845721 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9198845721 #yiv9198845721ygrp-mlmsg pre, #yiv9198845721 code {font:115% monospace;}#yiv9198845721 #yiv9198845721ygrp-mlmsg * {line-height:1.22em;}#yiv9198845721 #yiv9198845721ygrp-mlmsg #yiv9198845721logo {padding-bottom:10px;}#yiv9198845721 #yiv9198845721ygrp-msg p a {font-family:Verdana;}#yiv9198845721 #yiv9198845721ygrp-msg p#yiv9198845721attach-count span {color:#1E66AE;font-weight:700;}#yiv9198845721 #yiv9198845721ygrp-reco #yiv9198845721reco-head {color:#ff7900;font-weight:700;}#yiv9198845721 #yiv9198845721ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9198845721 #yiv9198845721ygrp-sponsor #yiv9198845721ov li a {font-size:130%;text-decoration:none;}#yiv9198845721 #yiv9198845721ygrp-sponsor #yiv9198845721ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9198845721 #yiv9198845721ygrp-sponsor #yiv9198845721ov ul {margin:0;padding:0 0 0 8px;}#yiv9198845721 #yiv9198845721ygrp-text {font-family:Georgia;}#yiv9198845721 #yiv9198845721ygrp-text p {margin:0 0 1em 0;}#yiv9198845721 #yiv9198845721ygrp-text tt {font-size:120%;}#yiv9198845721 #yiv9198845721ygrp-vital ul li:last-child {border-right:none !important;}#yiv9198845721

Wed Dec 30, 2015 7:03 pm (PST) . Posted by:

Dear Para Master Be-Exceller,

Mohon bantuan dari para master untuk kasus excel berikut. ambil data
dari sheet lain (file terlampir)

Mohon bantuannya.

Salam,
archa

Wed Dec 30, 2015 8:33 pm (PST) . Posted by:

"Nang Agus"

2015-12-31 10:01 GMT+07:00 wong_camp15@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Para Master Be-Exceller,
>
> Mohon bantuan dari para master untuk kasus excel berikut. ambil data dari
> sheet lain (file terlampir)
>
> Mohon bantuannya.
>
> Salam,
> archa
>
>
>

Wed Dec 30, 2015 8:48 pm (PST) . Posted by:

"odong nando"

yoo archa,
file terlampir adalah implementasi dari coretan mr.kid yang ada di sini 
br,

odong nando


Pada Kamis, 31 Desember 2015 11:34, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


 

2015-12-31 10:01 GMT+07:00 wong_camp15@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  Dear Para Master Be-Exceller, Mohon bantuan dari para master untuk kasus excel berikut. ambil data dari sheet lain (file terlampir)
Mohon bantuannya. Salam,
archa

#yiv8034926648 #yiv8034926648 -- #yiv8034926648ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8034926648 #yiv8034926648ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8034926648 #yiv8034926648ygrp-mkp #yiv8034926648hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv8034926648 #yiv8034926648ygrp-mkp #yiv8034926648ads {margin-bottom:10px;}#yiv8034926648 #yiv8034926648ygrp-mkp .yiv8034926648ad {padding:0 0;}#yiv8034926648 #yiv8034926648ygrp-mkp .yiv8034926648ad p {margin:0;}#yiv8034926648 #yiv8034926648ygrp-mkp .yiv8034926648ad a {color:#0000ff;text-decoration:none;}#yiv8034926648 #yiv8034926648ygrp-sponsor #yiv8034926648ygrp-lc {font-family:Arial;}#yiv8034926648 #yiv8034926648ygrp-sponsor #yiv8034926648ygrp-lc #yiv8034926648hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8034926648 #yiv8034926648ygrp-sponsor #yiv8034926648ygrp-lc .yiv8034926648ad {margin-bottom:10px;padding:0 0;}#yiv8034926648 #yiv8034926648actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8034926648 #yiv8034926648activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8034926648 #yiv8034926648activity span {font-weight:700;}#yiv8034926648 #yiv8034926648activity span:first-child {text-transform:uppercase;}#yiv8034926648 #yiv8034926648activity span a {color:#5085b6;text-decoration:none;}#yiv8034926648 #yiv8034926648activity span span {color:#ff7900;}#yiv8034926648 #yiv8034926648activity span .yiv8034926648underline {text-decoration:underline;}#yiv8034926648 .yiv8034926648attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv8034926648 .yiv8034926648attach div a {text-decoration:none;}#yiv8034926648 .yiv8034926648attach img {border:none;padding-right:5px;}#yiv8034926648 .yiv8034926648attach label {display:block;margin-bottom:5px;}#yiv8034926648 .yiv8034926648attach label a {text-decoration:none;}#yiv8034926648 blockquote {margin:0 0 0 4px;}#yiv8034926648 .yiv8034926648bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv8034926648 .yiv8034926648bold a {text-decoration:none;}#yiv8034926648 dd.yiv8034926648last p a {font-family:Verdana;font-weight:700;}#yiv8034926648 dd.yiv8034926648last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8034926648 dd.yiv8034926648last p span.yiv8034926648yshortcuts {margin-right:0;}#yiv8034926648 div.yiv8034926648attach-table div div a {text-decoration:none;}#yiv8034926648 div.yiv8034926648attach-table {width:400px;}#yiv8034926648 div.yiv8034926648file-title a, #yiv8034926648 div.yiv8034926648file-title a:active, #yiv8034926648 div.yiv8034926648file-title a:hover, #yiv8034926648 div.yiv8034926648file-title a:visited {text-decoration:none;}#yiv8034926648 div.yiv8034926648photo-title a, #yiv8034926648 div.yiv8034926648photo-title a:active, #yiv8034926648 div.yiv8034926648photo-title a:hover, #yiv8034926648 div.yiv8034926648photo-title a:visited {text-decoration:none;}#yiv8034926648 div#yiv8034926648ygrp-mlmsg #yiv8034926648ygrp-msg p a span.yiv8034926648yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8034926648 .yiv8034926648green {color:#628c2a;}#yiv8034926648 .yiv8034926648MsoNormal {margin:0 0 0 0;}#yiv8034926648 o {font-size:0;}#yiv8034926648 #yiv8034926648photos div {float:left;width:72px;}#yiv8034926648 #yiv8034926648photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv8034926648 #yiv8034926648photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8034926648 #yiv8034926648reco-category {font-size:77%;}#yiv8034926648 #yiv8034926648reco-desc {font-size:77%;}#yiv8034926648 .yiv8034926648replbq {margin:4px;}#yiv8034926648 #yiv8034926648ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv8034926648 #yiv8034926648ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8034926648 #yiv8034926648ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8034926648 #yiv8034926648ygrp-mlmsg select, #yiv8034926648 input, #yiv8034926648 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv8034926648 #yiv8034926648ygrp-mlmsg pre, #yiv8034926648 code {font:115% monospace;}#yiv8034926648 #yiv8034926648ygrp-mlmsg * {line-height:1.22em;}#yiv8034926648 #yiv8034926648ygrp-mlmsg #yiv8034926648logo {padding-bottom:10px;}#yiv8034926648 #yiv8034926648ygrp-msg p a {font-family:Verdana;}#yiv8034926648 #yiv8034926648ygrp-msg p#yiv8034926648attach-count span {color:#1E66AE;font-weight:700;}#yiv8034926648 #yiv8034926648ygrp-reco #yiv8034926648reco-head {color:#ff7900;font-weight:700;}#yiv8034926648 #yiv8034926648ygrp-reco {margin-bottom:20px;padding:0px;}#yiv8034926648 #yiv8034926648ygrp-sponsor #yiv8034926648ov li a {font-size:130%;text-decoration:none;}#yiv8034926648 #yiv8034926648ygrp-sponsor #yiv8034926648ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv8034926648 #yiv8034926648ygrp-sponsor #yiv8034926648ov ul {margin:0;padding:0 0 0 8px;}#yiv8034926648 #yiv8034926648ygrp-text {font-family:Georgia;}#yiv8034926648 #yiv8034926648ygrp-text p {margin:0 0 1em 0;}#yiv8034926648 #yiv8034926648ygrp-text tt {font-size:120%;}#yiv8034926648 #yiv8034926648ygrp-vital ul li:last-child {border-right:none !important;}#yiv8034926648

Wed Dec 30, 2015 9:20 pm (PST) . Posted by:

edo_hanggoro

Assalammualaikum

Dear para master,
Bagaimana cara untuk membuat rumus untuk dapat mengisi kolom dd dengan kondisi sebagai berikut:
1. Jumlah angka yang masuk di kolom dd tidak melebihi angka maksimal di sel E2
2. Angka yang masuk terlebih dahulu adalah angka yang berada di kolom cc kemudian baru angka yang di kolom bb dan setelah itu angka yg di kolom aa.
3. Angka yang masuk di kolom dd sesuai dengan angka dari kolom-kolom cc,bb dan aa (sebagai contoh jika angka maksimal 900 maka angka yang masuk di kolom adalah 200,100,500)
4. Contoh seperti di sheet contoh.
Terlampir file yang dimaksud.

Terima kasih
Wassalammualaikum

Edo

Wed Dec 30, 2015 10:16 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Wa'alaikumussalam wr wb

Hai Edo,

Bisa jadi keterangan tambahan berikut akan lebih memudahkan BeExceller yang
ingin menanggapi.

1. mungkinkah ada inputan yang mengisi seluruh kolom dalam 1 baris, seperti
berbentuk :
aa bb cc
100 100 100

2. mungkinkah inputannya tidak berurutan seperti berbentuk :
aa bb cc
100
100
100

Wassalamu'alaikum wr wb
Kid

2015-12-31 12:15 GMT+07:00 Edo_Hanggoro@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Assalammualaikum
>
> Dear para master,
> Bagaimana cara untuk membuat rumus untuk dapat mengisi kolom dd dengan
> kondisi sebagai berikut:
> 1. Jumlah angka yang masuk di kolom dd tidak melebihi angka maksimal di
> sel E2
> 2. Angka yang masuk terlebih dahulu adalah angka yang berada di kolom cc
> kemudian baru angka yang di kolom bb dan setelah itu angka yg di kolom aa.
> 3. Angka yang masuk di kolom dd sesuai dengan angka dari kolom-kolom cc,bb
> dan aa (sebagai contoh jika angka maksimal 900 maka angka yang masuk di
> kolom adalah 200,100,500)
> 4. Contoh seperti di sheet contoh.
> Terlampir file yang dimaksud.
>
> Terima kasih
> Wassalammualaikum
>
> Edo
>
>

Wed Dec 30, 2015 11:00 pm (PST) . Posted by:

"Edo Hanggoro" edo_hanggoro

Dear Mr. Kid,
Sebagai keterangan tambahan adalah bentuk inputannya tidak berurutan seperti yang di nomer 2.\ dan tidak ada data di kolom aa,bb,cc yang berada dalam satu baris.

Terima kasih
Edo

On Thursday, December 31, 2015 1:16 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Wa'alaikumussalam wr wb

Hai Edo,

Bisa jadi keterangan tambahan berikut akan lebih memudahkan BeExceller yang ingin menanggapi.

1. mungkinkah ada inputan yang mengisi seluruh kolom dalam 1 baris, seperti berbentuk :
      aa     bb     cc
     100   100   100

2. mungkinkah inputannya tidak berurutan seperti berbentuk :
      aa     bb     cc
                      100
     100
              100

Wassalamu'alaikum wr wb
Kid

2015-12-31 12:15 GMT+07:00 Edo_Hanggoro@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  Assalammualaikum

Dear para master,
Bagaimana cara untuk membuat rumus untuk dapat mengisi kolom dd dengan kondisi sebagai berikut:
1. Jumlah angka yang masuk di kolom dd tidak melebihi angka maksimal di sel E2
2. Angka yang masuk terlebih dahulu adalah angka yang berada di kolom cc kemudian baru angka yang di kolom bb dan setelah itu angka yg di kolom aa.

3. Angka yang masuk di kolom dd sesuai dengan angka dari kolom-kolom cc,bb dan aa (sebagai contoh jika angka maksimal 900 maka angka yang masuk di kolom adalah 200,100,500)
4. Contoh seperti di sheet contoh.
Terlampir file yang dimaksud.

Terima kasih
Wassalammualaikum

Edo

#yiv9595935959 #yiv9595935959 -- #yiv9595935959ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9595935959 #yiv9595935959ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9595935959 #yiv9595935959ygrp-mkp #yiv9595935959hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9595935959 #yiv9595935959ygrp-mkp #yiv9595935959ads {margin-bottom:10px;}#yiv9595935959 #yiv9595935959ygrp-mkp .yiv9595935959ad {padding:0 0;}#yiv9595935959 #yiv9595935959ygrp-mkp .yiv9595935959ad p {margin:0;}#yiv9595935959 #yiv9595935959ygrp-mkp .yiv9595935959ad a {color:#0000ff;text-decoration:none;}#yiv9595935959 #yiv9595935959ygrp-sponsor #yiv9595935959ygrp-lc {font-family:Arial;}#yiv9595935959 #yiv9595935959ygrp-sponsor #yiv9595935959ygrp-lc #yiv9595935959hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9595935959 #yiv9595935959ygrp-sponsor #yiv9595935959ygrp-lc .yiv9595935959ad {margin-bottom:10px;padding:0 0;}#yiv9595935959 #yiv9595935959actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9595935959 #yiv9595935959activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9595935959 #yiv9595935959activity span {font-weight:700;}#yiv9595935959 #yiv9595935959activity span:first-child {text-transform:uppercase;}#yiv9595935959 #yiv9595935959activity span a {color:#5085b6;text-decoration:none;}#yiv9595935959 #yiv9595935959activity span span {color:#ff7900;}#yiv9595935959 #yiv9595935959activity span .yiv9595935959underline {text-decoration:underline;}#yiv9595935959 .yiv9595935959attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9595935959 .yiv9595935959attach div a {text-decoration:none;}#yiv9595935959 .yiv9595935959attach img {border:none;padding-right:5px;}#yiv9595935959 .yiv9595935959attach label {display:block;margin-bottom:5px;}#yiv9595935959 .yiv9595935959attach label a {text-decoration:none;}#yiv9595935959 blockquote {margin:0 0 0 4px;}#yiv9595935959 .yiv9595935959bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9595935959 .yiv9595935959bold a {text-decoration:none;}#yiv9595935959 dd.yiv9595935959last p a {font-family:Verdana;font-weight:700;}#yiv9595935959 dd.yiv9595935959last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9595935959 dd.yiv9595935959last p span.yiv9595935959yshortcuts {margin-right:0;}#yiv9595935959 div.yiv9595935959attach-table div div a {text-decoration:none;}#yiv9595935959 div.yiv9595935959attach-table {width:400px;}#yiv9595935959 div.yiv9595935959file-title a, #yiv9595935959 div.yiv9595935959file-title a:active, #yiv9595935959 div.yiv9595935959file-title a:hover, #yiv9595935959 div.yiv9595935959file-title a:visited {text-decoration:none;}#yiv9595935959 div.yiv9595935959photo-title a, #yiv9595935959 div.yiv9595935959photo-title a:active, #yiv9595935959 div.yiv9595935959photo-title a:hover, #yiv9595935959 div.yiv9595935959photo-title a:visited {text-decoration:none;}#yiv9595935959 div#yiv9595935959ygrp-mlmsg #yiv9595935959ygrp-msg p a span.yiv9595935959yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9595935959 .yiv9595935959green {color:#628c2a;}#yiv9595935959 .yiv9595935959MsoNormal {margin:0 0 0 0;}#yiv9595935959 o {font-size:0;}#yiv9595935959 #yiv9595935959photos div {float:left;width:72px;}#yiv9595935959 #yiv9595935959photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9595935959 #yiv9595935959photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9595935959 #yiv9595935959reco-category {font-size:77%;}#yiv9595935959 #yiv9595935959reco-desc {font-size:77%;}#yiv9595935959 .yiv9595935959replbq {margin:4px;}#yiv9595935959 #yiv9595935959ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9595935959 #yiv9595935959ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9595935959 #yiv9595935959ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9595935959 #yiv9595935959ygrp-mlmsg select, #yiv9595935959 input, #yiv9595935959 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9595935959 #yiv9595935959ygrp-mlmsg pre, #yiv9595935959 code {font:115% monospace;}#yiv9595935959 #yiv9595935959ygrp-mlmsg * {line-height:1.22em;}#yiv9595935959 #yiv9595935959ygrp-mlmsg #yiv9595935959logo {padding-bottom:10px;}#yiv9595935959 #yiv9595935959ygrp-msg p a {font-family:Verdana;}#yiv9595935959 #yiv9595935959ygrp-msg p#yiv9595935959attach-count span {color:#1E66AE;font-weight:700;}#yiv9595935959 #yiv9595935959ygrp-reco #yiv9595935959reco-head {color:#ff7900;font-weight:700;}#yiv9595935959 #yiv9595935959ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9595935959 #yiv9595935959ygrp-sponsor #yiv9595935959ov li a {font-size:130%;text-decoration:none;}#yiv9595935959 #yiv9595935959ygrp-sponsor #yiv9595935959ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9595935959 #yiv9595935959ygrp-sponsor #yiv9595935959ov ul {margin:0;padding:0 0 0 8px;}#yiv9595935959 #yiv9595935959ygrp-text {font-family:Georgia;}#yiv9595935959 #yiv9595935959ygrp-text p {margin:0 0 1em 0;}#yiv9595935959 #yiv9595935959ygrp-text tt {font-size:120%;}#yiv9595935959 #yiv9595935959ygrp-vital ul li:last-child {border-right:none !important;}#yiv9595935959

Wed Dec 30, 2015 11:45 pm (PST) . Posted by:

"odong nando"

yoo edo,
coba masukan formula
=IF ( SUM ( $A6 : $ C $ 1 1 ) > $ E $ 2 ; "" ; SUM ( A6 : C 6 )  )
pada cell D6,
ganti karakter titik koma ";" menjadi koma "," bila regional kompi english br,

odong nando


Pada Kamis, 31 Desember 2015 14:00, "Edo Hanggoro Edo_Hanggoro@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Dear Mr. Kid,
Sebagai keterangan tambahan adalah bentuk inputannya tidak berurutan seperti yang di nomer 2.\ dan tidak ada data di kolom aa,bb,cc yang berada dalam satu baris.

Terima kasih
Edo

On Thursday, December 31, 2015 1:16 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Wa'alaikumussalam wr wb

Hai Edo,

Bisa jadi keterangan tambahan berikut akan lebih memudahkan BeExceller yang ingin menanggapi.

1. mungkinkah ada inputan yang mengisi seluruh kolom dalam 1 baris, seperti berbentuk :
      aa     bb     cc
     100   100   100

2. mungkinkah inputannya tidak berurutan seperti berbentuk :
      aa     bb     cc
                      100
     100
              100

Wassalamu'alaikum wr wb
Kid

2015-12-31 12:15 GMT+07:00 Edo_Hanggoro@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  Assalammualaikum

Dear para master,
Bagaimana cara untuk membuat rumus untuk dapat mengisi kolom dd dengan kondisi sebagai berikut:
1. Jumlah angka yang masuk di kolom dd tidak melebihi angka maksimal di sel E2
2. Angka yang masuk terlebih dahulu adalah angka yang berada di kolom cc kemudian baru angka yang di kolom bb dan setelah itu angka yg di kolom aa.
3. Angka yang masuk di kolom dd sesuai dengan angka dari kolom-kolom cc,bb dan aa (sebagai contoh jika angka maksimal 900 maka angka yang masuk di kolom adalah 200,100,500)
4. Contoh seperti di sheet contoh.
Terlampir file yang dimaksud.

Terima kasih
Wassalammualaikum

Edo

#yiv8432185618 #yiv8432185618 -- #yiv8432185618ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8432185618 #yiv8432185618ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8432185618 #yiv8432185618ygrp-mkp #yiv8432185618hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv8432185618 #yiv8432185618ygrp-mkp #yiv8432185618ads {margin-bottom:10px;}#yiv8432185618 #yiv8432185618ygrp-mkp .yiv8432185618ad {padding:0 0;}#yiv8432185618 #yiv8432185618ygrp-mkp .yiv8432185618ad p {margin:0;}#yiv8432185618 #yiv8432185618ygrp-mkp .yiv8432185618ad a {color:#0000ff;text-decoration:none;}#yiv8432185618 #yiv8432185618ygrp-sponsor #yiv8432185618ygrp-lc {font-family:Arial;}#yiv8432185618 #yiv8432185618ygrp-sponsor #yiv8432185618ygrp-lc #yiv8432185618hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8432185618 #yiv8432185618ygrp-sponsor #yiv8432185618ygrp-lc .yiv8432185618ad {margin-bottom:10px;padding:0 0;}#yiv8432185618 #yiv8432185618actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8432185618 #yiv8432185618activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8432185618 #yiv8432185618activity span {font-weight:700;}#yiv8432185618 #yiv8432185618activity span:first-child {text-transform:uppercase;}#yiv8432185618 #yiv8432185618activity span a {color:#5085b6;text-decoration:none;}#yiv8432185618 #yiv8432185618activity span span {color:#ff7900;}#yiv8432185618 #yiv8432185618activity span .yiv8432185618underline {text-decoration:underline;}#yiv8432185618 .yiv8432185618attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv8432185618 .yiv8432185618attach div a {text-decoration:none;}#yiv8432185618 .yiv8432185618attach img {border:none;padding-right:5px;}#yiv8432185618 .yiv8432185618attach label {display:block;margin-bottom:5px;}#yiv8432185618 .yiv8432185618attach label a {text-decoration:none;}#yiv8432185618 blockquote {margin:0 0 0 4px;}#yiv8432185618 .yiv8432185618bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv8432185618 .yiv8432185618bold a {text-decoration:none;}#yiv8432185618 dd.yiv8432185618last p a {font-family:Verdana;font-weight:700;}#yiv8432185618 dd.yiv8432185618last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8432185618 dd.yiv8432185618last p span.yiv8432185618yshortcuts {margin-right:0;}#yiv8432185618 div.yiv8432185618attach-table div div a {text-decoration:none;}#yiv8432185618 div.yiv8432185618attach-table {width:400px;}#yiv8432185618 div.yiv8432185618file-title a, #yiv8432185618 div.yiv8432185618file-title a:active, #yiv8432185618 div.yiv8432185618file-title a:hover, #yiv8432185618 div.yiv8432185618file-title a:visited {text-decoration:none;}#yiv8432185618 div.yiv8432185618photo-title a, #yiv8432185618 div.yiv8432185618photo-title a:active, #yiv8432185618 div.yiv8432185618photo-title a:hover, #yiv8432185618 div.yiv8432185618photo-title a:visited {text-decoration:none;}#yiv8432185618 div#yiv8432185618ygrp-mlmsg #yiv8432185618ygrp-msg p a span.yiv8432185618yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8432185618 .yiv8432185618green {color:#628c2a;}#yiv8432185618 .yiv8432185618MsoNormal {margin:0 0 0 0;}#yiv8432185618 o {font-size:0;}#yiv8432185618 #yiv8432185618photos div {float:left;width:72px;}#yiv8432185618 #yiv8432185618photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv8432185618 #yiv8432185618photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8432185618 #yiv8432185618reco-category {font-size:77%;}#yiv8432185618 #yiv8432185618reco-desc {font-size:77%;}#yiv8432185618 .yiv8432185618replbq {margin:4px;}#yiv8432185618 #yiv8432185618ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv8432185618 #yiv8432185618ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8432185618 #yiv8432185618ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8432185618 #yiv8432185618ygrp-mlmsg select, #yiv8432185618 input, #yiv8432185618 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv8432185618 #yiv8432185618ygrp-mlmsg pre, #yiv8432185618 code {font:115% monospace;}#yiv8432185618 #yiv8432185618ygrp-mlmsg * {line-height:1.22em;}#yiv8432185618 #yiv8432185618ygrp-mlmsg #yiv8432185618logo {padding-bottom:10px;}#yiv8432185618 #yiv8432185618ygrp-msg p a {font-family:Verdana;}#yiv8432185618 #yiv8432185618ygrp-msg p#yiv8432185618attach-count span {color:#1E66AE;font-weight:700;}#yiv8432185618 #yiv8432185618ygrp-reco #yiv8432185618reco-head {color:#ff7900;font-weight:700;}#yiv8432185618 #yiv8432185618ygrp-reco {margin-bottom:20px;padding:0px;}#yiv8432185618 #yiv8432185618ygrp-sponsor #yiv8432185618ov li a {font-size:130%;text-decoration:none;}#yiv8432185618 #yiv8432185618ygrp-sponsor #yiv8432185618ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv8432185618 #yiv8432185618ygrp-sponsor #yiv8432185618ov ul {margin:0;padding:0 0 0 8px;}#yiv8432185618 #yiv8432185618ygrp-text {font-family:Georgia;}#yiv8432185618 #yiv8432185618ygrp-text p {margin:0 0 1em 0;}#yiv8432185618 #yiv8432185618ygrp-text tt {font-size:120%;}#yiv8432185618 #yiv8432185618ygrp-vital ul li:last-child {border-right:none !important;}#yiv8432185618

Wed Dec 30, 2015 10:03 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Winda,

Coba file yang ada disini
<https://app.box.com/s/gjeehgsfp3b4eqdvllpuaejyb27bz0b2>.
Beberapa minor bug masih dibiarkan ada. Tetapi bug tersebut tidak
mempengaruhi kerjanya.

Wassalam,
Kid

2015-12-28 19:01 GMT+07:00 windawati ku windawatiku@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Mohon bantuan penulisan script vba macro pada kasus yang saya lampirkan, 3
> penulisan vba macro:
> 1. Script macro print jika kita tentukan sendiri nama sheet yang akan
> diprint misalnya ditulis di cell tertentu
> 2. script macro print jika kita menentukan/memilih sheets mana saja yang
> mau di print
> 3. script macro print semua data sheets.
> halaman disemua sheets telah ditentukan print areanya
>
> demikian kasus saya ini, mohon di bantu dengan sangat...sebelum dan
> sesudahnya saya sampaikan terimakasih.
>
>
> salam
> Win-D
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------
READ MORE....