Minggu, 28 Oktober 2012

[belajar-excel] Digest Number 1871

15 New Messages

Digest #1871
2a
2b
Re: Workbook Error dengan tampilan I/O Error by "Mr. Kid" nmkid.family@ymail.com
3a
Re: Membuat jam digital??? by "hendrik karnadi" hendrikkarnadi
4a
4b
Re: Macro untuk Memilih checkboxes (object) by "Mr. Kid" nmkid.family@ymail.com
4d
Re: Macro untuk Memilih checkboxes (object) by "Mr. Kid" nmkid.family@ymail.com
5a
ganti part dan membandingkan beberapa data by "ngademin Thohari" ngademinth
5b
Re: ganti part dan membandingkan beberapa data by "Mr. Kid" nmkid.family@ymail.com
6a
6b
Re: Input Link melalui User Form ke Database by "Mr. Kid" nmkid.family@ymail.com

Messages

Sat Oct 27, 2012 6:49 pm (PDT) . Posted by:

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

hehehe...
Biasanya MSO2007 (sebut spesifik untuk milis, Excel 2007 nya) ketika
di-install akan membuat agar ketika di run selalu sebagai New Instance. Apalagi
kalau di Windows 7. Kalau ndak demikian keadaannya, mungkin perlu coba cara
yang di-link yang pernah disebut di posting
lalu<http://blog.drewery.net/2006/08/29/utilising-dual-monitors-with-microsoft-excel-2003/>
.

Jadi, setting windows explorer options file type yang bisa membantu membuat
default ketika di-run dari windows explorer akan terbentuk sebagai instansi
baru yang dapat dilihat dalam task manager akan ada banyak thread aplikasi
Excel.

Kalau memang tetap ndak bisa, ya sudah. Saya juga ndak mudeng kenapa.
hehehe... mungkin belum saatnya bisa aja.

Wassalam,
Kid.

2012/10/27 Kurei recca <yusajing_ehm@yahoo.com>

> **
>
>
> Dear Mr Kid,
>
> Thx low atas feedbacknya,
>
> ohh gitu yaa mr kid,, hehehe, kebiasaan selalu huruf besar di subject
> karena pan nganggepnya itu adalah judul dari emailnya,, hehehe
>
> yeess Mr Kid, Tadi saya udah coba di Ms Office Excel 2010 dan berfungsi
> dengan baik bahwa ketika macro berjalan sekaligus dapat membuka file excel
> laen,,
>
> huhuhuhu, sayang banget ternyata 2007 ga bisa
>
> baiklah terimakasih yaa mr kid
>
> Best Regards,
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Jumat, 26 Oktober 2012 16:29
> *Judul:* Re: [belajar-excel] TETAP BISA MENGGUNAKAN EXCEL KETIKA MACRO
> SEDANG BERJALAN
>
>
> mbok yao judulnya ndak usah pake huruf besar semua. biasanya di dunia
> maya, teks dengan huruf besar semua artinya sedang membentak atau
> berteriak minta segera diperhatikan. coba deh jalan-jalan ke milis<http://tech.groups.yahoo.com/group/belajar-excel/files/Ber-eMail%20danBer-Milis-ria/>dan lihat file netiket.
>
> btw,
> Pada Excel 2007 ke atas, biasanya setiap kali buka file excel dari
> windows explorer, akan dibuatkan instansi baru excel. Jadi pada task
> manager akan ada 2 intansi excel. Hal ini bisa membuat VBA tetap berjalan
> di instansi excel pertama dan pekerjaan rutin dilakukan pada instansi
> excel kedua. Jika buka file dari menu Excel File Open, maka file akan
> dibuka dalam instansi yang sama dan akan sulit mencapai keinginan untuk
> bekerja sambil menunggu VBA bekerja.
>
> Kadang kala dibutuhkan setting file type pada windows explorer tentang
> bagaimana windows explorer membuka si file (di Windows 7 gak tahu ada
> dimana). Untuk hal ini, lihat disini<http://blog.drewery.net/2006/08/29/utilising-dual-monitors-with-microsoft-excel-2003/>
> .
>
> Wassalam,
> Kid.
>
>
> 2012/10/26 Kurei recca <yusajing_ehm@yahoo.com>
>
> **
>
> Salam Para Master Excel,
>
> Ceritanya saya sedang membuat coding macro nih master,
> dan setelah selesai ternyata memakan waktu yang agak lama ketika proses
> macro sedang berjalan bisa sampai 5 menit,,
>
> Masalahnya bukan pada lama waktu jalan macronya akan tetapi ketika macro
> itu berjalan saya jadi tidak bisa menggunakan excel sama sekali, artinya
> harus menunggu proses macro tersebut berjalan selesai.
>
> Nah, Pertanyaannya adalah
>
> - Bisa ga sih ketika proses macro sedang macro sedang berjalan saya bisa
> membuka file excel laen dan bekerja di excel laen tersebut seperti biasa ?
>
> Jadi saya ga perlu nunggu proses macronya selesai dan saya bisa
> mengerjakan pekerjaan lain saya yang harus dikerjakan di dalam excel juga
>
> Mohon Pencerahannya ya,
> *klo bisa sih ada contoh kasus / file macronya* :p
>
> Best Regards,
> Ridwan S Hidayat
>
>
>
>
>
>

Sat Oct 27, 2012 8:07 pm (PDT) . Posted by:

"summonery" summonery

Usahakan file excel tersebut berasal dari sesi yang berbeda yang dibuka dari windows start > cari dan klik program microsoft excel

Misal anda mempunyai file X dan Y yang ingin dibuka bersamaan dan diinginkan selagi file X sedang melakukan proses kalkulasi (macro ataupun formula) anda menginginkan agar anda tetap dapat bekerja dengan file Y tanpa harus menunggu proses kalkulasi yang ada pada file X rampung.

Coba cara berikut ini,
1. Sesi pertama, buka file X seperti biasa
2. Sesi kedua, buka file Y melalui Windows Start > cari dan klik program Microsoft Excel, setelah itu buka file Y tersebut dari sesi yang baru ini.
3. Buktikan apakah ketika file X yang sedang melakukan proses macro atau formula meski belum rampung prosesnya namun file Y tetap segera dapat dibuka dan dapat melakukan pengolahan seperti biasa.

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, Kurei recca <yusajing_ehm@...> wrote:
>
> Salam Para Master Excel,
>
> Ceritanya saya sedang membuat coding macro nih master,
> dan setelah selesai ternyata memakan waktu yang agak lama ketika proses macro sedang berjalan bisa sampai 5 menit,,
>
> Masalahnya bukan pada lama waktu jalan macronya akan tetapi ketika macro itu berjalan saya jadi tidak bisa menggunakan excel sama sekali, artinya harus menunggu proses macro tersebut berjalan selesai.
>
> Nah, Pertanyaannya adalah
>
> - Bisa ga sih ketika proses macro sedang macro sedang berjalan saya bisa membuka file excel laen dan bekerja di excel laen tersebut seperti biasa ?
>
> Jadi saya ga perlu nunggu proses macronya selesai dan saya bisa mengerjakan pekerjaan lain saya yang harus dikerjakan di dalam excel juga
>
> Mohon Pencerahannya ya,
> *klo bisa sih ada contoh kasus / file macronya* :p
>
> Best Regards,
> Ridwan S Hidayat
>

Sun Oct 28, 2012 12:20 am (PDT) . Posted by:

"Kurei recca" yusajing_ehm

Wooww,, *Sambil Koprol*,,

udah bisa Mr Kid di 2007,,

thx ya Mr kid,,

________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 28 Oktober 2012 8:48
Judul: Re: [belajar-excel] TETAP BISA MENGGUNAKAN EXCEL KETIKA MACRO SEDANG BERJALAN


 
hehehe...
Biasanya MSO2007 (sebut spesifik untuk milis, Excel 2007 nya) ketika di-install akan membuat agar ketika di run selalu sebagai New Instance. Apalagi kalau di Windows 7. Kalau ndak demikian keadaannya, mungkin perlu coba cara yang di-link yang pernah disebut di posting lalu.

Jadi, setting windows explorer options file type yang bisa membantu membuat default ketika di-run dari windows explorer akan terbentuk sebagai instansi baru yang dapat dilihat dalam task manager akan ada banyak thread aplikasi Excel.

Kalau memang tetap ndak bisa, ya sudah. Saya juga ndak mudeng kenapa. hehehe... mungkin belum saatnya bisa aja.

Wassalam,
Kid.

2012/10/27 Kurei recca <yusajing_ehm@yahoo.com>


>Dear Mr Kid,
>
>Thx low atas feedbacknya,
>
>
>
>ohh gitu yaa mr kid,, hehehe, kebiasaan selalu huruf besar di subject karena pan nganggepnya itu adalah judul dari emailnya,, hehehe
>
>
>yeess Mr Kid, Tadi saya udah coba di Ms Office Excel 2010 dan berfungsi dengan baik bahwa ketika macro berjalan sekaligus dapat membuka file excel laen,,
>
>
>huhuhuhu, sayang banget ternyata 2007 ga bisa
>
>
>baiklah terimakasih yaa mr kid
>
>
>Best Regards,
>
>
>
>________________________________
> Dari: Mr. Kid <mr.nmkid@gmail.com>
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Jumat, 26 Oktober 2012 16:29
>Judul: Re: [belajar-excel] TETAP BISA MENGGUNAKAN EXCEL KETIKA MACRO SEDANG BERJALAN
>
>
>

>mbok yao judulnya ndak usah pake huruf besar semua. biasanya di dunia maya, teks dengan huruf besar semua artinya sedang membentak atau berteriak minta segera diperhatikan. coba deh jalan-jalan ke milis dan lihat file netiket.
>
>btw,
>Pada Excel 2007 ke atas, biasanya setiapkali buka file excel dari windows explorer, akan dibuatkan instansi baru excel. Jadi pada task manager akan ada 2 intansi excel. Hal ini bisa membuat VBA tetap berjalan di instansi excel pertamadan pekerjaan rutin dilakukan pada instansi excel kedua. Jika buka file dari menu Excel File Open, maka file akan dibuka dalam instansi yang samadan akan sulit mencapai keinginan untuk bekerja sambil menunggu VBA bekerja.
>
>Kadang kala dibutuhkan setting file type pada windows explorer tentang bagaimana windows explorer membuka si file  (di Windows 7 gak tahu ada dimana). Untuk hal ini, lihat disini.
>
>Wassalam,
>Kid.
>
>
>
>2012/10/26 Kurei recca <yusajing_ehm@yahoo.com>
>
>
>> 
>>Salam Para Master Excel,
>>
>>Ceritanya saya sedang membuat coding macro nih master,
>>dan setelah selesai ternyata memakan waktu yang agak lama ketika proses macro sedang berjalan bisa sampai 5 menit,,
>>
>>Masalahnya bukan pada lama waktu jalan macronya akan tetapi ketika macro itu berjalan saya jadi tidak bisa menggunakan excel sama sekali, artinya harus menunggu proses macro tersebut berjalan selesai.
>>
>>Nah, Pertanyaannya adalah
>>
>>- Bisa ga sih ketika proses macro sedang macro sedang berjalan saya bisa membuka file excel laen dan bekerja di excel laen tersebut seperti biasa ?
>>
>>Jadi saya ga perlu nunggu proses macronya selesai dan saya bisa mengerjakan pekerjaan lain saya yang harus dikerjakan di dalam excel juga
>>
>>Mohon Pencerahannya ya,
>>*klo bisa sih ada contoh kasus / file macronya*
:p
>>
>>Best Regards,
>>Ridwan S Hidayat
>>
>>
>>
>
>
>

Sun Oct 28, 2012 12:20 am (PDT) . Posted by:

"Kurei recca" yusajing_ehm

Woww,, *Sambil Koprol*,,

udah bisa pak summ,,

Thx ya pak,,

________________________________
Dari: summonery <summonery@yahoo.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 28 Oktober 2012 10:07
Judul: [belajar-excel] Re: TETAP BISA MENGGUNAKAN EXCEL KETIKA MACRO SEDANG BERJALAN


 
Usahakan file excel tersebut berasal dari sesi yang berbeda yang dibuka dari windows start > cari dan klik program microsoft excel

Misal anda mempunyai file X dan Y yang ingin dibuka bersamaan dan diinginkan selagi file X sedang melakukan proses kalkulasi (macro ataupun formula) anda menginginkan agar anda tetap dapat bekerja dengan file Y tanpa harus menunggu proses kalkulasi yang ada pada file X rampung.

Coba cara berikut ini,
1. Sesi pertama, buka file X seperti biasa
2. Sesi kedua, buka file Y melalui Windows Start > cari dan klik program Microsoft Excel, setelah itu buka file Y tersebut dari sesi yang baru ini.
3. Buktikan apakah ketika file X yang sedang melakukan proses macro atau formula meski belum rampung prosesnya namun file Y tetap segera dapat dibuka dan dapat melakukan pengolahan seperti biasa.

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, Kurei recca <yusajing_ehm@...> wrote:
>
> Salam Para Master Excel,
>
> Ceritanya saya sedang membuat coding macro nih master,
> dan setelah selesai ternyata memakan waktu yang agak lama ketika proses macro sedang berjalan bisa sampai 5 menit,,
>
> Masalahnya bukan pada lama waktu jalan macronya akan tetapi ketika macro itu berjalan saya jadi tidak bisa menggunakan excel sama sekali, artinya harus menunggu proses macro tersebut berjalan selesai.
>
> Nah, Pertanyaannya adalah
>
> - Bisa ga sih ketika proses macro sedang macro sedang berjalan saya bisa membuka file excel laen dan bekerja di excel laen tersebut seperti biasa ?
>
> Jadi saya ga perlu nunggu proses macronya selesai dan saya bisa mengerjakan pekerjaan lain saya yang harus dikerjakan di dalam excel juga
>
> Mohon Pencerahannya ya,
> *klo bisa sih ada contoh kasus / file macronya* :p
>
> Best Regards,
> Ridwan S Hidayat
>

Sun Oct 28, 2012 12:47 am (PDT) . Posted by:

"Harry" hariansyahptk

Dear
BeExceller,
 
Kepada
teman-teman BeExceller, saya mohon informasi dan solusi akan terjadinya error
pada Workbook yang sudah saya buat. Tulisan yang muncul pada Workbook tersebut
adalah I/O Error yang akhirnya Workbook tersebut tertutup dengan sendirinya.
 
Saya sudah
mencoba mengkotak-katik rumus Workbook saya tersebut (Mis. menghapus, menambah
dan memindahkan posisi rumusnya) tapi hasilya masih sering error.
 
Lampiran
Workbook tidak saya lampirkan karena volumenya terlalu besar (lbh dari 5 MB).
Besar harapan
kiranya rekan-rekan BeExceller dapat memberikan solusi akan masalah tersebut.
Terima kasih
atas bantuan dan solusinya
 
Adapun
keterangan akan Workbook tersebut adalah sebagai berikut :
1.              Saya
menggungakan proses buka tutup file database dengan harapan Workbooknya bisa
digunakan oleh lebih dari 1 PC yang hasil inputnya masuk ke file database.
Rumus-rumus yang saya gunakan sbgai contoh sbb:
 
Option Explicit
Dim MemMaster As Range
Dim EndShow As Boolean
 
Private Sub CmdClose_Click()
   Dim iRow As Long, Reg As Range,
oCtrl As Control
   Dim wbkA As Workbook, wbkAKTIF
As Workbook
    
   On Error Resume Next
Set wbkA = ThisWorkbook
If Workbooks("DATABASE.xls") Is Nothing Then
     Set wbkAKTIF =
Workbooks.Open(wbkA.Path & "\DATABASE.xls")
Else
    Set wbkAKTIF =
Workbooks("DATABASE.xls")
End If
wbkA.Activate
 
Application.DisplayAlerts = False
wbkAKTIF.Close True
Application.DisplayAlerts = True
wbkA.Activate
    Unload Me
frmMainMenu.Show
End Sub
 
Private Sub
UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   If CloseMode = 0 Then
      Cancel = True
    Unload Me
   End If
End Sub
 
Private Sub UserForm_Activate()
   TANGGAL_PINJAM.Value =
Format(Date, "dd-MM-yyyy")
   TANGGAL_KEMBALI.Value =
Format(Date, "dd-MM-yyyy")
   Lbl_Date = Format(Date, "dd-MM-yyyy")
   Lbl_Month_Year = Format(Date,
"MMyyyy")
End Sub
 
Private Sub UserForm_Initialize()
   Lbl_User = "" & _
   WorksheetFunction.Proper(Application.Range("ActUser"))
    Dim wbkA As Workbook, wbkAKTIF
As Workbook
  
    Set wbkA = ThisWorkbook
   
    '--- WBK READ ONLY ??? ---'
>> START
    Dim lTry As Long, lJeda As
Long
    Application.ScreenUpdating =
False
    Application.DisplayAlerts =
False
CobaBuka:
    For lTry = 1 To 20
   Dim I As Long, TbHeigh As Long,
TbWidth
   Set MemMaster = Sheets("SUMBER
2").Cells(1).CurrentRegion
   TbHeigh = MemMaster.Rows.Count
- 1
   TbWidth =
MemMaster.Columns.Count - 1
   Set MemMaster =
MemMaster.Offset(2, 0).Resize(TbHeigh, TbWidth)
         
   Application.EnableEvents =
False
   With CboPENERBIT
      .ColumnCount = 2
      .BoundColumn = 1
      For I = 1 To TbHeigh
         .AddItem
         .List(I - 1, 0) =
MemMaster(I, 6)
      Next I
   End With
   Application.EnableEvents = True
       
        Set wbkAKTIF =
Workbooks.Open(wbkA.Path & "\DATABASE.xls")
   Set MemMaster = Sheets("SUMBER
2").Cells(1).CurrentRegion
   TbHeigh = MemMaster.Rows.Count
- 1
   TbWidth =
MemMaster.Columns.Count - 1
   Set MemMaster =
MemMaster.Offset(1, 0).Resize(TbHeigh, TbWidth)
  
   Application.EnableEvents = False
   With CboPENGARANG
      .ColumnCount = 2
      .BoundColumn = 1
      For I = 1 To TbHeigh
         .AddItem
         .List(I - 1, 0) =
MemMaster(I, 3)
      Next I
   End With
   Application.EnableEvents = True
        If wbkAKTIF.ReadOnly Then
            wbkAKTIF.Close False
            If lTry = 20 Then
                If
MsgBox("Sudah dicoba membuka " & lTry & _
                        "
kali, dan masih digunakan oleh instansi Excel yang lain" & vbCrLf
& _
                        "Coba
lagi ?", vbExclamation + vbYesNo, "Akses ke DATABASE") = vbYes
Then
                    GoTo CobaBuka
                Else
                    Application.ScreenUpdating = False
                    Exit Sub
                End If
            End If
        Else
            wbkA.Activate
            Exit For
        End If
        For lJeda = 1 To 100000000
        Next lJeda
    Next lTry
    Application.ScreenUpdating =
True
    '--- WBK READ ONLY ??? ---'
>> END
   End Sub
 
Private Sub cmdAdd_Click()
   Dim iRow As Long, Reg As Range,
oCtrl As Control
   Dim wbkA As Workbook, wbkAKTIF
As Workbook
    
   On Error Resume Next
Set wbkA = ThisWorkbook
If Workbooks("DATABASE.xls") Is Nothing Then
     Set wbkAKTIF =
Workbooks.Open(wbkA.Path & "\DATABASE.xls")
Else
    Set wbkAKTIF =
Workbooks("DATABASE.xls")
End If
wbkA.Activate
       
   Set Reg =
wbkAKTIF.Worksheets("REGISTER").Cells(1)
   'find second empty row in
database
   iRow = Reg(Rows.Count,
2).End(xlUp).Offset(1, 0).Row
 
   'copy the data to the database
   Reg(iRow, 2).Value = txtNAMABUKU.Value
   Reg(iRow, 3).Value = txtTAHUN.Value
   Reg(iRow, 4).Value = CboPENERBIT.Value
   Reg(iRow, 5).Value =
txtKETERANGAN.Value
Dan lain-lain ………
   Reg(iRow, 10).Value =
Lbl_Month_Year
   Reg(iRow, 11).Value = Lbl_User
   Reg(iRow, 12).Value = Lbl_Date
Dan lain-lain ………
 
   'clear the data
   txtNAMABUKU.Value =
""
   txtTAHUN.Value = ""
   CboPENERBIT.Value =
""
   txtKETERANGAN.Value =
""
Dan lain-lain ………
 
Application.DisplayAlerts = False
wbkAKTIF.Close True
Application.DisplayAlerts = True
wbkA.Activate
 
Done:
   If MsgBox("DATA ANDA TELAH
DISIMPAN. TAMBAH...???", 32 + 4, "KONFIRMASI") = vbYes Then
   Else
      Unload Me
   End If
frmMainMenu.Show
End Sub
 
2.              Pada
Workbook tersebut saya menggunakan Userform yang berisi fitur MultiPage yang
mengakifkan 2 MultiPage sekaligus. MultiPage 1 untuk registrasi dan MultiPage 2
untuk referensi.
(MultiPage untuk proses registrasi dan referensi sedangkan tombol SAVE,
CLOSE, TANGGAL_PINJAM.Value &  TANGGAL_KEMBALI.Value
berada diluar kolom MultiPage.
 
3.              Saya
menggunakan User Form untuk pilihan dan proses Input, Edit dan Hapus dengan
contoh rumus:
    If MemMaster(r, 3) <>
txtNAMABUKU Then
        Sheets("REGISTER").Cells(r, 3).Value = txtNAMABUKU.Text
    End If
 
4.              Jika pada
Workbook A dan Workbook DATABASE ingin saya protect, dimana penempatan posisi
rumusnya (Mis. Sheets("DATABASE").Protect "protect") dan Sheets("DATABASE").Unprotect "protect")

--- Mods ---
Coba simpan workbook di cloud misal di 4Shared atau Box. Kemudian berikan link unduhnya ke BeExceller. Kurangi jumlah datanya.
------------


Sun Oct 28, 2012 1:12 am (PDT) . Posted by:

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

Coba :
1. tutup semua file Excel.
2. ke folder temporary file milik windows dan hapus isinya
3. ke folder lokasi file excel yang error, dan cari file dengan nama aneh
seperti kode tertentu dan hapus file tersebut (jika ada).
4. pada Office 2007 ke atas, coba lihat nama folder autorecover di Excel
Options dan coba lihat keberadaan file autorecover dari file bermasalah
tersebut di lokasi folder autorecover. Hapus file autorecover yang ada.

siapa tahu bisa...

Wassalam,
Kid.

On Sun, Oct 28, 2012 at 2:09 PM, Harry <hariansyahptk@yahoo.com> wrote:

> **
>
>
> Dear
> BeExceller,
>
> Kepada
> teman-teman BeExceller, saya mohon informasi dan solusi akan terjadinya
> error
> pada Workbook yang sudah saya buat. Tulisan yang muncul pada Workbook
> tersebut
> adalah I/O Error yang akhirnya Workbook tersebut tertutup dengan
> sendirinya.
>
> Saya sudah
> mencoba mengkotak-katik rumus Workbook saya tersebut (Mis. menghapus,
> menambah
> dan memindahkan posisi rumusnya) tapi hasilya masih sering error.
>
> Lampiran
> Workbook tidak saya lampirkan karena volumenya terlalu besar (lbh dari 5
> MB).
> Besar harapan
> kiranya rekan-rekan BeExceller dapat memberikan solusi akan masalah
> tersebut.
> Terima kasih
> atas bantuan dan solusinya
>
> Adapun
> keterangan akan Workbook tersebut adalah sebagai berikut :
> 1. Saya
> menggungakan proses buka tutup file database dengan harapan Workbooknya
> bisa
> digunakan oleh lebih dari 1 PC yang hasil inputnya masuk ke file database.
> Rumus-rumus yang saya gunakan sbgai contoh sbb:
>
> Option Explicit
> Dim MemMaster As Range
> Dim EndShow As Boolean
>
> Private Sub CmdClose_Click()
> Dim iRow As Long, Reg As Range,
> oCtrl As Control
> Dim wbkA As Workbook, wbkAKTIF
> As Workbook
>
> On Error Resume Next
> Set wbkA = ThisWorkbook
> If Workbooks("DATABASE.xls") Is Nothing Then
> Set wbkAKTIF =
> Workbooks.Open(wbkA.Path & "\DATABASE.xls")
> Else
> Set wbkAKTIF =
> Workbooks("DATABASE.xls")
> End If
> wbkA.Activate
>
> Application.DisplayAlerts = False
> wbkAKTIF.Close True
> Application.DisplayAlerts = True
> wbkA.Activate
> Unload Me
> frmMainMenu.Show
> End Sub
>
> Private Sub
> UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
> If CloseMode = 0 Then
> Cancel = True
> Unload Me
> End If
> End Sub
>
> Private Sub UserForm_Activate()
> TANGGAL_PINJAM.Value =
> Format(Date, "dd-MM-yyyy")
> TANGGAL_KEMBALI.Value =
> Format(Date, "dd-MM-yyyy")
> Lbl_Date = Format(Date, "dd-MM-yyyy")
> Lbl_Month_Year = Format(Date,
> "MMyyyy")
> End Sub
>
> Private Sub UserForm_Initialize()
> Lbl_User = "" & _
> WorksheetFunction.Proper(Application.Range("ActUser"))
> Dim wbkA As Workbook, wbkAKTIF
> As Workbook
>
> Set wbkA = ThisWorkbook
>
> '--- WBK READ ONLY ??? ---'
> >> START
> Dim lTry As Long, lJeda As
> Long
> Application.ScreenUpdating =
> False
> Application.DisplayAlerts =
> False
> CobaBuka:
> For lTry = 1 To 20
> Dim I As Long, TbHeigh As Long,
> TbWidth
> Set MemMaster = Sheets("SUMBER
> 2").Cells(1).CurrentRegion
> TbHeigh = MemMaster.Rows.Count
> - 1
> TbWidth =
> MemMaster.Columns.Count - 1
> Set MemMaster =
> MemMaster.Offset(2, 0).Resize(TbHeigh, TbWidth)
>
> Application.EnableEvents =
> False
> With CboPENERBIT
> .ColumnCount = 2
> .BoundColumn = 1
> For I = 1 To TbHeigh
> .AddItem
> .List(I - 1, 0) =
> MemMaster(I, 6)
> Next I
> End With
> Application.EnableEvents = True
>
> Set wbkAKTIF =
> Workbooks.Open(wbkA.Path & "\DATABASE.xls")
> Set MemMaster = Sheets("SUMBER
> 2").Cells(1).CurrentRegion
> TbHeigh = MemMaster.Rows.Count
> - 1
> TbWidth =
> MemMaster.Columns.Count - 1
> Set MemMaster =
> MemMaster.Offset(1, 0).Resize(TbHeigh, TbWidth)
>
> Application.EnableEvents = False
> With CboPENGARANG
> .ColumnCount = 2
> .BoundColumn = 1
> For I = 1 To TbHeigh
> .AddItem
> .List(I - 1, 0) =
> MemMaster(I, 3)
> Next I
> End With
> Application.EnableEvents = True
> If wbkAKTIF.ReadOnly Then
> wbkAKTIF.Close False
> If lTry = 20 Then
> If
> MsgBox("Sudah dicoba membuka " & lTry & _
> "
> kali, dan masih digunakan oleh instansi Excel yang lain" & vbCrLf
> & _
> "Coba
> lagi ?", vbExclamation + vbYesNo, "Akses ke DATABASE") = vbYes
> Then
> GoTo CobaBuka
> Else
> Application.ScreenUpdating = False
> Exit Sub
> End If
> End If
> Else
> wbkA.Activate
> Exit For
> End If
> For lJeda = 1 To 100000000
> Next lJeda
> Next lTry
> Application.ScreenUpdating =
> True
> '--- WBK READ ONLY ??? ---'
> >> END
> End Sub
>
> Private Sub cmdAdd_Click()
> Dim iRow As Long, Reg As Range,
> oCtrl As Control
> Dim wbkA As Workbook, wbkAKTIF
> As Workbook
>
> On Error Resume Next
> Set wbkA = ThisWorkbook
> If Workbooks("DATABASE.xls") Is Nothing Then
> Set wbkAKTIF =
> Workbooks.Open(wbkA.Path & "\DATABASE.xls")
> Else
> Set wbkAKTIF =
> Workbooks("DATABASE.xls")
> End If
> wbkA.Activate
>
> Set Reg =
> wbkAKTIF.Worksheets("REGISTER").Cells(1)
> 'find second empty row in
> database
> iRow = Reg(Rows.Count,
> 2).End(xlUp).Offset(1, 0).Row
>
> 'copy the data to the database
> Reg(iRow, 2).Value = txtNAMABUKU.Value
> Reg(iRow, 3).Value = txtTAHUN.Value
> Reg(iRow, 4).Value = CboPENERBIT.Value
> Reg(iRow, 5).Value =
> txtKETERANGAN.Value
> Dan lain-lain ���
> Reg(iRow, 10).Value =
> Lbl_Month_Year
> Reg(iRow, 11).Value = Lbl_User
> Reg(iRow, 12).Value = Lbl_Date
> Dan lain-lain ���
>
> 'clear the data
> txtNAMABUKU.Value =
> ""
> txtTAHUN.Value = ""
> CboPENERBIT.Value =
> ""
> txtKETERANGAN.Value =
> ""
> Dan lain-lain ���
>
> Application.DisplayAlerts = False
> wbkAKTIF.Close True
> Application.DisplayAlerts = True
> wbkA.Activate
>
> Done:
> If MsgBox("DATA ANDA TELAH
> DISIMPAN. TAMBAH...???", 32 + 4, "KONFIRMASI") = vbYes Then
> Else
> Unload Me
> End If
> frmMainMenu.Show
> End Sub
>
> 2. Pada
> Workbook tersebut saya menggunakan Userform yang berisi fitur MultiPage
> yang
> mengakifkan 2 MultiPage sekaligus. MultiPage 1 untuk registrasi dan
> MultiPage 2
> untuk referensi.
> (MultiPage untuk proses registrasi dan referensi sedangkan tombol SAVE,
> CLOSE, TANGGAL_PINJAM.Value & TANGGAL_KEMBALI.Value
> berada diluar kolom MultiPage.
>
> 3. Saya
> menggunakan User Form untuk pilihan dan proses Input, Edit dan Hapus dengan
> contoh rumus:
> If MemMaster(r, 3) <>
> txtNAMABUKU Then
> Sheets("REGISTER").Cells(r, 3).Value = txtNAMABUKU.Text
> End If
>
> 4. Jika pada
> Workbook A dan Workbook DATABASE ingin saya protect, dimana penempatan
> posisi
> rumusnya (Mis. Sheets("DATABASE").Protect "protect") dan
> Sheets("DATABASE").Unprotect "protect")
>
> --- Mods ---
> Coba simpan workbook di cloud misal di 4Shared atau Box. Kemudian berikan
> link unduhnya ke BeExceller. Kurangi jumlah datanya.
> ------------
>
>
>

Sun Oct 28, 2012 12:58 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Dear Shenly,
Coba juga file berisi Macro yang saya dapat dari internet ini (file terlampir).
Macronya sbb:
Dim Running As Boolean
Sub Clock()
    Running = Not Running
    Do While Running = True
    DoEvents
    Sheets("Sheet1").Range("A1") = Now()
    Loop
End Sub
Untuk mengaktifkan/menonaktifkannya klik roda gigi di samping kotak jam (tombol on/off)

Jika workbooknya dipakai maka jamnya otomatis akan berhenti.

Salam,
Hendrik Karnadi

________________________________
From: Shenly Ruchman <shenly_excelmania@yahoo.co.id>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Tuesday, 23 October 2012, 13:26
Subject: [belajar-excel] Membuat jam digital???


 

Assalamualaikum para master...mau nanyabagaimana cara membuat jam digital dari fungtion , tapi jam digital tersebut aktiv / waktunya terus bergerak sesuai dengan time di pc?????

terima kasih
shenly

--- Mods ---
mbok yao rajin search ke email-email lama yang pernah diajukan rekan lainnya...

Thread lama :
http://tech.groups.yahoo.com/group/belajar-excel/message/17361
dengan archieve file attachment dari thread tersebut ada di :
http://www.mail-archive.com/belajar-excel@yahoogroups.com/msg10145.html

Untuk salinan thread beserta file attachment yang ada dalam thread :
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Membuat-jam-digital-dengan-Excel-td5709994.html#a5709999
------------

Sun Oct 28, 2012 4:47 am (PDT) . Posted by:

"Imar Andre" baz.giglo

Be-Exceler,

[image: Inline image 1]

Saya ingin menghapus hanya checkbox di cell A2,A3,A4 & A5 saja dengan cara
men-select (me-range) A2:A5 atau A2:B5
saya ada contoh untuk meng-aktif-kan checkbox dengan men-select cell-nya,
bagaimana me-modifikasi yang terpilih object checkbox-nya?

Wassalam
imar

Sun Oct 28, 2012 5:16 am (PDT) . Posted by:

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

Coba pakai event selection change milik si worksheet.
Prosedurnya begini :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Count = 1 Then
If .Column < 7 Then
If .Row > 1 Then
If .Row < 9 Then
With .Offset(0, -((.Column - 1) Mod 2))
.Value = CBool(Not .Value)
End With
End If
End If
End If
End If
End With
End Sub

Batasan :
- hanya bekerja kalau mengubah cell aktif (klik cell lain supaya si cell
lain jadi aktif)

Jika ingin cell yang sudah aktif agar bisa berubah kalau di-klik lagi,
mungkin pakai event double click ya. Tapi mending klik si shape saja deh.

Hati-hati kalau pakai event change milik si worksheet. Karena shape yang
di-click akan menjalankan event change milik si worksheet akibat properti
linkedcells yang ada isinya merujuk ke cell tertentu.

Wassalam,
Kid.

2012/10/28 Imar Andre <imar.ap@gmail.com>

> Be-Exceler,
>
>
>
> Saya ingin menghapus hanya checkbox di cell A2,A3,A4 & A5 saja dengan cara
> men-select (me-range) A2:A5 atau A2:B5
> saya ada contoh untuk meng-aktif-kan checkbox dengan men-select cell-nya,
> bagaimana me-modifikasi yang terpilih object checkbox-nya?
>
> Wassalam
> imar
>
>

Sun Oct 28, 2012 5:46 am (PDT) . Posted by:

"Imar Andre" baz.giglo

Thanks untuk tanggapannya Mr, Kid, mungkin pertanyaan saya kurang jelas,

*Saya ingin menggunakan macro untuk menghapus object (checkbox) dengan cara
men-select cell-nya* (bukan object-nya), ini dikarenakan object checkbox
ini cukup banyak di sheet dan jika memilih objectnya (dengan menekan ctrl,
harus satu persatu), contoh makro untuk turn on check box itu hanya dengan
memilih cell secara acak (yang ada object checkbox-nya) lalu menekan tombol
macro maka cell terpilih (yang ada object checkbox akan tercentang)

Wassalam
imar

2012/10/28 Mr. Kid <mr.nmkid@gmail.com>

> **
>
>
> Coba pakai event selection change milik si worksheet.
> Prosedurnya begini :
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> With Target
> If .Count = 1 Then
> If .Column < 7 Then
> If .Row > 1 Then
> If .Row < 9 Then
> With .Offset(0, -((.Column - 1) Mod 2))
> .Value = CBool(Not .Value)
> End With
> End If
> End If
> End If
> End If
> End With
> End Sub
>
> Batasan :
> - hanya bekerja kalau mengubah cell aktif (klik cell lain supaya si cell
> lain jadi aktif)
>
> Jika ingin cell yang sudah aktif agar bisa berubah kalau di-klik lagi,
> mungkin pakai event double click ya. Tapi mending klik si shape saja deh.
>
> Hati-hati kalau pakai event change milik si worksheet. Karena shape yang
> di-click akan menjalankan event change milik si worksheet akibat properti
> linkedcells yang ada isinya merujuk ke cell tertentu.
>
> Wassalam,
> Kid.
>
>
>
> 2012/10/28 Imar Andre <imar.ap@gmail.com>
>
>> Be-Exceler,
>>
>>
>>
>> Saya ingin menghapus hanya checkbox di cell A2,A3,A4 & A5 saja dengan
>> cara men-select (me-range) A2:A5 atau A2:B5
>> saya ada contoh untuk meng-aktif-kan checkbox dengan men-select cell-nya,
>> bagaimana me-modifikasi yang terpilih object checkbox-nya?
>>
>> Wassalam
>> imar
>>
>>
>
>

Sun Oct 28, 2012 6:08 am (PDT) . Posted by:

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

Oh gitu...
Kalau gitu, hapus saja event selection change-nya.
Coba langkah berikut :
1. buat module baru di VBE
2. copas prosedur berikut :
Public Sub HapusShape()
Dim shp As Shape, rngArea As Range
Set rngArea = Intersect(Selection, ActiveSheet.Range("a2:f8"))
If Not rngArea Is Nothing Then
For Each shp In ActiveSheet.Shapes
If Not Intersect(rngArea, shp.TopLeftCell.Offset(1)) Is Nothing
Then
shp.Delete
End If
Next shp
End If
End Sub

3. buat tombol di worksheet (diluar a2:f8), klik kanan assign macro ke
prosedur HapusShape
4. coba blok range dan tekan tombol

Oh iya, atur offset dari topleftcell dari shape dengan memperhatikan range
sudut kiri atas shape, agar bisa mencapai area a2:f8

Wassalam,
Kid.

2012/10/28 Imar Andre <imar.ap@gmail.com>

> **
>
>
> Thanks untuk tanggapannya Mr, Kid, mungkin pertanyaan saya kurang jelas,
>
> *Saya ingin menggunakan macro untuk menghapus object (checkbox) dengan
> cara men-select cell-nya* (bukan object-nya), ini dikarenakan object
> checkbox ini cukup banyak di sheet dan jika memilih objectnya (dengan
> menekan ctrl, harus satu persatu), contoh makro untuk turn on check box itu
> hanya dengan memilih cell secara acak (yang ada object checkbox-nya) lalu
> menekan tombol macro maka cell terpilih (yang ada object checkbox akan
> tercentang)
>
> Wassalam
> imar
>
>
>
> 2012/10/28 Mr. Kid <mr.nmkid@gmail.com>
>
> **
>>
>>
>> Coba pakai event selection change milik si worksheet.
>> Prosedurnya begini :
>> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> With Target
>> If .Count = 1 Then
>> If .Column < 7 Then
>> If .Row > 1 Then
>> If .Row < 9 Then
>> With .Offset(0, -((.Column - 1) Mod 2))
>> .Value = CBool(Not .Value)
>> End With
>> End If
>> End If
>> End If
>> End If
>> End With
>> End Sub
>>
>> Batasan :
>> - hanya bekerja kalau mengubah cell aktif (klik cell lain supaya si cell
>> lain jadi aktif)
>>
>> Jika ingin cell yang sudah aktif agar bisa berubah kalau di-klik lagi,
>> mungkin pakai event double click ya. Tapi mending klik si shape saja deh.
>>
>> Hati-hati kalau pakai event change milik si worksheet. Karena shape yang
>> di-click akan menjalankan event change milik si worksheet akibat properti
>> linkedcells yang ada isinya merujuk ke cell tertentu.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2012/10/28 Imar Andre <imar.ap@gmail.com>
>>
>>> Be-Exceler,
>>>
>>>
>>>
>>> Saya ingin menghapus hanya checkbox di cell A2,A3,A4 & A5 saja dengan
>>> cara men-select (me-range) A2:A5 atau A2:B5
>>> saya ada contoh untuk meng-aktif-kan checkbox dengan men-select
>>> cell-nya, bagaimana me-modifikasi yang terpilih object checkbox-nya?
>>>
>>> Wassalam
>>> imar
>>>
>>>
>>
>
>

Sun Oct 28, 2012 4:51 am (PDT) . Posted by:

"ngademin Thohari" ngademinth

be-exceller

sekali lagi minta supportnya dari master master sekalian

1.saya mau membandingkan di sheet FL43EHC dengan adanya 4 data di kolom dengan
data di sheet change component di kolom part no
2. pada baris ke 4 di kolom part
no. angka 3000 biar bisa ke kolom qty, tapi tidak semua data sama seperti di
baris ke 4

berikut contoh datanya

Terima kasih

amin

Sun Oct 28, 2012 5:10 am (PDT) . Posted by:

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

Coba di baris 3 :
=IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C3," ",REPT("
",99)),(ROW($1:$9)-1)*99+1,99)*1),LOOKUP(9^9,MID(SUBSTITUTE(D3," ",REPT("
",99)),(ROW($1:$9)-1)*99+1,99)*1)),0)

mbok yao kriterianya ditulis yang jelas dan detil. Kolom C itu isinya
memiliki struktur apa saja dengan urutan tetap atau tidak, kenapa kadang
gak ada nilai kadang ada nilai. Yang D juga dijelaskan demikian.
Kemudian syaratnya,
kalau yang C begini begitu, maka ambil yang D yang begono begoto..

Kalau ndak penjelasan yang detil cuma main tebak-tebakan kaya gini, ketemu
baris lain yang beda dikit saja, formulanya bisa harus ganti lagi. Kalau
formulanya ganti-ganti terus, kapan belajar logika sampai terbentuknya si
formula ?

Wassalam,
Kid.

2012/10/28 ngademin Thohari <ngademinth@yahoo.co.id>

> **
>
>
> be-exceller
>
> sekali lagi minta supportnya dari master master sekalian
>
> 1. saya mau membandingkan di sheet FL43EHC dengan adanya 4 data di kolom
> dengan data di sheet change component di kolom part no
> 2. pada baris ke 4 di kolom part no. angka 3000 biar bisa ke kolom qty,
> tapi tidak semua data sama seperti di baris ke 4
>
> berikut contoh datanya
>
> Terima kasih
>
> amin
>
>
>

Sun Oct 28, 2012 5:22 am (PDT) . Posted by:

"Harry" hariansyahptk

Dear BeExceller,

Mengenai penggunaan User Form pada proses penginputan data, bisa atau tidak User Form tersebut difungsikan untuk mengirimkan data link dng format JPEG / JPG (file gambar sbgai attachment hasil scan) yang apabila sheet database kita buka dan kita klik kolom yang sesuai, hasilnya dapat menampilkan file JPEG / JPG  (file gambar sbgai attachment hasil scan) yang sudah kita input melalui User Form.

Mohon berkenan informasi akan hal tsb dari rekan-rekan BeExceller.

Terima kasih,

Harry

Sun Oct 28, 2012 5:50 am (PDT) . Posted by:

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

Mungkin :
1. userform diinput dengan lokasi si file secara lengkap (
server\drive\folder\subfolder\namafile.ekstensi)
2. inputan itu di simpan ke database
3. buka database
4. double click cell dalam database yang berisi lokasi si file tersebut.

Isian dalam event double click bisa meniru file terlampir.
Bagi yang setting emailnya dailydigest atau tidak disertai attachment, bisa
unduh disini <https://www.box.com/s/b0q6dillslwyh5s5wm63>.

Wassalam,
Kid.

2012/10/28 Harry <hariansyahptk@yahoo.com>

> **
>
>
> Dear BeExceller,
>
> Mengenai penggunaan User Form pada proses penginputan data, bisa atau
> tidak User Form tersebut difungsikan untuk mengirimkan data link dng format
> JPEG / JPG (file gambar sbgai attachment hasil scan) yang apabila sheet
> database kita buka dan kita klik kolom yang sesuai, hasilnya dapat
> menampilkan file JPEG / JPG (file gambar sbgai attachment hasil scan) yang
> sudah kita input melalui User Form.
>
> Mohon berkenan informasi akan hal tsb dari rekan-rekan BeExceller.
>
> Terima kasih,
>
> Harry
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar