15 New Messages
Digest #2558
1c
Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
1d
Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
1e
Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka [1 A by "hendrik karnadi" hendrikkarnadi
1g
Re: paswword sheet berganti sesuai nama hari dan tanggal dibuka [1 A by "hendrik karnadi" hendrikkarnadi
Messages
Wed Sep 25, 2013 7:34 pm (PDT) . Posted by:
"De Premor" de.premor
mungkin bisa dibuat satu sheet penyimpanan password yang diset very
hidden (jadi yang bisa menampilkannya hanya VBA), dimana setiap kali
selesai ngeset password, passwordnya disimpan disitu, yang mana kemudian
dari situ setiap kali akan mengganti password (meng-Unprotect) tinggal
ambil saja dari sheet tersebut, kemudian ganti dengan pass baru selanjut
password baru di simpan lagi kesitu.
Dim TmpPass as string, NewPass as string, Sht as worksheet, vhari as Variant
vhari=array("Minggu!","Senin@","Selasa#","Rabu$","Kamis%","Jumat^","Sabtu&")
application.screenupdating = false
sheets("SheetPassword").visible = xlsheetvisible
TmpPass = sheets("SheetPassword").range("ZZ999";)
NewPass = vhari( weekday( date ) -1 ) & format$(
date,"DD-MM-YYYY" )
for each Sht in worksheets
Sht.unprotect TmpPass
Sht.protect NewPass
next
sheets("SheetPassword").range("ZZ999";) = NewPass
sheets("SheetPassword").visible = xlsheetveryhidden
application.screenupdating = true
Rgds,
[dp]
On 26-09-2013 8:51, Mr. Kid wrote:
> Wa'alaikumussalam Wr. Wb.
>
> Hai Prazt,
>
> Coba letakkan di event workbook open, pastikan semua sheet gak diproteksi.
>
> dim vHari as variant
> dim sht as worksheet
>
> vhari=array("Minggu!","Senin@","Selasa#","Rabu$","Kamis%","Jumat^","Sabtu&")
> 'ini base 0, alias mulai dari 0
>
>
> for each sht in thisworkbook.worksheets
> sht.unprotect vhari( weekday( date-1 ) -1 ) & format$(
> date-1,"DD-MM-YYYY" )
> sht.protect vhari( weekday( date ) -1 ) & format$( date,"DD-MM-YYYY" )
> next sht
>
> syarat :
> 1. tiap hari dibuka
> 2. tidak boleh buka file jam 23:59:59
>
> hehehe...
> dari situ, nanti bisa dikembangkan untuk menghilangkan 2 syarat itu.
>
> sapa yang mo coba ?
>
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
> 2013/9/26 PRAZT <praztmath@gmail.com <mailto:praztmath@gmail.com>>
>
> Assalammu'alaikum...
>
> dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel
> dengan alur cerita begini;
>
> saya ingin memprotect sheet-sheet pada file excel bisa berganti
> setiap file dibuka dengan kombinasi Hari, karakter(simpul), dan
> tanggal Diana
>
> file dibuka.
>
> bagaimana kode VBA_nya jika pasword tersebut adalah kombinasi nama
> hari,karakter(simbol), dan tanggal pada waktu file di buka
>
> dimana simbol diambil dari nomor hari jika hari dimulai dengan
> hari Minggu
>
> contoh file dibuka pada hari senin tanggal 23 september 2013 maka
> passwordnya adalah ;
>
> Senin@23-09-2013
>
> kalau dibuka hari selasa maka passwordnya Selasa#24-09-2013
>
> kalau dibuka hari Rabu maka passwordnya Rabu$25-09-2013
>
> saya sudah berusaha untuk menambahkan kode-kode VBA tapi mentok
> pada kesulitan. Wassalam...
>
> PRAZTMATH ™
>
>
>
hidden (jadi yang bisa menampilkannya hanya VBA), dimana setiap kali
selesai ngeset password, passwordnya disimpan disitu, yang mana kemudian
dari situ setiap kali akan mengganti password (meng-Unprotect) tinggal
ambil saja dari sheet tersebut, kemudian ganti dengan pass baru selanjut
password baru di simpan lagi kesitu.
Dim TmpPass as string, NewPass as string, Sht as worksheet, vhari as Variant
vhari=array(
application.
sheets("
TmpPass = sheets("
NewPass = vhari( weekday( date ) -1 ) & format$(
date,"DD-
for each Sht in worksheets
Sht.unprotect TmpPass
Sht.protect NewPass
next
sheets("
sheets("
application.
Rgds,
[dp]
On 26-09-2013 8:51, Mr. Kid wrote:
> Wa'alaikumussal
>
> Hai Prazt,
>
> Coba letakkan di event workbook open, pastikan semua sheet gak diproteksi.
>
> dim vHari as variant
> dim sht as worksheet
>
> vhari=array(
> 'ini base 0, alias mulai dari 0
>
>
> for each sht in thisworkbook.
> sht.unprotect vhari( weekday( date-1 ) -1 ) & format$(
> date-1,"
> sht.protect vhari( weekday( date ) -1 ) & format$( date,"DD-
> next sht
>
> syarat :
> 1. tiap hari dibuka
> 2. tidak boleh buka file jam 23:59:59
>
> hehehe...
> dari situ, nanti bisa dikembangkan untuk menghilangkan 2 syarat itu.
>
> sapa yang mo coba ?
>
>
> Wassalamu'
> Kid.
>
>
>
> 2013/9/26 PRAZT <praztmath@gmail.
>
> Assalammu'alaikum.
>
> dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel
> dengan alur cerita begini;
>
> saya ingin memprotect sheet-sheet pada file excel bisa berganti
> setiap file dibuka dengan kombinasi Hari, karakter(simpul)
> tanggal Diana
>
> file dibuka.
>
> bagaimana kode VBA_nya jika pasword tersebut adalah kombinasi nama
> hari,karakter(
>
> dimana simbol diambil dari nomor hari jika hari dimulai dengan
> hari Minggu
>
> contoh file dibuka pada hari senin tanggal 23 september 2013 maka
> passwordnya adalah ;
>
> Senin@23-09-
>
> kalau dibuka hari selasa maka passwordnya Selasa#24-09-
>
> kalau dibuka hari Rabu maka passwordnya Rabu$25-09-2013
>
> saya sudah berusaha untuk menambahkan kode-kode VBA tapi mentok
> pada kesulitan. Wassalam...
>
> PRAZTMATH ™
>
>
>
Wed Sep 25, 2013 7:47 pm (PDT) . Posted by:
"PRAZT" praztmath
Malah tidak jalan mas zainul
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
mungkin yang dimaksud seperti ini ya.
'===================
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")
With Application.WorksheetFunction
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy")
End With
PasswordKu = pwd
End Function
'============================================
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
coba code berikut:
Function PasswordKu_()
Dim pwd As String
With Application.WorksheetFunction
'aturan memberi symbol $ # @ masih belum jelas aturannya
'secara default diberi symbol |
pwd = .Text(Now, "[$-421]ddd|dd-mm-yy")
'mengganti symbol | dengan misal $
pwd = .Substitute(pwd, "|", "$")
End With
PasswordKu_=pwd
End Function
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 8:03 AM
To: group excel
Subject: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]
Assalammu'alaikum...
dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
alur cerita begini;
saya ingin memprotect sheet-sheet pada file excel bisa berganti setiap file
dibuka dengan kombinasi Hari, karakter(simpul), dan tanggal Diana
file dibuka.
bagaimana kode VBA_nya jika pasword tersebut adalah kombinasi nama
hari,karakter(simbol), dan tanggal pada waktu file di
buka
dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
Minggu
contoh file dibuka pada hari senin tanggal 23 september 2013 maka
passwordnya adalah ;
Senin@23-09-2013
kalau dibuka hari selasa maka passwordnya Selasa#24-09-2013
kalau dibuka hari Rabu maka passwordnya Rabu$25-09-2013
saya sudah berusaha untuk menambahkan kode-kode VBA tapi mentok pada
kesulitan. Wassalam...
PRAZTMATH T
From: belajar-excel@
On Behalf Of zainul_ulum[
Sent: 26 September 2013 08:44
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
mungkin yang dimaksud seperti ini ya.
'=======
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("
With Application.
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]
End With
PasswordKu = pwd
End Function
'=======
From: belajar-excel@
[mailto:belajar-excel@
On Behalf Of zainul_ulum[
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
coba code berikut:
Function PasswordKu_(
Dim pwd As String
With Application.
'aturan memberi symbol $ # @ masih belum jelas aturannya
'secara default diberi symbol |
pwd = .Text(Now, "[$-421]
'mengganti symbol | dengan misal $
pwd = .Substitute(
End With
PasswordKu_=
End Function
From: belajar-excel@
[mailto:belajar-excel@
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 8:03 AM
To: group excel
Subject: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]
Assalammu'
dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
alur cerita begini;
saya ingin memprotect sheet-sheet pada file excel bisa berganti setiap file
dibuka dengan kombinasi Hari, karakter(simpul)
file dibuka.
bagaimana kode VBA_nya jika pasword tersebut adalah kombinasi nama
hari,karakter(
buka
dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
Minggu
contoh file dibuka pada hari senin tanggal 23 september 2013 maka
passwordnya adalah ;
Senin@23-09-
kalau dibuka hari selasa maka passwordnya Selasa#24-09-
kalau dibuka hari Rabu maka passwordnya Rabu$25-09-2013
saya sudah berusaha untuk menambahkan kode-kode VBA tapi mentok pada
kesulitan. Wassalam...
PRAZTMATH T
Wed Sep 25, 2013 8:35 pm (PDT) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
maaf sekali kalo nggak bisa,
seharusnya sih bisa karena fungsi tersebut saya coba di excel saya, tidak
masalah
coba diganti
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") 'ada spasi
di depan dd
menjadi
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yy") 'spasi
dihilangkan
wassalam
-zainul-
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Malah tidak jalan mas zainul
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
mungkin yang dimaksud seperti ini ya…
'===================
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")
With Application.WorksheetFunction
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy")
End With
PasswordKu = pwd
End Function
'============================================
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
coba code berikut:
Function PasswordKu_()
Dim pwd As String
With Application.WorksheetFunction
'aturan memberi symbol $ # @ masih belum jelas aturannya
'secara default diberi symbol |
pwd = .Text(Now, "[$-421]ddd|dd-mm-yy")
'mengganti symbol | dengan misal $
pwd = .Substitute(pwd, "|", "$")
End With
PasswordKu_=pwd
End Function
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 8:03 AM
To: group excel
Subject: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]
Assalammu'alaikum...
dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
alur cerita begini;
saya ingin memprotect sheet-sheet pada file excel bisa berganti setiap file
dibuka dengan kombinasi Hari, karakter(simpul), dan tanggal Diana
file dibuka.
bagaimana kode VBA_nya jika pasword tersebut adalah kombinasi nama
hari,karakter(simbol), dan tanggal pada waktu file di
buka
dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
Minggu
contoh file dibuka pada hari senin tanggal 23 september 2013 maka
passwordnya adalah ;
Senin@23-09-2013
kalau dibuka hari selasa maka passwordnya Selasa#24-09-2013
kalau dibuka hari Rabu maka passwordnya Rabu$25-09-2013
saya sudah berusaha untuk menambahkan kode-kode VBA tapi mentok pada
kesulitan. Wassalam...
PRAZTMATH ™
seharusnya sih bisa karena fungsi tersebut saya coba di excel saya, tidak
masalah
coba diganti
pwd = .Text(Now, "[$-421]
di depan dd
menjadi
pwd = .Text(Now, "[$-421]
dihilangkan
wassalam
-zainul-
From: belajar-excel@
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Malah tidak jalan mas zainul
From: belajar-excel@
On Behalf Of zainul_ulum[
Sent: 26 September 2013 08:44
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
mungkin yang dimaksud seperti ini ya…
'============
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("
With Application.
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]
End With
PasswordKu = pwd
End Function
'============
From: belajar-excel@
On Behalf Of zainul_ulum[
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
coba code berikut:
Function PasswordKu_(
Dim pwd As String
With Application.
'aturan memberi symbol $ # @ masih belum jelas aturannya
'secara default diberi symbol |
pwd = .Text(Now, "[$-421]
'mengganti symbol | dengan misal $
pwd = .Substitute(
End With
PasswordKu_=
End Function
From: belajar-excel@
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 8:03 AM
To: group excel
Subject: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]
Assalammu'alaikum.
dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
alur cerita begini;
saya ingin memprotect sheet-sheet pada file excel bisa berganti setiap file
dibuka dengan kombinasi Hari, karakter(simpul)
file dibuka.
bagaimana kode VBA_nya jika pasword tersebut adalah kombinasi nama
hari,karakter(
buka
dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
Minggu
contoh file dibuka pada hari senin tanggal 23 september 2013 maka
passwordnya adalah ;
Senin@23-09-
kalau dibuka hari selasa maka passwordnya Selasa#24-09-
kalau dibuka hari Rabu maka passwordnya Rabu$25-09-2013
saya sudah berusaha untuk menambahkan kode-kode VBA tapi mentok pada
kesulitan. Wassalam...
PRAZTMATH ™
Wed Sep 25, 2013 8:47 pm (PDT) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
terlampir file yang sudah saya coba...
-----Original Message-----
From: zainul_ulum[at]yahoo[dot]com [mailto:zainul_ulum@yahoo.com]
Sent: Thursday, September 26, 2013 10:35 AM
To: 'belajar-excel@yahoogroups.com'
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
maaf sekali kalo nggak bisa,
seharusnya sih bisa karena fungsi tersebut saya coba di excel saya, tidak
masalah
coba diganti
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") 'ada spasi
di depan dd
menjadi
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yy") 'spasi
dihilangkan
wassalam
-zainul-
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Malah tidak jalan mas zainul
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
mungkin yang dimaksud seperti ini ya…
'===================
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")
With Application.WorksheetFunction
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") End With
PasswordKu = pwd End Function '============================================
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
coba code berikut:
Function PasswordKu_()
Dim pwd As String
With Application.WorksheetFunction
'aturan memberi symbol $ # @ masih belum jelas aturannya 'secara default
diberi symbol |
pwd = .Text(Now, "[$-421]ddd|dd-mm-yy")
'mengganti symbol | dengan misal $
pwd = .Substitute(pwd, "|", "$")
End With
PasswordKu_=pwd
End Function
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 8:03 AM
To: group excel
Subject: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]
Assalammu'alaikum...
dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
alur cerita begini; saya ingin memprotect sheet-sheet pada file excel bisa
berganti setiap file dibuka dengan kombinasi Hari, karakter(simpul), dan
tanggal Diana file dibuka. bagaimana kode VBA_nya jika pasword tersebut
adalah kombinasi nama hari,karakter(simbol), dan tanggal pada waktu file di
buka dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
Minggu contoh file dibuka pada hari senin tanggal 23 september 2013 maka
passwordnya adalah ;
Senin@23-09-2013 kalau dibuka hari selasa maka passwordnya
Selasa#24-09-2013 kalau dibuka hari Rabu maka passwordnya
Rabu$25-09-2013 saya sudah berusaha untuk menambahkan kode-kode VBA tapi
mentok pada kesulitan. Wassalam...
PRAZTMATH ™
-----Original Message-----
From: zainul_ulum[
Sent: Thursday, September 26, 2013 10:35 AM
To: 'belajar-
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
maaf sekali kalo nggak bisa,
seharusnya sih bisa karena fungsi tersebut saya coba di excel saya, tidak
masalah
coba diganti
pwd = .Text(Now, "[$-421]
di depan dd
menjadi
pwd = .Text(Now, "[$-421]
dihilangkan
wassalam
-zainul-
From: belajar-excel@
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Malah tidak jalan mas zainul
From: belajar-excel@
On Behalf Of zainul_ulum[
Sent: 26 September 2013 08:44
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
mungkin yang dimaksud seperti ini ya…
'============
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("
With Application.
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]
PasswordKu = pwd End Function '============
From: belajar-excel@
On Behalf Of zainul_ulum[
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
coba code berikut:
Function PasswordKu_(
Dim pwd As String
With Application.
'aturan memberi symbol $ # @ masih belum jelas aturannya 'secara default
diberi symbol |
pwd = .Text(Now, "[$-421]
'mengganti symbol | dengan misal $
pwd = .Substitute(
End With
PasswordKu_=
End Function
From: belajar-excel@
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 8:03 AM
To: group excel
Subject: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]
Assalammu'alaikum.
dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
alur cerita begini; saya ingin memprotect sheet-sheet pada file excel bisa
berganti setiap file dibuka dengan kombinasi Hari, karakter(simpul)
tanggal Diana file dibuka. bagaimana kode VBA_nya jika pasword tersebut
adalah kombinasi nama hari,karakter(
buka dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
Minggu contoh file dibuka pada hari senin tanggal 23 september 2013 maka
passwordnya adalah ;
Senin@23-09-
Selasa#24-09-
Rabu$25-09-2013 saya sudah berusaha untuk menambahkan kode-kode VBA tapi
mentok pada kesulitan. Wassalam...
PRAZTMATH ™
Wed Sep 25, 2013 9:29 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Untuk hari ini passwordnya:
Kamis$26-09-13
sdh OK.
Salam,
HK
________________________________
From: zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 26 September 2013, 10:47
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka [1 Attachment]
Â
terlampir file yang sudah saya coba...
-----Original Message-----
From: zainul_ulum[at]yahoo[dot]com [mailto:zainul_ulum@yahoo.com]
Sent: Thursday, September 26, 2013 10:35 AM
To: 'belajar-excel@yahoogroups.com'
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
maaf sekali kalo nggak bisa,
seharusnya sih bisa karena fungsi tersebut saya coba di excel saya, tidak
masalah
coba diganti
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") 'ada spasi
di depan dd
menjadi
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yy") 'spasi
dihilangkan
wassalam
-zainul-
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Â
Malah tidak jalan mas zainul
Â
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Â
Â
mungkin yang dimaksud seperti ini ya…
‘===================
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")
With Application.WorksheetFunction
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") End With
PasswordKu = pwd End Function ‘============================================
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Â
coba code berikut:
Function PasswordKu_()
Dim pwd As String
With Application.WorksheetFunction
'aturan memberi symbol $ # @ masih belum jelas aturannya 'secara default
diberi symbol |
pwd = .Text(Now, "[$-421]ddd|dd-mm-yy")
'mengganti symbol | dengan misal $
pwd = .Substitute(pwd, "|", "$")
End With
PasswordKu_=pwd
End Function
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 8:03 AM
To: group excel
Subject: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]
Assalammu’alaikum...
dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
alur cerita begini; saya ingin memprotect sheet-sheet pada file excel bisa
berganti setiap file dibuka dengan kombinasi Hari, karakter(simpul), dan
tanggal Diana file dibuka. bagaimana kode VBA_nya jika pasword tersebut
adalah kombinasi nama hari,karakter(simbol), dan tanggal pada waktu file di
buka dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
Minggu contoh file dibuka pada hari senin tanggal 23 september 2013 maka
passwordnya adalah ;
Senin@23-09-2013 kalau dibuka hari selasa maka passwordnya  Â
Selasa#24-09-2013 kalau dibuka hari Rabu maka passwordnya   Â
Rabu$25-09-2013 saya sudah berusaha untuk menambahkan kode-kode VBA tapi
mentok pada kesulitan. Wassalam...
PRAZTMATH â„¢
Kamis$26-09-
sdh OK.
Salam,
HK
____________
From: zainul_ulum[
To: belajar-excel@
Sent: Thursday, 26 September 2013, 10:47
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka [1 Attachment]
Â
terlampir file yang sudah saya coba...
-----Original Message-----
From: zainul_ulum[
Sent: Thursday, September 26, 2013 10:35 AM
To: 'belajar-
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
maaf sekali kalo nggak bisa,
seharusnya sih bisa karena fungsi tersebut saya coba di excel saya, tidak
masalah
coba diganti
pwd = .Text(Now, "[$-421]
di depan dd
menjadi
pwd = .Text(Now, "[$-421]
dihilangkan
wassalam
-zainul-
From: belajar-excel@
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Â
Malah tidak jalan mas zainul
Â
From: belajar-excel@
On Behalf Of zainul_ulum[
Sent: 26 September 2013 08:44
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Â
Â
mungkin yang dimaksud seperti ini ya…
‘============
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("
With Application.
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]
PasswordKu = pwd End Function ‘============
From: belajar-excel@
On Behalf Of zainul_ulum[
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Â
coba code berikut:
Function PasswordKu_(
Dim pwd As String
With Application.
'aturan memberi symbol $ # @ masih belum jelas aturannya 'secara default
diberi symbol |
pwd = .Text(Now, "[$-421]
'mengganti symbol | dengan misal $
pwd = .Substitute(
End With
PasswordKu_=
End Function
From: belajar-excel@
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 8:03 AM
To: group excel
Subject: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]
Assalammu’alaikum...
dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
alur cerita begini; saya ingin memprotect sheet-sheet pada file excel bisa
berganti setiap file dibuka dengan kombinasi Hari, karakter(simpul)
tanggal Diana file dibuka. bagaimana kode VBA_nya jika pasword tersebut
adalah kombinasi nama hari,karakter(
buka dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
Minggu contoh file dibuka pada hari senin tanggal 23 september 2013 maka
passwordnya adalah ;
Senin@23-09-
Selasa#24-09-
Rabu$25-09-2013 saya sudah berusaha untuk menambahkan kode-kode VBA tapi
mentok pada kesulitan. Wassalam...
PRAZTMATH â„¢
Wed Sep 25, 2013 10:23 pm (PDT) . Posted by:
"PRAZT" praztmath
Jika saya saya modifikasi seperti file terlampir terus file saya tutup dan
dibuka lagi kok passwordnya masih
"Kamis$26-09-13"(tanpa tanda petik) yang seharusnya "Kamis$26-09-2013", jadi
pada intinya password tidak bisa berubah sebelum paswordnya di Unprotect
dulu...mohon penjelasa mas Zainul.
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 10:47
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]
terlampir file yang sudah saya coba...
-----Original Message-----
From: zainul_ulum[at]yahoo[dot]com [mailto:zainul_ulum@yahoo.com]
Sent: Thursday, September 26, 2013 10:35 AM
To: 'belajar-excel@yahoogroups.com'
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
maaf sekali kalo nggak bisa,
seharusnya sih bisa karena fungsi tersebut saya coba di excel saya, tidak
masalah
coba diganti
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") 'ada spasi
di depan dd
menjadi
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yy") 'spasi
dihilangkan
wassalam
-zainul-
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Malah tidak jalan mas zainul
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
mungkin yang dimaksud seperti ini ya.
'===================
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")
With Application.WorksheetFunction
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") End With
PasswordKu = pwd End Function '============================================
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
coba code berikut:
Function PasswordKu_()
Dim pwd As String
With Application.WorksheetFunction
'aturan memberi symbol $ # @ masih belum jelas aturannya 'secara default
diberi symbol |
pwd = .Text(Now, "[$-421]ddd|dd-mm-yy")
'mengganti symbol | dengan misal $
pwd = .Substitute(pwd, "|", "$")
End With
PasswordKu_=pwd
End Function
From: belajar-excel@yahoogroups.com <mailto:belajar-excel@yahoogroups.com>
[mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 8:03 AM
To: group excel
Subject: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]
Assalammu'alaikum...
dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
alur cerita begini; saya ingin memprotect sheet-sheet pada file excel bisa
berganti setiap file dibuka dengan kombinasi Hari, karakter(simpul), dan
tanggal Diana file dibuka. bagaimana kode VBA_nya jika pasword tersebut
adalah kombinasi nama hari,karakter(simbol), dan tanggal pada waktu file di
buka dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
Minggu contoh file dibuka pada hari senin tanggal 23 september 2013 maka
passwordnya adalah ;
Senin@23-09-2013 kalau dibuka hari selasa maka passwordnya
Selasa#24-09-2013 kalau dibuka hari Rabu maka passwordnya
Rabu$25-09-2013 saya sudah berusaha untuk menambahkan kode-kode VBA tapi
mentok pada kesulitan. Wassalam...
PRAZTMATH T
dibuka lagi kok passwordnya masih
"Kamis$
pada intinya password tidak bisa berubah sebelum paswordnya di Unprotect
dulu...mohon penjelasa mas Zainul.
From: belajar-excel@
On Behalf Of zainul_ulum[
Sent: 26 September 2013 10:47
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]
terlampir file yang sudah saya coba...
-----Original Message-----
From: zainul_ulum[
Sent: Thursday, September 26, 2013 10:35 AM
To: 'belajar-
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
maaf sekali kalo nggak bisa,
seharusnya sih bisa karena fungsi tersebut saya coba di excel saya, tidak
masalah
coba diganti
pwd = .Text(Now, "[$-421]
di depan dd
menjadi
pwd = .Text(Now, "[$-421]
dihilangkan
wassalam
-zainul-
From: belajar-excel@
[mailto:belajar-excel@
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Malah tidak jalan mas zainul
From: belajar-excel@
[mailto:belajar-excel@
On Behalf Of zainul_ulum[
Sent: 26 September 2013 08:44
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
mungkin yang dimaksud seperti ini ya.
'=======
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("
With Application.
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]
PasswordKu = pwd End Function '=======
From: belajar-excel@
[mailto:belajar-excel@
On Behalf Of zainul_ulum[
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
coba code berikut:
Function PasswordKu_(
Dim pwd As String
With Application.
'aturan memberi symbol $ # @ masih belum jelas aturannya 'secara default
diberi symbol |
pwd = .Text(Now, "[$-421]
'mengganti symbol | dengan misal $
pwd = .Substitute(
End With
PasswordKu_=
End Function
From: belajar-excel@
[mailto:belajar-excel@
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 8:03 AM
To: group excel
Subject: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]
Assalammu'
dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
alur cerita begini; saya ingin memprotect sheet-sheet pada file excel bisa
berganti setiap file dibuka dengan kombinasi Hari, karakter(simpul)
tanggal Diana file dibuka. bagaimana kode VBA_nya jika pasword tersebut
adalah kombinasi nama hari,karakter(
buka dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
Minggu contoh file dibuka pada hari senin tanggal 23 september 2013 maka
passwordnya adalah ;
Senin@23-09-
Selasa#24-09-
Rabu$25-09-2013 saya sudah berusaha untuk menambahkan kode-kode VBA tapi
mentok pada kesulitan. Wassalam...
PRAZTMATH T
Wed Sep 25, 2013 10:33 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Ikutan njawab.
Barangkali karena kelbihan sau "y".
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yyyyy")
Salam,
HK
________________________________
From: PRAZT <praztmath@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 26 September 2013, 12:23
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka [1 Attachment]
Â
Jika saya saya modifikasi seperti file terlampirterus file saya tutup dan dibuka lagi kok passwordnya masih
“Kamis$26-09-13â€(tanpa tanda petik) yang seharusnya “Kamis$26-09-2013â€, jadi pada intinya password tidak bisa berubah sebelum paswordnya di Unprotect dulu...mohon penjelasa mas Zainul.
Â
From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 10:47
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka [1 Attachment]
Â
Â
terlampir file yang sudah saya coba...
-----Original Message-----
From: zainul_ulum[at]yahoo[dot]com [mailto:zainul_ulum@yahoo.com]
Sent: Thursday, September 26, 2013 10:35 AM
To: 'belajar-excel@yahoogroups.com'
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
maaf sekali kalo nggak bisa,
seharusnya sih bisa karena fungsi tersebut saya coba di excel saya, tidak
masalah
coba diganti
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") 'ada spasi
di depan dd
menjadi
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & "dd-mm-yy") 'spasi
dihilangkan
wassalam
-zainul-
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Â
Malah tidak jalan mas zainul
Â
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 September 2013 08:44
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Â
Â
mungkin yang dimaksud seperti ini ya…
‘===================
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("!", "@", "#", "$", "%", "^", "&")
With Application.WorksheetFunction
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]ddd" & arrSymbol(i - 1) & " dd-mm-yy") End With
PasswordKu = pwd End Function ‘============================================
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Â
coba code berikut:
Function PasswordKu_()
Dim pwd As String
With Application.WorksheetFunction
'aturan memberi symbol $ # @ masih belum jelas aturannya 'secara default
diberi symbol |
pwd = .Text(Now, "[$-421]ddd|dd-mm-yy")
'mengganti symbol | dengan misal $
pwd = .Substitute(pwd, "|", "$")
End With
PasswordKu_=pwd
End Function
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 8:03 AM
To: group excel
Subject: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]
Assalammu’alaikum...
dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
alur cerita begini; saya ingin memprotect sheet-sheet pada file excel bisa
berganti setiap file dibuka dengan kombinasi Hari, karakter(simpul), dan
tanggal Diana file dibuka. bagaimana kode VBA_nya jika pasword tersebut
adalah kombinasi nama hari,karakter(simbol), dan tanggal pada waktu file di
buka dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
Minggu contoh file dibuka pada hari senin tanggal 23 september 2013 maka
passwordnya adalah ;
Senin@23-09-2013 kalau dibuka hari selasa maka passwordnya  Â
Selasa#24-09-2013 kalau dibuka hari Rabu maka passwordnya   Â
Rabu$25-09-2013 saya sudah berusaha untuk menambahkan kode-kode VBA tapi
mentok pada kesulitan. Wassalam...
PRAZTMATH â„¢
Barangkali karena kelbihan sau "y"
pwd = .Text(Now, "[$-421]
Salam,
HK
____________
From: PRAZT <praztmath@gmail.
To: belajar-excel@
Sent: Thursday, 26 September 2013, 12:23
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka [1 Attachment]
Â
Jika saya saya modifikasi seperti file terlampirterus file saya tutup dan dibuka lagi kok passwordnya masih
“Kamis$26-09-
Â
From:belajar-excel@
Sent: 26 September 2013 10:47
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan tanggal dibuka [1 Attachment]
Â
Â
terlampir file yang sudah saya coba...
-----Original Message-----
From: zainul_ulum[
Sent: Thursday, September 26, 2013 10:35 AM
To: 'belajar-
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
maaf sekali kalo nggak bisa,
seharusnya sih bisa karena fungsi tersebut saya coba di excel saya, tidak
masalah
coba diganti
pwd = .Text(Now, "[$-421]
di depan dd
menjadi
pwd = .Text(Now, "[$-421]
dihilangkan
wassalam
-zainul-
From: belajar-excel@
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 9:47 AM
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Â
Malah tidak jalan mas zainul
Â
From: belajar-excel@
On Behalf Of zainul_ulum[
Sent: 26 September 2013 08:44
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Â
Â
mungkin yang dimaksud seperti ini ya…
‘============
Function PasswordKu()
Dim pwd As String, i As Integer
Dim arrSymbol As Variant
arrSymbol = Array("
With Application.
i = .Weekday(Now, 2)
pwd = .Text(Now, "[$-421]
PasswordKu = pwd End Function ‘============
From: belajar-excel@
On Behalf Of zainul_ulum[
Sent: Thursday, September 26, 2013 8:35 AM
To: belajar-excel@
Subject: RE: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka
Â
coba code berikut:
Function PasswordKu_(
Dim pwd As String
With Application.
'aturan memberi symbol $ # @ masih belum jelas aturannya 'secara default
diberi symbol |
pwd = .Text(Now, "[$-421]
'mengganti symbol | dengan misal $
pwd = .Substitute(
End With
PasswordKu_=
End Function
From: belajar-excel@
On Behalf Of PRAZT
Sent: Thursday, September 26, 2013 8:03 AM
To: group excel
Subject: [belajar-excel] paswword sheet berganti sesuai nama hari dan
tanggal dibuka [1 Attachment]
Assalammu’alaikum...
dear master dan suhu, saya kesulitan lagi tentang VBA untuk excel dengan
alur cerita begini; saya ingin memprotect sheet-sheet pada file excel bisa
berganti setiap file dibuka dengan kombinasi Hari, karakter(simpul)
tanggal Diana file dibuka. bagaimana kode VBA_nya jika pasword tersebut
adalah kombinasi nama hari,karakter(
buka dimana simbol diambil dari nomor hari jika hari dimulai dengan hari
Minggu contoh file dibuka pada hari senin tanggal 23 september 2013 maka
passwordnya adalah ;
Senin@23-09-
Selasa#24-09-
Rabu$25-09-2013 saya sudah berusaha untuk menambahkan kode-kode VBA tapi
mentok pada kesulitan. Wassalam...
PRAZTMATH â„¢
Wed Sep 25, 2013 8:11 pm (PDT) . Posted by:
"Andy Ajhis Ramadhan" andy_ajhis37
Asslamu allaikum, wr wb
Be-Exceller
Bagaimana perumusan nilai tambah pada VBA developer ?
Private Sub CommandButton1_
Range("
TextBox4 = Range("
End Sub
file terlampir...
Wassalamu allaikum, wr wb
Andy
Wed Sep 25, 2013 8:22 pm (PDT) . Posted by:
"Jan Raisin"
æóÚóáóíúßõãõ áÓóøáÇóãõ æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
coba nyekripnya pakai rasa cinta xixixix ^_^
Range("C6") = CInt(TextBox2.Value) + CInt(TextBox3.Value)
æóÓóøáÇóãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
-Miss Jan Raisin-
Pada 26 September 2013 09.35, Andy Ajhis Ramadhan <
andyajhisramadhan@ymail.com> menulis:
> **
>
>
>
> Asslamu allaikum, wr wb
> Be-Exceller
>
> Bagaimana perumusan nilai tambah pada VBA developer ?
>
> Private Sub CommandButton1_Click()
> Range("C6") = (TextBox2.Value + TextBox3.Value) 'Nilai Plus disamping
> malah error, misal : 4 + 4 = 44, tetapi kalau diganti * atau / hasilnya
> tidak masalah.
> TextBox4 = Range("C6").Value
> End Sub
>
> file terlampir.... mohon bantuannya master. Terima Kasih
>
> Wassalamu allaikum, wr wb
> Andy
>
> _
>
coba nyekripnya pakai rasa cinta xixixix ^_^
Range("
æóÓóøáÇóãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
-Miss Jan Raisin-
Pada 26 September 2013 09.35, Andy Ajhis Ramadhan <
andyajhisramadhan@
> **
>
>
>
> Asslamu allaikum, wr wb
> Be-Exceller
>
> Bagaimana perumusan nilai tambah pada VBA developer ?
>
> Private Sub CommandButton1_
> Range("
> malah error, misal : 4 + 4 = 44, tetapi kalau diganti * atau / hasilnya
> tidak masalah.
> TextBox4 = Range("
> End Sub
>
> file terlampir...
>
> Wassalamu allaikum, wr wb
> Andy
>
> _
>
Wed Sep 25, 2013 8:36 pm (PDT) . Posted by:
"Andy Ajhis Ramadhan" andy_ajhis37
Wah terima kasih banyak miss jan :D miss jan Thanks You...
hehee gak jadi patah semangat deh, buat belajar lagi... kapan-kapan andy teraktir bakso Xiaa ^_^ xixixi
Terima Kasih Allah, kemudian Trima kasih Be-Exceller, Terima Kasih Miss Jan.
Salam,
Andy Ajhis R
----- Pesan yang Diteruskan -----
Dari: Jan Raisin <miss.jan.raisin@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 26 September 2013 10:21
Judul: Re: [belajar-excel] Nilai tambah pada VBA developer
Â
 وَعَلَيÙ'ÙƒÙم٠لسَÙ'لاَم٠وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù
coba nyekripnya pakai rasa cinta xixixix ^_^
Range("C6") = CInt(TextBox2.Value)+ CInt(TextBox3.Value)
وَسَÙ'لاَم٠عَلَيÙ'ÙƒÙÙ…Ù' وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù
-Miss Jan Raisin-
Pada 26 September 2013 09.35, Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com> menulis:
>Â
>
>
>Asslamu allaikum, wr wb
>Be-Exceller
>
>
>Bagaimana perumusan nilai tambah pada VBA developer ?
>
>
>Private Sub CommandButton1_Click()
>Range("C6") = (TextBox2.Value + TextBox3.Value) 'Nilai Plus disamping malah error, misal : 4 + 4 = 44, tetapi kalau diganti * atau / hasilnya tidak masalah.
>TextBox4 = Range("C6").Value
>End Sub
>
>
>file terlampir.... mohon bantuannya master. Terima Kasih
>
>
>Wassalamu allaikum, wr wb
>Andy
>_
hehee gak jadi patah semangat deh, buat belajar lagi... kapan-kapan andy teraktir bakso Xiaa ^_^ xixixi
Terima Kasih Allah, kemudian Trima kasih Be-Exceller, Terima Kasih Miss Jan.
Salam,
Andy Ajhis R
----- Pesan yang Diteruskan -----
Dari: Jan Raisin <miss.jan.raisin@
Kepada: belajar-excel@
Dikirim: Kamis, 26 September 2013 10:21
Judul: Re: [belajar-excel] Nilai tambah pada VBA developer
Â
 وَعَلَيÙ'ÙƒÙم٠لسَÙ'لاَم٠وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù
coba nyekripnya pakai rasa cinta xixixix ^_^
Range("
وَسَÙ'لاَم٠عَلَيÙ'ÙƒÙÙ…Ù' وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù
-Miss Jan Raisin-
Pada 26 September 2013 09.35, Andy Ajhis Ramadhan <andyajhisramadhan@
>Â
>
>
>Asslamu allaikum, wr wb
>Be-Exceller
>
>
>Bagaimana perumusan nilai tambah pada VBA developer ?
>
>
>Private Sub CommandButton1_
>Range("
>TextBox4 = Range("
>End Sub
>
>
>file terlampir...
>
>
>Wassalamu allaikum, wr wb
>Andy
>_
Wed Sep 25, 2013 8:47 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Miss Jan,
Masih ada "sedikit" pertanyaan kecil,
bagaimana kalau angkanya bisa integer atau decimal ?
Salam,
HK
----- Forwarded Message -----
From: Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Thursday, 26 September 2013, 10:30
Subject: Trs: [belajar-excel] Nilai tambah pada VBA developer
Â
Wah terima kasih banyak miss jan :D miss jan Thanks You...
hehee gak jadi patah semangat deh, buat belajar lagi... kapan-kapan andy teraktir bakso Xiaa ^_^ xixixi
Terima Kasih Allah, kemudian Trima kasih Be-Exceller, Terima Kasih Miss Jan.
Salam,
Andy Ajhis R
----- Pesan yang Diteruskan -----
Dari: Jan Raisin <miss.jan.raisin@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 26 September 2013 10:21
Judul: Re: [belajar-excel] Nilai tambah pada VBA developer
Â
 وَعَلَيÙ'ÙƒÙم٠لسَÙ'لاَم٠وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù
coba nyekripnya pakai rasa cinta xixixix ^_^
Range("C6") = CInt(TextBox2.Value)+ CInt(TextBox3.Value)
وَسَÙ'لاَم٠عَلَيÙ'ÙƒÙÙ…Ù' وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù
-Miss Jan Raisin-
Pada 26 September 2013 09.35, Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com> menulis:
>Â
>
>
>Asslamu allaikum, wr wb
>Be-Exceller
>
>
>Bagaimana perumusan nilai tambah pada VBA developer ?
>
>
>Private Sub CommandButton1_Click()
>Range("C6") = (TextBox2.Value + TextBox3.Value) 'Nilai Plus disamping malah error, misal : 4 + 4 = 44, tetapi kalau diganti * atau / hasilnya tidak masalah.
>TextBox4 = Range("C6").Value
>End Sub
>
>
>file terlampir.... mohon bantuannya master. Terima Kasih
>
>
>Wassalamu allaikum, wr wb
>Andy
>_
Masih ada "sedikit" pertanyaan kecil,
bagaimana kalau angkanya bisa integer atau decimal ?
Salam,
HK
----- Forwarded Message -----
From: Andy Ajhis Ramadhan <andyajhisramadhan@
To: "belajar-excel@
Sent: Thursday, 26 September 2013, 10:30
Subject: Trs: [belajar-excel] Nilai tambah pada VBA developer
Â
Wah terima kasih banyak miss jan :D miss jan Thanks You...
hehee gak jadi patah semangat deh, buat belajar lagi... kapan-kapan andy teraktir bakso Xiaa ^_^ xixixi
Terima Kasih Allah, kemudian Trima kasih Be-Exceller, Terima Kasih Miss Jan.
Salam,
Andy Ajhis R
----- Pesan yang Diteruskan -----
Dari: Jan Raisin <miss.jan.raisin@
Kepada: belajar-excel@
Dikirim: Kamis, 26 September 2013 10:21
Judul: Re: [belajar-excel] Nilai tambah pada VBA developer
Â
 وَعَلَيÙ'ÙƒÙم٠لسَÙ'لاَم٠وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù
coba nyekripnya pakai rasa cinta xixixix ^_^
Range("
وَسَÙ'لاَم٠عَلَيÙ'ÙƒÙÙ…Ù' وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù
-Miss Jan Raisin-
Pada 26 September 2013 09.35, Andy Ajhis Ramadhan <andyajhisramadhan@
>Â
>
>
>Asslamu allaikum, wr wb
>Be-Exceller
>
>
>Bagaimana perumusan nilai tambah pada VBA developer ?
>
>
>Private Sub CommandButton1_
>Range("
>TextBox4 = Range("
>End Sub
>
>
>file terlampir...
>
>
>Wassalamu allaikum, wr wb
>Andy
>_
Wed Sep 25, 2013 9:12 pm (PDT) . Posted by:
"Jan Raisin"
jika nilai adalah desimal, maka bisa diubah dahulu menjadi data bertipe
Single atau Double
caranya:
CSng(...) untuk mengubah menjadi single, atau
CDbl(....) untuk mengubah menjadi double
​oia.. sebaiknya nilai suatu objek dituliskan lengkap sesuai defaultnya..
karena katanya (ini katanya ya..) akan lebih mudah saat akan diubah dari
satu bahasa pemrograman yang satu ke bahasa pemrograman yang lain..
jadi kalo Range("...") harus ditulis menjadi Range("...").value
lalu kalo textbox harus ditulis TextBox1.txt sesuai dengan defaultnya
kalo label berarti harus .Caption dsb​
​salam,​
-Miss Jan Raisin-
Pada 26 September 2013 10.47, hendrik karnadi <hendrikkarnadi@yahoo.com>menulis:
> **
>
>
> Miss Jan,
> Masih ada "sedikit" pertanyaan kecil,
> bagaimana kalau angkanya bisa integer atau decimal ?
>
> Salam,
> HK
>
> ----- Forwarded Message -----
> *From:* Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com>
> *To:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Sent:* Thursday, 26 September 2013, 10:30
> *Subject:* Trs: [belajar-excel] Nilai tambah pada VBA developer
>
>
> Wah terima kasih banyak miss jan :D miss jan Thanks You...
> hehee gak jadi patah semangat deh, buat belajar lagi... kapan-kapan andy
> teraktir bakso Xiaa ^_^ xixixi
>
> Terima Kasih Allah, kemudian Trima kasih Be-Exceller, Terima Kasih Miss
> Jan.
>
> Salam,
> Andy Ajhis R
>
> ----- Pesan yang Diteruskan -----
> *Dari:* Jan Raisin <miss.jan.raisin@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 26 September 2013 10:21
> *Judul:* Re: [belajar-excel] Nilai tambah pada VBA developer
>
>
> وَعَلَيÙ'ÙƒÙم٠لسَÙ'لاَم٠وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù
>
> coba nyekripnya pakai rasa cinta xixixix ^_^
>
> Range("C6") = CInt(TextBox2.Value) + CInt(TextBox3.Value)
>
>
> وَسَÙ'لاَم٠عَلَيÙ'ÙƒÙÙ…Ù' وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù
>
> -Miss Jan Raisin-
>
>
> Pada 26 September 2013 09.35, Andy Ajhis Ramadhan <
> andyajhisramadhan@ymail.com> menulis:
>
> **
>
>
> Asslamu allaikum, wr wb
> Be-Exceller
>
> Bagaimana perumusan nilai tambah pada VBA developer ?
>
> Private Sub CommandButton1_Click()
> Range("C6") = (TextBox2.Value + TextBox3.Value) 'Nilai Plus disamping
> malah error, misal : 4 + 4 = 44, tetapi kalau diganti * atau / hasilnya
> tidak masalah.
> TextBox4 = Range("C6").Value
> End Sub
>
> file terlampir.... mohon bantuannya master. Terima Kasih
>
> Wassalamu allaikum, wr wb
> Andy
> _
>
>
>
>
>
>
>
Single atau Double
caranya:
CSng(...) untuk mengubah menjadi single, atau
CDbl(....) untuk mengubah menjadi double
​oia.. sebaiknya nilai suatu objek dituliskan lengkap sesuai defaultnya..
karena katanya (ini katanya ya..) akan lebih mudah saat akan diubah dari
satu bahasa pemrograman yang satu ke bahasa pemrograman yang lain..
jadi kalo Range("
lalu kalo textbox harus ditulis TextBox1.txt sesuai dengan defaultnya
kalo label berarti harus .Caption dsb​
​salam,​
-Miss Jan Raisin-
Pada 26 September 2013 10.47, hendrik karnadi <hendrikkarnadi@
> **
>
>
> Miss Jan,
> Masih ada "sedikit" pertanyaan kecil,
> bagaimana kalau angkanya bisa integer atau decimal ?
>
> Salam,
> HK
>
> ----- Forwarded Message -----
> *From:* Andy Ajhis Ramadhan <andyajhisramadhan@
> *To:* "belajar-excel@
> *Sent:* Thursday, 26 September 2013, 10:30
> *Subject:* Trs: [belajar-excel] Nilai tambah pada VBA developer
>
>
> Wah terima kasih banyak miss jan :D miss jan Thanks You...
> hehee gak jadi patah semangat deh, buat belajar lagi... kapan-kapan andy
> teraktir bakso Xiaa ^_^ xixixi
>
> Terima Kasih Allah, kemudian Trima kasih Be-Exceller, Terima Kasih Miss
> Jan.
>
> Salam,
> Andy Ajhis R
>
> ----- Pesan yang Diteruskan -----
> *Dari:* Jan Raisin <miss.jan.raisin@
> *Kepada:* belajar-excel@
> *Dikirim:* Kamis, 26 September 2013 10:21
> *Judul:* Re: [belajar-excel] Nilai tambah pada VBA developer
>
>
> وَعَلَيÙ'ÙƒÙم٠لسَÙ'لاَم٠وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù
>
> coba nyekripnya pakai rasa cinta xixixix ^_^
>
> Range("
>
>
> وَسَÙ'لاَم٠عَلَيÙ'ÙƒÙÙ…Ù' وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù
>
> -Miss Jan Raisin-
>
>
> Pada 26 September 2013 09.35, Andy Ajhis Ramadhan <
> andyajhisramadhan@
>
> **
>
>
> Asslamu allaikum, wr wb
> Be-Exceller
>
> Bagaimana perumusan nilai tambah pada VBA developer ?
>
> Private Sub CommandButton1_
> Range("
> malah error, misal : 4 + 4 = 44, tetapi kalau diganti * atau / hasilnya
> tidak masalah.
> TextBox4 = Range("
> End Sub
>
> file terlampir...
>
> Wassalamu allaikum, wr wb
> Andy
> _
>
>
>
>
>
>
>
Wed Sep 25, 2013 9:32 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Miss Jan,
Jadi ga bisa berlaku untuk kedua2nya tanpa merubah code?
Salam,
HK
________________________________
From: Jan Raisin <miss.jan.raisin@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 26 September 2013, 11:12
Subject: Re: Fw: Trs: [belajar-excel] Nilai tambah pada VBA developer
Â
jika nilai adalah desimal, maka bisa diubah dahulu menjadi data bertipe Single atau Double
caranya:
CSng(...) untuk mengubah menjadi single, atau
CDbl(....) untuk mengubah menjadi double
​oia.. sebaiknya nilai suatu objek dituliskan lengkap sesuai defaultnya.. karena katanya (ini katanya ya..) akan lebih mudah saat akan diubah dari satu bahasa pemrograman yang satu ke bahasa pemrograman yang lain..
jadi kalo Range("...") harus ditulis menjadi Range("...").value
lalu kalo textbox harus ditulis TextBox1.txt sesuai dengan defaultnya
kalo label berarti harus .Caption dsb​
​salam,​
-Miss Jan Raisin-
Pada 26 September 2013 10.47, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:
>Â
>Miss Jan,
>Masih ada "sedikit" pertanyaan kecil,
>bagaimana kalau angkanya bisa integer atau decimal ?
>
>
>Salam,
>HK
>
>
>----- Forwarded Message -----
>From: Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com>
>To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>Sent: Thursday, 26 September 2013, 10:30
>Subject: Trs: [belajar-excel] Nilai tambah pada VBA developer
>
>
>
>Â
>Wah terima kasih banyak miss jan :D miss jan Thanks You...
>hehee gak jadi patah semangat deh, buat belajar lagi... kapan-kapan andy teraktir bakso Xiaa ^_^ xixixi
>
>
>Terima Kasih Allah, kemudian Trima kasih Be-Exceller, Terima Kasih Miss Jan.
>
>
>Salam,
>Andy Ajhis R
>
>
>----- Pesan yang Diteruskan -----
>Dari: Jan Raisin <miss.jan.raisin@gmail.com>
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Kamis, 26 September 2013 10:21
>Judul: Re: [belajar-excel] Nilai tambah pada VBA developer
>
>
>
>Â
> وَعَلَيÙ'ÙƒÙم٠لسَÙ'لاَم٠وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù
>
>
>
>coba nyekripnya pakai rasa cinta xixixix ^_^
>
>
>Range("C6") = CInt(TextBox2.Value)+ CInt(TextBox3.Value)
>
>
>
>
>
>وَسَÙ'لاَم٠عَلَيÙ'ÙƒÙÙ…Ù' وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù
>
>
>
>-Miss Jan Raisin-
>
>
>Pada 26 September 2013 09.35, Andy Ajhis Ramadhan <andyajhisramadhan@ymail.com> menulis:
>
>
>>Â
>>
>>
>>Asslamu allaikum, wr wb
>>Be-Exceller
>>
>>
>>Bagaimana perumusan nilai tambah pada VBA developer ?
>>
>>
>>Private Sub CommandButton1_Click()
>>Range("C6") = (TextBox2.Value + TextBox3.Value) 'Nilai Plus disamping malah error, misal : 4 + 4 = 44, tetapi kalau diganti * atau / hasilnya tidak masalah.
>>TextBox4 = Range("C6").Value
>>End Sub
>>
>>
>>file terlampir.... mohon bantuannya master. Terima Kasih
>>
>>
>>Wassalamu allaikum, wr wb
>>Andy
>>_
>
>
>
>
Jadi ga bisa berlaku untuk kedua2nya tanpa merubah code?
Salam,
HK
____________
From: Jan Raisin <miss.jan.raisin@
To: belajar-excel@
Sent: Thursday, 26 September 2013, 11:12
Subject: Re: Fw: Trs: [belajar-excel] Nilai tambah pada VBA developer
Â
jika nilai adalah desimal, maka bisa diubah dahulu menjadi data bertipe Single atau Double
caranya:
CSng(...) untuk mengubah menjadi single, atau
CDbl(....) untuk mengubah menjadi double
​oia.. sebaiknya nilai suatu objek dituliskan lengkap sesuai defaultnya.. karena katanya (ini katanya ya..) akan lebih mudah saat akan diubah dari satu bahasa pemrograman yang satu ke bahasa pemrograman yang lain..
jadi kalo Range("
lalu kalo textbox harus ditulis TextBox1.txt sesuai dengan defaultnya
kalo label berarti harus .Caption dsb​
​salam,​
-Miss Jan Raisin-
Pada 26 September 2013 10.47, hendrik karnadi <hendrikkarnadi@
>Â
>Miss Jan,
>Masih ada "sedikit" pertanyaan kecil,
>bagaimana kalau angkanya bisa integer atau decimal ?
>
>
>Salam,
>HK
>
>
>----- Forwarded Message -----
>From: Andy Ajhis Ramadhan <andyajhisramadhan@
>To: "belajar-excel@
>Sent: Thursday, 26 September 2013, 10:30
>Subject: Trs: [belajar-excel] Nilai tambah pada VBA developer
>
>
>
>Â
>Wah terima kasih banyak miss jan :D miss jan Thanks You...
>hehee gak jadi patah semangat deh, buat belajar lagi... kapan-kapan andy teraktir bakso Xiaa ^_^ xixixi
>
>
>Terima Kasih Allah, kemudian Trima kasih Be-Exceller, Terima Kasih Miss Jan.
>
>
>Salam,
>Andy Ajhis R
>
>
>----- Pesan yang Diteruskan -----
>Dari: Jan Raisin <miss.jan.raisin@
>Kepada: belajar-excel@
>Dikirim: Kamis, 26 September 2013 10:21
>Judul: Re: [belajar-excel] Nilai tambah pada VBA developer
>
>
>
>Â
> وَعَلَيÙ'ÙƒÙم٠لسَÙ'لاَم٠وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù
>
>
>
>coba nyekripnya pakai rasa cinta xixixix ^_^
>
>
>Range("
>
>
>
>
>
>وَسَÙ'لاَم٠عَلَيÙ'ÙƒÙÙ…Ù' وَرَØÙ'مَة٠الله٠وَبَرَكَاتÙÙ‡Ù
>
>
>
>-Miss Jan Raisin-
>
>
>Pada 26 September 2013 09.35, Andy Ajhis Ramadhan <andyajhisramadhan@
>
>
>>Â
>>
>>
>>Asslamu allaikum, wr wb
>>Be-Exceller
>>
>>
>>Bagaimana perumusan nilai tambah pada VBA developer ?
>>
>>
>>Private Sub CommandButton1_
>>Range(
>>TextBox4 = Range("
>>End Sub
>>
>>
>>file terlampir...
>>
>>
>>Wassalamu allaikum, wr wb
>>Andy
>>_
>
>
>
>
Wed Sep 25, 2013 8:11 pm (PDT) . Posted by:
"Indra Sanjaya" indradjaja80an
Trima kasih Mr. Kid atas jawabannya.
________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Thursday, September 26, 2013 3:52 AM
Subject: Re: [belajar-excel] % pencapaian di pivot table [1 Attachment]
Â
Hai Indra,
File terlampir menambahkan kolom persen pencapaian setiap record disisi data source.
Kolom ini ditampilkan dalam pivot table diberi format number percentage.
Oh iya, apakah tidak sebaiknya target diletakkan pada sisi Rows as it is dan bukan pada sisi Values yang dikenai agregat average ?
Mungkin pada data yang baik-baik saja, keduanya akan menghasilkan nilai yang sama.
Wassalam,
Kid.
2013/9/25 Indra Sanjaya <indradjaja80an@yahoo.com>
>Â
>Dear para suhu yg semoga selalu dlm lindungan Allah SWT & semoga selalu sehat wal 'afiat.
>
>
>
>Kali ini Saya ingin menanyakan bagaimana rumus di pivot table tuk mencari % pencapaian.
>Dlm file terlampir, bagaimana agar kolom G terisi seperti data di kolom M? Dan grand total di cell E125 terisi seperti data di cell K125?
>
>
>Atas jawabannya diucapkan banyak terima kasih.
>
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Thursday, September 26, 2013 3:52 AM
Subject: Re: [belajar-excel] % pencapaian di pivot table [1 Attachment]
Â
Hai Indra,
File terlampir menambahkan kolom persen pencapaian setiap record disisi data source.
Kolom ini ditampilkan dalam pivot table diberi format number percentage.
Oh iya, apakah tidak sebaiknya target diletakkan pada sisi Rows as it is dan bukan pada sisi Values yang dikenai agregat average ?
Mungkin pada data yang baik-baik saja, keduanya akan menghasilkan nilai yang sama.
Wassalam,
Kid.
2013/9/25 Indra Sanjaya <indradjaja80an@
>Â
>Dear para suhu yg semoga selalu dlm lindungan Allah SWT & semoga selalu sehat wal 'afiat.
>
>
>
>Kali ini Saya ingin menanyakan bagaimana rumus di pivot table tuk mencari % pencapaian.
>Dlm file terlampir, bagaimana agar kolom G terisi seperti data di kolom M? Dan grand total di cell E125 terisi seperti data di cell K125?
>
>
>Atas jawabannya diucapkan banyak terima kasih.
>
Wed Sep 25, 2013 9:42 pm (PDT) . Posted by:
"lapendosol opik" lapendosol
Suwun terimakasih banyak mas Kid,
Mengikuti langkah pelan2 dan teratur akhirnya berhasil hehehe
Sebenarnya awalnya proses setelah pencet huruf adalah melakukan proses ngeklik, tapi pertanyaan ke milisnya saya ganti jadi proses nampilin MsgBox, misal pencet huruf A maka cmdA.Object = True
Dengan bantuan penyelesaian dari mas Kid diuwik uwik dikit akhirnya bisa, diakhir script saya tambahin
   If lblInpo.Caption = "A" Then cmdA.Object = True
   If lblInpo.Caption = "TA" Then cmdTA.Object = True
   If lblInpo.Caption = blablabla yg lain
Langkah no. 4 ada kendala sedikit, yg ditampilkan si TextBox hanya angka saja, gimana kalo salah pencet angka pengen ngapus? Tapi sudah saya sempilin keycode 8 dan 46
Sekarang lagi coba uwik2 nancepin scriptnya ke General biar bisa dipake banyak TextBox, soalnya ada 10 TextBox biar ga kebanyakan scriptnya
Sekali lagi makasih banyak mas Kid
Wassalam,
________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Thursday, September 26, 2013 8:24 AM
Subject: Re: [belajar-excel] KeyDown kombinasi
Â
mas Opik,
Coba langkah ini ya : (pelan-pelan)
1. deklarasikan dalam scope module (di userform kalau pakai userform, di worksheet kalau pakai worksheet) untuk variabel berikut ini : (nama variabel -> tipe datanya)
   a. dblTime -> double      'waktu pencet terakhir
   b. dblBatas -> double     'batas detik antar pencet tombol untuk dinyatakan pencet bersamaan
   c. sChar -> string             'nyimpan karakter di tombol terakhir yang dipencet
2. set nilai awal variabel (letakkan di event initialize kalau pakai userform, di event activate kalau di worksheet)
dbltime=timer
schar=vbnullstring
dblbatas=0.5Â Â Â 'berarti kalau kurang dari 0.5 detik pencet tombol lagi, maka masih dianggap sambungan yang tadi
'jadi kalau dalam waktu 2 menit dia pencet tombol secara konsisten kurang dari 0.5 detik, maka akan dianggap pencet bersamaan
'wakakakakakka
'atur sendiri batas yang lain supaya bisa batasi dalam 0.5 detik terakhir ini pencet berapa tombol, gitu ya
3. atur update nilai variabel saat user pencet sesuatu (misal di textbox bernama txtL1). Letakkan di event keydown si txtL1
dim dblCurTime as double
'bagian atur update nilai variabel saat user pencet tombol
dblcurtime=timer
if dblcurtime-dbltime < dblbatas then
   schar=schar & chr$(keycode)
else
  schar=chr$(keycode)
endif
dbltime=dblcurtime
'tampilkan pesan disini.
'jangan pakai msgbox ah, gangguin orang ngetik dan akan membuat batas waktu pasti lebih dari 0.5 detik
'pakai label control aja, font-nya digedein dan dikasih warna gonjreng (biar eye catching gitu)
'misal si label dikasih nama lblinpo
lblinpo.caption=schar
4. user pencet angka aja yang dibolehkan (alias boleh ditulis oleh si textbox bernama txtL1). Lanjutkan yang nomor 3 ya
'bagian atur hanya angka do ang
select case keycode
case 48 to 57Â Â Â 'kode ASCII untuk angka do ang
    'minum kopi aja gih
case else
   keycode=0   'supaya yang ditulis si textbox adalah karakter 0 (null) atau gak ada apa-apa
end select
5. selesai dan siap dicoba. Pastikan udah ada control yang namanya lblinpo di nomor 3 bagian akhir ya
6. jangan lupa disave, supaya gak nangis kalo ternyata cekripnya bikin crash (wakakaka... soale ditulis apa yang terlintas sajah... gak bisa nyoba)
:)
Wassalam,
Kid.
2013/9/25 lapendosol opik <lapendosol@yahoo.com>
>Â
>Dear rekan-rekan Be-Excel,
>Saya ingin tanya masalah KeyDown ini. Misalkan saya punya property TextBox, jika pencet huruf tertentu akan melakukan proses tertentu. Misalnya kalo pencet huruf A maka akan muncul pesan "Pencet Huruf A". Bagaimana jika pencet 2 huruf berturut-turut bisa untuk melakukan proses tertentu? Misal pencet hurut A dan S akan muncul pesan "Pencet Huruf AS".
>Berkat bantuan rekan-rekan sebelumnya membantu saya dalam pembuatan kode VBE nya, berikut:
>
>
>Private Sub txtL1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
>Â Â Â 'pencet huruf A muncul pesan "Pencet A"
>Â Â Â If KeyCode = 65 Then MsgBox "Pencet A"
>Â Â Â 'pengennya pencet huruf A dan S muncul pesan "Pencet AS"
>
>Â Â Â If KeyCode = 65 + KeyCode = 83 Then MsgBox "Pencet AS"
>Â Â Â 'pencet selain angka, txtL1.Value = NullString
>
>Â Â Â If KeyCode > 57 And KeyCode < 96 Or KeyCode > 105 Then KeyCode = 0
>End Sub
>
>
>Yg berwarna merah sudah saya otak atik pakai And Or + tapi hasilnya tidak sesuai. Bagaimana caranya untuk kasus seperti ini?
>Apakah harus diberi semacam timer? jika dalam waktu 1 detik pencet huruf A maka keluar pesan "Pencet A". Jika dalam waktu 1 detik pencet huruf A dan S maka keluar pesan "Pencet AS". Mohon bantuannya rekan-rekan.
>Trimakasih sebelumnya
>Wassalam,
>
Mengikuti langkah pelan2 dan teratur akhirnya berhasil hehehe
Sebenarnya awalnya proses setelah pencet huruf adalah melakukan proses ngeklik, tapi pertanyaan ke milisnya saya ganti jadi proses nampilin MsgBox, misal pencet huruf A maka cmdA.Object = True
Dengan bantuan penyelesaian dari mas Kid diuwik uwik dikit akhirnya bisa, diakhir script saya tambahin
   If lblInpo.Caption = "A" Then cmdA.Object = True
   If lblInpo.Caption = "TA" Then cmdTA.Object = True
   If lblInpo.Caption = blablabla yg lain
Langkah no. 4 ada kendala sedikit, yg ditampilkan si TextBox hanya angka saja, gimana kalo salah pencet angka pengen ngapus? Tapi sudah saya sempilin keycode 8 dan 46
Sekarang lagi coba uwik2 nancepin scriptnya ke General biar bisa dipake banyak TextBox, soalnya ada 10 TextBox biar ga kebanyakan scriptnya
Sekali lagi makasih banyak mas Kid
Wassalam,
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Thursday, September 26, 2013 8:24 AM
Subject: Re: [belajar-excel] KeyDown kombinasi
Â
mas Opik,
Coba langkah ini ya : (pelan-pelan)
1. deklarasikan dalam scope module (di userform kalau pakai userform, di worksheet kalau pakai worksheet) untuk variabel berikut ini : (nama variabel -> tipe datanya)
   a. dblTime -> double      'waktu pencet terakhir
   b. dblBatas -> double     'batas detik antar pencet tombol untuk dinyatakan pencet bersamaan
   c. sChar -> string             'nyimpan karakter di tombol terakhir yang dipencet
2. set nilai awal variabel (letakkan di event initialize kalau pakai userform, di event activate kalau di worksheet)
dbltime=timer
schar=vbnullstring
dblbatas=0.5Â Â Â 'berarti kalau kurang dari 0.5 detik pencet tombol lagi, maka masih dianggap sambungan yang tadi
'jadi kalau dalam waktu 2 menit dia pencet tombol secara konsisten kurang dari 0.5 detik, maka akan dianggap pencet bersamaan
'wakakakakakka
'atur sendiri batas yang lain supaya bisa batasi dalam 0.5 detik terakhir ini pencet berapa tombol, gitu ya
3. atur update nilai variabel saat user pencet sesuatu (misal di textbox bernama txtL1). Letakkan di event keydown si txtL1
dim dblCurTime as double
'bagian atur update nilai variabel saat user pencet tombol
dblcurtime=timer
if dblcurtime-dbltime < dblbatas then
   schar=schar & chr$(keycode)
else
  schar=chr$(keycode)
endif
dbltime=dblcurtime
'tampilkan pesan disini.
'jangan pakai msgbox ah, gangguin orang ngetik dan akan membuat batas waktu pasti lebih dari 0.5 detik
'pakai label control aja, font-nya digedein dan dikasih warna gonjreng (biar eye catching gitu)
'misal si label dikasih nama lblinpo
lblinpo.caption=
4. user pencet angka aja yang dibolehkan (alias boleh ditulis oleh si textbox bernama txtL1). Lanjutkan yang nomor 3 ya
'bagian atur hanya angka do ang
select case keycode
case 48 to 57Â Â Â 'kode ASCII untuk angka do ang
    'minum kopi aja gih
case else
   keycode=0   'supaya yang ditulis si textbox adalah karakter 0 (null) atau gak ada apa-apa
end select
5. selesai dan siap dicoba. Pastikan udah ada control yang namanya lblinpo di nomor 3 bagian akhir ya
6. jangan lupa disave, supaya gak nangis kalo ternyata cekripnya bikin crash (wakakaka... soale ditulis apa yang terlintas sajah... gak bisa nyoba)
:)
Wassalam,
Kid.
2013/9/25 lapendosol opik <lapendosol@yahoo.
>Â
>Dear rekan-rekan Be-Excel,
>Saya ingin tanya masalah KeyDown ini. Misalkan saya punya property TextBox, jika pencet huruf tertentu akan melakukan proses tertentu. Misalnya kalo pencet huruf A maka akan muncul pesan "Pencet Huruf A". Bagaimana jika pencet 2 huruf berturut-turut bisa untuk melakukan proses tertentu? Misal pencet hurut A dan S akan muncul pesan "Pencet Huruf AS".
>Berkat bantuan rekan-rekan sebelumnya membantu saya dalam pembuatan kode VBE nya, berikut:
>
>
>Private Sub txtL1_KeyDown(
>Â Â Â 'pencet huruf A muncul pesan "Pencet A"
>Â Â Â If KeyCode = 65 Then MsgBox "Pencet A"
>Â Â Â 'pengennya pencet huruf A dan S muncul pesan "Pencet AS"
>
>Â Â Â If KeyCode = 65 + KeyCode = 83 Then MsgBox "Pencet AS"
>Â Â Â 'pencet selain angka, txtL1.Value = NullString
>
>Â Â Â If KeyCode > 57 And KeyCode < 96 Or KeyCode > 105 Then KeyCode = 0
>End Sub
>
>
>Yg berwarna merah sudah saya otak atik pakai And Or + tapi hasilnya tidak sesuai. Bagaimana caranya untuk kasus seperti ini?
>Apakah harus diberi semacam timer? jika dalam waktu 1 detik pencet huruf A maka keluar pesan "Pencet A". Jika dalam waktu 1 detik pencet huruf A dan S maka keluar pesan "Pencet AS". Mohon bantuannya rekan-rekan.
>Trimakasih sebelumnya
>Wassalam,
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar