15 New Messages
Digest #2214
5a
Tanya : Cara Menghitung Jumlah Hari Ke Belakang by "Hendriyanto Sihombing" deardo_silaban@ymail.com
Messages
Sat Apr 6, 2013 9:19 am (PDT) . Posted by:
"Ferdinan" dinanfu
Selamat malam minggu masters, saya mau tanya beda range data misalnya
A1:C10 apa bedanya $A$1:$C$10
Trims sblmnya dan mAaf tlah mgganggu malmingnya
God Bless You
A1:C10 apa bedanya $A$1:$C$10
Trims sblmnya dan mAaf tlah mgganggu malmingnya
God Bless You
Sat Apr 6, 2013 5:25 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Ferdinan,
Perbedaan akan tampak ketika ditulis dalam formula
coba di A15 tulis formula :
=Sum(A10:C10)
dan copy ke B15, A16, B16
kemudian tulis di A19
=Sum($A$1:$C$10)
dan copy ke B19, A20, B20
Wassalam,
Kid.
2013/4/6 Ferdinan <ferdinan36@gmail.com >
> **
>
>
> Selamat malam minggu masters, saya mau tanya beda range data misalnya
> A1:C10 apa bedanya $A$1:$C$10
>
> Trims sblmnya dan mAaf tlah mgganggu malmingnya
> God Bless You
>
>
Perbedaan akan tampak ketika ditulis dalam formula
coba di A15 tulis formula :
=Sum(A10:C10)
dan copy ke B15, A16, B16
kemudian tulis di A19
=Sum($A$1:$C$
dan copy ke B19, A20, B20
Wassalam,
Kid.
2013/4/6 Ferdinan <ferdinan36@gmail.
> **
>
>
> Selamat malam minggu masters, saya mau tanya beda range data misalnya
> A1:C10 apa bedanya $A$1:$C$10
>
> Trims sblmnya dan mAaf tlah mgganggu malmingnya
> God Bless You
>
>
Sat Apr 6, 2013 9:59 pm (PDT) . Posted by:
"Kind man" dinanfu
Mr. Kid Terima kasih banyak sdh di mengerti
2013/4/7 Mr. Kid <mr.nmkid@gmail.com >
> **
>
>
> Hai Ferdinan,
>
> Perbedaan akan tampak ketika ditulis dalam formula
> coba di A15 tulis formula :
> =Sum(A10:C10)
> dan copy ke B15, A16, B16
>
> kemudian tulis di A19
> =Sum($A$1:$C$10)
> dan copy ke B19, A20, B20
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/6 Ferdinan <ferdinan36@gmail.com >
>
>> **
>>
>>
>> Selamat malam minggu masters, saya mau tanya beda range data misalnya
>> A1:C10 apa bedanya $A$1:$C$10
>>
>> Trims sblmnya dan mAaf tlah mgganggu malmingnya
>> God Bless You
>>
>
>
>
2013/4/7 Mr. Kid <mr.nmkid@gmail.
> **
>
>
> Hai Ferdinan,
>
> Perbedaan akan tampak ketika ditulis dalam formula
> coba di A15 tulis formula :
> =Sum(A10:C10)
> dan copy ke B15, A16, B16
>
> kemudian tulis di A19
> =Sum($A$1:$C$
> dan copy ke B19, A20, B20
>
> Wassalam,
> Kid.
>
>
>
> 2013/4/6 Ferdinan <ferdinan36@gmail.
>
>> **
>>
>>
>> Selamat malam minggu masters, saya mau tanya beda range data misalnya
>> A1:C10 apa bedanya $A$1:$C$10
>>
>> Trims sblmnya dan mAaf tlah mgganggu malmingnya
>> God Bless You
>>
>
>
>
Sat Apr 6, 2013 4:52 pm (PDT) . Posted by:
"tioali2011" tioali2011
Dear Mr. Kid dan BeExceller lainnya.
Saya sudah mencoba berpuluh-puluh kali, tetap tidak bisa. Kalau tidak keberatan, bisakah disertai dengan file excelnya ?
Terima kasih sekali saya ucapkan.
Wassalam,
Tio
--- In belajar-excel@yahoogroups.com , "Mr. Kid" <mr.nmkid@...> wrote:
>
> Oh iya,
> Periksa dulu regional setting setempat ya
> >> Jika regional setting komputer setempat adalah English, maka formulanya :
> =Trim( Mid( Substitute( $a2 , " " , Rept( " " , 99 ) ) ,
> (Column(a2)-1)*99+1 , 99 ) )
>
> >> Jika regional setting komputer setempat adalah Indonesia, maka
> formulanya :
> (ganti semua koma dengan titik koma)
> =Trim( Mid( Substitute( $a2 ; " " ; Rept( " " ; 99 ) ) ;
> (Column(a2)-1)*99+1 ; 99 ) )
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
> 2013/4/5 Mr. Kid <mr.nmkid@...>
>
> > Misal data di a2 dan hasil mulai b2 kekanan
> > di b2 :
> > =Trim( Mid( Substitute( $a2 , " " , Rept( " " , 99 ) ) ,
> > (Column(a2)-1)*99+1 , 99 ) )
> > copy ke kolom lain dan baris data lainnya
> >
> > Wassalam,
> > Kid.
> >
> >
> >
> >
> > 2013/4/4 <tio.adjie@...>
> >
> > **
> >>
> >>
> >>
> >> Dear BeExceller,
> >>
> >> Bagaimana memisahkan kata yang dipisahkan dengan spasi ? Contoh 1 kata :
> >> Tio Adi Bayu Adjie menjadi 4 kolom yaitu Tio, kolom ke2 Adi, kolom ke3
> >> Bayu, kolom ke 4 Adjie.
> >>
> >> Terima kasih,
> >> Wassalam,
> >> Tio
> >>
> >>
> >
> >
>
Saya sudah mencoba berpuluh-puluh kali, tetap tidak bisa. Kalau tidak keberatan, bisakah disertai dengan file excelnya ?
Terima kasih sekali saya ucapkan.
Wassalam,
Tio
--- In belajar-excel@
>
> Oh iya,
> Periksa dulu regional setting setempat ya
> >> Jika regional setting komputer setempat adalah English, maka formulanya :
> =Trim( Mid( Substitute( $a2 , " " , Rept( " " , 99 ) ) ,
> (Column(a2)-
>
> >> Jika regional setting komputer setempat adalah Indonesia, maka
> formulanya :
> (ganti semua koma dengan titik koma)
> =Trim( Mid( Substitute( $a2 ; " " ; Rept( " " ; 99 ) ) ;
> (Column(a2)-
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
> 2013/4/5 Mr. Kid <mr.nmkid@
>
> > Misal data di a2 dan hasil mulai b2 kekanan
> > di b2 :
> > =Trim( Mid( Substitute( $a2 , " " , Rept( " " , 99 ) ) ,
> > (Column(a2)-
> > copy ke kolom lain dan baris data lainnya
> >
> > Wassalam,
> > Kid.
> >
> >
> >
> >
> > 2013/4/4 <tio.adjie@
> >
> > **
> >>
> >>
> >>
> >> Dear BeExceller,
> >>
> >> Bagaimana memisahkan kata yang dipisahkan dengan spasi ? Contoh 1 kata :
> >> Tio Adi Bayu Adjie menjadi 4 kolom yaitu Tio, kolom ke2 Adi, kolom ke3
> >> Bayu, kolom ke 4 Adjie.
> >>
> >> Terima kasih,
> >> Wassalam,
> >> Tio
> >>
> >>
> >
> >
>
Sat Apr 6, 2013 5:00 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
File terlampir.
Wassalam,
Kid.
2013/4/7 tioali2011 <tioali2011@yahoo.co.id >
> **
>
>
> Dear Mr. Kid dan BeExceller lainnya.
>
> Saya sudah mencoba berpuluh-puluh kali, tetap tidak bisa. Kalau tidak
> keberatan, bisakah disertai dengan file excelnya ?
>
> Terima kasih sekali saya ucapkan.
> Wassalam,
> Tio
>
>
> --- In belajar-excel@yahoogroups.com , "Mr. Kid" <mr.nmkid@...> wrote:
> >
> > Oh iya,
> > Periksa dulu regional setting setempat ya
> > >> Jika regional setting komputer setempat adalah English, maka
> formulanya :
> > =Trim( Mid( Substitute( $a2 , " " , Rept( " " , 99 ) ) ,
> > (Column(a2)-1)*99+1 , 99 ) )
> >
> > >> Jika regional setting komputer setempat adalah Indonesia, maka
> > formulanya :
> > (ganti semua koma dengan titik koma)
> > =Trim( Mid( Substitute( $a2 ; " " ; Rept( " " ; 99 ) ) ;
> > (Column(a2)-1)*99+1 ; 99 ) )
> >
> > Wassalam,
> > Kid.
> >
> >
> >
> >
> >
> >
> >
> > 2013/4/5 Mr. Kid <mr.nmkid@...>
>
> >
> > > Misal data di a2 dan hasil mulai b2 kekanan
> > > di b2 :
> > > =Trim( Mid( Substitute( $a2 , " " , Rept( " " , 99 ) ) ,
> > > (Column(a2)-1)*99+1 , 99 ) )
> > > copy ke kolom lain dan baris data lainnya
> > >
> > > Wassalam,
> > > Kid.
> > >
> > >
> > >
> > >
> > > 2013/4/4 <tio.adjie@...>
> > >
> > > **
>
> > >>
> > >>
> > >>
> > >> Dear BeExceller,
> > >>
> > >> Bagaimana memisahkan kata yang dipisahkan dengan spasi ? Contoh 1
> kata :
> > >> Tio Adi Bayu Adjie menjadi 4 kolom yaitu Tio, kolom ke2 Adi, kolom ke3
> > >> Bayu, kolom ke 4 Adjie.
> > >>
> > >> Terima kasih,
> > >> Wassalam,
> > >> Tio
> > >>
> > >>
> > >
> > >
> >
>
>
>
Wassalam,
Kid.
2013/4/7 tioali2011 <tioali2011@yahoo.
> **
>
>
> Dear Mr. Kid dan BeExceller lainnya.
>
> Saya sudah mencoba berpuluh-puluh kali, tetap tidak bisa. Kalau tidak
> keberatan, bisakah disertai dengan file excelnya ?
>
> Terima kasih sekali saya ucapkan.
> Wassalam,
> Tio
>
>
> --- In belajar-excel@
> >
> > Oh iya,
> > Periksa dulu regional setting setempat ya
> > >> Jika regional setting komputer setempat adalah English, maka
> formulanya :
> > =Trim( Mid( Substitute( $a2 , " " , Rept( " " , 99 ) ) ,
> > (Column(a2)-
> >
> > >> Jika regional setting komputer setempat adalah Indonesia, maka
> > formulanya :
> > (ganti semua koma dengan titik koma)
> > =Trim( Mid( Substitute( $a2 ; " " ; Rept( " " ; 99 ) ) ;
> > (Column(a2)-
> >
> > Wassalam,
> > Kid.
> >
> >
> >
> >
> >
> >
> >
> > 2013/4/5 Mr. Kid <mr.nmkid@
>
> >
> > > Misal data di a2 dan hasil mulai b2 kekanan
> > > di b2 :
> > > =Trim( Mid( Substitute( $a2 , " " , Rept( " " , 99 ) ) ,
> > > (Column(a2)-
> > > copy ke kolom lain dan baris data lainnya
> > >
> > > Wassalam,
> > > Kid.
> > >
> > >
> > >
> > >
> > > 2013/4/4 <tio.adjie@
> > >
> > > **
>
> > >>
> > >>
> > >>
> > >> Dear BeExceller,
> > >>
> > >> Bagaimana memisahkan kata yang dipisahkan dengan spasi ? Contoh 1
> kata :
> > >> Tio Adi Bayu Adjie menjadi 4 kolom yaitu Tio, kolom ke2 Adi, kolom ke3
> > >> Bayu, kolom ke 4 Adjie.
> > >>
> > >> Terima kasih,
> > >> Wassalam,
> > >> Tio
> > >>
> > >>
> > >
> > >
> >
>
>
>
Sat Apr 6, 2013 4:53 pm (PDT) . Posted by:
"Adi" abduh_suryadi
Assalamu'alaikum Wr. Wb.
Dear Master....
Bagaimana cara membuat pilihan seperti drop down list di area vba?
seperti halnya ketika membuat sebuah message box, maka setelah menulis
string message trus koma, maka akan muncul pilihan bentuk dari message
itu. Sebagai contoh, saya mempunyai kode berikut:
Private Sub tMessage(msg as string)
Dim sStr as String
Select Case msg
Case "A"
sStr="Nama saya Adi"
Case "B"
sStr="Saya dari Lombok"
Case "C"
sStr="Lombok Barat NTB"
End Select
MsgBox sStr
End Sub
Bagaimana cara untuk menampilkan pilihan A, B, C muncul setelah kita
kita tuliskan tMessage?
Contoh:
Sub Tampilkan_Klik()
tMessage "A" 'saya ingin pilihan A, B, C muncul setelah mengetik
tMessage trus
End Sub
Mohon dear penjelasannya..., karena logika yang seperti ini sangat
penting untuk project yang saya buat agar lebih efisien. maaf klu ada
yang tidak jelas n brtele2
Thanks
Dear Master....
Bagaimana cara membuat pilihan seperti drop down list di area vba?
seperti halnya ketika membuat sebuah message box, maka setelah menulis
string message trus koma, maka akan muncul pilihan bentuk dari message
itu. Sebagai contoh, saya mempunyai kode berikut:
Private Sub tMessage(msg as string)
Dim sStr as String
Select Case msg
Case "A"
sStr="Nama saya Adi"
Case "B"
sStr="Saya dari Lombok"
Case "C"
sStr="Lombok Barat NTB"
End Select
MsgBox sStr
End Sub
Bagaimana cara untuk menampilkan pilihan A, B, C muncul setelah kita
kita tuliskan tMessage?
Contoh:
Sub Tampilkan_Klik(
tMessage "A" 'saya ingin pilihan A, B, C muncul setelah mengetik
tMessage trus
End Sub
Mohon dear penjelasannya.
penting untuk project yang saya buat agar lebih efisien. maaf klu ada
yang tidak jelas n brtele2
Thanks
Sat Apr 6, 2013 5:42 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Pada sebuah module bisa dilakukan deklarasi enumeration dengan syntax :
[scope] Enum nama_enumeration
item1 = nilai_item1
item2 = nilai_item2
itemN = nilai_itemN
End Enum
kemudian gunakan nama_enumeration sebagai tipe data dalam script.
Contoh :
variabel msg akan berisi item tetap A,B,C. Maka dibuat enumeration :
Public Enum Pesan
A = "A"
B = "B"
C = "C"
end enum
Pubilc sub ContohPakai1()
dim sKet as Pesan
'lalu tulis dibaris baru berbunyi sKet=
end sub
Public sub ContohPakai2( sTeks as pesan)
'isi prosedurnya bebas, misal :
debug.print steks
end sub
Public sub ContohPakai3()
'coba panggil prosedur ContohPakai2 caranya :
'tulis nama prosedur ContohPakai2 lalu spasi
end sub
Wassalamu'alaikum Wr. Wb.
Kid.
2013/4/7 Adi <abduhsuryadi@gmail.com >
> **
>
>
> Assalamu'alaikum Wr. Wb.
> Dear Master....
> Bagaimana cara membuat pilihan seperti drop down list di area vba? seperti
> halnya ketika membuat sebuah message box, maka setelah menulis string
> message trus koma, maka akan muncul pilihan bentuk dari message itu.
> Sebagai contoh, saya mempunyai kode berikut:
>
>
> Private Sub tMessage(msg as string)
>
> Dim sStr as String
>
> Select Case msg
>
> Case "A"
>
> sStr="Nama saya Adi"
>
> Case "B"
>
> sStr="Saya dari Lombok"
>
> Case "C"
>
> sStr="Lombok Barat NTB"
>
> End Select
> MsgBox sStr
>
> End Sub
>
>
> Bagaimana cara untuk menampilkan pilihan A, B, C muncul setelah kita kita
> tuliskan tMessage?
>
> Contoh:
>
> Sub Tampilkan_Klik()
>
> tMessage "A" 'saya ingin pilihan A, B, C muncul setelah mengetik tMessage
> trus
>
> End Sub
>
> Mohon dear penjelasannya..., karena logika yang seperti ini sangat penting
> untuk project yang saya buat agar lebih efisien. maaf klu ada yang tidak
> jelas n brtele2
> Thanks
>
>
>
Pada sebuah module bisa dilakukan deklarasi enumeration dengan syntax :
[scope] Enum nama_enumeration
item1 = nilai_item1
item2 = nilai_item2
itemN = nilai_itemN
End Enum
kemudian gunakan nama_enumeration sebagai tipe data dalam script.
Contoh :
variabel msg akan berisi item tetap A,B,C. Maka dibuat enumeration :
Public Enum Pesan
A = "A"
B = "B"
C = "C"
end enum
Pubilc sub ContohPakai1(
dim sKet as Pesan
'lalu tulis dibaris baru berbunyi sKet=
end sub
Public sub ContohPakai2( sTeks as pesan)
'isi prosedurnya bebas, misal :
debug.print steks
end sub
Public sub ContohPakai3(
'coba panggil prosedur ContohPakai2 caranya :
'tulis nama prosedur ContohPakai2 lalu spasi
end sub
Wassalamu'
Kid.
2013/4/7 Adi <abduhsuryadi@
> **
>
>
> Assalamu'
> Dear Master....
> Bagaimana cara membuat pilihan seperti drop down list di area vba? seperti
> halnya ketika membuat sebuah message box, maka setelah menulis string
> message trus koma, maka akan muncul pilihan bentuk dari message itu.
> Sebagai contoh, saya mempunyai kode berikut:
>
>
> Private Sub tMessage(msg as string)
>
> Dim sStr as String
>
> Select Case msg
>
> Case "A"
>
> sStr="Nama saya Adi"
>
> Case "B"
>
> sStr="Saya dari Lombok"
>
> Case "C"
>
> sStr="Lombok Barat NTB"
>
> End Select
> MsgBox sStr
>
> End Sub
>
>
> Bagaimana cara untuk menampilkan pilihan A, B, C muncul setelah kita kita
> tuliskan tMessage?
>
> Contoh:
>
> Sub Tampilkan_Klik(
>
> tMessage "A" 'saya ingin pilihan A, B, C muncul setelah mengetik tMessage
> trus
>
> End Sub
>
> Mohon dear penjelasannya.
> untuk project yang saya buat agar lebih efisien. maaf klu ada yang tidak
> jelas n brtele2
> Thanks
>
>
>
Sat Apr 6, 2013 8:45 pm (PDT) . Posted by:
"Adi" abduh_suryadi
That's great !!! makasih banyak Mr. Kid. smga sukses selalu.
--- In belajar-excel@yahoogroups.com , "Mr. Kid" <mr.nmkid@...> wrote:
>
> Wa'alaikumussalam Wr. Wb.
>
> Pada sebuah module bisa dilakukan deklarasi enumeration dengan syntax :
> [scope] Enum nama_enumeration
> item1 = nilai_item1
> item2 = nilai_item2
> itemN = nilai_itemN
> End Enum
> kemudian gunakan nama_enumeration sebagai tipe data dalam script.
>
> Contoh :
> variabel msg akan berisi item tetap A,B,C. Maka dibuat enumeration :
> Public Enum Pesan
> A = "A"
> B = "B"
> C = "C"
> end enum
>
> Pubilc sub ContohPakai1()
> dim sKet as Pesan
> 'lalu tulis dibaris baru berbunyi sKet=
>
> end sub
>
> Public sub ContohPakai2( sTeks as pesan)
> 'isi prosedurnya bebas, misal :
> debug.print steks
> end sub
>
> Public sub ContohPakai3()
> 'coba panggil prosedur ContohPakai2 caranya :
> 'tulis nama prosedur ContohPakai2 lalu spasi
>
> end sub
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
> 2013/4/7 Adi <abduhsuryadi@...>
>
> > **
> >
> >
> > Assalamu'alaikum Wr. Wb.
> > Dear Master....
> > Bagaimana cara membuat pilihan seperti drop down list di area vba? seperti
> > halnya ketika membuat sebuah message box, maka setelah menulis string
> > message trus koma, maka akan muncul pilihan bentuk dari message itu.
> > Sebagai contoh, saya mempunyai kode berikut:
> >
> >
> > Private Sub tMessage(msg as string)
> >
> > Dim sStr as String
> >
> > Select Case msg
> >
> > Case "A"
> >
> > sStr="Nama saya Adi"
> >
> > Case "B"
> >
> > sStr="Saya dari Lombok"
> >
> > Case "C"
> >
> > sStr="Lombok Barat NTB"
> >
> > End Select
> > MsgBox sStr
> >
> > End Sub
> >
> >
> > Bagaimana cara untuk menampilkan pilihan A, B, C muncul setelah kita kita
> > tuliskan tMessage?
> >
> > Contoh:
> >
> > Sub Tampilkan_Klik()
> >
> > tMessage "A" 'saya ingin pilihan A, B, C muncul setelah mengetik tMessage
> > trus
> >
> > End Sub
> >
> > Mohon dear penjelasannya..., karena logika yang seperti ini sangat penting
> > untuk project yang saya buat agar lebih efisien. maaf klu ada yang tidak
> > jelas n brtele2
> > Thanks
> >
> >
> >
>
--- In belajar-excel@
>
> Wa'alaikumussal
>
> Pada sebuah module bisa dilakukan deklarasi enumeration dengan syntax :
> [scope] Enum nama_enumeration
> item1 = nilai_item1
> item2 = nilai_item2
> itemN = nilai_itemN
> End Enum
> kemudian gunakan nama_enumeration sebagai tipe data dalam script.
>
> Contoh :
> variabel msg akan berisi item tetap A,B,C. Maka dibuat enumeration :
> Public Enum Pesan
> A = "A"
> B = "B"
> C = "C"
> end enum
>
> Pubilc sub ContohPakai1(
> dim sKet as Pesan
> 'lalu tulis dibaris baru berbunyi sKet=
>
> end sub
>
> Public sub ContohPakai2( sTeks as pesan)
> 'isi prosedurnya bebas, misal :
> debug.print steks
> end sub
>
> Public sub ContohPakai3(
> 'coba panggil prosedur ContohPakai2 caranya :
> 'tulis nama prosedur ContohPakai2 lalu spasi
>
> end sub
>
> Wassalamu'
> Kid.
>
>
>
> 2013/4/7 Adi <abduhsuryadi@
>
> > **
> >
> >
> > Assalamu'
> > Dear Master....
> > Bagaimana cara membuat pilihan seperti drop down list di area vba? seperti
> > halnya ketika membuat sebuah message box, maka setelah menulis string
> > message trus koma, maka akan muncul pilihan bentuk dari message itu.
> > Sebagai contoh, saya mempunyai kode berikut:
> >
> >
> > Private Sub tMessage(msg as string)
> >
> > Dim sStr as String
> >
> > Select Case msg
> >
> > Case "A"
> >
> > sStr="Nama saya Adi"
> >
> > Case "B"
> >
> > sStr="Saya dari Lombok"
> >
> > Case "C"
> >
> > sStr="Lombok Barat NTB"
> >
> > End Select
> > MsgBox sStr
> >
> > End Sub
> >
> >
> > Bagaimana cara untuk menampilkan pilihan A, B, C muncul setelah kita kita
> > tuliskan tMessage?
> >
> > Contoh:
> >
> > Sub Tampilkan_Klik(
> >
> > tMessage "A" 'saya ingin pilihan A, B, C muncul setelah mengetik tMessage
> > trus
> >
> > End Sub
> >
> > Mohon dear penjelasannya.
> > untuk project yang saya buat agar lebih efisien. maaf klu ada yang tidak
> > jelas n brtele2
> > Thanks
> >
> >
> >
>
Sat Apr 6, 2013 5:27 pm (PDT) . Posted by:
"dedy rauf"
yth para master excel
mohon bantuannya untuk membuat sebuah file excel berisi monitoring absensi
dan tugas pegawai
inginnya saya itu setiap pegawai dapat dimonitor beban kerja (banyaknya
tugas yang diperoleh) dan absensi setiap pegawai secara otomatis
file terlampir
best regard
rauf
mohon bantuannya untuk membuat sebuah file excel berisi monitoring absensi
dan tugas pegawai
inginnya saya itu setiap pegawai dapat dimonitor beban kerja (banyaknya
tugas yang diperoleh) dan absensi setiap pegawai secara otomatis
file terlampir
best regard
rauf
Sun Apr 7, 2013 3:15 am (PDT) . Posted by:
"Hendriyanto Sihombing" deardo_silaban@ymail.com
Dear semua Master XL,
Mau nanya bagaimana rumus untuk menghitung jumlah hari kebelakang, tapi hanya diketahui jumlah bulan yang akan dihitung saja..
File terlampir.. Terimakasih
Mau nanya bagaimana rumus untuk menghitung jumlah hari kebelakang, tapi hanya diketahui jumlah bulan yang akan dihitung saja..
File terlampir.. Terimakasih
Sun Apr 7, 2013 3:20 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Hendriyanto,
Dari formula berbunyi :
=$I$3-DATE(YEAR($I$3),MONTH($I$3)-G3,H3)
diubah menjadi :
=$I$3-DATE(YEAR($I$3),MONTH($I$3)-G3 *+1* ,H3)
Wassalam,
Kid.
2013/4/7 Hendriyanto Sihombing <deardo_silaban@ymail.com >
> **
>
>
> Dear semua Master XL,
>
> Mau nanya bagaimana rumus untuk menghitung jumlah hari kebelakang, tapi
> hanya diketahui jumlah bulan yang akan dihitung saja..
> File terlampir.. Terimakasih
>
>
>
Dari formula berbunyi :
=$I$3-DATE(YEAR(
diubah menjadi :
=$I$3-DATE(YEAR(
Wassalam,
Kid.
2013/4/7 Hendriyanto Sihombing <deardo_silaban@
> **
>
>
> Dear semua Master XL,
>
> Mau nanya bagaimana rumus untuk menghitung jumlah hari kebelakang, tapi
> hanya diketahui jumlah bulan yang akan dihitung saja..
> File terlampir.. Terimakasih
>
>
>
Sun Apr 7, 2013 3:16 am (PDT) . Posted by:
"Shenly Ruchman" shenly_excelmania
Assalamualaikum..master...
saya baru bgt ni belajar soal yang namanya macro, kemarin sya buat form input sederhana, tapi yang jadi masalahnya ketika sudah saya input data dari form tersebt, ko datanya masiha da di formnya ya, yang saya inginkan, bagaimana caranya agar data dalam form ketika sudah saya input, maka data tersbt langsung hilang,
macronya seperti ini master :
Sub Pindahan()
Dim nama, alamat As String
Dim BarisTerakhir, BarisTujuan As Integer
With Worksheets("Sheet Asal")
nama = .Cells(2, 2).Value
alamat = .Cells(3, 2).Value
End With
With Worksheets("Sheet Tujuan")
BarisTerakhir = .Cells(.Rows.Count, 1).End(xlUp).Row
BarisTujuan = BarisTerakhir + 1
.Cells(BarisTujuan, 1).Value = nama
.Cells(BarisTujuan, 2).Value = alamat
End With
End Sub
saya baru bgt ni belajar soal yang namanya macro, kemarin sya buat form input sederhana, tapi yang jadi masalahnya ketika sudah saya input data dari form tersebt, ko datanya masiha da di formnya ya, yang saya inginkan, bagaimana caranya agar data dalam form ketika sudah saya input, maka data tersbt langsung hilang,
macronya seperti ini master :
Sub Pindahan()
Dim nama, alamat As String
Dim BarisTerakhir, BarisTujuan As Integer
With Worksheets("
nama = .Cells(2, 2).Value
alamat = .Cells(3, 2).Value
End With
With Worksheets("
BarisTerakhir = .Cells(.Rows.
BarisTujuan = BarisTerakhir + 1
.Cells(BarisTujuan, 1).Value = nama
.Cells(BarisTujuan, 2).Value = alamat
End With
End Sub
Sun Apr 7, 2013 3:51 am (PDT) . Posted by:
"Hendrik Karnadi" hendrikkarnadi
Hai Shenly,
Macro yg anda buat adalah untuk mengcopy bukan memindahkan data.
Jika anda mengcopy data maka sumber datanya tentu tidak akan hilang (kosong) kecuali dihapus. Untuk menghapus sumber data (tdk tmsk format) anda bisa menggunakan clearcontents. Posisi cell pointer bisa berada pada sheet asal bisa juga pada sheet tujuan. Sila coba kedua2nya.
Salam,
HK
Sent from Samsung MobileShenly Ruchman <shenly_excelmania@yahoo.co.id > wrote:Assalamualaikum..master...
saya baru bgt ni belajar soal yang namanya macro, kemarin sya buat form input sederhana, tapi yang jadi masalahnya ketika sudah saya input data dari form tersebt, ko datanya masiha da di formnya ya, yang saya inginkan, bagaimana caranya agar data dalam form ketika sudah saya input, maka data tersbt langsung hilang,
macronya seperti ini master :
Sub Pindahan()
Dim nama, alamat As String
Dim BarisTerakhir, BarisTujuan As Integer
With Worksheets("Sheet Asal")
nama = .Cells(2, 2).Value
alamat = .Cells(3, 2).Value
End With
With Worksheets("Sheet Tujuan")
BarisTerakhir = .Cells(.Rows.Count, 1).End(xlUp).Row
BarisTujuan = BarisTerakhir + 1
.Cells(BarisTujuan, 1).Value = nama
.Cells(BarisTujuan, 2).Value = alamat
End With
End Sub
Macro yg anda buat adalah untuk mengcopy bukan memindahkan data.
Jika anda mengcopy data maka sumber datanya tentu tidak akan hilang (kosong) kecuali dihapus. Untuk menghapus sumber data (tdk tmsk format) anda bisa menggunakan clearcontents. Posisi cell pointer bisa berada pada sheet asal bisa juga pada sheet tujuan. Sila coba kedua2nya.
Salam,
HK
Sent from Samsung MobileShenly Ruchman <shenly_excelmania@
saya baru bgt ni belajar soal yang namanya macro, kemarin sya buat form input sederhana, tapi yang jadi masalahnya ketika sudah saya input data dari form tersebt, ko datanya masiha da di formnya ya, yang saya inginkan, bagaimana caranya agar data dalam form ketika sudah saya input, maka data tersbt langsung hilang,
macronya seperti ini master :
Sub Pindahan()
Dim nama, alamat As String
Dim BarisTerakhir, BarisTujuan As Integer
With Worksheets("
nama = .Cells(2, 2).Value
alamat = .Cells(3, 2).Value
End With
With Worksheets("
BarisTerakhir = .Cells(.Rows.
BarisTujuan = BarisTerakhir + 1
.Cells(BarisTujuan, 1).Value = nama
.Cells(BarisTujuan, 2).Value = alamat
End With
End Sub
Sun Apr 7, 2013 3:52 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Proses memindah data dari tempat A ke tempat B adalah proses :
1. menyalin data dari tempat A
2. menghapus data dari tempat A
3. menulis data ke tempat B
Pada script :
Sub Pindahan()
Dim nama, alamat As String
Dim BarisTerakhir, BarisTujuan As Integer
With Worksheets("Sheet Asal")
nama = .Cells(2, 2).Value
alamat = .Cells(3, 2).Value
End With
With Worksheets("Sheet Tujuan")
BarisTerakhir = .Cells(.Rows.Count, 1).End(xlUp).Row
BarisTujuan = BarisTerakhir + 1
.Cells(BarisTujuan, 1).Value = nama
.Cells(BarisTujuan, 2).Value = alamat
End With
End Sub
1. Proses menyalin dari tempat A dilakukan oleh blok :
With Worksheets("Sheet Asal")
nama = .Cells(2, 2).Value
alamat = .Cells(3, 2).Value
End With
2. Proses menghapus data dari tempat A *belum ada*, dan bisa dibuat dalam
blok :
With Worksheets("Sheet Asal")
.Cells(2, 2).clearcontents
.Cells(3, 2).clearcontents
End With
3. Proses menulis data ke tempat B
With Worksheets("Sheet Tujuan")
BarisTerakhir = .Cells(.Rows.Count, 1).End(xlUp).Row
BarisTujuan = BarisTerakhir + 1
.Cells(BarisTujuan, 1).Value = nama
.Cells(BarisTujuan, 2).Value = alamat
End With
Karena proses 1 dan 2 bekerja pada tempat yang sama, maka bisa digabung
bloknya menjadi :
With Worksheets("Sheet Asal")
nama = .Cells(2, 2).Value
alamat = .Cells(3, 2).Value
.Cells(2, 2).clearcontents
.Cells(3, 2).clearcontents
End With
Bunyi .Cells(2, 2) dan .Cells(3, 2) adalah rujukan ke range B2:B3, maka
baris-baris :
.Cells(2, 2).clearcontents
.Cells(3, 2).clearcontents
juga bisa diganti menjadi :
*.range("b2:b3").clearcontents*
dan blok bisa juga ditulis :
With Worksheets("Sheet Asal")
nama = .Cells(2, 2).Value
alamat = .Cells(3, 2).Value
* .range("b2:b3").clearcontents*
End With
Kemudian, tentang *deklarasi variabel*.
Yang perlu diketahui bahwa deklarasi berbunyi :
Dim nama, alamat As String
Cara deklarasi seperti demikian biasanya dianggap memiliki bahasa manusia
untuk memesan memori bagi variabel nama dan variabel alamat dengan tipedata
yang sama yaitu string. Padahal, bunyi baris deklarasi tersebut akan
menghasilkan variabel :
nama bertipe *Variant*
alamat bertipe String
Untuk memenuhi kesesuaian dengan bahasa manusia yang bermaksud memesan
memori untuk variabel nama dan variabel alamat yang memiliki tipedata yang
sama yaitu String, maka bunyi baris deklarasinya adalah :
Dim nama *as string*, alamat As String
sedang pada deklarasi berbunyi :
Dim BarisTerakhir, BarisTujuan As Integer
juga sama seperti kasus deklarasi diatas dan akan menghasilkan variabel :
BarisTerakhir bertipe *Variant*
BarisTujuan bertipe Integer
Agar semua variabel bertipe Integer, maka deklarasikan dengan :
Dim BarisTerakhir* as interger*, BarisTujuan As Integer
Dengan cara deklarasi seperti yang ada di script asli tetaplah benar dan
script tetap bisa berjalan. Hanya saja variabel bertipe variant membutuhkan
ruang memori lebih besar.
Susunan lengkap script setelah diubah sana-sini menjadi :
Sub Pindahan()
Dim nama *as string*, alamat As String
Dim BarisTerakhir* as interger*, BarisTujuan As Integer
With Worksheets("Sheet Asal")
nama = .Cells(2, 2).Value
alamat = .Cells(3, 2).Value
* .range("b2:b3").clearcontents
* End With
With Worksheets("Sheet Tujuan")
BarisTerakhir = .Cells(.Rows.Count, 1).End(xlUp).Row
BarisTujuan = BarisTerakhir + 1
.Cells(BarisTujuan, 1).Value = nama
.Cells(BarisTujuan, 2).Value = alamat
End With
End Sub
Wassalamu'alaikum Wr. Wb.
Kid.
2013/4/7 Shenly Ruchman <shenly_excelmania@yahoo.co.id >
> **
>
>
> Assalamualaikum..master...
> saya baru bgt ni belajar soal yang namanya macro, kemarin sya buat form
> input sederhana, tapi yang jadi masalahnya ketika sudah saya input data
> dari form tersebt, ko datanya masiha da di formnya ya, yang saya inginkan,
> bagaimana caranya agar data dalam form ketika sudah saya input, maka data
> tersbt langsung hilang,
>
> macronya seperti ini master :
>
>
> Sub Pindahan()
>
> Dim nama, alamat As String
> Dim BarisTerakhir, BarisTujuan As Integer
>
> With Worksheets("Sheet Asal")
> nama = .Cells(2, 2).Value
> alamat = .Cells(3, 2).Value
> End With
>
> With Worksheets("Sheet Tujuan")
> BarisTerakhir = .Cells(.Rows.Count, 1).End(xlUp).Row
> BarisTujuan = BarisTerakhir + 1
> .Cells(BarisTujuan, 1).Value = nama
> .Cells(BarisTujuan, 2).Value = alamat
> End With
>
> End Sub
>
>
>
Proses memindah data dari tempat A ke tempat B adalah proses :
1. menyalin data dari tempat A
2. menghapus data dari tempat A
3. menulis data ke tempat B
Pada script :
Sub Pindahan()
Dim nama, alamat As String
Dim BarisTerakhir, BarisTujuan As Integer
With Worksheets("
nama = .Cells(2, 2).Value
alamat = .Cells(3, 2).Value
End With
With Worksheets("
BarisTerakhir = .Cells(.Rows.
BarisTujuan = BarisTerakhir + 1
.Cells(BarisTujuan, 1).Value = nama
.Cells(BarisTujuan, 2).Value = alamat
End With
End Sub
1. Proses menyalin dari tempat A dilakukan oleh blok :
With Worksheets("
nama = .Cells(2, 2).Value
alamat = .Cells(3, 2).Value
End With
2. Proses menghapus data dari tempat A *belum ada*, dan bisa dibuat dalam
blok :
With Worksheets("
.Cells(2, 2).clearcontents
.Cells(3, 2).clearcontents
End With
3. Proses menulis data ke tempat B
With Worksheets("
BarisTerakhir = .Cells(.Rows.
BarisTujuan = BarisTerakhir + 1
.Cells(BarisTujuan, 1).Value = nama
.Cells(BarisTujuan, 2).Value = alamat
End With
Karena proses 1 dan 2 bekerja pada tempat yang sama, maka bisa digabung
bloknya menjadi :
With Worksheets("
nama = .Cells(2, 2).Value
alamat = .Cells(3, 2).Value
.Cells(2, 2).clearcontents
.Cells(3, 2).clearcontents
End With
Bunyi .Cells(2, 2) dan .Cells(3, 2) adalah rujukan ke range B2:B3, maka
baris-baris :
.Cells(2, 2).clearcontents
.Cells(3, 2).clearcontents
juga bisa diganti menjadi :
*.range("
dan blok bisa juga ditulis :
With Worksheets("
nama = .Cells(2, 2).Value
alamat = .Cells(3, 2).Value
* .range("
End With
Kemudian, tentang *deklarasi variabel*.
Yang perlu diketahui bahwa deklarasi berbunyi :
Dim nama, alamat As String
Cara deklarasi seperti demikian biasanya dianggap memiliki bahasa manusia
untuk memesan memori bagi variabel nama dan variabel alamat dengan tipedata
yang sama yaitu string. Padahal, bunyi baris deklarasi tersebut akan
menghasilkan variabel :
nama bertipe *Variant*
alamat bertipe String
Untuk memenuhi kesesuaian dengan bahasa manusia yang bermaksud memesan
memori untuk variabel nama dan variabel alamat yang memiliki tipedata yang
sama yaitu String, maka bunyi baris deklarasinya adalah :
Dim nama *as string*, alamat As String
sedang pada deklarasi berbunyi :
Dim BarisTerakhir, BarisTujuan As Integer
juga sama seperti kasus deklarasi diatas dan akan menghasilkan variabel :
BarisTerakhir bertipe *Variant*
BarisTujuan bertipe Integer
Agar semua variabel bertipe Integer, maka deklarasikan dengan :
Dim BarisTerakhir* as interger*, BarisTujuan As Integer
Dengan cara deklarasi seperti yang ada di script asli tetaplah benar dan
script tetap bisa berjalan. Hanya saja variabel bertipe variant membutuhkan
ruang memori lebih besar.
Susunan lengkap script setelah diubah sana-sini menjadi :
Sub Pindahan()
Dim nama *as string*, alamat As String
Dim BarisTerakhir* as interger*, BarisTujuan As Integer
With Worksheets("
nama = .Cells(2, 2).Value
alamat = .Cells(3, 2).Value
* .range("
* End With
With Worksheets("
BarisTerakhir = .Cells(.Rows.
BarisTujuan = BarisTerakhir + 1
.Cells(BarisTujuan, 1).Value = nama
.Cells(BarisTujuan, 2).Value = alamat
End With
End Sub
Wassalamu'
Kid.
2013/4/7 Shenly Ruchman <shenly_excelmania@
> **
>
>
> Assalamualaikum.
> saya baru bgt ni belajar soal yang namanya macro, kemarin sya buat form
> input sederhana, tapi yang jadi masalahnya ketika sudah saya input data
> dari form tersebt, ko datanya masiha da di formnya ya, yang saya inginkan,
> bagaimana caranya agar data dalam form ketika sudah saya input, maka data
> tersbt langsung hilang,
>
> macronya seperti ini master :
>
>
> Sub Pindahan()
>
> Dim nama, alamat As String
> Dim BarisTerakhir, BarisTujuan As Integer
>
> With Worksheets("
> nama = .Cells(2, 2).Value
> alamat = .Cells(3, 2).Value
> End With
>
> With Worksheets("
> BarisTerakhir = .Cells(.Rows.
> BarisTujuan = BarisTerakhir + 1
> .Cells(BarisTujuan, 1).Value = nama
> .Cells(BarisTujuan, 2).Value = alamat
> End With
>
> End Sub
>
>
>
Sun Apr 7, 2013 3:17 am (PDT) . Posted by:
"Mansor" nbmy1980
Para Teman BeExcel,
Tolong saya cari di mana error nya. File dilampirkan
Terima kasih
-Mansor
Private Sub CommandButton1_Click()
Dim rng As Range, cell As Range, selectedRng As Range
Dim askForCell As String, askTitle As String
askForCell = "Select your range"
askTitle = "Get cell"
Set selectedRng = Application.InputBox(Prompt:=askForCell,
Title:=askTitle, Type:=8)
Set rng = Range(selectedRng)
For Each cell In rng
If cell.Value >= 50 Then
cell.Font.ColorIndex = 5
Else
cell.Font.ColorIndex = 3
End If
Next cell
End Sub
Tolong saya cari di mana error nya. File dilampirkan
Terima kasih
-Mansor
Private Sub CommandButton1_
Dim rng As Range, cell As Range, selectedRng As Range
Dim askForCell As String, askTitle As String
askForCell = "Select your range"
askTitle = "Get cell"
Set selectedRng = Application.
Title:=askTitle, Type:=8)
Set rng = Range(selectedRng)
For Each cell In rng
If cell.Value >= 50 Then
cell.Font.ColorInde
Else
cell.Font.ColorInde
End If
Next cell
End Sub
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
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