RE: [belajar-excel] Cara penulisan error handling

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Maaf Mr. Kid, saya gak ngerti. Mohon dibuatkan contohnya seperti apa yang 
dimaksud Mr. Kid.

Terima kasih atas jawabannya.

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 18 Maret 2019 7:16
To: BeExcel
Subject: Re: [belajar-excel] Cara penulisan error handling


walah...
jebulnya...
lha kalo itu kan,
tinggal pindahin baris msgbox setelah semua application..blabla itu.
malah bisa tetap pakai on error goto keluar supaya lebih rapi arah proses dan 
handler-nya.

kok sukanya memperumit sesuatu yang sederhana loh...







On Mon, Mar 18, 2019 at 6:13 AM Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> wrote:

Mr Kid. Alasan saya tidak pakai on error resume next, karena saya butuh 
dikembalikan lagi ke posisi semula.
Ini yg saya perlu dikembalikan.
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic

From: belajar-excel@yahoogroups.com 
[mailto:belajar-excel@yahoogroups.com]
Sent: 18 Maret 2019 7:03
To: BeExcel
Subject: Re: [belajar-excel] Cara penulisan error handling


Bukannya pakai On error resume next sudah cukup untuk melewati error.

Resume biasanya dipakai untuk blok yang akan sering dipakai tapi tidak mau 
meletakkannya menjadi sebuah prosedur terpisah.
Tapi kalau sekadar error handling untuk melewati (mengabaikan) error, cukup 
dengan on error resume next. Bisa lebih hemat proses, karena proses tidak perlu 
lompat-lompat bolak balik setiap kali ada error. Proses bisa jalan lurus 
(forward).

Regards,
Kid



On Mon, Mar 18, 2019 at 5:57 AM Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> wrote:

Mr. Kid. Saya buat simulasi bikin error , memang benar seperti yang saya 
bilang, yaitu on error goto 0 akan berhenti, tapi kalau pakai resume next , 
proses tidak berhenti.

Ini simulasi saya . Coba diganti resume next dengan On error goto 0. Secara 
bergantian.

Sub LatihanErrHandling2_Click()
Dim dblValue As Double

On Error GoTo ErrHandler
dblValue = 1 / 0

MsgBox "Lanjut ke kode berikutnya"

Exit Sub
ErrHandler:
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic
Err.Clear
Resume Next '
'On Error GoTo 0
End Sub


On 3/18/2019 05:12, 'Mr. Kid' mr.nm...@gmail.com 
[belajar-excel] wrote:

Analisa Anda itu kurang tepat.
On error goto 0 nya ada di akhir prosedur kok dituding jadi penyebab masalah.
Kasihan si on error goto 0.
On error goto 0 di akhir prosedur itu tidak bikin masalah apa-apa.
Jangan-jangan Anda yang bermasalah dalam menyusun alur prosesnya...
hmmm..

ya sudah, atur saja deh

RE: [belajar-excel] Cara penulisan error handling

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Mr Kid. Alasan saya tidak pakai on error resume next, karena saya butuh 
dikembalikan lagi ke posisi semula.
Ini yg saya perlu dikembalikan.
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 18 Maret 2019 7:03
To: BeExcel
Subject: Re: [belajar-excel] Cara penulisan error handling


Bukannya pakai On error resume next sudah cukup untuk melewati error.

Resume biasanya dipakai untuk blok yang akan sering dipakai tapi tidak mau 
meletakkannya menjadi sebuah prosedur terpisah.
Tapi kalau sekadar error handling untuk melewati (mengabaikan) error, cukup 
dengan on error resume next. Bisa lebih hemat proses, karena proses tidak perlu 
lompat-lompat bolak balik setiap kali ada error. Proses bisa jalan lurus 
(forward).

Regards,
Kid



On Mon, Mar 18, 2019 at 5:57 AM Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> wrote:

Mr. Kid. Saya buat simulasi bikin error , memang benar seperti yang saya 
bilang, yaitu on error goto 0 akan berhenti, tapi kalau pakai resume next , 
proses tidak berhenti.

Ini simulasi saya . Coba diganti resume next dengan On error goto 0. Secara 
bergantian.

Sub LatihanErrHandling2_Click()
Dim dblValue As Double

On Error GoTo ErrHandler
dblValue = 1 / 0

MsgBox "Lanjut ke kode berikutnya"

Exit Sub
ErrHandler:
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic
Err.Clear
Resume Next '
'On Error GoTo 0
End Sub


On 3/18/2019 05:12, 'Mr. Kid' mr.nm...@gmail.com 
[belajar-excel] wrote:

Analisa Anda itu kurang tepat.
On error goto 0 nya ada di akhir prosedur kok dituding jadi penyebab masalah.
Kasihan si on error goto 0.
On error goto 0 di akhir prosedur itu tidak bikin masalah apa-apa.
Jangan-jangan Anda yang bermasalah dalam menyusun alur prosesnya...
hmmm..

ya sudah, atur saja deh

RE: [belajar-excel] Cara penulisan error handling

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Mr. Kid. Saya buat simulasi bikin error , memang benar seperti yang saya 
bilang, yaitu on error goto 0 akan berhenti, tapi kalau pakai resume next , 
proses tidak berhenti.

Ini simulasi saya . Coba diganti resume next dengan On error goto 0. Secara 
bergantian.

Sub LatihanErrHandling2_Click()
Dim dblValue As Double

On Error GoTo ErrHandler
dblValue = 1 / 0

MsgBox "Lanjut ke kode berikutnya"

Exit Sub
ErrHandler:
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic
Err.Clear
Resume Next '
'On Error GoTo 0
End Sub


On 3/18/2019 05:12, 'Mr. Kid' mr.nm...@gmail.com 
[belajar-excel] wrote:

Analisa Anda itu kurang tepat.
On error goto 0 nya ada di akhir prosedur kok dituding jadi penyebab masalah.
Kasihan si on error goto 0.
On error goto 0 di akhir prosedur itu tidak bikin masalah apa-apa.
Jangan-jangan Anda yang bermasalah dalam menyusun alur prosesnya...
hmmm..

ya sudah, atur saja deh

RE: [belajar-excel] Cara penulisan error handling

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Iya Mr. Kid. Sepertinya memang begitu. Karena saya bikin label keluar dengan 
tambahan saya sendiri. Saya buat label Keluar dengan diakhiri on error goto 0.
Kalau dilihat di code saya sebelumnya, tertulis :
Keluar:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Err.Clear
On Error GoTo 0  ‘’> Ini yang buat proses berikutnya jadi terhenti, 
dimana seharusnya jalan terus ke kode berikutnya. Saya rubah jadi resume next.
‘’==
Saya coba buat simulasi bikin error , dan kalau pakai resume next (bukan On 
error goto 0), proses berjalan terus ke kode berikutnya.
Terima kasih Mr. Kid. Saya kabari lagi  setelah saya coba ke kondisi yang 
sesungguhnya.


From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 18 Maret 2019 5:38
To: BeExcel
Subject: Re: [belajar-excel] Cara penulisan error handling


Coba semua baris On error di-off-kan dulu, lalu coba file untuk buka berbagai 
kondisi file data (coba saat sudah dibuka user lain, coba saat tidak ada yang 
buka, coba saat dibuka sendiri, dsb), lalu perhatikan error yang terjadi dan 
karena apa.
Kalau sudah tahu karena apa, butuh pesan atau tidak.
Yang butuh pesan, on error nya goto mylabel
Yang gak butuh pesan, on error nya goto keluar

Baris kode yang ada itu sekilas saja sudah tampak bahwa sumber error-nya bisa 
jadi di baris-baris kode yang Anda tulis dengan 'code lain itu, karena disana 
bisa jadi ada baris on error yang bikin masalah.
Karena on error goto Keluar di paling atas sudah menghandle error akibat Anda 
mengactivate workbook yang belum terbuka (misal user gak mau mencoba membuka 
ulang setelah sekian ratus kali gak berhasil buka).
Baris error setelah baris itu pun (misal ketika sudah berhasil buka workbook, 
akan di-handle oleh on error goto keluar (langsung ke label keluar)
Jadi baris yang dikatakan selalu terjadi error di baris itu, sebenarnya tidak 
pernah terjadi kalau tidak ada bagian baris kode 'code lain Anda itu. Dan nggak 
perlu repot-repot bikin on orror baru.

Pertanyaannya kan, 'Kenapa bisa begitu ?'
> karena Anda memakai error handler secara serampangan, dengan tidak 
> menganalisa setiap kemungkinan error yang muncul dari setiap (SETIAP loh ya) 
> baris yang ada itu apa saja dan sudahkah dihandle oleh error handler sebelum 
> baris itu.

Jadi, di-troubleshoot pun akan sulit karena sama saja Anda harus menjelaskan 
secara rinci tugas setiap baris kode yang dibuat.

Regards,
Kid



On Sun, Mar 17, 2019 at 7:37 PM Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> wrote:

Ok. Berarti sudah benar ya cara penulisan saya untuk nangkap nomor errornya ? 
yaitu label Mylabel dulu baru label Keluar ? Soalnya ini saya sudah coba 
sebelumnya dan tidak bisa nangkap nomor errornya.
Maksud saya, kalau sudah benar cara penulisannya, berarti errornya bukan 
disitu. Makanya saya butuh kepastian cara penulisannya.

Terima kasih atas jawabannya.
Tio

From: belajar-excel@yahoogroups.com 
[mailto:belajar-excel@yahoogroups.com]
Sent: 17 Maret 2019 12:39
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Cara penulisan error handling


Coba saja...
Yang penting itu, sebelum pasang error handler (trap error), sudah tahu setiap 
baris program bisa error ketika apa saja.
Contoh : baris program buka file akan error kalau file yang mau dibuka tidak 
ada. Jadi butuh baris program validasi jika memungkinkan. Kalau susah bikin 
validasi, bisa jadi error handler mampu membantu.
Barulah baris program buka file.

Sent from my smart enough phone

On Mar 17, 2019, at 02:19, Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> wrote:

Salam Be-Exceller.
Ini melanjutkan topik tentang cek file di server.

Kalau ada kasus VBA seperti ini :
Private sub ContohKodeSaya()

Dim Alamatfile as string

Dim Mywb as workbook,Wbbaru as workbook

Dim wbbaruSh as worksheet,MywbSh as worksheet


On error goto Keluar
Alamatfile=”D:\\myfolder\mysubfolder\namafilesaya.xlsx”
‘’‘Buka file dari server
BukaFile Alamatfile,"PasswordSaya"
Set Mywb=ThisWorkbook
Set Wbbaru=workbooks(“namafilesaya.xlsx”)
Wbbaru.activate
Set WbbaruSh=Wbbaru.worksheets(“mySheet”)
With WbbaruSh
  .Cells(1,1).value=”XXX”
  ‘’‘Code lain…..….
End with
Mywb.activate
Set MywbSh=Mywb.worksheets(“mySheetJuga”)
With MywbSh
  .Cells(1,1).value=”YYY”
  ‘’‘Code lain…
End with
Wbbaru.close true ---> Saya selalu error disini.

Set mywb=nothing
Set wbbaru=nothing
Set wbbaruSh=nothing
Set MywbSh=nothing

Keluar:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Err.Clear
On Error GoTo 0

End sub

Pertanyaannya :
Karena bar

RE: [belajar-excel] Parameter yang dilihat untuk penggunaan memory

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Terima kasih mas KenangAgus atas jawabannya. Semoga amal baiknya diterima 
disisiNya. Amiin.

Kalau begitu, kenapa ya ada error tersebut sehingga file tidak bisa di simpan ? 
Sementara memory yang digunakan Excel cuma 27 K ?

Terima kasih atas jawabannya.
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 17 Maret 2019 9:19
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Parameter yang dilihat untuk penggunaan memory [2 
Attachments]


Dear Tio,

A merupakan Memory yang sedang digunakan Excel, sedangkan B merupakan jumlah 
memory keseluruhan yang digunakan Komputer
Lihat saja memory habis digunakan untuk program firefox.
Regard
NangAgus
On 3/17/2019 03:22, Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] wrote:

Salam Be-Exceller.
[mailbox:///E:/File%20Email/NangAgusGmail/Inbox?number=955339754&header=quotebody&part=1.2&filename=image001.png]
Mau tanya.

1.   Parameter yang mana yang  ditunjukkan huruf A atau B yang dijadikan 
acuan untuk melihat penggunaan memory ?
Sebelumnya saya berpikir untuk penggunaan memory adalah di huruf A yaitu untuk 
gambar tersebut adalah sebesar 27.156 K.
Tapi pernah dalam suatu kasus, saya kekurangan memory sehingga tidak bisa save 
file padahal huruf A tersebut hanya 27 K. Apakah huruf B juga harus dijadikan 
parameter juga dalam penggunaan memory atau ada parameter lain ataukah ada 
sebab lain ?


2.   Berapa sebaiknya huruf A dan B yang ideal supaya tidak kekurangan 
memory ?


Ini pesan errornya
[mailbox:///E:/File%20Email/NangAgusGmail/Inbox?number=955339754&header=quotebody&part=1.3&filename=image003.jpg]

Mohon bimbingannya. Kenapa kekurangan memory padahal huruf A cuma sebesar 27 K.

Terima kasih . semoga amal baiknya diterima disisiNya. Amiin.

Tio

RE: [belajar-excel] Cara penulisan error handling

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Ok. Berarti sudah benar ya cara penulisan saya untuk nangkap nomor errornya ? 
yaitu label Mylabel dulu baru label Keluar ? Soalnya ini saya sudah coba 
sebelumnya dan tidak bisa nangkap nomor errornya.
Maksud saya, kalau sudah benar cara penulisannya, berarti errornya bukan 
disitu. Makanya saya butuh kepastian cara penulisannya.

Terima kasih atas jawabannya.
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 17 Maret 2019 12:39
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Cara penulisan error handling


Coba saja...
Yang penting itu, sebelum pasang error handler (trap error), sudah tahu setiap 
baris program bisa error ketika apa saja.
Contoh : baris program buka file akan error kalau file yang mau dibuka tidak 
ada. Jadi butuh baris program validasi jika memungkinkan. Kalau susah bikin 
validasi, bisa jadi error handler mampu membantu.
Barulah baris program buka file.

Sent from my smart enough phone

On Mar 17, 2019, at 02:19, Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> wrote:

Salam Be-Exceller.
Ini melanjutkan topik tentang cek file di server.

Kalau ada kasus VBA seperti ini :
Private sub ContohKodeSaya()

Dim Alamatfile as string

Dim Mywb as workbook,Wbbaru as workbook

Dim wbbaruSh as worksheet,MywbSh as worksheet


On error goto Keluar
Alamatfile=”D:\\myfolder\mysubfolder\namafilesaya.xlsx”
‘’‘Buka file dari server
BukaFile Alamatfile,"PasswordSaya"
Set Mywb=ThisWorkbook
Set Wbbaru=workbooks(“namafilesaya.xlsx”)
Wbbaru.activate
Set WbbaruSh=Wbbaru.worksheets(“mySheet”)
With WbbaruSh
  .Cells(1,1).value=”XXX”
  ‘’‘Code lain…..….
End with
Mywb.activate
Set MywbSh=Mywb.worksheets(“mySheetJuga”)
With MywbSh
  .Cells(1,1).value=”YYY”
  ‘’‘Code lain…
End with
Wbbaru.close true ---> Saya selalu error disini.

Set mywb=nothing
Set wbbaru=nothing
Set wbbaruSh=nothing
Set MywbSh=nothing

Keluar:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Err.Clear
On Error GoTo 0

End sub

Pertanyaannya :
Karena baris Wbbaru.close true selalu error, maka saya mau menangkap nomor 
Error nya sehingga bisa dihandle.
Bagaimana cara penulisannya kalau dengan kondisi diatas (multiple error 
handling). Apakah yang benar seperti ini ?(Yaitu dengan 2 error handling, 
Mylabel dan Keluar)

Private sub ContohKodeSaya()

Dim Alamatfile as string

Dim Mywb as workbook,Wbbaru as workbook

Dim wbbaruSh as worksheet,MywbSh as worksheet


On error goto Keluar
Alamatfile=”D:\\myfolder\mysubfolder\namafilesaya.xlsx”
‘’‘Buka file dari server
BukaFile Alamatfile,"PasswordSaya"
Set Mywb=ThisWorkbook
Set Wbbaru=workbooks(“namafilesaya.xlsx”)
Wbbaru.activate
Set WbbaruSh=Wbbaru.worksheets(“mySheet”)
With WbbaruSh
  .Cells(1,1).value=”XXX”
  ‘’‘Code lain…..….
End with
Mywb.activate
Set MywbSh=Mywb.worksheets(“mySheetJuga”)
With MywbSh
  .Cells(1,1).value=”YYY”
  ‘’‘Code lain…
End with
On error goto Mylabel
Wbbaru.close true

Set mywb=nothing
Set wbbaru=nothing
Set wbbaruSh=nothing
Set MywbSh=nothing

Exit sub

Mylabel:
Msgbox “Nomor Errornya :” & Err.number &” dengan deskripsi error sbb : 
“ & Err.description

Keluar:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Err.Clear
On Error GoTo 0

End sub

Terima kasih atas bimbingannya semoga amal baiknya diterima disisiNya. Amiin.
Tio

RE: [belajar-excel] Perbedaan penulisan error handling

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Terima kasih Mr. Kid atas jawabannya semoga amal baiknya diterima disisiNya. 
Amiin.

Dari lampiran yang Mr. Kid kasih, disitu tertulis :

[cid:image001.png@01D4DCFA.8F1E4F50]

Berarti code number 0 disesuaikan dengan situasi, yaitu kalau cek file 
ada/tidak, maka number error 0 itu maksudnya file ada sehingga selain 0 file 
tidak ada. Dan kalau cek file open/tidak, maka number error 0 itu maksudnya 
file open sehingga selain 0 file itu tertutup Benarkah itu sesuai situasi yang 
diinginkan ?

Terima kasih atas jawabannya.
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 17 Maret 2019 12:26
To: BeExcel
Subject: Re: [belajar-excel] Perbedaan penulisan error handling


Nambahin ini :
Daftar kode error 
(err.number)

Sent from my smart enough phone

On Mar 17, 2019, at 09:55, Agus nanga...@gmail.com 
[belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> wrote:

Dear Tio,
Coba baca kembali Helepnya Excel:



1.   Apa perbedaan error handling antara penulisan Err.clear dengan on 
error goto -1 ? Tolong diberikan contohnya untuk kedua error handling tsb.
>> Bukankah tulisannya sudah berbeda? apa yang ditanyakan? mungkin perbedaan 
>> ada pada angkanya, err.clear tidak ada angka sedangkan on error go to -1 ada 
>> angkanya ..  he he he he, jangan marah ya...
>> Err.clear hanya menghapus nomor error yang sudah ada sebelumnya.
>>  on error goto -1 digunakan untuk menghapus exception object (error 
>> sebelumnya), kalau error sebelunya tidak dihapus maka error tersebut tidak 
>> dapat ditangani.
Contoh:
Sub Test1()
Dim dblValueAs Double
On Error GoTo ErrHandler1
dblValue = 1 / 0
ErrHandler1:
MsgBox "Iki error no 11"
Err.Clear
MsgBox "Kesalahan nomer:  " & Err.Number & Vbcrlf & " harusnya muncul no 
11, tetapi jadi 0 karena ada err.clear"
   On Error GoTo -1
On Error GoTo ErrHandler2
dblValue = "a"
ErrHandler2:
   MsgBox Err.Number
MsgBox "Iki error no 13"
End Sub

 Untuk mengetahui perbedaannya silahkan buang err.clear dan onerror go to -1 
secara bergantian!
2.   Apakah penulisan error handling on error goto -1 akan mereset error di 
baris sebelumnya atau baris sesudahnya ? Tolong diberikan contohnya….
>>> yang direset adalah error sebelumnya. Contoh di atas yaa.

3.   Tolong berikan penjelasan error number 0. Apakah pengertiannya 
disesuaikan dengan kondisi ?
> Kelihatannya tidak ada deskripsi untuk error ini, nunggu penjelasan yang 
> lebih kompeten yaa...

Regard
KenangAgus

RE: [belajar-excel] Cek file open di server apakah dibuka dikomputer sendiri atau di komputer orang lain

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Terima kasih Mr. Kid atas jawabannya. Semoga amal baiknya diterima disisiNya. 
Amiin.

No. 2
Saya sudah buat function berikut untuk menentukan apakah file di server dibuka 
di network atau di computer sendiri. Tapi belum dicoba. Tolong tanggapannya.

Public Function FileTerbuka() As Boolean
Dim alamatfilemaster As String
alamatfilemaster = "\\AlamatServer\FolderServer\Subfolder\NamaFilenya.xlsx"

FileTerbuka = False

On Error GoTo not_open

Workbooks(alamatfilemaster).Activate

Exit Function
not_open:
MsgBox "File master terbuka di computer anda" & vbNewLine & vbNewLine & _
"Silahkan tutup file master dulu", vbInformation, "Info"
FileTerbuka = True
Err.Clear
Resume Next
End Function

5. Berarti kesimpulannya, setiap variable local maka akan dihancurkan VBA 
setelah keluar procedure. Berarti juga kalau set range di local procedure yg 
diperlukan hanya di local procedure, maka tidak perlu set range=nothing. 
Begitukah ?
Contoh :
Private sub contohsaja()
Dim myrange as range

Set myrange=Cells(1,1)
‘’Code lain…..
Set myrange=nothing ‘’’> Karena myrange tidak 
diperlukan oleh procedure lain, ini tidak perlu. Benarkah ?

End sub

Nomor lain sudah puas jawabannya. Terima kasih atas jawabannya.

Tambahan pertanyaan :

1.   Apakah public variable juga harus di clear kan memory nya ?

Contoh Public rangesaya as range

Maka karena public variable juga dibutuhkan oleh procedure lain, maka di clear 
kan setelah form ditutup yakni dengan set rangesaya=nothing. Benarkah ?

Terima kasih . Mohon jawabannya.
Tio
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 17 Maret 2019 18:31
To: BeExcel
Subject: Re: [belajar-excel] Cek file open di server apakah dibuka dikomputer 
sendiri atau di komputer orang lain


No.. 2
Yup, pasti.
Hanya cara bukanya bermacam-macam tergantung media yang digunakan.
Kalau pakai workbooks.open berarti pakai cara excel melalui menu file open.
Kalau pakai select * from namaLinkedServer...[nama_sheet$] berarti pakai linked 
server memanfaatkan data provider tertentu via sql server
Kalau pakai objectConnection.open connectionstring berarti pakai ado object
Kalau pakai Open filefullname for blbla (open statement) berarti pakai io file
dan masih banyak lagi cara lain.
Semua itu diawali dengan membuka si file. Ada yang tampak tampil dimata user, 
ada yang tidak. Semua juga bisa dipakai untuk cek apakah file tersebut sedang 
digunakan secara ekslusif di tempat lain atau tidak. Kalau dari dalam Excel 
(misal melalui VBA), ingin tahu file sedang terbuka atau tidak, lalu kalau 
tidak terbuka maka dilakukan proses buka file, yang paling aman adalah pakai 
Workbooks.Open, karena lebih mudah diatur dan mudah diprediksi hasilnya, 
apalagi untuk yang awam dengan programming.

Tentang : "file yang dibuka ukurannya besar, jadi kalau buka file dulu, maka 
akan lama"
> tergantung apa tujuan pemeriksaan terbuka dan tidaknya file.
> kalau sekadar tahu saja dan tidak perlu melakukan sesuatu di dalam file 
> tersebut, bisa pakai cara lain, seperti open statement misalnya.
> tapi kalau tujuan akhirnya, yaitu ketika tahu bahwa file tidak dibuka di 
> tempat lain, lalu ingin membuka dan melakukan sesuatu terhadapnya, ya tetap 
> pakai workbooks.open yang aman. Karena pada kondisi ingin membuka dan 
> melakukan sesuatu terhadap file itu, tidak akan ada bedanya antara cepat atau 
> lambatnya membuka file, karena hasil akhirnya ingin membuka file dan 
> melakukan sesuatu.

No. 3
Sebelum diubah dengan memberi error handler :
> bisa jadi ada pengubah error handler di bunyi baris kode di bagian Code lain 
> milik Anda

Setelah diubah :
> mestinya sudah tidak muncul error

No. 4
Yang mana saja sesuai kebutuhan proses yang Anda buat.

No. 5
Begitulah kira-kira.
Prinsipnya, variabel dengan scope local akan dihancurkan oleh VB/VBA begitu 
proses sudah sampai diluar scope.
Sedang untuk variabel dengan scope module atau yang lebih luas,
tergantung alur proses utuhnya membutuhkan hal tersebut atau tidak.

No. 6
Saya tidak tahu apa itu public events.
Biasanya events itu diusahakan dengan scope modular.

Regards,
Kid
Sent from my smart enough phone

On Mar 17, 2019, at 01:27, Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> wrote:

Terima kasih banyak Mr. Kid atas jawabannya semoga amal baiknya diterima Allah 
SWT. Amiin.
Pertanyaan lanjutan :

1.  Mr. Kid menulis wbkF.Close False dimana wbkF adalah workbook yang 
isinya adalah nama file beserta path nya. Tapi yang saya baca di referensi lain 
adalah kalau menutup workbook, maka cukup dengan nama filenya saja tanpa path 
seperti workbooks(“namafilenya.xlsx”).close true. Mohon bimbingannya lagi, 
kapan saya harus menutup workbook dengan path dan kapan tanpa path ?



2.  Berarti kalau mau tahu apakah file itu terbuka di computer saya

[belajar-excel] Perbedaan penulisan error handling

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Be-Exceller.
Mau tanya.

1.   Apa perbedaan error handling antara penulisan Err.clear dengan on 
error goto -1 ? Tolong diberikan contohnya untuk kedua error handling tsb.



2.   Apakah penulisan error handling on error goto -1 akan mereset error di 
baris sebelumnya atau baris sesudahnya ? Tolong diberikan contohnya



3.   Tolong berikan penjelasan error number 0. Apakah pengertiannya 
disesuaikan dengan kondisi ?

Contoh kalau cek file open atau tidak, maka maksud error number 0 adalah file 
tersebut sedang tidak terpakai , maka error number selain 0 berarti file itu 
sedang dipakai.

Dan kalau cek file ada/tidak, maka maksud error number 0 adalah file itu ada, 
sehingga error number selain 0 file itu tidak ada. Begitukah maksudnya yakni 
maksud error number 0 itu adalah tergantung situasi ? Mohon penjelasan.

Terima kasih...semoga amal baiknya diterima di sisi Allah SWT. Amiin

Tio

[belajar-excel] Parameter yang dilihat untuk penggunaan memory

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Be-Exceller.
[cid:image001.png@01D4DC75.B23E78F0]
Mau tanya.

1.   Parameter yang mana yang  ditunjukkan huruf A atau B yang dijadikan 
acuan untuk melihat penggunaan memory ?
Sebelumnya saya berpikir untuk penggunaan memory adalah di huruf A yaitu untuk 
gambar tersebut adalah sebesar 27.156 K.
Tapi pernah dalam suatu kasus, saya kekurangan memory sehingga tidak bisa save 
file padahal huruf A tersebut hanya 27 K. Apakah huruf B juga harus dijadikan 
parameter juga dalam penggunaan memory atau ada parameter lain ataukah ada 
sebab lain ?


2.   Berapa sebaiknya huruf A dan B yang ideal supaya tidak kekurangan 
memory ?


Ini pesan errornya
[cid:image003.jpg@01D4DC77.BBB1FD10]

Mohon bimbingannya. Kenapa kekurangan memory padahal huruf A cuma sebesar 27 K.

Terima kasih . semoga amal baiknya diterima disisiNya. Amiin.

Tio

[belajar-excel] Cara penulisan error handling

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Be-Exceller.
Ini melanjutkan topik tentang cek file di server.

Kalau ada kasus VBA seperti ini :
Private sub ContohKodeSaya()

Dim Alamatfile as string

Dim Mywb as workbook,Wbbaru as workbook

Dim wbbaruSh as worksheet,MywbSh as worksheet


On error goto Keluar
Alamatfile="D:\\myfolder\mysubfolder\namafilesaya.xlsx"
'''Buka file dari server
BukaFile Alamatfile,"PasswordSaya"
Set Mywb=ThisWorkbook
Set Wbbaru=workbooks("namafilesaya.xlsx")
Wbbaru.activate
Set WbbaruSh=Wbbaru.worksheets("mySheet")
With WbbaruSh
  .Cells(1,1).value="XXX"
  '''Code lain...
End with
Mywb.activate
Set MywbSh=Mywb.worksheets("mySheetJuga")
With MywbSh
  .Cells(1,1).value="YYY"
  '''Code lain...
End with
Wbbaru.close true ---> Saya selalu error disini.

Set mywb=nothing
Set wbbaru=nothing
Set wbbaruSh=nothing
Set MywbSh=nothing

Keluar:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Err.Clear
On Error GoTo 0

End sub

Pertanyaannya :
Karena baris Wbbaru.close true selalu error, maka saya mau menangkap nomor 
Error nya sehingga bisa dihandle.
Bagaimana cara penulisannya kalau dengan kondisi diatas (multiple error 
handling). Apakah yang benar seperti ini ?(Yaitu dengan 2 error handling, 
Mylabel dan Keluar)

Private sub ContohKodeSaya()

Dim Alamatfile as string

Dim Mywb as workbook,Wbbaru as workbook

Dim wbbaruSh as worksheet,MywbSh as worksheet


On error goto Keluar
Alamatfile="D:\\myfolder\mysubfolder\namafilesaya.xlsx"
'''Buka file dari server
BukaFile Alamatfile,"PasswordSaya"
Set Mywb=ThisWorkbook
Set Wbbaru=workbooks("namafilesaya.xlsx")
Wbbaru.activate
Set WbbaruSh=Wbbaru.worksheets("mySheet")
With WbbaruSh
  .Cells(1,1).value="XXX"
  '''Code lain.
End with
Mywb.activate
Set MywbSh=Mywb.worksheets("mySheetJuga")
With MywbSh
  .Cells(1,1).value="YYY"
  '''Code lain...
End with
On error goto Mylabel
Wbbaru.close true

Set mywb=nothing
Set wbbaru=nothing
Set wbbaruSh=nothing
Set MywbSh=nothing

Exit sub

Mylabel:
Msgbox "Nomor Errornya :" & Err.number &" dengan deskripsi error sbb : 
" & Err.description

Keluar:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Err.Clear
On Error GoTo 0

End sub

Terima kasih atas bimbingannya semoga amal baiknya diterima disisiNya. Amiin.
Tio

RE: [belajar-excel] Cek file open di server apakah dibuka dikomputer sendiri atau di komputer orang lain

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Terima kasih banyak Mr. Kid atas jawabannya semoga amal baiknya diterima Allah 
SWT. Amiin.
Pertanyaan lanjutan :

1.  Mr. Kid menulis wbkF.Close False dimana wbkF adalah workbook yang 
isinya adalah nama file beserta path nya. Tapi yang saya baca di referensi lain 
adalah kalau menutup workbook, maka cukup dengan nama filenya saja tanpa path 
seperti workbooks(“namafilenya.xlsx”).close true. Mohon bimbingannya lagi, 
kapan saya harus menutup workbook dengan path dan kapan tanpa path ?



2.  Berarti kalau mau tahu apakah file itu terbuka di computer saya atau di 
computer orang lain, saya harus buka file  itu dulu ya ? Adakah code VBA yang 
bisa mengetahui itu tanpa harus buka file dulu ? Maaf karena file yang dibuka 
ukurannya besar, jadi kalau buka file dulu, maka akan lama .





3.  Kalau ada kasus dengan code VBA seperti ini.

Dim Alamatfile as string

Dim Mywb as workbook,Wbbaru as workbook

Dim wbbaruSh as worksheet,MywbSh as worksheet



On error goto Keluar
Alamatfile=”D:\\myfolder\mysubfolder\namafilesaya.xlsx”
‘’‘Buka file dari server
BukaFile Alamatfile,"PasswordSaya"
Set Mywb=ThisWorkbook
Set Wbbaru=workbooks(“namafilesaya.xlsx”)
Wbbaru.activate
Set WbbaruSh=Wbbaru.worksheets(“mySheet”)
With WbbaruSh
  .Cells(1,1).value=”XXX”
  ‘’‘Code lain…..….
End with
Mywb.activate
Set MywbSh=Mywb.worksheets(“mySheetJuga”)
With MywbSh
  .Cells(1,1).value=”YYY”
  ‘’‘Code lain…
End with
Wbbaru.close true ---> Saya selalu error disini. Adakah yang salah 
dari coding saya ?padahal saya sudah modif dengan

On error resume next   ‘modif saya
Wbbaru.Close true ‘modif saya
Err.clear ‘modif saya
On error goto 0 ‘modif saya

Set mywb=nothing
Set wbbaru=nothing
Set wbbaruSh=nothing
Set MywbSh=nothing

Keluar:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Err.Clear
On Error GoTo 0

End sub


4.  Bagaimana urutan penulisan yang benar seperti contoh dibawah ini : 
Label dulu atau clear memory (set rg=nothing misalnya ) ?
Private sub contohsaja()
On error goto Keluar
Set myrange=range(Cells(1,1),Cells(1,100))


Set myrange=nothing
Keluar:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End sub

Atau….

Private sub contohsaja()
On error goto Keluar
Set myrange=range(Cells(1,1),Cells(1,100))


Keluar:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

Set myrange=nothing
End sub

Mana urutan penulisan yang benar. Label dulu atau clear memory (dengan set 
myrange=nothing) ?



5.  Kalau mengurangi memory untuk range, dengan menulis diakhirnya set 
myRange=nothing. Bagaimana dengan worksheet apakah harus set mySheet=nothing ?

Bagaimana juga dengan ukuran variable seperti Dim L as long dan ditulis di 
akhirnya L=empty  atau variable byte, string apakah juga ditulis 
myString=vbnullstring ?


6.  Bagaimana clear memory untuk Public Events ? Tolong diberi contoh clear 
memory untuk Public Events..



Terima kasih atas bimbingannya, semoga amal baiknya diterima Allah SWT. Amiin



Tio



From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 15 Maret 2019 9:03
To: BeExcel
Subject: Re: [belajar-excel] Cek file open di server apakah dibuka dikomputer 
sendiri atau di komputer orang lain


Public Sub BukaFile(Optional sFile As String, Optional sPwdOpen As String = 
vbNullString)
Dim sMsgTxt As String, sMsgTitle As String, lMsg As Long, lTry As Long, 
wbkF As Workbook

sMsgTxt = "Pembukaan ke-"
sMsgTitle = "Buka File"
lMsg = 20
If Len(sFile) * Len(Dir(sFile, vbNormal)) = 0 Then
MsgBox "File tidak ada atau tidak dapat di akses.", vbExclamation, 
sMsgTitle
Exit Sub
End If
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error GoTo Keluar

Ulangi:
lTry = lTry + 1
Set wbkF = Workbooks.Open(sFile, 0, True, Password:=sPwdOpen, 
IgnoreReadOnlyRecommended:=True, Notify:=False)
wbkF.ChangeFileAccess xlReadWrite, Notify:=False
If wbkF.ReadOnly Then
wbkF.Close False
If lTry Mod lMsg > 0 Then GoTo Ulangi
If MsgBox(sMsgTxt & lTry, vbExclamation + vbRetryCancel + 
vbDefaultButton2, sMsgTitle & " : Read Only") = vbRetry Then GoTo Ulangi
End If

Keluar:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Err.Clear
On Error GoTo 0
End Sub

Cara pakai :
BukaFile "path\file.extension","Pwd"

On Thu, Mar 14, 2019 at 5:46 AM Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> wrote:

Dear Be-Exceller,
Saya mau cek apakah file di server dibuka oleh orang lain atau dibuka 
dikomputer sendiri. File itu ada di server. Saya sudah bikin code nya tap

[belajar-excel] Cek file open di server apakah dibuka dikomputer sendiri atau di komputer orang lain

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Dear Be-Exceller,
Saya mau cek apakah file di server dibuka oleh orang lain atau dibuka 
dikomputer sendiri. File itu ada di server. Saya sudah bikin code nya tapi kok 
gak bisa ya ? Mohon bimbingannya.

Ini code saya :

Public function sFileAdaAccess(fname) as Boolean
   sFileAdaAccess = True
If IsFileOpen(fname) = True Then
Set wbbook = Workbooks(fname)

If Not wbbook.ReadOnly = True Then
MsgBox "Silahkan  ditutup dulu File Master", vbExclamation, 
"File master terbuka"
sFileAdaAccess = false
 Exit Function
Else
 sFileAdaAccess = True
End If
  Set wbbook = Nothing
'End If

Public Function IsFileOpen(filename As String) As Boolean
Dim filenum As Integer
Dim errnum As Integer

On Error Resume Next   ' Turn error checking off.

'''
' If we were passed in an empty string,
' there is no file to test so return FALSE.
'''
If filename = vbNullString Then
IsFileOpen = False
Exit Function
End If

'''
' If the file doesn't exist,
' it isn't open so get out now.
'''
If Dir(filename) = vbNullString Then
IsFileOpen = False
Exit Function
End If
''
' Get a free file number.
''
filenum = FreeFile()
'''
' Attempt to open the file
' and lock it.
'''
Err.Clear
Open filename For Input Lock Read As #filenum
''
' Save the error number that occurred.
''
errnum = Err.Number
On Error GoTo 0' Turn error checking back on.
Close #filenum   ' Close the file.

' Check to see which error occurred.

Select Case errnum
Case 0
'''
' No error occurred.
' File is NOT already open by another user.
'''
IsFileOpen = False

Case 70
'''
' Error number for "Permission Denied."
' File is already opened by another user.
'''
IsFileOpen = True

'''
' Another error occurred. Assume the file
' cannot be accessed.
'''
Case Else
IsFileOpen = True

End Select

End Function

Kenapa tidak berhasil ? Mohon bimbingannya.
Terima kasih.
Tio

[belajar-excel] Looping file open di file network

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Be-Exceller,
Saya  membuat aplikasi untuk multi user dimana file tersebut diisi oleh 
beberapa user. File itu ada di server (network). Tapi terdapat kendala yaitu 
mengetahui apakah file sudah tertutup/tidak. Itu karena file itu digunakan oleh 
semua orang. Jadi saya ingin mengetahui apakah file itu sudah tertutup atau 
tidak. Kalau file di server itu tertutup, maka saya buka file itu dan update 
data di file di server tersebut. Dan setelah update data, saya tutup file 
kembali secepatnya karena akan digunakan user lain...
Saya sudah buat code tapi masih ada error yaitu ".File is currently in use. 
Please try again". Code itu kadang-kadang error disaat open file, dan 
kadang-kala error di saat file itu ditutup kembali.
Code yang sudah saya buat adalah :

Dim w as long
Dim src as workbook
Dim ikonfirmasi as integer
Dim namafile as string,fname as string

fname = Dataku.Cells(1, 40).value
namafile ="DataGudang.xlsx"

Ulangi_Buka:
w = 0
Err.Clear
On Error Resume Next
Set src = Workbooks.Open(fname, True, False, , "1")  '--> Kadang suka 
error yang bunyinya : \\Folder_Server\FolderFile\DataGudang.xlsx is currently 
in use. Please try again 
later.
 Catatan : password file : 1
If Err.Number <> 0 Or src Is Nothing Then
On Error GoTo 0
End If
On Error Resume Next
If src.ReadOnly Then
Err.Clear
w = w + 1
If w >= 5000 Then
ikonfirmasi = MsgBox("Saya telah cek sebanyak " & w & ". Apakah anda 
ingin melanjutkan ?", vbQuestion + vbYesNo, "Konfirmasi")
If ikonfirmasi = vbYes Then
GoTo Ulangi_Buka
Else
src.Close False
Exit Sub
End If
Else
Workbooks(namafile).Close False  '--> Kadang suka error yang bunyinya 
sama seperti diatas : : \\Folder_Server\FolderFile\DataGudang.xlsx is currently 
in use. Please try again 
later
GoTo Ulangi_Buka
End If
End If
'
Mohon petunjuknya, bagaimana bisa mengatasi error tersebut ?

Terima kasih atas bimbingannya. Semoga Allah SWT membalas kebaikan teman-teman. 
Amiin...
Tio

RE: [belajar-excel] Cara cek file open dengan delete file dimqna file itu dibutuhkan

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Maaf Mr. Kid. Belum paham saya.
Untuk no.2 apakah itu artinya harus buka file dulu sama seperti no. 1 ?

Terima kasih jawabannya.


From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 31 Januari 2019 14:29
To: BeExcel
Subject: Re: [belajar-excel] Cara cek file open dengan delete file dimqna file 
itu dibutuhkan


Public Sub CekWbkInUse(Optional bState As Boolean = False)
Dim sFile As String
sFile = "D:\lib_links.xlsx"

'cara 1 :
Dim wbkF As Workbook
Set wbkF = Workbooks.Open(sFile, 2)
If wbkF.ReadOnly Then
Debug.Print "cara 1 : wbk readonly", "Sedang dipakai user lain"
Else
Debug.Print "cara 1 : wbk readonly", "Tidak ada yang pakai"
End If
wbkF.Close False

'cara 2 :
Dim iFile As Integer
Err.Clear
On Error Resume Next
iFile = FreeFile
Open sFile For Binary Access Read Lock Read As iFile: Close iFile
If Err.Number <> 0 Then
Debug.Print "cara 2 : open iofile", "Sedang dipakai user lain"
Else
Debug.Print "cara 2 : open iofile", "Tidak ada yang pakai"
End If
Err.Clear
On Error GoTo 0

'cara 3 :
Dim sFBackup As String
Err.Clear
On Error Resume Next
sFBackup = sFile & ".kid"
FileCopy sFile, sFBackup
Kill sFile
If Err.Number <> 0 Then
Debug.Print "cara 3 : save copy delete", "Sedang dipakai user lain"
Else
FileCopy sFBackup, sFile
Debug.Print "cara 3 : save copy delete", "Tidak ada yang pakai"
End If
Kill sFBackup
Err.Clear
On Error GoTo 0
End Sub

On Wed, Jan 30, 2019 at 7:37 AM Tio Ali 
tioali2...@yahoo.co..id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> wrote:

Salqm Bexceller
Saya mau cek file apakah sedang open atau tidak. Kalau file itu tutup, saya 
buka untuk digunakan. Yg saya tahu selama ini adalah dgn coba cek apakah file 
itu readonly atau tidak. Kalau tidak readoonly berarti file tutup. Tapi itu 
akan jadi masalah kalau file itu sudah besar kapasitasnya sehingga jadi lama 
bukanya.
Saya dengar ada cara lain yaitu dengan cara delete file itu. Kalau error 
berarti file itu open
Yg ditanyakan bagaimana teknis delete file itu karena file itu justru file yang 
kita butuhkan ?

Terima kasih.
Tio



_

Reply via web 
post

•

Reply to sender 


•

Reply to group 


s



Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on 
the market. What are you waiting for? Now you can access all your inboxes 
(Gmail, Outlook, AOL and more) in one place. Never delete an email again with 
1000GB of free cloud storage.


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-subscr...@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-ow...@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : 
belajar-excel-unsubscr...@yahoogroups.com
-
Visit Your 
Group

RE: [belajar-excel] Menulis nilai dengan desimal tertentu dari cell worksheet ke textbox di userform dan mengeluarkan nilainya kembali ke cell tertentu

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Alhamdulillah. Terima kasih atas jawabannya Mr. Kid. Semoga amal baiknya di 
terima disisiNya. Amiin.
Maaf Mr. Kid, passwordnya di file terlampir apa ya ?
Maaf, tidak kasih file contoh, karena lupa...


Terima kasih.
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 31 Januari 2019 13:49
To: BeExcel
Subject: Re: [belajar-excel] Menulis nilai dengan desimal tertentu dari cell 
worksheet ke textbox di userform dan mengeluarkan nilainya kembali ke cell 
tertentu [1 Attachment]


Jika cells sudah di format number sesuai kebutuhan, maka tampilan di cells bisa 
diambil dengan properti Text.
Kalkulasinya lebih baik dilakukan antar cells saja, supaya tidak ribet dalam 
membuat error trap.

File terlampirkapan terakhir kali melampirkan file berisi VBA ya ?

Regards,
Kid



On Thu, Jan 31, 2019 at 7:23 AM Agus 
nanga...@gmail.com [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> wrote:

Dear Tio,
Kenapa angka di cell dan di user form berbeda? apakah memang harus ditambah 
10.000?
Perlu di ingat bahwa cell excel hanya dapat menampung 15 digit secara akurat.
Jadi nilai 1..345.345.567.778,888 tidak dapat dihitung excel dalam cell secara 
akurat, karena sudah 16 digit.
CEll excel akan membulatkannya menjadi 15 digit (1.345.345.567.778,88). 
demikian pula nilai 123.456.789.012.345.678.901 akan diubah menjadi
123.456.789.012.345.000.000

Jika angka yang ditangani tidak sampai 15 digit dapat langsung dimasukkan 
userform dan ke cell.
Jika angka yang ditangani lebih dari 15 digit, disimpan dalam cell bertype text 
dan dihitung di vba dengan type double.

dicoba menggunakan cekrip:
TextBox1.Text = Format(Range("A1"), "#,###.##")
Range("A2") = TextBox1.Text * 3

Salam
KenangAgus


On 1/30/2019 19:59, Tio Ali 
tioali2...@yahoo.co.id [belajar-excel] wrote:


Salam BeExceller
Saya kesulitan sekali untuk soal ini. Sudah coba googling tetap gak ketemu 
jawabannya.
Soal saya adalah:
Misal di cell A1 tertulis nilai 130.567,356. Saya ingin menuliskan nilai itu 
sesuai desimal apa adanya tanpa pembulatan.Di userform, yang diinginkan juga 
tertulis di textboxnya adalah 140.567,356. Yakni dengan separator (pemisah) 
ribuan dan ada nilai desimalnya tepat sesuai nilai asalnya.. Kemudian di 
userform itu dikalikan dengan nilai 3 misalnya. Hasil dari perkalian itu 
ditampilkan ke cell A2 tepat dengan desimalnya (tanpa ada pembulatan) dan ada 
pemisah ribuan.
Bagaimana cara melakukan itu semua ? Saya frustasi mencari solusinya. Sudah 
cari ke google, tetap gak ada solusinya.

Terima kasih atas jawabannya. Semoga amal baiknya diterima di sisiNya. Amiin

Tio

RE: [belajar-excel] Memecah kalimat panjang hasil copy paste dari pdf ke kolom tertentu di beberapa baris di worksheet

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Terima kasih mas KenangAgus. Alhamdulillah. Berhasil. Semoga ilmunya terus 
bertambah. AmiinMaaf telat reply, soalnya email kantor bermasalah

Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 24 Januari 2019 22:14
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Memecah kalimat panjang hasil copy paste dari pdf 
ke kolom tertentu di beberapa baris di worksheet


Dear Tio,

Bisa dicoba Cekript ini:
Private Sub CommandButton1_Click()
Dim n As Single
Dim i As Single
Dim y As Single
Dim yy As Single
Dim ii As Single
yy = 1
n = Int(Len(TextBox1.Text) / 41)
For i = 1 To n
For ii = 41 + y To 41 + y + 12
If Mid(TextBox1.Text, ii, 1) = " " Then
y = ii
Exit For
End If
Next ii
If i = n Then
Range("A" & 2 + i) = Mid(TextBox1.Text, yy, 40)
Else
Range("A" & 2 + i) = Mid(TextBox1.Text, yy, y - yy)
End If
yy = 1 + y
Next i
End Sub
salam KenangAgus

On 1/23/2019 10:42, Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] wrote:

Dear Bexceller,
Saya ada pertanyaan.
Ada user yang copy paste teks dari pdf, sehingga kalimatnya panjang.
Teks yang panjang ini ditempatkan di userform.
Yang diinginkan adalah ada sebuat tombol yang bisa memecah kalimat panjang itu 
jadi beberapa baris dan ditempatkan di cell tertentu. Contohnya di kolom A di 
beberapa baris.
Bagaimana mengetahui berapa baris yang dibutuhkan dari satu kalimat yang 
panjang dan memecahnya ? Dan bagaimana cara meletakkannya di beberapa baris di 
kolom tertentu ?

Contoh soal terlampir.
.

[belajar-excel] Memecah kalimat panjang hasil copy paste dari pdf ke kolom tertentu di beberapa baris di worksheet [1 Attachment]

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Dear Bexceller,
Saya ada pertanyaan.
Ada user yang copy paste teks dari pdf, sehingga kalimatnya panjang.
Teks yang panjang ini ditempatkan di userform.
Yang diinginkan adalah ada sebuat tombol yang bisa memecah kalimat panjang itu 
jadi beberapa baris dan ditempatkan di cell tertentu. Contohnya di kolom A di 
beberapa baris.
Bagaimana mengetahui berapa baris yang dibutuhkan dari satu kalimat yang 
panjang dan memecahnya ? Dan bagaimana cara meletakkannya di beberapa baris di 
kolom tertentu ?

Contoh soal terlampir.
.





Contoh Soal VBA Excel.xlsm
Description: Contoh Soal VBA Excel.xlsm

RE: [belajar-excel] Object Library invalid or contains references to object defintions that could not be found

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Mr. Kid. Terima kasih atas jawabannya. Semoga Allah SWT membalas kebaikannnya. 
Amiin.
Pertanyaan lanjutan saya.

1.   Bagaimana update library form

2.   Bagaimana update file extension EXD ?



Apakah ada updatenya secara gratis ? Atau berbayar ?

Terima kasih.



From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 20 Januari 2019 9:36
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Object Library invalid or contains references to 
object defintions that could not be found


Biasanya kalau pindah versi barulah kemungkinan error akibat .exd file ini 
muncul.
Hanya berlaku untuk workbook berisi activex control.
Baik itu diletakkan di dalam worksheet maupun di dalam userform.
Penyebabnya adalah tidak update-nya library form.
Contoh yang berpotensi munculnya bug .exd files.
File .xls dibuat di xl2003, dipakai di xl2007 ke atas. Begitu pula sebaliknya.
File .xlsm atau .xlsx dibuat di xl versi tertentu, dipakai di xl versi lainnya. 
Begitu juga sebaliknya.

Belum diketahui kemungkinan muncul bug akibat pasti perpindahan bit office.
Contoh : file dibuat di xl2013 64 bit, dipakai di xl2013 32 bit.

Potensi muncul bug semakin besar ketika berpindah versi beserta bit office.
Contoh : file dibuat di xl2013 64 bit, dipakai di xl2007 (xl2007 hanya ada 32 
bit).

Potensi file untuk corrupt akibat bug oleh .exd file cukup kecil.
Justru yang mengganggu adalah munculnya bug.

Ada baiknya berusaha menghindari penggunaan activex control jika versi maupun 
bit office yang digunakan user masih tidak seragam.

Ketika versi dan bit office user tidak seragam, dianjurkan save as .xlsm.
Ada baiknya memiliki file hasil save as dari versi excel yang dipakai user.
Misal :
file dibuat dengan xl2013 64 bit, maka buka juga di xl2010 dan save as dengan 
nama lain.
User dengan versi xl2010 ke bawah bisa pakai hasil save as.

Biasanya, kalau office selalu ter-update, potensi munculnya bug ini sangat 
kecil.

Yang pernah ditemui :
File dibuat dengan xl2007 yang tidak updated, dipakai di xl2013 ke atas.
File dibuat dengan xl2013, dibuka di xl2010 ke bawah yang tidak updated.
File .xls dengan xl2013 ke atas dipakai di xl2010 ke bawah.
File dibuat dengan xl2016 ke atas, dibuka di xl2010.

Ketika tidak ada activex yang dipakai, potensi bug .exd tidak ada.


Sent from my smart enough phone

On Jan 19, 2019, at 20:34, Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> wrote:

Tidak ada referensi yang missing. Ini referensi saya.


Saya coba browsing ke internet dan disuruh delete file yang berextension *.EXD. 
Dan setelah saya hilangkan di directory c yg extensi exd. , problem solved. 
Bagaimana menurut Mr. Kid dan teman-teman. Apakah ada pengaruhnya ke aplikasi 
saya kalau menghilangkan file extension exd ?

Terima kasih atas jawabannya.




From: belajar-excel@yahoogroups.com 
[mailto:belajar-excel@yahoogroups.com]
Sent: 18 Januari 2019 22:47
To: BeExcel
Subject: Re: [belajar-excel] Object Library invalid or contains references to 
object defintions that could not be found


Coba di cek di komputer yang bermasalah :
1. ke VBE (alt f11)
2. menu Tools -> references -> mucul dialog window
3. cari dalam daftar, semua yang ada tulisan berbunyi MISSING
4. tulis lengkap semua yang berbunyi MISSING tersebut dan posting ke milis

On Fri, Jan 11, 2019 at 6:35 AM Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> wrote:

Dear B-Exceller,
Saya sedang buat aplikasi database tapi setelah sekian lama, ketika buka form, 
ada error yang berbunyi Object Library invalid or contains references to object 
defintions that could not be found. Padahal saya tidak pakai date picker. 
Kira-kira apa ya penyebabnya dan bagaimana solusinya ? terima kasih.

___

RE: [belajar-excel] Object Library invalid or contains references to object defintions that could not be found

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Tidak ada referensi yang missing. Ini referensi saya.
[cid:image001.png@01D4B036.405A4F90]

Saya coba browsing ke internet dan disuruh delete file yang berextension *.EXD. 
Dan setelah saya hilangkan di directory c yg extensi exd. , problem solved. 
Bagaimana menurut Mr. Kid dan teman-teman. Apakah ada pengaruhnya ke aplikasi 
saya kalau menghilangkan file extension exd ?

Terima kasih atas jawabannya.




From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 18 Januari 2019 22:47
To: BeExcel
Subject: Re: [belajar-excel] Object Library invalid or contains references to 
object defintions that could not be found


Coba di cek di komputer yang bermasalah :
1. ke VBE (alt f11)
2. menu Tools -> references -> mucul dialog window
3. cari dalam daftar, semua yang ada tulisan berbunyi MISSING
4. tulis lengkap semua yang berbunyi MISSING tersebut dan posting ke milis

On Fri, Jan 11, 2019 at 6:35 AM Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> wrote:

Dear B-Exceller,
Saya sedang buat aplikasi database tapi setelah sekian lama, ketika buka form, 
ada error yang berbunyi Object Library invalid or contains references to object 
defintions that could not be found. Padahal saya tidak pakai date picker. 
Kira-kira apa ya penyebabnya dan bagaimana solusinya ? terima kasih.

___

[belajar-excel] Object Library invalid or contains references to object defintions that could not be found

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Dear B-Exceller,
Saya sedang buat aplikasi database tapi setelah sekian lama, ketika buka form, 
ada error yang berbunyi Object Library invalid or contains references to object 
defintions that could not be found. Padahal saya tidak pakai date picker. 
Kira-kira apa ya penyebabnya dan bagaimana solusinya ? terima kasih.

___

[belajar-excel] Sharing workbook tanpa menggunakan shared workbook

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam B-Exceller,
Mau tanya.
Apakah bisa excel dipakai oleh beberapa orang diwaktu bersamaan dengan pakai 
sharing folder (server)  tanpa menggunakan shared workbook ?  Ini karena shared 
workbook banyak kekurangannya.

Terima kasih.

RE: [belajar-excel] Format as table di file macro (VBA)

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Maaf Pak Hendrik. Maksud saya dari sisi penampilan. Penampilan sebagai format 
as table , tampilannya bagus. Nah, apakah tampilan bagus seperti itu 
memperbesar memory atau file size jadi lebih besar ?
Kalau range tampilannya tidak bagus..

Thank you
Best Regards,
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 13 September 2018 11:07
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Format as table di file macro (VBA) [2 Attachments]


Hai Tio,

Hasil percobaan saya, antara Range dgn Table ternyata lebih kecil tabel ukuran 
filenya, walaupun tampilan Table lebih menarik.
File terlampir.

Salam,
HK
Sent from Yahoo Mail on 
Android

On Thu, Sep 13, 2018 at 7:34, Tio Ali tioali2...@yahoo.co.id [belajar-excel]
 wrote:

Salam B_-Exceller.
Kalau pembuatan database dengan pakai macro (VBA) maka penggunaan memory dan 
ukuran file harus selalu diperhatikan.
Pertanyaannya. Apakah kalau table dibuat dengan 'format as table" -yang ada 
warna warni selang-seling- itu membuat ukuran file besar atau memory jadi 
membengkak ?

Terima kasih bimbingannya.

[belajar-excel] Mengetahui pada 3 detik keberapa file di server ditutup

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam B-Exceller,
Mohon bimbingannya.
Ada file di server network yang kadang dibuka oleh seseorang. Saya ingin tahu 
pada hitungan 3 menit ke berapa file itu ditutup. Jadi ketika file itu sedang 
dibuka, tunggu sampai 3 detik. Kalau 3 detik pertama file masih terbuka, tunggu 
3 detik ke dua, dst.

Ini code vba yang saya sudah tulis.

Sub Button3_Click()
Call cekfilenya
MsgBox "File ditutup"
End Sub

Sub cekfilenya()
Dim InUse
Dim CloudDbFile As String
Dim j As Byte

J=0
CloudDbFile = “Y:\1. Folder Dataku\CustData.xlsx”
InUse = IsWorkBookOpen(CloudDbFile)
Do Until InUse = False
Application.Wait (Now + TimeValue("0:00:03"))
MsgBox "Hitungan ke " & j
j = j + 1
Loop
If InUse = True Then
Exit Sub
  End If
End Sub

Function IsWorkBookOpen(FileName As String)
Dim ff As Long, ErrNo As Long

On Error Resume Next
ff = FreeFile()
Open FileName For Input Lock Read As #ff
Close ff
ErrNo = Err
On Error GoTo 0

Select Case ErrNo
Case 0: IsWorkBookOpen = False
Case 70: IsWorkBookOpen = True
Case Else: Error ErrNo
End Select
End Function


Terima kasih atas bimbingannya.
Salam.

[belajar-excel] Enable dan Disable button [1 Attachment]

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam B-Exceller

Saya punya button yg messagenya “Welcome”. Saya mau mematikan button itu 
sehingga tidak bisa diclik. Tapi code yang saya buat , tidak berhasil- 
berhasil. Mohon bantuaannya. File terlampir

Sub disablebutton_Click()
ActiveSheet.Shapes("Button 2").ControlFormat.Enabled = False
ActiveSheet.Shapes("Button 2").DrawingObject.Font.ColorIndex = 16
End Sub

Sub welcome_Click()
MsgBox "WELCOME"
End Sub

Sub enablebtn_Click()
ActiveSheet.Shapes("Button 2").ControlFormat.Enabled = True
ActiveSheet.Shapes("Button 2").DrawingObject.Font.ColorIndex = 1

End Sub

Terima kasih atas bantuannya. Semoga amal baiknya dilipatgandakan oleh Allah 
SWT.
Salam
Tio



Enable dan Disable Button.xlsm
Description: Enable dan Disable Button.xlsm

RE: [belajar-excel] Membuat susunan objek tersusun vertikal

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Alhamdulillah.
Sudah berhasil.Terima kasih Mr. Kid atas bantuannya semoga diterima amal 
baiknya.. Amiin...

Thank you
Best Regards,
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 05 September 2018 10:33
To: BeExcel
Subject: Re: [belajar-excel] Membuat susunan objek tersusun vertikal


Coba klik kanan -> centang Dockable -> drag ke lokasi yang diinginkan (akan 
tampak kotak bayangan letak si object)
Kalau ingin pindah ke tempat lainnya lagi, drag si object, lalu gerakkan ke 
lokasi yang diinginkan sampai muncul bayangan letak si object.

Regards,
Kid



On Wed, Sep 5, 2018 at 10:03 AM Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> wrote:

Salam B-Exceller,
Mau tanya.
Bagaimana caranya menyusun view object (Project Explorer dan Properties Window) 
jadi teresusun secara vertikal ?

Penampilan awalnya spt ini. :

[cid:image001.png@01D444FB.414B21F0]

Yg saya mau, bagian yang di kanan di gambar dibawah ini (Properties window) 
tersusun secara vertikal dengan gambar diatas (Project Explorer) atau bagian 
kiri gambar dibawah. Saya sudah coba beberapa kali, gak berhasil-berhasil.

Ini gambarnya yang sekarang.
[cid:image002.png@01D444FB.D12AA520]


Thank you
Best Regards,
Tio

[belajar-excel] Menambah checkbox dan buat macro untuk checkbox tsb [1 Attachment]

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam B-Exceller.
Mohon bantuannya para Expert Excel...
Saya buat userform dan ada tombol “Tampilkan checkbox” untuk buat checkbox 
disampingnya sehingga dengan klik checkbox tsb, user bisa menghapus baris tsb.
Saya sudah bisa menambah checkbox disampingnya, tapi saya tidak bisa membuat 
macro di checkbox tsb untuk perintah hapus baris tsb.
Apakah teman-teman punya solusi ? Atas bantuannya, saya ucapkan beribu-ribu 
terima kasihSemoga Allah membalas kebaikannya. Amiin..
File terlampir

Terima kasih
Best Regards,
Tio




Tambah checklist dan tambah macro untuk checklist tsb.xlsm
Description: Tambah checklist dan tambah macro untuk checklist tsb.xlsm

[belajar-excel] Nama userform dijadikan variable

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam B-Exceller,
Mau tanya.
Saya mau cari tahu nama control di masing-masing userform . Untuk itu saya mau 
memanggil sub procedure dengan variable nama userform. Permasalahannya saya 
tidak bisa memanggil berdasarkan nama userform.
Yang sudah saya lakukan adalah.
Contoh: ada 2 userform namanya formmaterial dan myform.

Private sub commandbutton1_click
Call listcontrol(“formmaterial”)
End sub

Private sub commandbutton2_click
Call listcontrol(“myform”)
End sub

Public sub listcontrol(strrform as string)
Dim c as controls
For each c in Me.controls ‘==>yang ini gagal, karena tidak boleh pakai Me.. 
Yang diinginkan adalah namauserform tergantung dari nama userform dari tiap 
prosedur yang memanggil.
Msgbox c.name
Next c

End sub


Terima  kasih. Semoga Allah membalas kebaikannya. Amiin...

Best Regards,
Tio

[belajar-excel] delete baris berdasarkan array tertentu

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Bexceller,
Mau tanya, bagaimana code VBA untuk delete baris yang nilai di colom A tidak 
sama dengan nilai dalam array
Saya sudah berusaha, tapi tidak berhasil juga.

Code vba saya :

Dim c as range
Dim belajar() as variant

belajar=array(“MATERIAL”,”CONSUMABLE”,”OTHERS”)

For each c in range(“A1:A50”)
If c.value<>belajar() then
c.row.delete
end if
Next

Terima kasih.
salam,
Tio

[belajar-excel] error tiba-tiba ketika ingin save workbook

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Bexceller,
Mau tanya. Ketika develop aplikasi dan ketika mau menyimpan file, terdapat 
error sehingga file tidak bisa di save.
Error tersebut sbb. :
[cid:image001.png@01D419E4.E755BA20]
Kira-kira kenapa ya ?

Terima kasih.
Best Regards,
Tio

[belajar-excel] Mengurangi penggunaan memory untuk pembuatan database

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam B-Exceller,
Ketika membuat database dengan VBA Excel, saya terdapat error. Bunyi error 
tersebut adalah karena kekurangan memory.
Pertanyaannya :

1.   Ketika setiap membuat command dengan VBA excel, bagaimana cara 
mengetahui berapa memory yang terpakai untuk setiap procedure ?

Yang saya dapat dari internet adalah dengan klik Ctrl+Alt Del untuk menimbulkan 
Task manager. Tapi saya tidak  tahu dibagian mana yang menunjukkan penggunaan 
memory yang sudah terpakai ?

Ini screenshot dari task manager.



[cid:image002.jpg@01D411E4.8C5E8F50]

2.   Bagaimana cara mengurangi penggunaan memory dalam pembuatan database 
dengan basis VBA ? Karena issue ini selalu muncul saat membuat database excel 
dengan basis VBA.

3.   Apakah dengan beralih ke database excel dengan code SQL akan lebih 
baik dibanding pakai VBA karena akan mengurangi penggunaan memory ? Kalau 
benar, bagaimana untuk mulai belajarnya dalam pembuatan database excel dengan 
basis SQL ?

4.   Dalam setiap procedure, setiap variable sebaiknya di deklarasikan 
dulu, seperti dim a as integer. Permasalahannya, kalau semua variable di 
deklarasikan di paling atas setelah Option Explicit, apakah akan mengurangi 
penggunaan memory ?

5.   Bagaimana cara mengurangi ukuran (kapasitas) file excel yang 
didalamnya  terdapat database dengan basis VBA ? Dalam database yang sekarang 
saya buat, hanya 1 aplikasi dengan beberapa code, tapi ukuran file sudah 
mencapai 18 MB.

6.   Kalau kita membuat command button dengan memasang picture di backround 
button itu dari picture dari internet atau local computer, apakah command 
button yang terdapat picture itu akan meningkatkan penggunaan memory sekalipun 
ukuran picture itu sangat kecil, hanya beberapa kb, seperti 25 kb ?

7.   Saya membuat code VBA untuk membuat background warna untuk baris 
dengan 18 kolom. Yang saya baca dari internet, untuk mengurangi penggunaan 
memory, sebaiknya dengan menggunakan conditional formatting. Pertanyaannya, 
bagaimana cara membuat conditional formatting untuk membuat background warna 
untuk suatu baris yang bisa mengurangi penggunaan memory ?

8.   Yang saya tahu bahwa untuk mengurangi penggunaan memory,  maka harus 
mengurangi formula atau link. Kalau dalam kasus dimana wajib menggunakan 
formula, bagaimana tips untuk menggunakan formula yang bisa mengurangi memory ?

9.   Apakah formula seperti vlookup, match, akan meningkatkan memory 
dibanding menggunakan index, offset ?


Terima kasih atas jawabannya. Semoga Allah membalas kebaikannya..
Best Regards,
Tio

[belajar-excel] Error handler yang mana kalau error maka akan kembali ke awal (tekan tombol lagi)

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam B-Exceller
Saya sudah mencari tipe error yang kalau error kembali ke awal, tapi gak ketemu.
Mohon bantuannya, bagaimana error handler yang mana kalau terjadi error, akan 
kembali ke awal.
Contoh :
Private Sub
- - - -
- - - -
- - - -
If Not objSess Is Nothing Then
If objSess.Info.SystemName & objSess.Info.Client = W_System Then
Attach_Session = True
Exit Function
End If
End If
- - - -
- - - -
- - - -

End sub

Kadang-kadang untuk W_System ini tidak terdeteksi, tapi kalau tekan tombol 
lagi, baru ada ...
Pertanyannya bagaimana kalau tidak ada W_System ini maka akan kembali lagi ke 
awal, yaitu seperti tekan tombol lagi.
Catatan : W_System ini hanya salah satu contoh saja.

Terima kasih jawabannya.
Salam,
Tio

RE: [belajar-excel] Pencarian data di userform dan menampilkan isinya di list boc

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Terima kasih Pak Hendrik, semoga Allah membalas kebaikan Pak Hendrik.
Benar seperti contoh file yang memang saya butuhkan. Tapi agak komplek 
persoalan saya. Tapi saya explore dulu..

Thank you
Best Regards,
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 28 Juni 2018 16:40
To: Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]
Subject: Re: [belajar-excel] Pencarian data di userform dan menampilkan isinya 
di list boc [1 Attachment]


Hai Tio,
Krn ga ada contohnya, jawbannya juga mereka-reka (jawaban yg mungkin mirip).
Dari jawaban si mbah atas pertanyaan di milis ini sebelumnya, terlampir adalah 
suatu file berisi UserForm (jika diklik) yang ada ComboBox dan ListBoxnya.
Pilih pada ComboBox dan data akan ditampilkan pada ListBox yang berada pada 
UserForm yang sama.

Salam,
HK


On Thursday, 28 June 2018, 1:41:15 PM GMT+7, Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel]  wrote:




Dear B-Exceller,



Mohon bantuannya. Bagaimana cara mencari data di userform dan menampilkan 
isinya di list box.



Thank you

Best Regards,

Tio

[belajar-excel] Pencarian data di userform dan menampilkan isinya di list boc

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Dear B-Exceller,

Mohon bantuannya. Bagaimana cara mencari data di userform dan menampilkan 
isinya di list box.

Thank you
Best Regards,
Tio

RE: [belajar-excel] Setting macro selalu berubah-rubah

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Alhamdulillah. Sudah bisa Mr. Kid. Saya tambahkan trusted location. Saya 
aktifkan macro saya, terus computer saya matikan. Computer saya hidupkan lagi, 
ternyata macronya masih aktif. Semoga Allah SWT membalas kebaikan Mr. Kid.

Thank you
Best Regards,
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 28 Maret 2018 3:23
To: BeExcel
Subject: Re: [belajar-excel] Setting macro selalu berubah-rubah


Mungkin ada group policy yang diterapkan oleh admin kantor untuk set macro 
disable. Setting ini menjadi default setiap kali komputer dinyalakan.
Coba ditambahkan trusted location tertentu (folder berisi file ber-VBA) di 
Excel Options. Bisa dilihat di blog milis 
disini.

2018-03-26 17:09 GMT+07:00 Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:

Komputer kantor Mr. Kid..

Thank you
Best Regards,
Tio

From: belajar-excel@yahoogroups.com 
[mailto:belajar-excel@yahoogroups.com]
Sent: 26 Maret 2018 14:16
To: BeExcel
Subject: Re: [belajar-excel] Setting macro selalu berubah-rubah


Komputer pribadi atau komputer kantor ?

2018-03-26 9:14 GMT+07:00 Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:

Salam Be-Exceller,
Semoga pagi ini pagi yang mencerahkan dan berkah...

Mohon pencerahannya, bagaimana setting macro supaya tidak berubah-rubah ?
Saya sudah aktifkan macro dengan klik Excel Option/Trust Center/Trust Center 
Setting/Macro Settings , lalu pilih Enable all macros (not recommended, 
potentially dangerous code can run).
Setelah klik OK, macro aktif. Besoknya setelah excel dibuka lagi, macro tidak 
aktif lagi, dan setting lagi supaya macro aktif.
Mohon pencerahannya, bagaimana supaya macro selalu aktif tiap hari, tanpa perlu 
diaktifkan terus menerus tiap harinya.


Terima kasih...
Best Regards,
Tio


.

RE: [belajar-excel] Setting macro selalu berubah-rubah

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Komputer kantor Mr. Kid..

Thank you
Best Regards,
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 26 Maret 2018 14:16
To: BeExcel
Subject: Re: [belajar-excel] Setting macro selalu berubah-rubah


Komputer pribadi atau komputer kantor ?

2018-03-26 9:14 GMT+07:00 Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:

Salam Be-Exceller,
Semoga pagi ini pagi yang mencerahkan dan berkah...

Mohon pencerahannya, bagaimana setting macro supaya tidak berubah-rubah ?
Saya sudah aktifkan macro dengan klik Excel Option/Trust Center/Trust Center 
Setting/Macro Settings , lalu pilih Enable all macros (not recommended, 
potentially dangerous code can run).
Setelah klik OK, macro aktif. Besoknya setelah excel dibuka lagi, macro tidak 
aktif lagi, dan setting lagi supaya macro aktif.
Mohon pencerahannya, bagaimana supaya macro selalu aktif tiap hari, tanpa perlu 
diaktifkan terus menerus tiap harinya.


Terima kasih...
Best Regards,
Tio


.

[belajar-excel] Setting macro selalu berubah-rubah

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Be-Exceller,
Semoga pagi ini pagi yang mencerahkan dan berkah...

Mohon pencerahannya, bagaimana setting macro supaya tidak berubah-rubah ?
Saya sudah aktifkan macro dengan klik Excel Option/Trust Center/Trust Center 
Setting/Macro Settings , lalu pilih Enable all macros (not recommended, 
potentially dangerous code can run).
Setelah klik OK, macro aktif. Besoknya setelah excel dibuka lagi, macro tidak 
aktif lagi, dan setting lagi supaya macro aktif.
Mohon pencerahannya, bagaimana supaya macro selalu aktif tiap hari, tanpa perlu 
diaktifkan terus menerus tiap harinya.


Terima kasih...
Best Regards,
Tio



.

[belajar-excel] Excel Online di office 365

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Be-Exceller,
1 Mau tanya, kenapa ya Excel online di office 365 beda dengan excel offline ? 
Formula di excel online tidak bisa dengan merujuk excel lain ? Dan banyak 
formula yg tidak bisa berfungsi di excel online.

2. Apakah para member disini ada yang sudah memakai Powerapps , sebuah fitur di 
office 365 yang bisa koneksi ke data Excel ?


Thank you
Best Regards,
Tio

RE: [belajar-excel] Mengisi data dengan ADO atau DAO

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Terima kasih jawabannya Mr. Kid.
Mr. Kid, bagaimana memodif sql sintax  sq="SELECT a.* FROM [DATA$] as a" 
sehingga datanya tertentu seperti range (“A5:F20”) ? Karena kalau sintax yang 
dikasih, datanya yang terambil semua data yang ada di worksheet itu.

Terima kasih.

Best Regards,
Tio Adi Bayu Adjie

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Monday, January 15, 2018 7:56 PM
To: BeExcel
Subject: Re: [belajar-excel] Mengisi data dengan ADO atau DAO


Wa'alaikumussalam wr wb
Hai Tio,
1. Contoh ADO dan DAO
> File kerja wbkApp.xlsm; File Data E:\wbkDT.xls sheet DATA
   hasil di wbkApp.xlsm sheet HASIL, dengan record pertama di range A2
> ADO
   'pakai 3 baris berikut jika di VBE -> Tools -> references -> sudah dipilih 
Ms ActiveX Data Object versi tetrtinggi yang ada
   '>> kalau dicentang sendiri di references, lalu komputer lain tidak punya, 
maka akan error.
   dim cn as adodb.connection, rs as adodb.recordset,sCon as string, sQ as 
string
   set cn=new adodb.connection
   set rs=new adodb.recordset

   'kalau tidak mau repot pakai centang references, pakai 3 baris ini : [late 
binding]
   '>> untungnya, references selalu dipilihkan yang terbaru oleh OS
   dim cn as adodb.connection, rs as adodb.recordset,sCon as string, sQ as 
string
   set cn=createobject("adodb.connection")
   set rs=createobject("adodb.recordset")

   'connection string dan query untuk koneksi data
   'Connection string : [ganti path dan nama file sesuai kebutuhan] [pilih 
salah satu]
   scon="Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, 
*.xlsb)};DBQ=E:\wbkDT.xls;" 'driver ODBC (direkomendasikan)

   'driver OLEDB,xl2007 ke atas, ganti 8.0 menjadi 12.0, sesuaikan 
OLEDB.12.0 dengan yang ada di komputer setempat
   scon="Provider=Microsoft.ACE.OLEDB.12.0;Data 
Source=E:\wbkDT.xls;Extended Properties=""Excel 8.0;HDR=YES"";"

   'query
  sq="SELECT a.* FROM [DATA$] as a"

   'buka koneksi dan ambil recordset
  cn.open scon
  rs.open sQ, cn , 1 , 3   '1 : cursor type Open Keyset ; 3 : lock type 
Optimistic

   'paste ke range a2
  sheets("hasil").range("a2").copyfromrecordset rs

'tutup
  rs.close
  cn.close

'jika perlu cleanup
  set rs=nothing
  set cn=nothing

> DAO [sangat cepat untuk data MS Access, Excel, dan text file]
   'A. khusus untuk file xl2003 ke bawah saja
'pastikan referensi yang dicentang adalah Ms Data Access Object terbaru 
(3.6 kalo gak salah)
   dim db as DAO.database, rs as DAO.recordset

'buka db file dan ambil recordset [sesuaikan nama file]
   set db=OpenDatabase( "E:\wbkDT.xls" , false, true , "Excel 8.0;HDR=YES;" 
) 'kalau data tidak punya header, set HDR dengan NO, false : opsi untuk 
shared mode, true : read only
   set rs=db.openrecordset( "DATA$" )  'nama sheet bisa diganti query, 
cursor type juga bisa dtentukan, tapi contoh ini pakai default-nya

   'B. untuk file xl2002 ke atas
'pastikan referensi yang dicentang adalah Ms Data Access Object terbaru 
(3.6 kalo gak salah)
   dim db as DAO.database, rs as DAO.recordset
   dim ws as DAO.workspace

'buka db file dan ambil recordset [sesuaikan nama file]
   set ws=createworkspace( "" , "" , "" , 1 )  ' nama workspace : "" , 
user : "" , pwd : "" , type : odbc  [selainnya adalah 2, untuk Jet (khusus 
database engine MS Access)
   '  nama file db atau dsn odbc : ""  , options : kosong , readonly : 
kosong , connection string
   set db=ws.opendatabase( "" ,  ,  ,  "ODBC;Driver={Microsoft Excel Driver 
(*.xls, *.xlsx, *.xlsm, *.xlsb)};Dbq=E:\wbkDT.xls;"  )
   set rs=db..openrecordset( "SELECT a.* FROM [DATA$] as a" )

  '>langkah selanjutnya<'
   'paste ke range a2
  sheets("hasil").range("a2").copyfromrecordset rs

'tutup
  rs.close
  db.close

'jika perlu cleanup
  set rs=nothing
  set db=nothing

2. Syarat :
 > ADO :
   a. di komputer telah ter-install dan terregister library Ms ActiveX Data 
Objects
   b. pilih connection string yang sesuai dengan driver-nya (ODBC atau 
OLEDB)
   c. bisa semua versi Excel, dengan mengatur nilai parameter pada bagian 
ExtendedProperties jika pakai OLE DB
> DAO
   a. di komputer telah ter-install dan teregister library Ms Data Access 
Object
   b. pastikan telah mencentang referensi library Ms Data Access Object, 
karena menggunakan on the fly pun sama beresikonya (kalau ADO bisa lebih luwes)
   c. khusus untuk koneksi ke database berupa file seperti MS Access, 
textfile, Excel versi 2003 ke bawah (yang di-save as versi 2003 ke bawah), 
pakai cara A
   d. khusus untuk koneksi ke database berupa file seperti MS Access, 
textfile, Excel versi 2002 ke atas (yang di-save as sesuai versinya), pakai 
cara B

3. Referensi yang harus dicentang bisa dilihat di nomor 1 dan nomor 2. ADO 
berpotensi tidak perlu mencentang, yaitu dengan createobject (lihat nomor 1)

4. Kecepatan :
  DAO le

[belajar-excel] Public Variable

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Assalamu Alaikum Wr. Wb.

Salam Be-Exceller,
Saya ada kasus mau buat public variable berupa nilai di cell tertentu dan 
dipanggil di semua procedure. Saya sudah coba berhari-hari, gak berhasil.
Adakah Be-Exceller punya pencerahan ?

Coding ini yang bermasalah :

Public angka As Integer, angka2 As Integer, angka3 As Integer
‘angka = Cells(2, 2).Value
‘angka2=worksheets("Sheet2").Cells(6,2)
‘angka3=worksheets("Sheet2").Cells(8,2)

Sub Button1_Click()
MsgBox angka
MsgBox angka2
MsgBox angka3
End Sub

File terlampir

Terima kasih bantuannya…

Best Regards,
Tio Adi Bayu Adjie



Problem Public_Variable.xlsm
Description: Problem Public_Variable.xlsm

RE: [belajar-excel] Kopdar 3 BeExcel

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Setuju juga….Kalau bisa weekend.

Thank you

Best Regards,
Tio Adi Bayu Adjie

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, October 31, 2017 7:53 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Kopdar 3 BeExcel



Setuju, jika jadwalnya tidak bertabrakan saya ikut daftar
On 30/10/2017 22:32, hendrik karnadi 
hendrikkarn...@yahoo.com [belajar-excel] wrote:


Rekan2 BeExcel,

Selamat malam.

Kopdar 1 dan 2 telah kita lalui dengan baik.

Pada saat akan melaksanakan kopdar 3, panitia semakin sibuk sehingga kopdar 3 
belum terealisasi sampai hari ini.
Untuk mendapatkan lokasi strategis dengan biaya sewa yang murah adalah bagian 
yang paling sulit.

Barangkali ada usulan dari teman2 sekalian atau ada yang bersedia menjadi 
panitia.

Sebagai alternatif saya telah menghubungi GM salah satu hotel bintang 3 di 
Jalan Jendral Sudirman, Tangerang dengan fasilitas sbb:
- Ruang meeting yang cukup untuk menampung peserta dengan fasilitas sound 
system dan lcd proyektor.
- Waktu hari Sabtu full day.
- Makan siang 1 x, coffee break 2 x
- Dapat dilalui kendaraan umum
- Tidak perlu persiapan yang lama
- Disc 28% dari tarif normal

- Partisipasi 180 rb/orang (sdh termasuk pajak)  dengan asumsi peserta +_ 40 
0rg.

Sebagai tambahan:
- Bagi peserta dr luar kota bisa menginap di hotel bersangkutan.
- Ada mal

Alternatif lokasi ini saya sampaikan hanya sebagai bahan pertimbangan agar 
kopdar 3 dapat segera terlaksana.

Salam,
HK


Sent from Yahoo Mail on 
Android

[belajar-excel] Convert numeric ke text

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Tio Adi Bayu Adjie has shared a OneDrive for Business file with you. To view 
it, click the link below.



[https://r1.res.office365.com/owa/prem/images/dc-xlsx_20.png]

Convert number to text 
(string).xlsm




Dear Be-Exceller,

Bagaimana code vba mengkonversi numeric (angka) yang ada di range G6 jadi text 
? Format angkanya tidak dirubah manual jadi text. Saya sudah coba bikin code 
vba dan function, tapi tidak berhasil juga. File terlampir.


Terima kasih.

Re: [belajar-excel] Code VBA dengan Worksheet _Change

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Terima kasih Mr. Kid, sudah berhasil. Semoga Allah membalas kebaikannya. 
Amiin...


From: belajar-excel@yahoogroups.com  on behalf 
of 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] 
Sent: Friday, August 11, 2017 7:18:03 PM
To: BeExcel
Subject: Re: [belajar-excel] Code VBA dengan Worksheet _Change [1 Attachment]



Hai Tio,

Coba file terlampir. Butuh cells penyimpan data terakhir yang diisi.

Regards,
Kid






2017-08-07 10:30 GMT+07:00 Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:

Dear Be-Exceller,

Bagaimana code VBA dengan menggunakan Private Sub Worksheet_Change(ByVal Target 
As Range). Jadi kalau isian “jenis fluida” di ganti maka nilainya kembali ke 
nilai sebelumnya kalau salah input.

Misalnya sebelumnya nilai di Jenis Fluida nilainya "Oil”,  kemudian kita ganti 
nilainya dengan nilai "Coolant", maka akan keluar peringatan "Anda merubah 
nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru (Coolant). 
Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai sebelumnya 
(Oil).

Untuk lebih jelasnya, bisa dilihat di file terlampir.

Thank you

Best Regards,
Tio Adi Bayu Adjie


.

Re: [belajar-excel] Code VBA dengan Worksheet _Change [1 Attachment]

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Be-Exceller,

Apakah ada teman-teman yang punya solusi untuk kasus saya di bawah ini ?


Terima kasih sebelumnya.


From: belajar-excel@yahoogroups.com  on behalf 
of Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel] 

Sent: Sunday, August 6, 2017 4:30 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Code VBA dengan Worksheet _Change [1 Attachment]


This sender failed our fraud detection checks and may not be who they appear to 
be. Learn about spoofing<http://aka.ms/LearnAboutSpoofing>
Feedback<http://aka.ms/SafetyTipsFeedback>

Dear Be-Exceller,

Bagaimana code VBA dengan menggunakan Private Sub Worksheet_Change(ByVal Target 
As Range). Jadi kalau isian di combo box di ganti maka nilainya kembali ke 
nilai sebelumnya kalau salah input.

Misalnya sebelumnya nilai di combo box nilainya "Oil”,  kemudian kita ganti 
nilainya dengan nilai "Coolant", maka akan keluar peringatan "Anda merubah 
nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru (Coolant). 
Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai sebelumnya 
(Oil).

Untuk lebih jelasnya, bisa dilihat di file terlampir.

Terima kasih.

Best Regards,
Tio Adi Bayu Adjie


.






Test.xlsm
Description: Test.xlsm

RE: [belajar-excel] Agar sheet1 selalu pertama kali membuka file excel

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Pak Hendrik, kalau disave file 2010 yang ada macronya ke file extensi Macro 
Enabled (.xlsm) bisakah ? atau harus Binary (.xlsb) >

Thank you

Best Regards,
Tio Adi Bayu Adjie

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, August 08, 2017 1:09 PM
To: heru mulyono hmulyon...@gmail.com [belajar-excel]
Subject: Re: [belajar-excel] Agar sheet1 selalu pertama kali membuka file excel 
[1 Attachment]


Hai Heru,

Excel (dengan atau tanpa macro) selalu dibuka dengan nama Sheet yang terakhir 
kali disimpan, kecuali dibuatkan Macro (Even Workbook_open) yang meminta 
komputer agar selalu membuka file dengan menampilkan Sheet1 untuk pertama kali.

Sheet1 adalah nama file, bisa berupa CodeName atau Name. CodeName adalah nama 
dari sononya sedangkan Name (yang tampak pada Sheet Tab) dapat kita gonta ganti.
Tampilan di VBE Sheet adalah CodeName(Name) dan jika dilihat pada propertynya 
CodeName selalu napak pada bagian atas dan Sheet (Tab) Name tampak pada bagian 
bawah spt gambar berikut ini:

[Inline image]

Agar pada saat Workbbook dibuka selalu tampil dengan Sheet terdepan (CodeName = 
Sheet1) maka pada VBE Sheet ThisWorkbook dibuat macro :
Private Sub Workbook_Open() 'ini adalah Even Workbook Open
Sheet1.Activate
End Sub

lalu disave sebagai Macro Enabled (.xlsm) atau Binary (.xlsb) untuk Excel 2007 
ke atas atau .xls untuk macro 2003 dan sebelumnya.

Semoga penjelasan ini bisa memperjelas apa yang belum jelas.

Salam,
HK



On Tuesday, August 8, 2017, 11:26:40 AM GMT+7, heru mulyono 
hmulyon...@gmail.com [belajar-excel]  wrote:



Yth, master excel

mohon maaf, mgkin karena saya yg kurang faham ttg excel..

Permasalahan, bagimana agar sheet1 selalu muncul pertamakali saat kita membuka 
file excel,
permasalah ini sdh pernah sy tanyakan (dan saya sdh buka file lama) tetapi 
masih ada kendala yaitu :

ada sheet1, sheet2 dan sheet3
saat saya buka sheet3 kmudian saya TUTUP.
kemudian saya buka lagi, yg muncul memang sheet1, bukan sheet3
tetapi...
saat kita buka sheet3 kmudian sya klik SAVE, kemudian saya TUTUP.
kemudian saya buka lagi, ternyata yg muncul bukan sheet1, tetapi sheet3

Demikian, mohon pencerahannya
maturnuwun

[belajar-excel] Code VBA dengan Worksheet _Change [1 Attachment]

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Dear Be-Exceller,

Bagaimana code VBA dengan menggunakan Private Sub Worksheet_Change(ByVal Target 
As Range). Jadi kalau isian “jenis fluida” di ganti maka nilainya kembali ke 
nilai sebelumnya kalau salah input.

Misalnya sebelumnya nilai di Jenis Fluida nilainya "Oil”,  kemudian kita ganti 
nilainya dengan nilai "Coolant", maka akan keluar peringatan "Anda merubah 
nilai ini, apakah anda yakin ? Kalau yakin, nilai jadi nilai baru (Coolant). 
Kalau tidak yakin (dengan klik no), nilai akan kembali ke nilai sebelumnya 
(Oil).

Untuk lebih jelasnya, bisa dilihat di file terlampir.

Thank you

Best Regards,
Tio Adi Bayu Adjie


.





Test.xlsm
Description: Test.xlsm

RE: [belajar-excel] Kopdar BeExceller

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Rumahnya dimana mas Nangagus ?


From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Wednesday, May 10, 2017 10:07 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Kopdar BeExceller



Asalamualaikum warahmatullah.

Mas Kid, Saya mau jadi panitia dengan segala persiapannya, tetapi dekat dengan 
rumah saya yaa..

kalau diadakan di Jogja  saya cukup cadi pesertanya, sekalian pulang kampung 
saat lebaran nanti

On 10/05/17 09.16, 'Mr. Kid' mr.nm...@gmail.com 
[belajar-excel] wrote:

Hai Tio,
Idenya ada, tapi mencari lokasi dan ruang beserta member yang mau membantu 
mengurusnya yang kurang.
Regards,
Kid

2017-04-26 15:05 GMT+07:00 Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:

Salam Be Exceller,
Adakah ide untuk bikin Kopdar lagi ?

Regards,
Tio

RE: [belajar-excel] Kopdar BeExceller

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Saya bisa bantu..Mr. Kid. He..he..

Setelah saya lihat antusias teman-teman, sepertinya materi Kolaborasi Excel – 
SQL Server, bakal banyak yang datang nih….

Bagaimana teman-teman yang lain ?

Regards,
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Wednesday, May 10, 2017 9:17 AM
To: BeExcel
Subject: Re: [belajar-excel] Kopdar BeExceller


Hai Tio,
Idenya ada, tapi mencari lokasi dan ruang beserta member yang mau membantu 
mengurusnya yang kurang.
Regards,
Kid

2017-04-26 15:05 GMT+07:00 Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:

Salam Be Exceller,
Adakah ide untuk bikin Kopdar lagi ?

Regards,
Tio

[belajar-excel] Kopdar BeExceller

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Be Exceller,
Adakah ide untuk bikin Kopdar lagi ?

Regards,
Tio

[belajar-excel] Range Nilai integer

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam BeExceller,


Saya lihat di internet nilai Integer rangenya sbb. : 
https://msdn.microsoft.com/en-us/library/06bkb8w2.aspx
Integer Data Type (Visual Basic)
Visual Studio 2015
Other Versions 
[https://i-msdn.sec.s-msft.com/Areas/Epx/Content/Images/ImageSprite.png?v=636256477425040586]
Updated: July 20, 2015


For the latest documentation on Visual Studio 2017, see Visual Studio 2017 
Documentation.


Holds signed 32-bit (4-byte) integers that range in value from -2,147,483,648 
through 2,147,483,647.


Saya coba di excel 2010 untuk test dengan menuju baris terakhir di Excel dengan 
code sbb. :


'=


Private Sub CommandButton5_Click()


Dim x As Long


x = ActiveCell.End(xlDown).Row


MsgBox x


End Sub


'=


Hasilnya 1.048.576


Tapi kalau saya ganti x dengan integer (Dim x as integer) ternyata hasilnya 
Error (Runtime error '6' over flow), kenapa ya ? Bukankah integer rangenya 
sampai 2,147,483,647 sesuai referensi dari Internet di atas ?.


Mohon pencerahannya.


Terima Kasih.

RE: [belajar-excel] Interpolasi kuadratik untuk melihat forecast ke depan

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Terima Kasih Mr.Kid atas jawabannya yang panjang lebar. Semoga Allah SWT 
membalas kebaikan Mr. Kid dengan pahala yang berlipat ganda.

Ok, nanti saya cari tahu dulu, Mr. Kid. Kalau mentok, nanti ditanyakan lagi ke 
milis.

Terima kasih dan wassalam.


From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Wednesday, April 05, 2017 10:52 AM
To: BeExcel
Subject: Re: [belajar-excel] Interpolasi kuadratik untuk melihat forecast ke 
depan


Hai Tio,
Anda salah memilih regresi. Cari tahu dulu apakah benar regresi yang sesuai 
dengan sistem Anda adalah kuadratik.

Dalam regresi, Anda harus mengetahui karakteristik sistem yang akan diregresi 
datanya.
Jadi, urutannya :
1. tahu sistemnya apa
2. sistemnya memiliki karakteristik seperti apa
3. punya data dari sistem tersebut
4. membuat regresi yang sesuai karakteristik sistem
5. mendapatkan persamaan regresinya dan batas-batas berlakunya
6. memanfaatkan persamaan regresi untuk kegiatan interpolasi maupun extrapolasi

Contoh :
1. tahu sistemnya apa
 > Ada pipa dialiri air yang diujungnya diberi kran.
2. sistemnya memiliki karakteristik seperti apa
 > Kalau kran dibuka kecil, air yang ngucur kecil
 > Kalau kran dibuka bertahap menjadi semakin besar, air yang ngucur 
semakin besar
 > berarti, bukaan kran naik, yang ngucur juga naik
3. punya data dari sistem tersebut
 > dilakukan pengambilan data dan didapat :
   kran dibuka 0   -> air ngucur 0 liter per detik (debit)
   kran dibuka 1/4 -> air ngucur 25 liter per detik
   kran dibuka 3/4 -> air ngucur 75 liter per detik
4. membuat regresi yang sesuai karakteristik sistem
> dibuat grafiknya, dibuat trendlinenya, dipilih jenis trendline yang 
sesuai sistemnya
> didapatlah trendline linear
5. mendapatkan persamaan regresinya dan batas-batas berlakunya
 > karena trendline nya yang sesuai sistem adalah linear, maka bentuk 
persamaan umum linear adalah y=mx+c
 > bisa pakai grafik di Excel lalu tampilkan persamaan regresinya
 > menggunakan fungsi Linest untuk mendapatkan persamaan linear, sehingga 
di dapat nilai m dan c
6. memanfaatkan persamaan regresi untuk kegiatan interpolasi maupun extrapolasi
 > dari persamaan linear yang didapat dari nomor 5, maka bisa melakukan 
kalkulasi air yang ngucur untuk bukaan kran :
 a. bukaan 1/2 (karena ada diantara nilai min dan max data yang pernah 
didapat, maka sering disebut interpolasi)
 b. bukaan 1 (karena ada diluar rentang min dan max data yang pernah 
didapat, maka sering disebut ekstrapolasi)
 > berhubung persamaan sistemnya adalah linear, maka interpolasinya adalah 
interpolasi linear dan ektrapolasinya adalah ekstrapolasi linear
Nah...
Sebaiknya Anda melakukan hal-hal tersebut di atas dulu, supaya tahu regresi 
yang cocok untuk sistem Anda tersebut yang seperti apa.
Jadi, tidak akan muncul kalimat ini :
kenapa hasilnya (y) justru hasilnya membesar dengan x membesar ? Bukankah 
seharusnya jika x membesar maka y mengecil ?

Jadi,
Kalau sudah tahu regresi yang sesuai dengan sistem Anda itu apa, barulah 
ditanyakan ke milis lagi ya...

Regards,
Kid



2017-04-04 15:55 GMT+07:00 Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:

Alhamdulillah, sudah bisa.
Setelah saya masukkan ke soal yang sesungguhnya di soal sebelumnya, yaitu 
persamaan kuadratik dengan x di luar range yang diketahui, tapi kenapa hasilnya 
(y) justru hasilnya membesar dengan x membesar ? Bukankah seharusnya jika x 
membesar maka y mengecil ? File terlampir. Saya sudah menghitung nilai a,b dan 
c di persamaan y=ax^2+bx+c

Terima kasih, semoga Allah SWT membalas kebaikan Mr. Kid dan teman-teman. Amiin.

Salam,

From: belajar-excel@yahoogroups.com 
[mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, April 04, 2017 12:18 PM

To: BeExcel
Subject: Re: [belajar-excel] Interpolasi kuadratik untuk melihat forecast ke 
depan


Hai Tio,
Bukankah sudah ada penjelasannya di kanan formula ?
-> array formula di blok array cells 1 baris x 3 kolom [B12:D12] berbunyi : 
=LINEST(C3:C7,B3:B7^{1,2},TRUE,FALSE)
> yang biru : berarti formula nanti di enter dengan CTRL SHIFT ENTER
> yang di latar kuning : berarti formula di tulis langsung ketika terblok 1 
> baris x 3 kolom
Regards,
Kid


2017-04-04 11:42 GMT+07:00 Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:


Salam,
Mr. Kid, bagaimana menulis rumus array sehingga dengan rumus yang sama, tapi 
hasilnya beda ? Lebih jelasnya di file terlampir.

Terima Kasih.
Wassalam.

From: belajar-excel@yahoogroups.com 
[mailto:belajar-excel@yahoogroups.com]
Sent: Friday, March 31, 2017 5:22 PM
To: BeExcel
Subject: Re: [belajar-excel] Interpolasi kuadratik untuk melihat forecast k

RE: [belajar-excel] Interpolasi kuadratik untuk melihat forecast ke depan [1 Attachment]

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam,
Mr. Kid, bagaimana menulis rumus array sehingga dengan rumus yang sama, tapi 
hasilnya beda ? Lebih jelasnya di file terlampir.

Terima Kasih.
Wassalam.

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, March 31, 2017 5:22 PM
To: BeExcel
Subject: Re: [belajar-excel] Interpolasi kuadratik untuk melihat forecast ke 
depan


Hai Tio,
Interpolasi maupun ekstrapolasi pada dasarnya adalah mencari persamaan 
matematika yang mendekati pola yang dibentuk oleh nilai-nilai data.
Persamaan matematika tersebut bisa berpangkat 1 (linear yang berarti berupa 
persamaan linear dan membentuk garis linear), berpangkat 2 (kuadrat), 
berpangkat 3 dan sebagainya.
Formula umumnya begini : (semakin banyak record data yang bersih akan semakin 
baik)
=SumProduct( Linest( data_nilai_y , data_nilai_x^{array pangkat dari 1 sampai 
tertinggi} ,TRUE,FALSE) * nilai_x_diketahui^{ array pangkat dari tertinggi 
sampai 0 } )

Contoh : data_nilai_y di B1:B5, data_nilai_x di A1:A5, data di A1:B5 jika 
dibuat xy scatter chart menampilkan pola kuadrat,
   mencari interpolasi atau ekstrapolasi dari nilai x sebesar 7
*** karena pola kuadrat, maka pangkatnya adalah 2.
  {array pangkat dari 1 sampai tertinggi}  akan berbentuk { 1 , 2 }
  { array pangkat dari tertinggi sampai 0 }  akan berbentuk { 2 , 1 , 0 }
*** nilai_x_diketahui adalah 7
*** Formula : (misal hasilnya di letakkan di cells C9)
  =SumProduct( Linest( B1:B5 , A1:A5 ^ { 1 , 2 } , TRUE , FALSE ) * 7 ^ { 2 
, 1 , 0 } )
*** Penjelasan lebih detil bisa dilihat dalam file yang ada 
disini.


Regards,
Kid



2017-03-31 15:06 GMT+07:00 Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:


Salam BeExceller,

Saya sudah punya formula untuk melihat forecast kedepan dengan melihat 2 nilai 
yang ada.

Permasalahannya, diluar dari nilai sumber yang ada, ternyata hasilnya error.

Adakah formula untuk melihat forecast kedepan ?

Saya buat dengan formula Lagrange, ternyata sangat sulit (complicated).

File terlampir untuk lebih jelasnya.



Mohon pencerahannya.



Terima kasih.



--- Mod ---

File lampiran yang melebihi 250KB dilepas dari email. Silakan melampirkan ulang 
file yang lebih sesuai peraturan milis, yaitu maksimal 250KB dengan cara 
me-reply email ini.

-




formula_interpolasi_ekstrapolasi.xlsx
Description: formula_interpolasi_ekstrapolasi.xlsx

[belajar-excel] Menampilkan hasil data dengan multi kriteria [1 Attachment]

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam BeExceller,


Bagaimana  formula nya kalau kita mau tampilkan data tertentu berapa dengan 
criteria tertentu yang hasilnya hanya di 1 baris  diatasnya, jadi seperti 
contoh terlampir ?
Sy pakai formula Dget. Karena kalau pakai formula Dget, biasanya hanya 1 record 
yang terbaca, sementara kriteria yang ada multi kriteria tapi hasil yg 
dikehendaki 1 baris.


Terima Kasih.
Wassalam.




Tampilkan nomor dari 1 baris sebelumnya.xlsm
Description: Tampilkan nomor dari 1 baris sebelumnya.xlsm

[belajar-excel] Interpolasi kuadratik untuk melihat forecast ke depan

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam BeExceller,
 Saya sudah punya formula untuk melihat forecast kedepan dengan melihat 2 nilai 
yang ada.
 Permasalahannya, diluar dari nilai sumber yang ada, ternyata hasilnya error.
 Adakah formula untuk melihat forecast kedepan ?
 Saya buat dengan formula Lagrange, ternyata sangat sulit (complicated).
 File terlampir untuk lebih jelasnya.
  
 Mohon pencerahannya.
  
 Terima kasih.
   

 --- Mod ---
 File lampiran yang melebihi 250KB dilepas dari email. Silakan melampirkan 
ulang file yang lebih sesuai peraturan milis, yaitu maksimal 250KB dengan cara 
me-reply email ini.
 -

 
 

[belajar-excel] Perbedaan sintax dot value dengan dot text

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Be-Exceller,
Mau Tanya, sintax .value dengan .text apa bedanya ?

Contoh :

1.   Cells(1,1).value=”bla-bla-bla”

2.   Cells(1,1).text=”ba-bi-bu”

Kedua sintax diatas, apa bedanya ? Biasanya saya selalu pakai .value , tidak 
pernah pakai .text sekalipun itu format text dan tidak pernah ada masalah. 
Kalau pemakaiannya beda, apa masalahnya ?

Mohon pencerahannya.

Wassalamu alaikum Wr. Wb.

[belajar-excel] Merubah nilai pecahan (inch) ke mm [1 Attachment]

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam BeExceller,

Mau tanya, bagaimana untuk mengubah angka inch ke mm di Userform ?

Seperti di text box

Tertulis

Nilai Pecahan (inch)

Hasil di Nilai Pecahan (mm)

1/4

6.35

1/2

12.7

3/4

19.05

3/8

9.525

1 1/4

31.75

1 3/4

44.45


Saya pakai Val function, gak berhasil ya ?


File terlampir.

Terima kasih.

Salam.




Convert text to number.xlsm
Description: Convert text to number.xlsm

RE: [belajar-excel] Mengetahui apakah file tertentu sudah dibuka HANYA di computer kita sendiri

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Alhamdulillah, sudah berhasil Mr. Kid.
Memang Mr. Kid seorang Guru sejati. Tidak bosan-bosan menjawab dengan 
penjelasan yang panjang sehingga bisa dimengerti penanya.

Saya hanya bisa berdoa, semoga amal kebaikan Mr. Kid diterima Allah SWT dengan 
pahala yang berlipat ganda dalam mencerdaskan bangsa Indonesia. Amiin Yaa 
Robbal ‘Alamin…

Syukron katsiiir…

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, March 30, 2017 5:08 PM
To: BeExcel
Subject: Re: [belajar-excel] Mengetahui apakah file tertentu sudah dibuka HANYA 
di computer kita sendiri


Hai Tio,
1. untuk cek sebuah file ada atau tidak bisa dengan begini :
dim sPath as string, sFile as string, sFileName as string
spath="\\komputer-x\folder\subfolder\dst"'atau "d:\folder dataku\sub 
foldernya"
sfile="file excel nya.xlsx"
sfilename=spath & "\" & sfile
if len(sfilename)=0 then 'nama file belum didefinisikan (masih teks kosong)
   msgbox "Nama file masih kosong"
elseif len(dir(sfilename))=0 then 'ada teks nama file, tetapi wujud filenya 
tidak ada
   msgbox "File [" & sfilename & "] tidak ditemukan"
endif

2. untuk cek sebuah workbook sedang terbuka atau tidak
dim iFile as integer
dim sPath as string, sFile as string, sFileName as string
spath="\\komputer-x\folder\subfolder\dst"
sfile="file excel nya.xlsx"
sfilename=spath & "\" & sfile
on error resume next
ifile=freefile
open sfilename for input lock read as #ifile
close ifile
if err.number=0 then   'file sedang tidak dibuka oleh siapapun
  msgbox "Tidak ada user yang sedang membuka file [" & sfilename & "]"
else
  msgbox "File sedang dibuka entah dimana dan entah oleh siapa"
endif
err.clear
on error goto 0

3. untuk memeriksa apakah Excel yang dipakai si VBA sedang membuka workbook
dim wbk as workbook
dim sPath as string, sFile as string, sFileName as string
spath="\\komputer-x\folder\subfolder\dst"
sfile="file excel nya.xlsx"
sfilename=spath & "\" & sfile
on error resume next
set wbk=workbooks(sfile)
if not wbk is nothing then 'wbk ada isinya, berarti sedang terbuka di 
aplikasi excel yang dipakai si VBA
   msgbox "Anda sedang membuka file [" & sfilename & "] di aplikasi Excel 
ini"
else
   msgbox "Pada aplikasi Excel ini tidak ditemukan workbook [" & sfilename 
& "]"
endif

4. untuk memeriksa apakah workbook terbuka di instansi aplikasi Excel selain 
yang dipakai si VBA di komputer yang sama
dim wbk as workbook, app as excel.application
dim sPath as string, sFile as string, sFileName as string
spath="\\komputer-x\folder\subfolder\dst"
sfile="file excel nya.xlsx"
sfilename=spath & "\" & sfile
on error resume next
set app=getobject(sfilename).application
if app.hwnd<>thisworkbook.parent.hwnd then'handle aplikasi Excel yang 
membuka file ternyata beda dengan aplikasi excel yang dipakai si VBA
msgbox "File [" & sfilename & "] sedang dibuka di aplikasi Excel lain 
pada komputer ini"
else
   app.workbooks(sfile).close false
endif

5. memisahkan nama lengkap file menjadi 2 bagian, yaitu bagian path dan bagian 
file
dim sFileParts() as string
dim sPath as string, sFile as string, sFileName as string
sfilename="\\komputer-x\folder\subfolder\dst\file excel nya.xlsx" 'atau 
"d:\folder data ku\sub foldernya\file excel nya.xlsx"
sfileparts=split(sfilename,"\")
sfile=sfileparts(ubound(sfileparts))
spath=replace(sfilename,"\" & sfile,vbnullstring)

*** urutan proses :
Nomor 1 -> Nomor 2 bagian else diisi nomor3 dan nomor 3 bagian else diisi nomor 
4 lalu nomor 4 bagian else ditambahkan pesan bahwa file dibuka oleh user lain 
entah dimana (dikomputer yang sama ataupun tidak).

*** jika inputannya adalah nama file lengkap, maka baris-baris kode :
dim sPath as string, sFile as string, sFileName as string
spath="\\komputer-x\folder\subfolder\dst"'atau "d:\folder dataku\sub 
foldernya"
sfile="file excel nya.xlsx"
sfilename=spath & "\" & sfile
diganti dengan nomor 5
Regards,
Kid


On Thu, Mar 30, 2017 at 11:02 AM, Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> wrote:

Salam BeExceller,
Saya sudah menemukan coding vb untuk mengetahui apakah file yang saya pilih 
sudah dibuka atau tidak. Tapi code vba tsb dimaksudkan file terbuka di computer 
kita dan terbuka juga di network oleh orang lain.
Bisakah kita memodif code vba untuk mengetahui apakah file yang dimaksud sudah 
terbuka HANYA di computer kita sendiri (bukan terbuka di network oleh user 
lain) ?

Dibawah adalah code vba yang mengetahui apakah file dimaksud sudah 
terbuka/tidak oleh kita sendiri dan user lain di network.

Sub TestFileOpened()

' Test to see if the file is open.
If IsFileOpen("\\ssbfs01\ssbstore\Corporate Division\Estimating 
Department-Services\2. Estimator\8. Tio\Nozzle-Type-Information.xlsx") Then
' Display a message stating the file in use.
MsgBox "File already in use!"
'
' Add code here to handle case where

[belajar-excel] Touch Screen di Excel

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Dear para BeExceller,

Mau Tanya. Adakah fitur touch screen untuk Ms. Excel khusunya 2003-2010 ? Kalau 
tidak ada, bagaimana menggunakan vb untuk menggunakan touch screen ?


Terima Kasih.
Regards,
Tio




.

[belajar-excel] Mengetahui apakah file tertentu sudah dibuka HANYA di computer kita sendiri

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam BeExceller,
Saya sudah menemukan coding vb untuk mengetahui apakah file yang saya pilih 
sudah dibuka atau tidak. Tapi code vba tsb dimaksudkan file terbuka di computer 
kita dan terbuka juga di network oleh orang lain.
Bisakah kita memodif code vba untuk mengetahui apakah file yang dimaksud sudah 
terbuka HANYA di computer kita sendiri (bukan terbuka di network oleh user 
lain) ?

Dibawah adalah code vba yang mengetahui apakah file dimaksud sudah 
terbuka/tidak oleh kita sendiri dan user lain di network.

Sub TestFileOpened()

' Test to see if the file is open.
If IsFileOpen("\\ssbfs01\ssbstore\Corporate Division\Estimating 
Department-Services\2. Estimator\8. Tio\Nozzle-Type-Information.xlsx") Then
' Display a message stating the file in use.
MsgBox "File already in use!"
'
' Add code here to handle case where file is open by another
' user.
'
Else
' Display a message stating the file is not in use.
MsgBox "File not in use!"
' Open the file in Microsoft Excel.
'Workbooks.Open "c:\Book2.xls"
'
' Add code here to handle case where file is NOT open by another
' user.
'
End If

End Sub

' This function checks to see if a file is open or not. If the file is
' already open, it returns True. If the file is not open, it returns
' False. Otherwise, a run-time error occurs because there is
' some other problem accessing the file.

Function IsFileOpen(filename As String)
Dim filenum As Integer, errnum As Integer

On Error Resume Next   ' Turn error checking off.
filenum = FreeFile()   ' Get a free file number.
' Attempt to open the file and lock it.
Open filename For Input Lock Read As #filenum
Close filenum  ' Close the file.
errnum = Err   ' Save the error number that occurred.
On Error GoTo 0' Turn error checking back on.

' Check to see which error occurred.
Select Case errnum

' No error occurred.
' File is NOT already open by another user.
Case 0
 IsFileOpen = False

' Error number for "Permission Denied."
' File is already opened by another user.
Case 70
IsFileOpen = True

' Another error occurred.
Case Else
Error errnum
End Select

End Function


Thanks,
Tio
__,_._,_

RE: [belajar-excel] Code vba membuat visible false untuk beberapa textbox dan label

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Berhasil Mr. Kid.
Terima kasih Mr. Kid, semoga Tuhan membalas kebaikan Mr.Kid dengan pahala yang 
lebih baik. Amiin…

Regards,
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, March 28, 2017 7:12 PM
To: BeExcel
Subject: Re: [belajar-excel] Code vba membuat visible false untuk beberapa 
textbox dan label


Oh sorry, ada yang keliru :
   if typename(lcase(octl.name))="textbox" then
harusnya :
   if lcase(typename(octl))="textbox" then

2017-03-27 15:10 GMT+07:00 Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:

Salam Mr.Kid dan teman-teman,
Saya sudah mencoba dengan membuat contoh seperti code vba yang Mr. Kid berikan, 
tapi belum ada reaksi. Apakah ada yang kurang dari code vba saya ya ?
Saya hanya merubah txtxx menjadi temp.

Contoh terlampir.

Regards,
Tio

From: belajar-excel@yahoogroups.com 
[mailto:belajar-excel@yahoogroups.com]
Sent: Sunday, March 26, 2017 9:10 PM
To: BeExcel
Subject: Re: [belajar-excel] Code vba membuat visible false untuk beberapa 
textbox dan label


Hai Tio,
Langkah 1 :
> Properti bernama '(Name)' dari setiap textbox yang akan di-loop diberi nama 
> dengan prefix tertentu, seperti txtXX01, txtXX02, dst
> Jadi, ada identifier setiap textbox control di 5 karakter pertama properti 
> '(Name)' berbunyi sesuatu yang khas menurut kelompoknya.
Langkah 2 :
> pada event Click milik sebuah commandbutton control diisi dengan proses loop 
> terhadap seluruh controls, seperti ini :
dim oCtl as object
for each octl in me.controls
  if typename(lcase(octl.name))="textbox" then
if left(lcase(octl.name),5)="txtxx" then
octl.visible=false
endif
  endif
next octl

Regards,
Kid




2017-03-26 15:56 GMT+07:00 Tio Ali 
tioali2...@yahoo.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:

Salam Be Exceller

Misal di userform ada beberapa textbox dan label yang tag nya dikasih nilai 
"xx" dan beberapa textbox dan beberapa label tidak dikasih nilai tag.

Bagaimana sintax dari code for each next untuk membuat visible false ketika 
tombol di klik pada beberapa textbox dan label yg tagnya bernilai "xx'"?

Terima kasih atas bantuannya.

Salam
Tio

RE: [belajar-excel] FW: Perhitungan Engineering Calculation di Excel

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Terima kasih jawabannya mas Toby, saya hanya khawatir, ketika sudah sampai pada 
perhitungan yang rumit, Excel tidak bisa lagi dan akan error dikarenakan 
perhitungan yang banyak dan rumit.

Regards,
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Saturday, February 18, 2017 1:44 PM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] FW: Perhitungan Engineering Calculation di Excel 
[1 Attachment]


Dear Tio,

Di Excel bisa melakukan perhitungan serumit apapun asalkan user mengerti dan 
memahahi perhitungan matematikanya. Aplikasi perhitungan apapun dapat di 
selesaikan dengan EXCEL.

Sorry, gambarnya koq ngga bisa di buka...

TerimaKasih

Pada Jumat, 17 Februari 2017 14:38, "Susilo - susilo...@gmail.com 
[belajar-excel]"  menulis:


Dear Tio

Mungkin rekan-rekan (dan saya) tidak tahu mau jawab bagaimana karena istilah 
yang diberikan tidak ada satupun yang dimengerti, misalkan :
- Pressure Vessel
- Mechanical calculation
- Engineering calculation
- Welding calculator
- Pressure vessel

Kalaupun ada petunjuk, rumus-rumus, atau urutan logika atau apapun yang bisa 
dijabarkan secara logika, mungkin bisa dijalankan oleh excel.

Terima kasih
Susilo



Pada 16 Februari 2017 09.10, Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>> menulis:

Dear Para Expert Excel,

Mohon pencerahannya untuk pertanyaan saya di bawah.

Terima Kasih.
Salam,
Tio

From: belajar-excel@yahoogroups.com 
[mailto:belajar-excel@ yahoogroups.com]
Sent: Wednesday, February 08, 2017 4:26 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Perhitungan Engineering Calculation di Excel


Dear Para Expert Excel dan Mr. Kids,

Mau Tanya
Di Excel, sampai seberapa jauh kita bisa buat perhitungan, seperti perhitungan 
Pressure Vessel atau perhitungan mechanical calculation (engineering 
calculation) ? Sebelumnya saya sudah buat Welding calculator di Excel dan 
berhasil, saya mau buat perhitungan pressure vessel dan sejenis.
1.   Apakah ada batas perhitungan di Excel ?
2.   Kalau di Excel cuma bisa perhitungan sederhana, bagaimana untuk 
mensiasati Excel supaya bisa menghitung yang lebih rumit ?
3.   Di applikasi seperti apa yg memang khusus buat perhitungan ?

Terima kasih.
Salam,
Tio



.

[belajar-excel] FW: Perhitungan Engineering Calculation di Excel

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Dear Para Expert Excel,

Mohon pencerahannya untuk pertanyaan saya di bawah.

Terima Kasih.
Salam,
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Wednesday, February 08, 2017 4:26 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Perhitungan Engineering Calculation di Excel


Dear Para Expert Excel dan Mr. Kids,

Mau Tanya
Di Excel, sampai seberapa jauh kita bisa buat perhitungan, seperti perhitungan 
Pressure Vessel atau perhitungan mechanical calculation (engineering 
calculation) ? Sebelumnya saya sudah buat Welding calculator di Excel dan 
berhasil, saya mau buat perhitungan pressure vessel dan sejenis.

1.   Apakah ada batas perhitungan di Excel ?

2.   Kalau di Excel cuma bisa perhitungan sederhana, bagaimana untuk 
mensiasati Excel supaya bisa menghitung yang lebih rumit ?

3.   Di applikasi seperti apa yg memang khusus buat perhitungan ?

Terima kasih.
Salam,
Tio




.

[belajar-excel] Perhitungan Engineering Calculation di Excel

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Dear Para Expert Excel dan Mr. Kids,

Mau Tanya
Di Excel, sampai seberapa jauh kita bisa buat perhitungan, seperti perhitungan 
Pressure Vessel atau perhitungan mechanical calculation (engineering 
calculation) ? Sebelumnya saya sudah buat Welding calculator di Excel dan 
berhasil, saya mau buat perhitungan pressure vessel dan sejenis.

1.   Apakah ada batas perhitungan di Excel ?

2.   Kalau di Excel cuma bisa perhitungan sederhana, bagaimana untuk 
mensiasati Excel supaya bisa menghitung yang lebih rumit ?

3.   Di applikasi seperti apa yg memang khusus buat perhitungan ?

Terima kasih.
Salam,
Tio



.

RE: [belajar-excel] Release memory

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Terima kasih jawabannya Mr. Kid.
Saya hanya bisa panjatkan doa atas jawaban ini.
Ya Allah, terimalah amal baiknya yang telah membantu kami padahal kami tidak 
memberi apa-apa untuknya. Angkatlah derajatnya disisiMu dunia akhirat. 
Permudahkanlah segala urusannya. Panjangkanlah umurnya dalam kebaikan sehingga 
bisa terus berbagi sesama. Kabulkanlah doaku, Ya Allah.
Amiin ya Robbal ‘Alamiin…

Regards,
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Wednesday, November 23, 2016 11:33 AM
To: BeExcel
Subject: Re: [belajar-excel] Release memory


Wa'alaikumussalam wr wb
Hai Tio,
Pertanyaan 1 :
Out of memory bisa disebabkan oleh banyak hal tergantung proses yang dilakukan, 
antara lain :
1. Proses copy suatu range yang cukup luas dan banyak (berulang) tapi tidak 
disertai application.cutcopymode=false setelah proses paste dilakukan.
> disiplinlah menambahkan baris Application.cutcopymode=false setelah 
proses paste
2. Proses pengambilan data melalui data connection (fitur get external data) 
dengan jumlah records yang sangat banyak.
> perbaiki query dan kurangi jumlah records yang harus diambil.
3. Terlalu banyak workbook yang dibuka dalam 1 (SATU) instansi aplikasi Excel. 
INGAT, Excel bisa dibuka dalam beberapa instansi aplikasi. Artinya, jika 1 
instansi Excel diberi ijin menggunakan RAM 2GB, maka jika ada 2 instansi Excel, 
maka 2 buah Excel itu dapat menggunakan RAM 4GB (bila RAM mencukupi). Dalam 
setiap instansi Excel bisa dibuka banyak workbook.
> Mulailah mengurangi kebiasaan membuka workbook yang terlalu banyak, 
apalagi link formula antar workbook.
Pertanyaan 2 :
1. kenali proses yang dilakukan, apakah proses tersebut membutuhkan banyak 
memory atau tidak.
> Kalau ambil data dari database sebanyak 50juta records berarti besar kan, 
> maka pasti ada potensi out of memory, jadi gak usah ambil segitu banyak. 
> Jumlah records maksimal yang bisa diambil sampai muncul out of memory tidak 
> dapat dipastikan karena tergantung jumlah kolom dan tipe data setiap kolom.
> Kalau copy suatu range, bisa diketahui luasannya bukan ? Kalau kira-kira 
> sangat luas dan banyak berisi data (termasuk formula), berarti ada potensi 
> akan out of memory jika dilakukan berulang-ulang.
2. Khusus untuk kegiatan Copy suatu range, segera beri baris 
application.cutcopymode=false begitu proses selesai.
> misal copy range A1:Z9 lalu di paste values ke range BB1, maka karena 
> dikuatirkan bisa menyebabkan out of memory, maka setelah proses paste values 
> diberi baris application.cutcopymode=false
 disetiap proses copy lalu paste ?  >>> TIDAK, hanya di copy lalu paste 
yang memproses range yang luas dan dikuatirkan out of memory
 kalau ada 1000 proses copy paste dan semuanya dikuatirkan out of memory 
gimana ?   tambahkan baris application.cutcopymode=false di setiap proses 
(berarti ada 1000 baris application.cutcopymode=false)


Pertanyaan 3 :
Tutup workbook-nya saja

Wassalamu'alaikum wr wb
Kid






2016-11-23 9:44 GMT+07:00 Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:

Assalamu alaikum.
Lama tak jumpa dengan Master Excel (Mr.Kid dan teman-teman).
Mau tanya nih.

Saya buat program dengan vba excel tapi setelah di execute, terjadi out of 
memory.

Pertanyaannya :

1. Apa saja yang menyebabkan out of memory ?

2. Bagaimana mendeteksi suatu coding yang menyebabkan out memory ?

3. Bagaimana merelease memory untuk semua coding saya tanpa perlu release 
memory satu persatu coding vba saya ?

Terima Kasih atas bantuannya.
Hanya Allah SWT yang membalas kebaikan Mr. Kid dan teman-teman semua.

Wassalam.
Tio


.

[belajar-excel] Release memory

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Assalamu alaikum.
Lama tak jumpa dengan Master Excel (Mr.Kid dan teman-teman).
Mau tanya nih.

Saya buat program dengan vba excel tapi setelah di execute, terjadi out of 
memory.

Pertanyaannya :

1. Apa saja yang menyebabkan out of memory ?

2. Bagaimana mendeteksi suatu coding yang menyebabkan out memory ?

3. Bagaimana merelease memory untuk semua coding saya tanpa perlu release 
memory satu persatu coding vba saya ?

Terima Kasih atas bantuannya.
Hanya Allah SWT yang membalas kebaikan Mr. Kid dan teman-teman semua.

Wassalam.
Tio



.

[belajar-excel] Kasih nilai bulan sekarang

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Guru Excel ,
Mau tanya , bagaimana formula/code untuk memberi nilai bulan sekarang di range 
tertentu ?

Terima kasih.
Tio

Reply via web 
post

•

Reply to sender 


•

Reply to group 


•

Start a New 
Topic

•

Messages in this 
topic
 (12)


[https://s.yimg.com/ru/static/images/yg/img/megaphone/1461187129_phpAFlf16]
Upgrade your account with the latest Yahoo Mail app
Get organized with the fast and easy-to-use Yahoo Mail app. Upgrade today!


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-subscr...@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-ow...@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : 
belajar-excel-unsubscr...@yahoogroups.com
-
Visit Your 
Group
·New 
Members
 4
[Yahoo! 
Groups]
• Privacy • 
Unsubscribe
 • Terms of Use


.

[belajar-excel] Bikin tombol sesuai resolusi

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Excel Expert.
Mau tanya. Kadang kita bikin tombol di laptop, ternyata setelah ditampilkan di 
computer lain, tombolnya berubah jadi besar atau textnya mengecil.
Apakah ini karena resolusi yang berbeda atau ada sebab lain ? Bagaimana cara 
supaya bikin tombol tidak membesar/mengecil textnya kalau ditampilkan di 
computer lain ?

Terima kasih.

Regards,
Tio

[belajar-excel] Convert file excel ke exe

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Guru Excel,

1.  Mau tanya, apakah efek buruknya kalau file excel diconvert ke exe ?

2.  Kalau ada efek buruknya, bagaimana menanggulanginya ?

3.  Kalau tidak ada efek buruknya, adakah link situs yang aman untuk 
diaccess supaya aman dari virus atau selainnya ?
Terima kasih Guru.

Wassalam,
Tio

.

RE: [belajar-excel] User tidak bisa mengganti nama worksheets

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Alhamdulillah. Terima kasih Mr. Kid jawabannya. Sangat membantu. Semoga Allah 
SWT membalas kebaikan Mr. Kid. Amiin…

Salam.





From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, April 08, 2016 9:44 AM
To: BeExcel
Subject: Re: [belajar-excel] User tidak bisa mengganti nama worksheets


Hai Tio,
Bukankah bisa protect workbook structure
ribbon Review -> group Changes -> protect workbook -> protect workbook 
structure n window -> centang structure -> isi password dan confirm password 
bila perlu -> ok sampai kembali ke worksheet
*** kasus yang Anda utarakan tidak menyangkut bisa atau tidak bisa add sheet 
loh...

Regards,
Kid





2016-04-05 15:48 GMT+07:00 Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:

Salam, excel expert
Mau tanya, adakah coding supaya user tidak bisa ganti nama worksheets ?

Terima kasih.


.

RE: [belajar-excel] User tidak bisa mengganti nama worksheets

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Terima kasih mas Nangagus jawabannya.
Semoga Tuhan YME membalasnya. Amiin…

Regards,
Tio





From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, April 07, 2016 1:22 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] User tidak bisa mengganti nama worksheets [1 
Attachment]




On 05/04/2016 15:48, Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] wrote:

Salam, excel expert
Mau tanya, adakah coding supaya user tidak bisa ganti nama worksheets ?

Terima kasih.




.

RE: [belajar-excel] User tidak bisa mengganti nama worksheets

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Coba di modif rumusnya jadi :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CommandBars.FindControl(ID:=847).Enabled = True
Me.Name = "Kalih2 (nama yang diinginkan)"
End Sub





From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, April 07, 2016 2:16 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] User tidak bisa mengganti nama worksheets





السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Semangat pagi,.



Mas NangAgus,



Mau tanya kalau ada case,

User Client merubah nama Worksheet kemudian di Save.



Ketika dibuka Namanya tidak bisa kembali ke nama asal.

Bisakah kalau trigernya dibuat ketika ada perubahan cell ?!







وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ



Warm Regards,
On 07/04/2016 13:22, nangagus nanga...@gmail.com 
[belajar-excel] wrote:



On 05/04/2016 15:48, Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] wrote:

Salam, excel expert
Mau tanya, adakah coding supaya user tidak bisa ganti nama worksheets ?

Terima kasih.




.

[belajar-excel] Membuka file excel lain dan membuka worksheet tertentu

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Excel Expert.
Saya buat code buka file dan berhasil. Tapi setelah dibuka file excel lain itu 
dan mau buka worksheet tertentu, kok tidak bisa ya ? Adakah yang perlu di modif 
coding nya ?

Ini codingnya.
strFilePath = "\\abc001\Latihan.xlsm"

ret = Isworkbookopen(strFilePath)

If ret = True Then
'Just make it active
Workbooks("Latihan.xlsm").Activate
ActiveWorkbook.Worksheets("Latihan Excel").Select
Else
' open file
Workbooks.Open filename:=strFilePath, UpdateLinks:=0, ReadOnly:=True
Workbooks("Latihan.xlsm").Activate
ActiveWorkbook.Worksheets("Latihan Excel ").Select
End If

File sudah terbuka tapi ketika membuka worksheet “Latihan Excel” kok tidak 
berhasil ya..? apakah ada solusi ?

Terima kasih.
Tio
[Yahoo! 
Groups]
• Privacy • 
Unsubscribe
 • Terms of Use


.

[belajar-excel] User tidak bisa mengganti nama worksheets

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam, excel expert
Mau tanya, adakah coding supaya user tidak bisa ganti nama worksheets ?

Terima kasih.



.

RE: [belajar-excel] Mencari baris terakhir di kolom tertentu

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Terima kasih mas Zainul. Dikira saya tidak perlu mencantumkan nomor baris 
maksimal, ternyata perlu juga ya….Terima  kasih.

Regards,
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, April 01, 2016 10:52 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mencari baris terakhir di kolom tertentu



Coba ini
Range(A100).End(xlUp).Row

Asumsi perkiraan max data sampai baris 1jt

Thanks
_zainul
On Apr 1, 2016 9:13 AM, "Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel]" 
mailto:belajar-excel@yahoogroups.com>> wrote:


Assalamu alaikum.

Salam Excel Expert

Mau tanya.

Bagaimana code macro mencari baris terakhir di excel. Biasanya saya pakai 
Range("A3").End(xlDown).Row (kalau di kolom A yang mau dicari baris terakhir 
kosongnya). Tapi pernah saya dengar di group ini juga bahwa yang ampuh adalah 
yang pakai End(xlUp).Row (karena kalau pakai End(xlDown) di Excel 2007/2010 
suka error. Mohon di sharing yang pakai End(xlUp).Row Terima kasih Mister .



Regards,

Tio

[belajar-excel] Mencari baris terakhir di kolom tertentu

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Assalamu alaikum.
Salam Excel Expert
Mau tanya.
Bagaimana code macro mencari baris terakhir di excel. Biasanya saya pakai 
Range("A3").End(xlDown).Row (kalau di kolom A yang mau dicari baris terakhir 
kosongnya). Tapi pernah saya dengar di group ini juga bahwa yang ampuh adalah 
yang pakai End(xlUp).Row (karena kalau pakai End(xlDown) di Excel 2007/2010 
suka error. Mohon di sharing yang pakai End(xlUp).Row Terima kasih Mister .

Regards,
Tio

[belajar-excel] Link belajar Resize

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Dear Excel Expert,
Maaf mau tanya.
Pernahkah disini membahas tentang penggunaan Resize ? Kalau sudah pernah, mohon 
untuk ditukilkan link nya..
Terima kasih.

Tio





From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, March 17, 2016 8:26 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] file expire date



salam master..
mau nanya nih, ceritanya begini
saya punya file yg dikasih expired date pada vbanya..nah masalahnya sdh lama 
file tersebut tdk saya buka..kemaren pas saya buka filenya langsung berisi 
peringatan expired dan ketika di klik ok langsung menutup file, jadi saya tdk 
bisa masuk ke vba editor buat mengganti tanggal..nah adakah cara lain agar file 
tsb bisa kita buka..
terima kasih..
salam
yudha

Dikirim dari ASUS saya

RE: [belajar-excel] Link belajar Resize

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Memang Mr. Kid guru yang luar biasa…

Salam,.
Tio





From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, March 18, 2016 9:52 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Link belajar Resize


Ini hebatnya seorang GURU sejati...
Minta ikan dikasi pancing sekalian

Salam,
HK

From: "'Mr. Kid' mr.nm...@gmail.com [belajar-excel]" 
mailto:belajar-excel@yahoogroups.com>>
To: BeExcel 
mailto:belajar-excel@yahoogroups.com>>
Sent: Friday, 18 March 2016, 6:05
Subject: Re: [belajar-excel] Link belajar Resize


Hai Tio,
Di blog milis ada pembahasan tentang hal ini.
Contohnya 
disini.
 Khusus tentang range, mulai dari 
sini.

Wassalam,
Kid



2016-03-17 8:54 GMT+07:00 Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:

Dear Excel Expert,
Maaf mau tanya.
Pernahkah disini membahas tentang penggunaan Resize ? Kalau sudah pernah, mohon 
untuk ditukilkan link nya..
Terima kasih.

Tio





From: belajar-excel@yahoogroups.com 
[mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, March 17, 2016 8:26 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] file expire date


salam master..
mau nanya nih, ceritanya begini
saya punya file yg dikasih expired date pada vbanya..nah masalahnya sdh lama 
file tersebut tdk saya buka..kemaren pas saya buka filenya langsung berisi 
peringatan expired dan ketika di klik ok langsung menutup file, jadi saya tdk 
bisa masuk ke vba editor buat mengganti tanggal..nah adakah cara lain agar file 
tsb bisa kita buka..
terima kasih..
salam
yudha

Dikirim dari ASUS saya

RE: [belajar-excel] Code VBA import data query microsoft access ke Excel di workbook excel

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Terima kasih Mr. Kid atas jawabannya. Saya coba dulu. Semoga Tuhan membalas 
kebaikan Mr. Kid.
Wassalam.





From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, February 09, 2016 8:08 AM
To: BeExcel
Subject: Re: [belajar-excel] Code VBA import data query microsoft access ke 
Excel di workbook excel


Hai Tio,
coba buat object ado connection nya dulu.
Lakukan connection baru buka recordset.
dim con as adodb.connection
set con=new adodb.connection
con.open myconnect
'baru baris sisanya yang ada di script Anda.






2016-02-04 14:52 GMT+07:00 Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:

Salam Excel Expert,
Saya ada code untuk import query Microsoft access ke Excel tapi tidak jalan. 
Mohon pencerahannya, bagaimana solusinya ?
Error yang muncul di .Parameters("[Harga <= Dari?]") = Range("B1").Value (yg 
saya kasih tanda warna hijau). Di computer saya 2003 tidak berhasil, tapi kalau 
di Access 2007 berhasil. Mohon pencerahannya

Berikut yang saya dapat :

Sub CopyRecordDariAccess2()
'Sebelum menjalankan procedure dibawah ini, pastikan library ini sudah 
ditambahkan
'di Tools -> References:
'- Microsoft ActiveX Data Objects Library
'Versi sesuai dengan Office yg diinstall di PC nya

'Tahap 1: Deklarasi nama object dan variable yg digunakan
Dim MyConnect As String
Dim MyRecordset As ADODB.Recordset
Dim MyQueryDef As DAO.QueryDef
Dim MyDatabase As ADODB.Recordset

'Tahap 2: Deklarasi jenis koneksi database dan lokasinya
MyConnect = "Provider=Microsoft.JET.OLEDB.4.0;" & _
"Data Source=" & ActiveWorkbook.Path & "\KolaborasiAccessExcel.mdb"

'Tahap 3: Tentukan nama table/query
Set MyDatabase = New ADODB.Recordset
MyRecordset.Open "[TestParameterQuery]", MyConnect, adOpenStatic, adLockReadOnly

Set MyQueryDef = MyDatabase.QueryDefs("TestParameterQuery")

'Tahap 3: Definiskan Parameter yg digunakan
With MyQueryDef
.Parameters("[Harga <= Dari?]") = Range("B1").Value
End With

'Langkah 4: Membuka query
Set MyRecordset = MyQueryDef.OpenRecordset

'Tahap 4: Copy seluruh record ke Excel
Sheets("Sheet1").Select
ActiveSheet.Range("A2").CopyFromRecordset MyRecordset

'Tahap 5: Tambahkan judul kolom di Excel
For i = 1 To MyRecordset.Fields.Count
ActiveSheet.Cells(1, i).Value = MyRecordset.Fields(i - 1).Name
Next i

'Tahap 6: Bersihkan memory di VBA
MyRecordset.Close
Set MyRecordset = Nothing




Terima kasih.
Tio_,_._,___

[belajar-excel] Code VBA import data query microsoft access ke Excel di workbook excel

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Excel Expert,
Saya ada code untuk import query Microsoft access ke Excel tapi tidak jalan. 
Mohon pencerahannya, bagaimana solusinya ?
Error yang muncul di .Parameters("[Harga <= Dari?]") = Range("B1").Value (yg 
saya kasih tanda warna hijau). Di computer saya 2003 tidak berhasil, tapi kalau 
di Access 2007 berhasil. Mohon pencerahannya

Berikut yang saya dapat :

Sub CopyRecordDariAccess2()
'Sebelum menjalankan procedure dibawah ini, pastikan library ini sudah 
ditambahkan
'di Tools -> References:
'- Microsoft ActiveX Data Objects Library
'Versi sesuai dengan Office yg diinstall di PC nya

'Tahap 1: Deklarasi nama object dan variable yg digunakan
Dim MyConnect As String
Dim MyRecordset As ADODB.Recordset
Dim MyQueryDef As DAO.QueryDef
Dim MyDatabase As ADODB.Recordset

'Tahap 2: Deklarasi jenis koneksi database dan lokasinya
MyConnect = "Provider=Microsoft.JET.OLEDB.4.0;" & _
"Data Source=" & ActiveWorkbook.Path & "\KolaborasiAccessExcel.mdb"

'Tahap 3: Tentukan nama table/query
Set MyDatabase = New ADODB.Recordset
MyRecordset.Open "[TestParameterQuery]", MyConnect, adOpenStatic, adLockReadOnly

Set MyQueryDef = MyDatabase.QueryDefs("TestParameterQuery")

'Tahap 3: Definiskan Parameter yg digunakan
With MyQueryDef
.Parameters("[Harga <= Dari?]") = Range("B1").Value
End With

'Langkah 4: Membuka query
Set MyRecordset = MyQueryDef.OpenRecordset

'Tahap 4: Copy seluruh record ke Excel
Sheets("Sheet1").Select
ActiveSheet.Range("A2").CopyFromRecordset MyRecordset

'Tahap 5: Tambahkan judul kolom di Excel
For i = 1 To MyRecordset.Fields.Count
ActiveSheet.Cells(1, i).Value = MyRecordset.Fields(i - 1).Name
Next i

'Tahap 6: Bersihkan memory di VBA
MyRecordset.Close
Set MyRecordset = Nothing




Terima kasih.
Tio_,_._,___

[belajar-excel] Import data Ms Access ke Excel

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Excel Expert
Mau tanya, adakah pernah dibahas import data Ms Access ke Ms Excel ? Jika 
pernah, bisakah diinformasikan linknya ? Terima kasih. Wassalam.




Regards,
Tio

RE: [belajar-excel] Disable right click di tab sheet dan menu bar

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Luar biasa pencerahannya. Sangat membantu sekali. Semoga Allah SWT membalas 
kebaikan Mr. Kid dan keluarga atas bantuannya.
Saya tambah senang dengan quote terakhir  dan semoga selalu teringat sepanjang 
masa :
“Kalau sudah tahu ada jurang yang dalam dan gunung yang tinggi menjulang yang 
tidak mungkin untuk dihilangkan, ditutupi, maupun dibinasakan, kenapa tidak 
menjadikan area jurang dan gunung tadi sebagai tempat wisata yang menyejukkan 
hati dan pikiran yang jauh dari segala prasangka buruk terhadap sesama ?”

Wassalam,
Tio



From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, January 15, 2016 8:10 PM
To: BeExcel
Subject: Re: [belajar-excel] Disable right click di tab sheet dan menu bar


Hai Tio,
1. Ingin mencegah dibukanya VBEditor ? Bisa ya ? Rasanya tidak bisa tuh...
a. VBA nya di password : tapi passwordnya mudah dibingkar karena VBA ditujukan 
untuk otomasi dan bukan untuk application programming.
b. tab Sheet dicegah aktifnya opsi View Code : Hal ini pastilah dilakukan 
menggunakan VBA. Padahal, User tetap bebas mengatur Macro security untuk di set 
agar VBA tidak bekerja. Misalnya, user mengatur security menjadi high. Lalu 
user membuka file ber-VBA. Pembuat VBA di set agar menampilkan sheet kosong 
kalau Macro di disable. Tapi user tetap bisa mengaktifkan View code dari klik 
kanan tab sheet pada keadaan ini, karena VBA belum bekerja menon aktifkan klik 
kanan di tab sheet.
c. Menon aktifkan penekanan ALT F11 : hal ini pasti dilakukan dengan VBA. Kalau 
security macro di set high oleh VBA, maka user bisa membuka VBEditor dan script 
VBA bisa tampak (kalau ada password di script VBA nya, maka user bisa dengan 
mudah membongkarnya)
d. Mengubah ribbon agar menampilkan menu yang tidak ada penampakan VBEditor. 
Seluruh shrtcut tetap bekerja. Walau ribbon save tidak ditampikan, menekan CTRL 
S tetap akan memicu proses save. Kalau shortcut CTRL S dinon aktifkan dengan 
VBA, maka kejadian seperti poin c atau d akan tetap bisa dilakukan.
*** Akan jauh lebih mudah lagi kalau semua kegiatan a sampai d hanya 
diberlakukan di sebuah workbook saja. Karena user bisa melakukan workbook open 
dan ke VB editor dari workbook lain tersebut.

>> Sebaiknya dipikirkan ulang untuk menghabiskan tenaga mencari cara 
>> menyembunyikan VBA atau mencegah VBA dibongkar orang lain. Hal ini berlaku 
>> juga untuk proteksi sheet atau workbook (bukan file ya, tapi workbook).
>> Kalau ingin aman, proteksi filenya (bukan protect workbook), lalu serahkan 
>> ke orang yang dipercaya tidak akan membingkar VBA dengan menyertakan 
>> password pembuka filenya (password file ya, bukan password workbook).
>> Kalau ingin lebih aman, jangan gunakan Excel. Gunakan programming sepperti 
>> Visual Basic (bukan Visual Basic for Application alias VBA) atau malah 
>> VB.Net, C++, dan sebagainya. Kiranya, salah pilih jika menggunakan Excel 
>> lalu ingin rahasia dan aman seperti applikasi .exe
2. Begini :
a.Pada sebuah workbook yang tidak memiliki .xml file pendefinisi ribbon, maka 
yang digunakan adalah definisi ribbon default yang disediakan Excel. Jadi, 
dimanapun ada Excel 2007 ke atas, pasti ada default .xml file pendefinisi 
ribbon.
b. Pada Excel 2007 ke atas, seluruh menu ditata dengan ribbon. Definisi ribbon 
ada di dalam sebuah .xml file yang disimpan di dalam sebuah workbook. Jadi, 
file menu dengan ekstensi .xml ini akan bersama si workbook kemanapun workbook 
tersebut pergi.
c. CustomUI adalah .xml file pendefinisi ribbon yang khusus untuk workbook 
tersebut. File ini diletakkan di dalam workbook (lihat poin b).
d. CustomUI dapat dibuat dengan aplikasi plain text editor apapun, seperti 
notepad dan sebagainya yang dapat melakukan save as .xml
e. CustomUI perlu dimasukkan ke dalam sebuah workbook, pada suatu folder 
tertentu di dalam workbook, disertai definisi relasi pada beberapa .xml lain 
yang telah ada di dalam workbook.
f. Berhubung proses poin d dan e membutuhkan pengetahuan yang baik tentang .xml 
file dan struktur file sebuah workbook, maka beberapa orang membuat sebuah laat 
yang memudahkan semua itu. Yang paling dikenal adalah CustomUI Editor.
g. Hasil CustomUI Editor adalah sebuah workbook yang telah berisi .xml file 
pendefinisi ribbon yang telah dibuat sendiri oleh seseorang (misalnya seperti 
Anda itu).
h. Dimanapun ada komputer yang telah di-Install Excel, maka workbook yang telah 
diisi CustomUI (baik oleh CustomUI Editor atau dimasukkan sendiri oleh yang 
bersangkutan), maka ribbon yang ditampilkan adalah mengikuti definisi .xml file 
yang ada dalam workbook.
i. Beberapa item dalam ribbon yang Anda custom, bisa jadi membutuhkan script 
VBA. Jadi, item ribbon seperti ini tidak akan bekerja jika security macro 
di-disable oleh user.
 Sampai sini ---
Simpulannya :
>> Anda tidak butuh CustomUI Editor untuk bisa menampikan ribbon yang custom 
>> dimanapun komputernya, selama workbook nya sudah diisi dengan .xml file yang 
>> berisi definisi ribbon yang custom tadi.
>> CustomUI ed

RE: [belajar-excel] Disable right click di tab sheet dan menu bar

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Terima kasih Mr. Kid.

1.  Klik kanan di tab sheet karena di situ ada view code, yang saya pikir 
sebaiknya disembunyikan supaya tidak merubah code vba nya. Itu saja khususnya.

2.  Adakah code VBA untuk membuat menu sendiri dan menyembunyikan built-in 
menu excel ? Karena kalau install UI editor, maka kalau di pakai di computer 
lain, mungkin tidak bisa karena harus install dulu. Soalnya file saya ini mau 
di pakai oleh beberapa orang dengan computer berbeda.

Terima kasih sebelumnya.
Wassalam.
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, January 15, 2016 5:42 PM
To: BeExcel
Subject: Re: [belajar-excel] Disable right click di tab sheet dan menu bar


Hai Tio,
1. Boleh tahu kenapa kok tidak boleh klik kanan di tab Sheet ?
2. Ribbon di Excel ?
Mas Nang Agus sudah membuat coretan tentang hal ini di blog milis. Mulai 
darisini.
Mampir-mampirlah ke blog milis. Kan kalau ada yang ingin ditanyakan dari 
coretan yang ada, bisa dilakukan di milis... jadi ndak terlalu repot karena 
bisa langsung tanya ke penulisnya.




2016-01-15 9:26 GMT+07:00 Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:


Salam Excel Expert,

Saya mau bertanya :

1.  Bagaimana code vba untuk disable right click di tab sheet ?

2.  Adakah code vba untuk menon-aktifkan menu bar dan command bar di excel 
hanya di 1 workbook yang dituju ? dan memunculkan dengan menu sendiri ?

Saya sudah cari di google, tapi tidak berhasil-berhasil juga.



Terima kasih bantuannya. Semoga Tuhan YME membalasnya.

Amiin.



Salam,

Tio

RE: [belajar-excel] Disable right click di tab sheet dan menu bar

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Oya, saya sudah mengerti. Terima kasih sekali lagi Pak Hendrik.






From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, January 15, 2016 5:16 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Disable right click di tab sheet dan menu bar


Seingat saya Codenya ditulis di Custom UI (hrs diinstal dulu)
Coba ikuti langkah2nyamaaf saya jarang main Custom UI, jadi sementara blm 
bisa jawab.

Salam,
HK

From: "Tio Adi Bayu Adjie tio.ad...@ptssb.co.id 
[belajar-excel]" 
mailto:belajar-excel@yahoogroups.com>>
To: belajar-excel@yahoogroups.com
Sent: Friday, 15 January 2016, 16:15
Subject: RE: [belajar-excel] Disable right click di tab sheet dan menu bar


Dear Pak Hendrik,
Adakah langkah-langkah dalam penulisan custom UI part code ?
Dimana saya menulis code UI spt dibawah ini  ?

http://schemas.microsoft.com/office/2006/01/customui";>









Terima kasih jawabannya.



Regards,
Tio

From: belajar-excel@yahoogroups.com 
[mailto:belajar-excel@yahoogroups.com]
Sent: Friday, January 15, 2016 2:35 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] Disable right click di tab sheet dan menu bar


Pak Hendrik, kok tidak ada lampirannya yah ? Maaf.





From: belajar-excel@yahoogroups.com 
[mailto:belajar-excel@yahoogroups.com]
Sent: Friday, January 15, 2016 2:25 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Disable right click di tab sheet dan menu bar


Hai Tio,
Coba lihat file/folder terlampir,
1. Ga bisa diklik kanan dan Cut,Copy ga bisa diPaste
2. Folder Ribbon Change yang berisi link untuk membuat menu sendiri serta 
contoh2nya.

Ini saya dapat dari milis dan internet.

Salam,
HK

From: "Tio Adi Bayu Adjie tio.ad...@ptssb.co.id 
[belajar-excel]" 
mailto:belajar-excel@yahoogroups.com>>
To: belajar-excel@yahoogroups.com
Sent: Friday, 15 January 2016, 9:26
Subject: [belajar-excel] Disable right click di tab sheet dan menu bar


Salam Excel Expert,
Saya mau bertanya :
1.  Bagaimana code vba untuk disable right click di tab sheet ?
2.  Adakah code vba untuk menon-aktifkan menu bar dan command bar di excel 
hanya di 1 workbook yang dituju ? dan memunculkan dengan menu sendiri ?
Saya sudah cari di google, tapi tidak berhasil-berhasil juga.

Terima kasih bantuannya. Semoga Tuhan YME membalasnya.
Amiin.

Salam,
Tio

RE: [belajar-excel] Disable right click di tab sheet dan menu bar

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Dear Pak Hendrik,
Adakah langkah-langkah dalam penulisan custom UI part code ?
Dimana saya menulis code UI spt dibawah ini  ?



http://schemas.microsoft.com/office/2006/01/customui";>















Terima kasih jawabannya.



Regards,
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, January 15, 2016 2:35 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] Disable right click di tab sheet dan menu bar


Pak Hendrik, kok tidak ada lampirannya yah ? Maaf.





From: belajar-excel@yahoogroups.com 
[mailto:belajar-excel@yahoogroups.com]
Sent: Friday, January 15, 2016 2:25 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Disable right click di tab sheet dan menu bar


Hai Tio,
Coba lihat file/folder terlampir,
1. Ga bisa diklik kanan dan Cut,Copy ga bisa diPaste
2. Folder Ribbon Change yang berisi link untuk membuat menu sendiri serta 
contoh2nya.

Ini saya dapat dari milis dan internet.

Salam,
HK

From: "Tio Adi Bayu Adjie tio.ad...@ptssb.co.id 
[belajar-excel]" 
mailto:belajar-excel@yahoogroups.com>>
To: belajar-excel@yahoogroups.com
Sent: Friday, 15 January 2016, 9:26
Subject: [belajar-excel] Disable right click di tab sheet dan menu bar


Salam Excel Expert,
Saya mau bertanya :
1.  Bagaimana code vba untuk disable right click di tab sheet ?
2.  Adakah code vba untuk menon-aktifkan menu bar dan command bar di excel 
hanya di 1 workbook yang dituju ? dan memunculkan dengan menu sendiri ?
Saya sudah cari di google, tapi tidak berhasil-berhasil juga.

Terima kasih bantuannya. Semoga Tuhan YME membalasnya.
Amiin.

Salam,
Tio

RE: [belajar-excel] Disable right click di tab sheet dan menu bar

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Pak Hendrik, kok tidak ada lampirannya yah ? Maaf.

Best Regards,
Tio Adi Bayu Adjie
Technical Support Business Services
PT. SANGGAR SARANA BAJA
THE GARDEN CENTRE LT. 5 Suite #.519
Cilandak Commercial Estate
Jl. Raya Cilandak KKO Jakarta 12560
Telp : (021) 29976830 ext. 5254
Fax : Telp : (021) 29976835
Mobile : 082125577485
Email : tio.ad...@ptssb.co.id

[Think Green]

[Foto all unit]

[Logo SSB]




From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, January 15, 2016 2:25 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Disable right click di tab sheet dan menu bar


Hai Tio,
Coba lihat file/folder terlampir,
1. Ga bisa diklik kanan dan Cut,Copy ga bisa diPaste
2. Folder Ribbon Change yang berisi link untuk membuat menu sendiri serta 
contoh2nya.

Ini saya dapat dari milis dan internet.

Salam,
HK

From: "Tio Adi Bayu Adjie tio.ad...@ptssb.co.id 
[belajar-excel]" 
mailto:belajar-excel@yahoogroups.com>>
To: belajar-excel@yahoogroups.com
Sent: Friday, 15 January 2016, 9:26
Subject: [belajar-excel] Disable right click di tab sheet dan menu bar


Salam Excel Expert,
Saya mau bertanya :
1.  Bagaimana code vba untuk disable right click di tab sheet ?
2.  Adakah code vba untuk menon-aktifkan menu bar dan command bar di excel 
hanya di 1 workbook yang dituju ? dan memunculkan dengan menu sendiri ?
Saya sudah cari di google, tapi tidak berhasil-berhasil juga.

Terima kasih bantuannya. Semoga Tuhan YME membalasnya.
Amiin.

Salam,
Tio

RE: [belajar-excel] Re: Disable right click di tab sheet dan menu bar

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Terima kasih mas Tobykenzo,
Saya pakai cara ini :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

Tetapi tetap tidak berhasil, kira-kira adakah yg perlu diperbaiki ?

Terima kasih.





From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, January 15, 2016 1:12 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Re: Disable right click di tab sheet dan menu bar



Dear Tio,



1. Gunakan method "Worksheet_BeforeRightClick"

Untuk meng non aktifkan yg lain gunakan method Application.OnKeys

2. Gunakan Custom UI Editor (sdh pernah di bahas di forum ini) untuk meng non 
aktifkan beberapa custom Ribbon



TerimaKasih.

[belajar-excel] Disable right click di tab sheet dan menu bar

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam Excel Expert,
 Saya mau bertanya :
 1.  Bagaimana code vba untuk disable right click di tab sheet ?
 2.  Adakah code vba untuk menon-aktifkan menu bar dan command bar di excel 
hanya di 1 workbook yang dituju ? dan memunculkan dengan menu sendiri ?
 Saya sudah cari di google, tapi tidak berhasil-berhasil juga.
  
 Terima kasih bantuannya. Semoga Tuhan YME membalasnya.
 Amiin.
  
 Salam,
 Tio
  
  
  
 
 

RE: [belajar-excel] File sharing

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Terima kasih masukannya.
Bagaimana yah setelah file sharing itu diedit oleh banyak orang, pastinya khan 
setelah input data harus di protek lagi ?  Apakah ada solusi protek data 
setelah di input oleh banyak orang di file sharing itu ?

Terima kasih.

Best Regards,
Tio Adi Bayu Adjie
Mobile : 082125577485
Email : tio.ad...@ptssb.co.id





From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Wednesday, December 23, 2015 9:00 AM
To: BExcel
Subject: Re: [belajar-excel] File sharing


Dear Tio,
setahu saya share workbook banyak keterbatasan, misalnya gak bisa: protect 
worksheet, write vba (tapi masih bisa rekam macro kok)
merger center, Conditional formating, create table, insert objec apapun, dll.
untuk membuat sebuah sheet terprotect pada share workbook langkah yang harus 
dilakukan adalah:
1. File jangan berupa share worbook dahulu.
2. Protect sheet yang dibutuhkan, bila perlu gunakan userinterfaceOnly, agar 
dapat menulis pada sheet terprotect menggunakan VBA.
3. ubah file menjadi share workbook.
Jadi sesudah file merupakan ShareWorkbook, maka sudah tidak bisa diprotect 
worksheetnya.
salam
NangAgus

2015-12-23 8:21 GMT+07:00 Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:

Semangat Pagi XL-Expert,
Untuk  file sharing ini, saya kesulitan mem-protek sheet di file sharing ini. 
Saya sudah pakai code vba tapi tetap tidak bekerja.
Seperti dengan memakai code vba :
strFilePathName = "CLS Monitoring Share-3.xlsm"
ActiveWorkbook.ProtectSharing Filename:=strFilePathName, sharingpassword:="1"

Dan unprotek sheet di file sharing dg code :
ActiveWorkbook.UnprotectSharing sharingpassword:="1"

Kira-kira kenapa ya tidak bisa code tersebut, adakah solusinya ?
Saya googling di internet, di file sharing memang tidak bisa di protek/unprotek 
sheet, benarkah ? Adakah solusinya ?

Terima kasih sekali atas bantuannya.

Best Regards,
Tio Adi Bayu Adjie
Email : tio.ad...@ptssb.co.id



From: belajar-excel@yahoogroups.com 
[mailto:belajar-excel@yahoogroups.com]
Sent: Sunday, December 20, 2015 5:31 AM
To: BeExcel
Subject: Re: [belajar-excel] File sharing


Hai Tio,
Tidak ada yang perlu ditambahkan. Bisa jadi, langkah nomor 1 tidak diperlukan. 
Tetapi, bila ingin lebih terasa lebih aman, langkah 1 juga dilakukan. Langkah 2 
adalah unprotect sheet. Langkah 5 adalah protect sheet.
Jika tidak ingin muncul pesan-pesan dari Excel, atur aplikasi Excel properti 
DisplayAlerts menjadi off sebelum langkah 1 dan atur kembali menjadi on setelah 
langkah 5.
Wassalam,
Kid

2015-12-19 8:03 GMT+07:00 Tio Ali 
tioali2...@yahoo.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:

Salam para pakar Excel.
Saya sedang buat file sharing excel dan buat code untuk input data.
Langkah2nya sbb :
1. Save data dulu biar bisa lihat perubahan data yg ter-update
2. Buka protek baris yang mau diisi datanya
3. Buat code untuk input data
4. Save data
5. Protek workbook lagi

Adakah langkah2 saya yang perlu ditambahkan /perlu dikoreksi ?

Terima kasih.
Tio


Dikirim dari Yahoo Mail pada 
Android




-- Forwarded message --
From: dwint ruswanto dwint.ruswa...@gmail.com 
[belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>
Date: 2015-12-14 12:45 GMT+07:00
Subject: [belajar-excel] Mariori - Makanan Ringan Obrolan Ringan Be-Excel
To: belajar-excel@yahoogroups.com

Assalamu'alaikum wr. wb.,

Dear Be-Exceler,

Dalam upaya memperetat silaturahmi dan mendekatkan diri antara member milis 
Belajar Excel, moderator memiliki rencana untuk melakukan pertemuan rutin 2-3 
bulan sekali di luar jadwal Kopdar Millis.

Pertemuan akan dilakukan bergilir di sekitar wilayah Jabodetabek. Lokasi 
diusahakan yang mudah dijangkau oleh kendaraan umum. Tidak ada biaya yang 
dipungut untuk hadir dalam pertemuan ini, karena konsumsi makan dan minum 
ditanggung oleh masing-masing anggota yang hadir.

Jadwal perdana, Insha Allah akan dilaksanakan pada:

Hari/Tanggal : Sabtu, 19 Desember 2015
Jam : 12:00 - selesai
Lokasi  : Starbucks Sarinah, Jl. MH Thamrin, Jakarta Pusat

Undangan ini terbuka untuk seluruh anggota millis Belajar Excel.

Be-Exceler yang Insha Allah sudah menyatakan diri akan hadir adalah:
1. Mr Kid
2. Pak Anton
3. Pak Hendrik Karnadi
4. saya sendiri
5. reserved for pak Aliif :)
6. reserved for Bang Aksan :)
7. 
8. ... dst

Berhubung acara ini bukanlah kopdar, jadi tidak ada materi khusus yang akan 
dibahas dalam bentuk presentasi, tetapi jika ada yang ingin membawa kasus 
silakan disampaikan. Insha Allah akan dicari solusinya bersama-sama.

Ditunggu kehadiran rekan Be-Exceler yang lain.

Wassalamu'alaikum wr. wb.,

dwint

RE: [belajar-excel] File sharing

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Semangat Pagi XL-Expert,
Untuk  file sharing ini, saya kesulitan mem-protek sheet di file sharing ini. 
Saya sudah pakai code vba tapi tetap tidak bekerja.
Seperti dengan memakai code vba :
strFilePathName = "CLS Monitoring Share-3.xlsm"
ActiveWorkbook.ProtectSharing Filename:=strFilePathName, sharingpassword:="1"

Dan unprotek sheet di file sharing dg code :
ActiveWorkbook.UnprotectSharing sharingpassword:="1"

Kira-kira kenapa ya tidak bisa code tersebut, adakah solusinya ?
Saya googling di internet, di file sharing memang tidak bisa di protek/unprotek 
sheet, benarkah ? Adakah solusinya ?

Terima kasih sekali atas bantuannya.

Best Regards,
Tio Adi Bayu Adjie
Email : tio.ad...@ptssb.co.id



From: belajar-excel@yahoogroups.com 
[mailto:belajar-excel@yahoogroups.com]
Sent: Sunday, December 20, 2015 5:31 AM
To: BeExcel
Subject: Re: [belajar-excel] File sharing


Hai Tio,
Tidak ada yang perlu ditambahkan. Bisa jadi, langkah nomor 1 tidak diperlukan. 
Tetapi, bila ingin lebih terasa lebih aman, langkah 1 juga dilakukan. Langkah 2 
adalah unprotect sheet. Langkah 5 adalah protect sheet.
Jika tidak ingin muncul pesan-pesan dari Excel, atur aplikasi Excel properti 
DisplayAlerts menjadi off sebelum langkah 1 dan atur kembali menjadi on setelah 
langkah 5.
Wassalam,
Kid

2015-12-19 8:03 GMT+07:00 Tio Ali 
tioali2...@yahoo.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:

Salam para pakar Excel.
Saya sedang buat file sharing excel dan buat code untuk input data.
Langkah2nya sbb :
1. Save data dulu biar bisa lihat perubahan data yg ter-update
2. Buka protek baris yang mau diisi datanya
3. Buat code untuk input data
4. Save data
5. Protek workbook lagi

Adakah langkah2 saya yang perlu ditambahkan /perlu dikoreksi ?

Terima kasih.
Tio


Dikirim dari Yahoo Mail pada 
Android




-- Forwarded message --
From: dwint ruswanto dwint.ruswa...@gmail.com 
[belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>
Date: 2015-12-14 12:45 GMT+07:00
Subject: [belajar-excel] Mariori - Makanan Ringan Obrolan Ringan Be-Excel
To: belajar-excel@yahoogroups.com

Assalamu'alaikum wr. wb.,

Dear Be-Exceler,

Dalam upaya memperetat silaturahmi dan mendekatkan diri antara member milis 
Belajar Excel, moderator memiliki rencana untuk melakukan pertemuan rutin 2-3 
bulan sekali di luar jadwal Kopdar Millis.

Pertemuan akan dilakukan bergilir di sekitar wilayah Jabodetabek. Lokasi 
diusahakan yang mudah dijangkau oleh kendaraan umum. Tidak ada biaya yang 
dipungut untuk hadir dalam pertemuan ini, karena konsumsi makan dan minum 
ditanggung oleh masing-masing anggota yang hadir.

Jadwal perdana, Insha Allah akan dilaksanakan pada:

Hari/Tanggal : Sabtu, 19 Desember 2015
Jam : 12:00 - selesai
Lokasi  : Starbucks Sarinah, Jl. MH Thamrin, Jakarta Pusat

Undangan ini terbuka untuk seluruh anggota millis Belajar Excel.

Be-Exceler yang Insha Allah sudah menyatakan diri akan hadir adalah:
1. Mr Kid
2. Pak Anton
3. Pak Hendrik Karnadi
4. saya sendiri
5. reserved for pak Aliif :)
6. reserved for Bang Aksan :)
7. 
8. ... dst

Berhubung acara ini bukanlah kopdar, jadi tidak ada materi khusus yang akan 
dibahas dalam bentuk presentasi, tetapi jika ada yang ingin membawa kasus 
silakan disampaikan. Insha Allah akan dicari solusinya bersama-sama.

Ditunggu kehadiran rekan Be-Exceler yang lain.

Wassalamu'alaikum wr. wb.,

dwint

RE: Bls: [belajar-excel] Belajar Makro & VBA

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Hallo Pak Hendrik,
Pak, mohon juga di invite email saya, karena mau belajar Makro dan VBA.

Terima kasih.

Email : tio.ad...@ptssb.co.id





From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, December 22, 2015 10:38 PM
To: belajar-excel@yahoogroups.com
Subject: Re: Bls: [belajar-excel] Belajar Makro & VBA


Hai Haris,
Sdh saya invite.

Salam,
HK


Sent from Samsung Mobile

 Original message 
From: "Rian Sutarsa riansuta...@yahoo.com 
[belajar-excel]"
Date:22/12/2015 5:26 PM (GMT+07:00)
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Belajar Makro VBA


saya juga mau belajar Makro & VBA sungguh :)

Pada Selasa, 22 Desember 2015 13:56, "ris ha 
har1sn.ex...@yahoo.com [belajar-excel]" 
mailto:belajar-excel@yahoogroups.com>> menulis:


Dear Pak Hendrik

Saya juga ingein belajar menggunakan makro. 
har1sn.ex...@yahoo.com

salam
Haris

On Tuesday, December 22, 2015 12:51 PM, "rudhied...@yahoo.com 
[belajar-excel]" 
mailto:belajar-excel@yahoogroups.com>> wrote:


Dear Pak Hendrik

Bolehkan di invited email Saya ?
Saya juga ingein belajar menggunakan makro.

Wassalam

RE: [belajar-excel] File sharing

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Alhamdulillah, semoga Allah SWT membalas kebaikan Mr. Kid. 
 Maaf, saya gak bisa kopdar kemarin karena ada halangan. Maaf sekali. Insya 
Allah di lain waktu. Saya sudah telpon ke Mr. Kid, gak diangkat-angkat.
  
 Best Regards,
 Tio Adi Bayu Adjie
 Technical Support Business Services
 PT. SANGGAR SARANA BAJA
 THE GARDEN CENTRE LT. 5 Suite #.519
 Cilandak Commercial Estate
 Jl. Raya Cilandak KKO Jakarta 12560
 Telp : (021) 29976830 ext. 5254
 Fax : Telp : (021) 29976835
 Mobile : 082125577485
 Email : tio.ad...@ptssb.co.id mailto:stefany.mul...@ptssb.co.id
 
 
 
  
 
  
 From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] 
 Sent: Sunday, December 20, 2015 5:31 AM
 To: BeExcel
 Subject: Re: [belajar-excel] File sharing
 
 
  
   
 Hai Tio,
 
 Tidak ada yang perlu ditambahkan. Bisa jadi, langkah nomor 1 tidak diperlukan. 
Tetapi, bila ingin lebih terasa lebih aman, langkah 1 juga dilakukan. Langkah 2 
adalah unprotect sheet. Langkah 5 adalah protect sheet.
 
 Jika tidak ingin muncul pesan-pesan dari Excel, atur aplikasi Excel properti 
DisplayAlerts menjadi off sebelum langkah 1 dan atur kembali menjadi on setelah 
langkah 5.
 
 Wassalam,
 
 Kid
 
  
 2015-12-19 8:03 GMT+07:00 Tio Ali tioali2...@yahoo.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>:
   
 Salam para pakar Excel.
 Saya sedang buat file sharing excel dan buat code untuk input data.
 
 Langkah2nya sbb :
 
 1. Save data dulu biar bisa lihat perubahan data yg ter-update
 
 2. Buka protek baris yang mau diisi datanya
 
 3. Buat code untuk input data
 
 4. Save data
 
 5. Protek workbook lagi
 
  
 
 Adakah langkah2 saya yang perlu ditambahkan /perlu dikoreksi ?
 
  
 
 Terima kasih. 
 
 Tio
 
  
 Dikirim dari Yahoo Mail pada Android 
https://overview.mail.yahoo.com/mobile/?.src=Android
 
  
 
  
 -- Forwarded message --
 From: dwint ruswanto dwint.ruswa...@gmail.com mailto:dwint.ruswa...@gmail.com 
[belajar-excel] mailto:belajar-excel@yahoogroups.com>
 Date: 2015-12-14 12:45 GMT+07:00
 Subject: [belajar-excel] Mariori - Makanan Ringan Obrolan Ringan Be-Excel
 To: belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com
 
 
   
 Assalamu'alaikum wr. wb.,
  
 
 Dear Be-Exceler,
 
  
 
 Dalam upaya memperetat silaturahmi dan mendekatkan diri antara member milis 
Belajar Excel, moderator memiliki rencana untuk melakukan pertemuan rutin 2-3 
bulan sekali di luar jadwal Kopdar Millis.
 
  
 
 Pertemuan akan dilakukan bergilir di sekitar wilayah Jabodetabek. Lokasi 
diusahakan yang mudah dijangkau oleh kendaraan umum. Tidak ada biaya yang 
dipungut untuk hadir dalam pertemuan ini, karena konsumsi makan dan minum 
ditanggung oleh masing-masing anggota yang hadir. 
 
  
 
 Jadwal perdana, Insha Allah akan dilaksanakan pada:
 
  
 
 Hari/Tanggal : Sabtu, 19 Desember 2015
 
 Jam : 12:00 - selesai
 
 Lokasi  : Starbucks Sarinah, Jl. MH Thamrin, Jakarta Pusat
 
  
 
 Undangan ini terbuka untuk seluruh anggota millis Belajar Excel.
 
  
 
 Be-Exceler yang Insha Allah sudah menyatakan diri akan hadir adalah:
 
 1. Mr Kid
 
 2. Pak Anton
 
 3. Pak Hendrik Karnadi
 
 4. saya sendiri
 
 5. reserved for pak Aliif :)
 
 6. reserved for Bang Aksan :)
 
 7. 
 
 8. ... dst
 
  
 
 Berhubung acara ini bukanlah kopdar, jadi tidak ada materi khusus yang akan 
dibahas dalam bentuk presentasi, tetapi jika ada yang ingin membawa kasus 
silakan disampaikan. Insha Allah akan dicari solusinya bersama-sama.
 
  
 
 Ditunggu kehadiran rekan Be-Exceler yang lain.
 
  
 
 Wassalamu'alaikum wr. wb.,
 
  
 
 dwint
 
  
 
  
 
  
 
  
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
  
 
 
 
 
 
 
 
 
 
 

RE: [belajar-excel] Gridline

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Terima kasih ya Pak Odong…

Best Regards,
Tio Adi Bayu Adjie
Technical Support Business Services
PT. SANGGAR SARANA BAJA
THE GARDEN CENTRE LT. 5 Suite #.519
Cilandak Commercial Estate
Jl. Raya Cilandak KKO Jakarta 12560
Telp : (021) 29976830 ext. 5254
Fax : Telp : (021) 29976835
Mobile : 082125577485
Email : tio.ad...@ptssb.co.id

[Think Green]

[Foto all unit]

[Logo SSB]




From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, December 17, 2015 4:45 PM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Gridline [1 Attachment]


yoo tio,

sepanjang pengetahuan saya itu adalah garis margin, akan muncul setelah kita 
masuk print preview, dan saat keluar dari print preview maka munculah garis 
tersebut. dimana garis margin tersebut adalah batas ahir suatu halaman baik 
atas bawah or kiri kanan. dan sifatnya tidak akan hilang kecuali kita tutup 
file dan keluar dari excel dan membukanya kembali tanpa melakukan print priview.

br,

odong nando

Pada Kamis, 17 Desember 2015 15:04, "Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel]" 
mailto:belajar-excel@yahoogroups.com>> menulis:


Bang Hendrik,
Maaf Bang, saya tidak pakai freeze pane, itu sudah saya lihat. Sebelumnya saya 
pikir itu page break atau print area tapi setelah saya “clear” kan, ternyata 
tidak berpengaruh. Kira2 apa ya master ?

Terima kasih.

Best Regards,
Tio Adi Bayu Adjie





From: belajar-excel@yahoogroups.com 
[mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, December 17, 2015 10:58 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Gridline [1 Attachment]


Hai Tio,

Setahu saya itu adalah "Freeze Pane" mealalu menu View.
Untuk menghilangkannya cukup "Unfreeze Pane", ga perlu VBA.


Salam,
HK

From: "Tio Adi Bayu Adjie tio.ad...@ptssb.co.id 
[belajar-excel]" 
mailto:belajar-excel@yahoogroups.com>>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 17 December 2015, 10:10
Subject: [belajar-excel] Gridline


Dear XL expert,
Maaf mau nanya. Untuk masalah excel dibawah.
[cid:image005.jpg@01D13982.4F6EFAE0]

Terima kasih sekali atas jawabannya. Semoga Tuhan YME membalas kebaikannya.

Regards,
Tio

RE: [belajar-excel] Gridline

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Bang Hendrik,
Maaf Bang, saya tidak pakai freeze pane, itu sudah saya lihat. Sebelumnya saya 
pikir itu page break atau print area tapi setelah saya “clear” kan, ternyata 
tidak berpengaruh. Kira2 apa ya master ?

Terima kasih.

Best Regards,
Tio Adi Bayu Adjie





From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, December 17, 2015 10:58 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Gridline [1 Attachment]


Hai Tio,

Setahu saya itu adalah "Freeze Pane" mealalu menu View.
Untuk menghilangkannya cukup "Unfreeze Pane", ga perlu VBA.


Salam,
HK

From: "Tio Adi Bayu Adjie tio.ad...@ptssb.co.id 
[belajar-excel]" 
mailto:belajar-excel@yahoogroups.com>>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 17 December 2015, 10:10
Subject: [belajar-excel] Gridline


Dear XL expert,
Maaf mau nanya. Untuk masalah excel dibawah.
[cid:image001.jpg@01D138BD.B7476960]

Terima kasih sekali atas jawabannya. Semoga Tuhan YME membalas kebaikannya.

Regards,
Tio

[belajar-excel] Gridline

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Dear XL expert,
Maaf mau nanya. Untuk masalah excel dibawah.
[cid:image001.jpg@01D138B2.3A3B6440]

Terima kasih sekali atas jawabannya. Semoga Tuhan YME membalas kebaikannya.

Regards,
Tio

RE: [belajar-excel] SpreadSheet

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

He..he..he..Inilah yang saya senang dari gaya pengajaran Mr. Kid. Humoris, 
santai, membumi, ngemong tapi mengena ke sasaran, jadi orang yang mau belajar 
Excel gak stress dan tidak antipati. Semoga amal baiknya diterima disisi Tuhan 
YME. Amiin….




Regards,
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Saturday, July 11, 2015 7:47 AM
To: BeExcel
Subject: Re: [belajar-excel] SpreadSheet


Hai Tio,
VBA adalah akronim dari Visual Basic for Applications.
VBA adalah modul otomasi yang disediakan paket MS Office. Jadi VBA ada di Word, 
Powerpoint, Excel, dsb yang ada dalam paket MS Office.
Bahasa pemrograman yang digunakan VBA adalah bahasa Visual Basic
jadi... blablablabla semua sudah tahu hal seperti ini daripada bosen, silakan 
dibaca lagi tentang apa itu VBA dalam MS Office.
Suatu prosedur atau runtime dalam VBA yang tidak memanfaatkan object milik 
aplikasi office tempat si prosedur dibuat, bisa dijalankan di VBA yang 
digunakan di aplikasi office lainnya.

Contoh :
si A membuat sebuah prosedur VBA bernama AktifkanAutofilter di Excel yang 
berisi mengaktifkan autofilter disuatu area data di suatu range. Maka prosedur 
VBA bernama AktifkanAutofilter ini berisi object milik aplikasi office tempat 
dibuatnya, yaitu Excel (punya object milik Excel yang bernama Range dan 
Autofilter). Berarti, prosedur AktifkanAutofilter tidak bisa dijalankan kalau 
tidak bisa mengakses si Excel.

si B yang lebih kurang paham VBA sedang belajar VBA di Excel. Si B membuka 
Excel dan membuat prosedur berisi perkalian 5 dikali 2 yang hasilnya ditulis di 
msgbox. Prosedur si B ini diberi nama BelajarPerKellezan. Bunyinya begini :
public sub BelajarPerKellezan()
 msgbox 5 * 2
end sub
Maka prosedur masterpiece-nya si B ini bisa digunakan di Word, Powerpoint dan 
aplikasi office lainnya, karena object yang dipakai si B ndak ada yang khusus 
hanya dimiliki Excel saja. Cara pakainya harus di copy paste.

si C yang kagum dengan karya si B melakukan penyaduran tingkat tinggi setelah 
berhasil melirik pandang dan menghafalkan bunyi prosedur masterpiece tersebut. 
Lalu si C membuat sendiri dikomputernya dengan membuka Excel dan menulisnya 
disana. Lalu di save as filenya bertipe xlsm atau xlsb (lupa saya, si C waktu 
itu save as apa ya...). Alasannya, agar karya masterpiece tersebut menjadi 
abadi dan bermanfaat bagi banyak orang.
Dengan mantab hati, si C membawa file xlsm atau xlsb tersebut ke si D yang 
masih cupu dan gaptek tapi punya komputer cuanggih yang nganggur. Di copy lah 
disana. Lalu dibukalah file xlsm atau xlsb tersebut dari Windows Explorer nya...
Ternyata yang muncul adalah pesan kebingungan si komputer canggih yang tidak 
bisa membuka file. Periksa punya periksa dengan peluh yang membasahi tubuh, 
akhirnya si C mendapati bahwa komputer si D punya Office tapi lupa tidak 
mencentang Excel agar ter install saat si D minta di-install-ken oleh penjual 
komputernya. Jadinya, officenya ndak punya Excel. Jadi, gagal deh usaha si C 
yang akan menyebarkan manfaat dari masterpiece prosedur tadi...

Gagal 1 bisa jadi gagal 1000 (kalo ndak mau belajar). Dengan tetap semangat, si 
C membawa ke si E. Belajar dari pengalaman, si C tanya dulu ke si E.
'Hai E kompi mu ada spreadsheet nya gak ?', kata si C kepada si E.
si E yang sok keminter dan panatik dengan open source langsung menyahut, 'punya 
dong... bagus dan gratis tanpa membajak pula.'
Maka si C langsung pinjem kompi si E dan copy filenya. Langsung mencoba 
menjalankan prosedur tersebut. Senang hati si C karena berhasil.
Karena berhasil dengan karya si B, si C bergerilya untuk mendapatkan karya si 
A. Setelah berhasil mendapatkannya, si C mencoba dikomputernya dan bisa 
berjalan dengan baik. Data yang ada disuatu range bisa aktif fitur 
autofilternya oleh prosedur karya si A. Maka dibawalah file ini ke si E. Dengan 
berbekal keberhasilan dengan karya si B tempo lalu, si C mulai membuka file 
berisi saduran lengkap karya si A dan menjalankannya di komputer E seperti 
tempo lalu dengan sikap pongah. Tak disangka dan dinyana, ternyata kali ini 
prosedur saduran tersebut tidak bisa dijalankan... Dengan berbekal sebutir pil 
obat pusing pemberian si E, si C pulang ke rumah dan menatapi obat puyeng 
tersebut sampai waktu berbuka tiba dan bisa menenggak pil tersebut.

Pesan moral :
Macro atau VBA code bisa dijalankan di aplikasi office apapun asalkan bisa 
mengakses object yang dibutuhkannya. Kalau tidak bisa mengakses object 
tersebut, maka tidak bisa dijalankan.

;)
Wassalam,
Kid



2015-07-01 9:03 GMT+07:00 Tio Adi Bayu Adjie 
tio.ad...@ptssb.co.id [belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>:

Salam BeExcel,
Mau Tanya, apakah macro atau VBA code bisa dijalankan di Spread Sheet yang 
tidak ada ms Excelnya ?

Terima kasih.
Tio

[belajar-excel] SpreadSheet

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam BeExcel,
Mau Tanya, apakah macro atau VBA code bisa dijalankan di Spread Sheet yang 
tidak ada ms Excelnya ?


Terima kasih.
Tio

RE: [belajar-excel] Menampilkan tanggal dengan format tanggal di userform

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Mas Toby, sudah berhasil, Terima kasih ya…

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, June 23, 2015 12:45 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Menampilkan tanggal dengan format tanggal di 
userform



Dear Tio,

Gunakan method format.
Contoh:
me.textbox2.value = Format(me.textbox1.value,"mm dd ")

bisa jg dgn menggunakan MonthView,tapi aktifkan dulu di toolbox pd vba nya.

TerimaKasih

Sent from Yahoo Mail on 
Android



From: Tio Adi Bayu Adjie tio.ad...@ptssb.co.id 
[belajar-excel] 
mailto:belajar-excel@yahoogroups.com>>;
To: mailto:belajar-excel@yahoogroups.com>>;
Subject: [belajar-excel] Menampilkan tanggal dengan format tanggal di userform
Sent: Tue, Jun 23, 2015 3:52:39 AM


Salam BeExcel,
Mau Tanya, bagaimana untuk input tanggal di form Userform tapi keluarannya 
dengan format tanggal, seperti di excel pada umumnya. Seperti kalau kita input 
di textbox di form Userform adalah 1/1/2015 maka yang keluar adalah 1-jan-2015, 
dst.
Saya sudah cari berkali2 di properties dan format di Userform tapi gak ketemu.

Terima kasih atas bantuannya.

Regards,
Tio

[belajar-excel] Menampilkan tanggal dengan format tanggal di userform

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Salam BeExcel,
Mau Tanya, bagaimana untuk input tanggal di form Userform tapi keluarannya 
dengan format tanggal, seperti di excel pada umumnya. Seperti kalau kita input 
di textbox di form Userform adalah 1/1/2015 maka yang keluar adalah 1-jan-2015, 
dst.
Saya sudah cari berkali2 di properties dan format di Userform tapi gak ketemu.


Terima kasih atas bantuannya.


Regards,
Tio

RE: [belajar-excel] bagaimana membuat warna otomatis berubah

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Mas, Harry, sudah dicoba dengan Conditional Formatting ?






From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Tuesday, June 16, 2015 10:33 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] bagaimana membuat warna otomatis berubah [1 Attachment]



Dear all Senior,

minta tolong,
bagaimana caranya supaya warna otomatis berubah, bila tanggal yang dimasukan 
mendekati/sudah Expired.
60hari sebelum Expired, tanggal berubah Kuning.
bila tanggal expired = tanggal hari ini, berwarna Merah

terimakasih sebelumnya

Regards

Harry Siswanto

RE: [belajar-excel] Data yang sekali muncul

[Tio Adi Bayu Adjie tio.ad...@ptssb.co.id [belajar-excel]]

Maksud saya data uniknya ada 4.
  
 Best Regards,
 Tio Adi Bayu Adjie
 Technical Support Business Services
 PT. SANGGAR SARANA BAJA
 THE GARDEN CENTRE LT. 5 Suite #.519
 Cilandak Commercial Estate
 Jl. Raya Cilandak KKO Jakarta 12560
 Telp : (021) 29976830 ext. 5254
 Fax : Telp : (021) 29976835
 Mobile : 082125577485
 
 
 
  
 
 Phone:
 Fax:
 Mobile:
 Email:
 +6221 4682 7927
 +6221 4682 7925
 +6282125 577 485
 tio.ad...@ptssb.co.id mailto:stefany.mul...@ptssb.co.id
 Address:
 
 
 Website:
 Pulogadung Industrial Estate
 Jl. Rawa Sumur No. 10
 Jakarta 13930
 www.ptssb.co.id http://www.ptssb.co.id
  
  
 From: Tio Adi Bayu Adjie 
 Sent: Friday, June 12, 2015 3:54 PM
 To: 'belajar-excel@yahoogroups.com'
 Subject: RE: [belajar-excel] Data yang sekali muncul
 
 
  
 Lho, khan soalnya ada 3 data unik. Coba lihat di email awal.
 Ini data awalnya.
 1
 2
 3
 4
 4
 3
  
 Best Regards,
 Tio Adi Bayu Adjie
 Technical Support Business Services
 PT. SANGGAR SARANA BAJA
 THE GARDEN CENTRE LT. 5 Suite #.519
 Cilandak Commercial Estate
 Jl. Raya Cilandak KKO Jakarta 12560
 Telp : (021) 29976830 ext. 5254
 Fax : Telp : (021) 29976835
 Mobile : 082125577485
 
 
 
  
 
 Phone:
 Fax:
 Mobile:
 Email:
 +6221 4682 7927
 +6221 4682 7925
 +6282125 577 485
 tio.ad...@ptssb.co.id mailto:stefany.mul...@ptssb.co.id
 Address:
 
 
 Website:
 Pulogadung Industrial Estate
 Jl. Rawa Sumur No. 10
 Jakarta 13930
 www.ptssb.co.id http://www.ptssb.co.id
  
  
 From: belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com 
[mailto:belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com] 
 Sent: Friday, June 12, 2015 3:22 PM
 To: belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com
 Subject: RE: [belajar-excel] Data yang sekali muncul
 
 
  
   
 Terima kasih mas tio atas masukannya
 
  
 
 Tp data yang di munculkan hanya 
 
 1
 
 2
 
  
 
 Jd data yg keluar data unik yg hanya muncul 1x dalam kolom itu
 
  
 
  
 
 Sent from Samsung Mobile