Kamis, 27 Desember 2012

[belajar-excel] Digest Number 1989

15 New Messages

Digest #1989
1a
Re: HT List by "Jan Raisin"
1b
Re: HT List by "Abang Jakarta" budi170177
4a
Dateif di vba by "Selvrida Kusumawati" selvri_k
4b
Re: Dateif di vba by "Jan Raisin"
4c
Re: Dateif di vba by "Selvrida Kusumawati" selvri_k
6
APLIKASI PENJUALAN BARANG by "izmaul haqqi" mizma2005
7
Slide show progresif menampilkan data yang diupdate by "agung.widodo01@id.panasonic.com" aghoenx1

Messages

Wed Dec 26, 2012 6:30 pm (PST) . Posted by:

"Jan Raisin"

Dear pak Arkan,

formula di C4
=SUMPRODUCT(1*('CALL IN HT'!$A$6:$A$148=SUMMARY!$B4)*('CALL IN
HT'!$B$6:$B$148>(--SUBSTITUTE(LEFT(SUMMARY!C$3;5);".";":")))*('CALL IN
HT'!$B$6:$B$148<=(--SUBSTITUTE(RIGHT(SUMMARY!C$3;5);".";":"))))
copy ke kanan & ke bawah

formula di G4
=SUMPRODUCT(1*('CALL OUT'!$A$7:$A$233=SUMMARY!$B4)*('CALL
OUT'!$B$7:$B$233>(--SUBSTITUTE(LEFT(SUMMARY!G$3;5);".";":")))*('CALL
OUT'!$B$7:$B$233<=(SUBSTITUTE(RIGHT(SUMMARY!G$3;5);".";":"))*('CALL
OUT'!$D$7:$D$233<>"")*('CALL OUT'!$D$7:$D$233<>"Not Connected")))
copy ke kanan & ke bawah

formula di K4
=SUMPRODUCT(1*('CALL OUT'!$A$7:$A$233=SUMMARY!$B4)*('CALL
OUT'!$B$7:$B$233>(--SUBSTITUTE(LEFT(SUMMARY!K$3;5);".";":")))*('CALL
OUT'!$B$7:$B$233<=(SUBSTITUTE(RIGHT(SUMMARY!K$3;5);".";":"))*('CALL
OUT'!$D$7:$D$233<>"")*('CALL OUT'!$D$7:$D$233="Not Connected")))
copy ke kanan & ke bawah

maaf untuk grafiknya mungkin ada BeExceller lain yang bersedia membantu
(Jan jarang menggunakan chart (grafik), jadi belum ahli untuk masalah ini.

Formula di atas dapat berjalan di semua versi Excel, jika regional setting
di komputer Anda adalah English maka ganti setiap titik koma menjadi
koma. Semoga
ada BeExceller yang bersedia ,membantu membuatkan formula yang lebih
singkat.

Berhubung sample dibuat menggunakan Excel 2003 maka ukuran file menjadi
421KB di atas limit yang telah ditentukan oleh millis, untuk itu silakan
diunduh melalui link berikut ini: https://www.box.com/s/alegt5grxtgdlgeibd0g

Best Regard,

-Ms. Jan Raisin-

Pada 26 Desember 2012 15:46, Abang Jakarta <abang_jakarta17@yahoo.com>menulis:

> **
>
>
> Dear Bp. Raisin dan Master Excel,
>
> Apakah data dan penjelasan di file yang sekarang bisa membantu?
>
> Terimakasih
> Arkan
>
> --- On *Tue, 12/25/12, Jan Raisin <miss.jan.raisin@gmail.com>* wrote:
>
>
> From: Jan Raisin <miss.jan.raisin@gmail.com>
> Subject: Re: [belajar-excel] HT List
> To: belajar-excel@yahoogroups.com
> Date: Tuesday, December 25, 2012, 7:47 PM
>
>
>
>
> Dear pak Arkan,
>
> mungkin jika disertakan sampel datanya maka akan ada BeExceller yang
> bersedia berbagi solusi dengan anda. karena file yang dilampirkan hanya
> berisi template laporan tanpa data sama sekali.
>
> Best Regard,
>
> -Ms, Jan Raisin-
>
> Pada 24 Desember 2012 16:05, Abang Jakarta <abang_jakarta17@yahoo.com<http://mc/compose?to=abang_jakarta17@yahoo.com>
> > menulis:
>
> **
>
>
> Master XL,
>
> Minta tolong bantuannya, saya memiliki data HT dan setiap saat operator HT
> akan melakukan panggilan keluar dan menerima panggilan masuk. Adappun data
> yang ingin saya sajikan adalah :
> 1. Summary HT per 3 jam , tabel seperti di sheet "SUMMARY"
> 2. Tampilan grafik untuk 20 list HT yang terbanyak melakukan panggilan
> Call in dan Call out
> 3. Tampilan grafik untuk 20 list HT yang paling sedikit melakukan
> panggilan Call in dan Call Out
> 4. pada sheet Call in dan Call out, kolom Time hanya bisa di isi kalau HT
> ID sudah di isi, kolom Guard in Charge bisa di isi kalau kolom Time sudah
> di isi, Kolom Remarks bisa di isi kalau kolom Guard in charge sudah di isi
> 3. Non aktif fungsi copy paste" klik Kanan atau ctrl c dan ctrl v "
>
> Terimakasih
> arkan
>
>
>
>

Thu Dec 27, 2012 2:20 am (PST) . Posted by:

"Abang Jakarta" budi170177

Terimakasih pak Jan Raisin,
Mr. Kid bisa bantu untuk grafiknya ga? 

--- On Wed, 12/26/12, Jan Raisin <miss.jan.raisin@gmail.com> wrote:

From: Jan Raisin <miss.jan.raisin@gmail.com>
Subject: Re: [belajar-excel] HT List
To: belajar-excel@yahoogroups.com
Date: Wednesday, December 26, 2012, 6:30 PM

 

Dear pak Arkan,
formula di C4=SUMPRODUCT(1*('CALL IN HT'!$A$6:$A$148=SUMMARY!$B4)*('CALL IN HT'!$B$6:$B$148>(--SUBSTITUTE(LEFT(SUMMARY!C$3;5);".";":")))*('CALL IN HT'!$B$6:$B$148<=(--SUBSTITUTE(RIGHT(SUMMARY!C$3;5);".";":"))))
copy ke kanan & ke bawah
formula di G4
=SUMPRODUCT(1*('CALL OUT'!$A$7:$A$233=SUMMARY!$B4)*('CALL OUT'!$B$7:$B$233>(--SUBSTITUTE(LEFT(SUMMARY!G$3;5);".";":")))*('CALL OUT'!$B$7:$B$233<=(SUBSTITUTE(RIGHT(SUMMARY!G$3;5);".";":"))*('CALL OUT'!$D$7:$D$233<>"")*('CALL OUT'!$D$7:$D$233<>"Not Connected")))
copy ke kanan & ke bawah
formula di K4
=SUMPRODUCT(1*('CALL OUT'!$A$7:$A$233=SUMMARY!$B4)*('CALL OUT'!$B$7:$B$233>(--SUBSTITUTE(LEFT(SUMMARY!K$3;5);".";":")))*('CALL OUT'!$B$7:$B$233<=(SUBSTITUTE(RIGHT(SUMMARY!K$3;5);".";":"))*('CALL OUT'!$D$7:$D$233<>"")*('CALL OUT'!$D$7:$D$233="Not Connected")))
copy ke kanan & ke bawah
maaf untuk grafiknya mungkin ada BeExceller lain yang bersedia membantu (Jan jarang menggunakan chart (grafik), jadi belum ahli untuk masalah ini.

Formula di atas dapat berjalan di semua versi Excel, jika regional setting di komputer Anda adalah English maka ganti setiap titik koma menjadi koma. Semoga ada BeExceller yang bersedia ,membantu membuatkan formula yang lebih singkat.

Berhubung sample dibuat menggunakan Excel 2003 maka ukuran file menjadi 421KB di atas limit yang telah ditentukan oleh millis, untuk itu silakan diunduh melalui link berikut ini: https://www.box.com/s/alegt5grxtgdlgeibd0g

Best Regard,
-Ms. Jan Raisin-

Pada 26 Desember 2012 15:46, Abang Jakarta <abang_jakarta17@yahoo.com> menulis:

 

Dear Bp. Raisin dan Master Excel,
Apakah data dan penjelasan di file yang sekarang bisa membantu?

TerimakasihArkan

--- On Tue, 12/25/12, Jan Raisin <miss.jan.raisin@gmail.com> wrote:

From: Jan Raisin <miss.jan.raisin@gmail.com>
Subject: Re: [belajar-excel] HT List
To: belajar-excel@yahoogroups.com

Date: Tuesday, December 25, 2012, 7:47 PM

 

Dear pak Arkan,
mungkin jika disertakan sampel datanya maka akan ada BeExceller yang bersedia berbagi solusi dengan anda. karena file yang dilampirkan hanya berisi template laporan tanpa data sama sekali.

Best Regard,
-Ms, Jan Raisin- 

Pada 24 Desember 2012 16:05, Abang Jakarta <abang_jakarta17@yahoo.com> menulis:

 

Master XL,
Minta tolong bantuannya, saya memiliki data HT dan setiap saat operator HT akan melakukan panggilan keluar dan menerima panggilan masuk. Adappun data yang ingin saya sajikan adalah :

1. Summary HT per 3 jam , tabel seperti di sheet "SUMMARY" 2. Tampilan grafik untuk 20 list HT yang terbanyak melakukan panggilan Call in dan Call out3. Tampilan grafik untuk 20 list HT yang paling sedikit melakukan panggilan Call in dan Call Out

4. pada sheet Call in dan Call out, kolom Time hanya bisa di isi kalau HT ID sudah di isi, kolom Guard in Charge bisa di isi kalau kolom Time sudah di isi, Kolom Remarks bisa di isi kalau kolom Guard in charge sudah di isi

3. Non aktif fungsi copy paste" klik Kanan atau ctrl c dan ctrl v

Terimakasiharkan

Wed Dec 26, 2012 6:53 pm (PST) . Posted by:

"Jan Raisin"

Alternatif formula yang lain adalah:

=IfError(VLookUp($A4;Sheet1!$A$2:$AE$10;Match(Sheet2!C$2;Sheet1!$B$1:$AE$1;0)+1;0);"")

karena sample file berektensi .xlsx maka untuk trap Errornya bisa
menggunakan IfError, ini akan sedikit memperpendek formula

Best Regard,

-Ms. Jan Raisin-

Pada 26 Desember 2012 18:47, Bagus <bagus@kingjim.co.id> menulis:

> **
>
>
> **
> Dear Pak Nurdiansyah;
>
> File terlampir semoga sesuai harapan
>
>
> Bagus
>
>
>
> ----- Original Message -----
> *From:* Nurdiansyah Tri Hardono <nurdiansyah_th@hotmail.com>
> *To:* Milis Belajar Excel <belajar-excel@yahoogroups.com>
> *Sent:* Wednesday, December 26, 2012 5:57 PM
> *Subject:* [belajar-excel] Mohon bantuan menyamakan data dengan 2 variabel
>
>
>
> Dear All..
> Mohon bantuannya untuk menyelesaikan masalah mengurutkan data dengan
> keterangan baris dan kolom yang tidak sama;
> saya mempunyai data sumber (sheet 1) dimana urutan keterangan baris maupun
> kolom sangat berbeda dengan template yang harus saya isi (sheet 2).
> Kira-kira rumus apa yang harus saya gunakan..?
> Sebelumnya saya ucapkan terimakasih atas bantuan rekan-rekan.. mohon maaf
> jika kata-kata saya membingungkan
>
>
>
>

Wed Dec 26, 2012 10:08 pm (PST) . Posted by:

"nurdiansyah_th@hotmail.com"

Dear Ms. Jan Raisin & Mas Bagus..

Terimakasih atas pencerahannya... Sangat membantu sekali..

Salam,

Nurdin
Sent from BlackBerry� on 3

-----Original Message-----
From: Jan Raisin <miss.jan.raisin@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 27 Dec 2012 09:53:05
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Mohon bantuan menyamakan data dengan 2 variabel

Alternatif formula yang lain adalah:

=IfError(VLookUp($A4;Sheet1!$A$2:$AE$10;Match(Sheet2!C$2;Sheet1!$B$1:$AE$1;0)+1;0);"")

karena sample file berektensi .xlsx maka untuk trap Errornya bisa
menggunakan IfError, ini akan sedikit memperpendek formula

Best Regard,

-Ms. Jan Raisin-

Pada 26 Desember 2012 18:47, Bagus <bagus@kingjim.co.id> menulis:

> **
>
>
> **
> Dear Pak Nurdiansyah;
>
> File terlampir semoga sesuai harapan
>
>
> Bagus
>
>
>
> ----- Original Message -----
> *From:* Nurdiansyah Tri Hardono <nurdiansyah_th@hotmail.com>
> *To:* Milis Belajar Excel <belajar-excel@yahoogroups.com>
> *Sent:* Wednesday, December 26, 2012 5:57 PM
> *Subject:* [belajar-excel] Mohon bantuan menyamakan data dengan 2 variabel
>
>
>
> Dear All..
> Mohon bantuannya untuk menyelesaikan masalah mengurutkan data dengan
> keterangan baris dan kolom yang tidak sama;
> saya mempunyai data sumber (sheet 1) dimana urutan keterangan baris maupun
> kolom sangat berbeda dengan template yang harus saya isi (sheet 2).
> Kira-kira rumus apa yang harus saya gunakan..?
> Sebelumnya saya ucapkan terimakasih atas bantuan rekan-rekan.. mohon maaf
> jika kata-kata saya membingungkan
>
>
>
>

Wed Dec 26, 2012 7:12 pm (PST) . Posted by:

"Jan Raisin"

Wa'alaikumsalam wr. wb.,

Sambil menunggu saran dari yang lain, coba tambahkan script berikut ini
setelah close #1
Range(Cells(5,2), Cells(5,2).End(xlDown)).TextToColumns _
Cells(5,2), xlDelimited, xlTextQualifierDoubleQuote, 1, Space:=True

Wassalamu'alaikum wr. wb.,

-Ms. Jan Raisin-

Pada 26 Desember 2012 17:57, Adi <abduhsuryadi@gmail.com> menulis:

> **
>
>
> Assalamu'alaikum Wr. Wb.
>
> Saya mempunyai data di jwb.txt
> isinya kira-kira:
>
> A002 Adi 10-A Biologi DACDEDAEDA
> A004 Ahmad 10-B Fisika ADCDEEAACA
>
> kode saya untuk membaca file tersebut ke excel seperti ini:
>
> Dim sData as String
>
> Open "D:\jwb.txt" For Input As #1
> Cells(5, 2).Select
> Do While Not EOF(1)
> Input #1, sData
> ActiveCell.Value = sData
> ActiveCell.Offset(1, 0).Select
> Loop
> Close #1
>
> Hasil yang didapatkan semua berada di satu kolom.
> Bagaimana cara agar setiap data yang dipisah dengan tab dalam text file
> tersebut berada dalam kolom tersendiri?
> Terima kasih, wassalam...
>
>
>

Wed Dec 26, 2012 9:52 pm (PST) . Posted by:

"Jan Raisin"

ups.. salah xixixix :D
yang tadi untuk space delimiter, coba ubah script menjadi seperti ini:

Dim sData As String
Dim T As Variant
Dim iRow As Long, iCol As Integer

Open "D:\jwb.txt" For Input As #1
iRow = 5
Input #1, sData
Do While Not EOF(1)
T = Split(sData, vbTab)
For iCol = 1 To 5
Cells(iRow, iCol + 1) = T(iCol - 1)
Next iCol
iRow = iRow + 1
Input #1, sData
Loop
Close #1

Wassalamu'alaikum wr. wb.,

-Ms. Jan Raisin-

Pada 27 Desember 2012 10:12, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

> Wa'alaikumsalam wr. wb.,
>
> Sambil menunggu saran dari yang lain, coba tambahkan script berikut ini
> setelah close #1
> Range(Cells(5,2), Cells(5,2).End(xlDown)).TextToColumns _
> Cells(5,2), xlDelimited, xlTextQualifierDoubleQuote, 1, Space:=True
>
> Wassalamu'alaikum wr. wb.,
>
> -Ms. Jan Raisin-
>
> Pada 26 Desember 2012 17:57, Adi <abduhsuryadi@gmail.com> menulis:
>
> **
>>
>>
>> Assalamu'alaikum Wr. Wb.
>>
>> Saya mempunyai data di jwb.txt
>> isinya kira-kira:
>>
>> A002 Adi 10-A Biologi DACDEDAEDA
>> A004 Ahmad 10-B Fisika ADCDEEAACA
>>
>> kode saya untuk membaca file tersebut ke excel seperti ini:
>>
>> Dim sData as String
>>
>> Open "D:\jwb.txt" For Input As #1
>> Cells(5, 2).Select
>> Do While Not EOF(1)
>> Input #1, sData
>> ActiveCell.Value = sData
>> ActiveCell.Offset(1, 0).Select
>> Loop
>> Close #1
>>
>> Hasil yang didapatkan semua berada di satu kolom.
>> Bagaimana cara agar setiap data yang dipisah dengan tab dalam text file
>> tersebut berada dalam kolom tersendiri?
>> Terima kasih, wassalam...
>>
>>
>>
>
>

Thu Dec 27, 2012 2:21 am (PST) . Posted by:

"Adi" abduh_suryadi

trmkash Miss..
saya coba kode yg terakhir dan ada error: "subscript out of range". kira2 kenapa ya?
wassalam...

--- In belajar-excel@yahoogroups.com, Jan Raisin <miss.jan.raisin@...> wrote:
>
> ups.. salah xixixix :D
> yang tadi untuk space delimiter, coba ubah script menjadi seperti ini:
>
> Dim sData As String
> Dim T As Variant
> Dim iRow As Long, iCol As Integer
>
> Open "D:\jwb.txt" For Input As #1
> iRow = 5
> Input #1, sData
> Do While Not EOF(1)
> T = Split(sData, vbTab)
> For iCol = 1 To 5
> Cells(iRow, iCol + 1) = T(iCol - 1)
> Next iCol
> iRow = iRow + 1
> Input #1, sData
> Loop
> Close #1
>
> Wassalamu'alaikum wr. wb.,
>
> -Ms. Jan Raisin-
>
> Pada 27 Desember 2012 10:12, Jan Raisin <miss.jan.raisin@...> menulis:
>
> > Wa'alaikumsalam wr. wb.,
> >
> > Sambil menunggu saran dari yang lain, coba tambahkan script berikut ini
> > setelah close #1
> > Range(Cells(5,2), Cells(5,2).End(xlDown)).TextToColumns _
> > Cells(5,2), xlDelimited, xlTextQualifierDoubleQuote, 1, Space:=True
> >
> > Wassalamu'alaikum wr. wb.,
> >
> > -Ms. Jan Raisin-
> >
> > Pada 26 Desember 2012 17:57, Adi <abduhsuryadi@...> menulis:
> >
> > **
> >>
> >>
> >> Assalamu'alaikum Wr. Wb.
> >>
> >> Saya mempunyai data di jwb.txt
> >> isinya kira-kira:
> >>
> >> A002 Adi 10-A Biologi DACDEDAEDA
> >> A004 Ahmad 10-B Fisika ADCDEEAACA
> >>
> >> kode saya untuk membaca file tersebut ke excel seperti ini:
> >>
> >> Dim sData as String
> >>
> >> Open "D:\jwb.txt" For Input As #1
> >> Cells(5, 2).Select
> >> Do While Not EOF(1)
> >> Input #1, sData
> >> ActiveCell.Value = sData
> >> ActiveCell.Offset(1, 0).Select
> >> Loop
> >> Close #1
> >>
> >> Hasil yang didapatkan semua berada di satu kolom.
> >> Bagaimana cara agar setiap data yang dipisah dengan tab dalam text file
> >> tersebut berada dalam kolom tersendiri?
> >> Terima kasih, wassalam...
> >>
> >>
> >>
> >
> >
>

Thu Dec 27, 2012 5:19 am (PST) . Posted by:

"Jan Raisin"

Wa'alaikumsalam wr. wb.,

Pak Adi, sebelumnya scriptnya sudah Jan tes di versi 2010 dan dapat
berjalan dengan baik, Jan juga tidak mengetahui kenapa muncul error di
komputer pak Adi.

Ditunggu saja solusi dari BeExceller yang lain. Maaf jika solusi yang Jan
berikan tidak bekerja dengan baik. :)

wassalamu'alaikum wr. wb.,

-Ms. Jan Raisin-

Pada 27 Desember 2012 14:30, Adi <abduhsuryadi@gmail.com> menulis:

> **
>
>
> trmkash Miss..
> saya coba kode yg terakhir dan ada error: "subscript out of range". kira2
> kenapa ya?
> wassalam...
>
>
> --- In belajar-excel@yahoogroups.com, Jan Raisin <miss.jan.raisin@...>
> wrote:
> >
> > ups.. salah xixixix :D
> > yang tadi untuk space delimiter, coba ubah script menjadi seperti ini:
> >
> > Dim sData As String
> > Dim T As Variant
> > Dim iRow As Long, iCol As Integer
> >
> > Open "D:\jwb.txt" For Input As #1
> > iRow = 5
> > Input #1, sData
> > Do While Not EOF(1)
> > T = Split(sData, vbTab)
> > For iCol = 1 To 5
> > Cells(iRow, iCol + 1) = T(iCol - 1)
> > Next iCol
> > iRow = iRow + 1
> > Input #1, sData
> > Loop
> > Close #1
> >
> > Wassalamu'alaikum wr. wb.,
> >
> > -Ms. Jan Raisin-
> >
> > Pada 27 Desember 2012 10:12, Jan Raisin <miss.jan.raisin@...> menulis:
>
> >
> > > Wa'alaikumsalam wr. wb.,
> > >
> > > Sambil menunggu saran dari yang lain, coba tambahkan script berikut ini
> > > setelah close #1
> > > Range(Cells(5,2), Cells(5,2).End(xlDown)).TextToColumns _
> > > Cells(5,2), xlDelimited, xlTextQualifierDoubleQuote, 1, Space:=True
> > >
> > > Wassalamu'alaikum wr. wb.,
> > >
> > > -Ms. Jan Raisin-
> > >
> > > Pada 26 Desember 2012 17:57, Adi <abduhsuryadi@...> menulis:
> > >
> > > **
>
> > >>
> > >>
> > >> Assalamu'alaikum Wr. Wb.
> > >>
> > >> Saya mempunyai data di jwb.txt
> > >> isinya kira-kira:
> > >>
> > >> A002 Adi 10-A Biologi DACDEDAEDA
> > >> A004 Ahmad 10-B Fisika ADCDEEAACA
> > >>
> > >> kode saya untuk membaca file tersebut ke excel seperti ini:
> > >>
> > >> Dim sData as String
> > >>
> > >> Open "D:\jwb.txt" For Input As #1
> > >> Cells(5, 2).Select
> > >> Do While Not EOF(1)
> > >> Input #1, sData
> > >> ActiveCell.Value = sData
> > >> ActiveCell.Offset(1, 0).Select
> > >> Loop
> > >> Close #1
> > >>
> > >> Hasil yang didapatkan semua berada di satu kolom.
> > >> Bagaimana cara agar setiap data yang dipisah dengan tab dalam text
> file
> > >> tersebut berada dalam kolom tersendiri?
> > >> Terima kasih, wassalam...
> > >>
> > >>
> > >>
> > >
> > >
> >
>
>
>

Wed Dec 26, 2012 10:09 pm (PST) . Posted by:

"Selvrida Kusumawati" selvri_k

Dear temans
 
selvri mau tanya, jika di kolom C terdapat data tanggal, selvri mau minta tolong temans gimana macro untuk menghitung masa kerja, jika ditulis dengan formula bisa dengan fungsi dateif, tapi selvri pengennya dengan macro. soalnya biar sekalian di eksekusi dari macro lainnya.
 
Format tanggal di kolom c adalah mm/dd/yyyy.
 
selvri coba dengan syntax berikut tapi ga bisa
with activesheet
 Range("C2").Resize(Cells(Rows.Count,1).End(xlUp).Row-1).Formula = "=Dateif(C2,Today(),""y"")&" Tahun" &Dateif(C2,Today(),""ym"")&" Bulan" &Dateif(C2,Today(),""md"")&" hari""
End with
Terima kasih atas bantuannya.
 
Salam
Selvri

Wed Dec 26, 2012 11:47 pm (PST) . Posted by:

"Jan Raisin"

Dear Selvri,

Coba script berikut:

dim rg as range, idxRow as long

' cari nomor baris terakhir di kolom C
idxrow=cells(rows.count, 3).end(xlup).row

' set area yang mau dipasang formulanya
set rg = range(cells(nomor_baris_awal , nomor_kolom), cells(idxrow ,
nomor_kolom))

' pasang formula ke range
rg.formula="=DateDif(c2,today(),""y"") & "" Tahun "" & DateDif(c2
,today(),""ym"") & "" Bulan "" & DateDif(c2,today(),""yd"") & "" Hari"""

Perhatikan pemakaian tanda kutip dua di dalam script, untuk data dengan
tipe string harus diawali 2x kutip dua dan diakhiri dengan 2x kutip dua.
Formula yang digunakan adalah Date*D*if, ada huruf D di tengah

Best Regards,

-Ms. Jan Raisin-

Pada 27 Desember 2012 11:05, Selvrida Kusumawati <selvri_k@yahoo.com>menulis:

> **
>
>
> Dear temans
>
> selvri mau tanya, jika di kolom C terdapat data tanggal, selvri mau minta
> tolong temans gimana macro untuk menghitung masa kerja, jika ditulis dengan
> formula bisa dengan fungsi dateif, tapi selvri pengennya dengan macro.
> soalnya biar sekalian di eksekusi dari macro lainnya.
>
> Format tanggal di kolom c adalah mm/dd/yyyy.
>
> selvri coba dengan syntax berikut tapi ga bisa
> with activesheet
> Range("C2").Resize(Cells(Rows.Count,1).End(xlUp).Row-1).Formula =
> "=Dateif(C2,Today(),""y"")&" Tahun" &Dateif(C2,Today(),""ym"")&" Bulan"
> &Dateif(C2,Today(),""md"")&" hari""
> End with
> Terima kasih atas bantuannya.
>
> Salam
> Selvri
>
>
>

Thu Dec 27, 2012 2:23 am (PST) . Posted by:

"Selvrida Kusumawati" selvri_k

 
Dear Miss Jan
 
selvri pakai versi 2003 .. tetap ga bisa..Run-time error '1004' : application-defined or object-defined error
tapi di versi 2007 bisa lhoh..  masalahnya dimana yaa
dim rg as range, idxRow as long
 
idxrow=cells(rows.count, 3).end(xlup).row     

 
set rg = range(cells(2,17), cells(idxrow , 17))     
 
rg.formula = "=Dateif(C2,Today(),""y"")&"" Tahun "" &Dateif(C2,Today(),""ym"") & "" Bulan "" & Dateif(C2,Today(),""md"" ) & "" Hari ""
 
Terima kasih atas bantuannya

-------- Original Message --------
Subject: Re: [belajar-excel] Dateif di vba
Date: Thu, 27 Dec 2012 14:47:28 +0700
From: Jan Raisin <miss.jan.raisin@gmail.com>
Reply-To: belajar-excel@yahoogroups.com
To: belajar-excel@yahoogroups.com

Dear Selvri,

Coba script berikut:

dim rg as range, idxRow as long

' cari nomor baris terakhir di kolom C
idxrow=cells(rows.count, 3).end(xlup).row     

' set area yang mau dipasang formulanya
set rg = range(cells(nomor_baris_awal, nomor_kolom), cells(idxrow , nomor_kolom))     

' pasang formula ke range
rg.formula="=DateDif(c2,today(),""y"") & "" Tahun "" & DateDif(c2 ,today(),""ym"") & "" Bulan "" & DateDif(c2,today(),""yd"") & "" Hari"""

Perhatikan pemakaian tanda kutip dua di dalam script, untuk data dengan tipe string harus diawali 2x kutip dua dan diakhiri dengan 2x kutip dua.
Formula yang digunakan adalah DateDif, ada huruf D di tengah

Best Regards,

-Ms. Jan Raisin-

Wed Dec 26, 2012 11:39 pm (PST) . Posted by:

"Teti Zhe" teti_zhe

Dear All,
Saya mohon bantuannya, bagaimana cara mengelola data untuk dianalisis di excel? Selama ini yang saya dengar, yang paling standar untuk mengolah data adalah pake SPSS, namun, browsing2 katanya bisa koq pake excel malah lebih mudah gitu.. Apakah teman-teman boleh share ke saya contoh nya (contoh data yang kemudian diolah/dianalisis pake excel)..? Mulai dari cara input questioner nya hingga analisisnya, gimana gitu ? Jika data tersebut misalnya merupakah bahan untuk mengukur berapa persen ketertarikan seseorang pada sesuatu hal begitu?? Apakah ada rumus2 statistik yang rumit2 itu yang perlu dipake? 
Mohon pencerahannya, 
Terimakasih..
 
Salam,
Teti.

Thu Dec 27, 2012 2:21 am (PST) . Posted by:

"izmaul haqqi" mizma2005



Dear rekan-rekan belajar excel,

Mohon bantuan rekan - rekan belajar excel bagi yang mempunyai aplikasi dari
program excel untuk aplikasi penjualan / perhitungan stok, meliputi nomor, nama produk, produk masuk, produk keluar / dijual, harga satuan, banyaknya produk masuk / keluar, harga satuan, jumlah harga, dan laporan posisi stok barang di gudang agar kiranya dapat berbagi.
saya sangat membutuhkan bantuan dari rekan-rekan semuanya.
sebelumnya saya ucapkan terima kasih.

Salam,

Moh. Izmaul Haqqi081234667878

Thu Dec 27, 2012 2:22 am (PST) . Posted by:

"agung.widodo01@id.panasonic.com" aghoenx1

Rekan Be-excel,

Sekedar mau Tanya,
Mungkin rekan sekalian ada yang tahu,

Maaf kalau mungkin milis ini kurang tepat,

Ada segenap data utama yang berada dalam database / tabel Excel
Yang selalu diupdate.
Anggaplah data berupa Bulan dan angka hasil persentase di tiap bulannya.

Yang diinginkan adalah bagaimana menampilkan angka tersebut secara Full screen di monitor yang dipasang di tempat umum
dan berganti-ganti data2nya tiap beberapa waktu layaknya slide powerpoint atau bisa juga tampilan berjalan seperti breaking news
yang menampilkan data progress dan real time.

Seperti display di bandara saham atau ramalan cuaca itu lho..

Kira-kira program aplikasi apa yang bisa dipakai atau mungkinkah memakai bahasa Excel / makro?

Terimakasih

Wassalam
Agung Widodo

Thu Dec 27, 2012 2:22 am (PST) . Posted by:

"Adi" abduh_suryadi

Assalamu'alaikum Wr. Wb.

Saya mempunyai data di text file (jwb.txt) seperti ini:
A007,Abdurrahman,Fisika;22/7/2000;Lombok Barat,NTB;Narmada;ABCDEFGHIJ

Dim sData as String
Open "D:\jwb.txt" For Input As #1
Cells(5, 2).Select
Do While Not EOF(1)
Input #1, sData
ActiveCell.Value = sData
ActiveCell.Offset(1, 0).Select
Loop
Close #1

Pertanyaan:
1. Kenapa tanda koma (,) dianggap sebagai new line?
2. Bagaimana cara untuk memecah data tersebut ke setiap kolom, dimana tanda titik koma (;) menjadi pemisahnya? (5 kolom)

Terima kasih, mohon maaf kalau ada yang salah.
Wassalamu'alaikum Wr. Wb.

GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar