[belajar-excel] Digest Number 2409

Milis Belajar Microsoft Excel Group

15 New Messages

Digest #2409

1a

Re: MEMBUAT QUERY by "mardi" hekerkampoeng

1b

Re: MEMBUAT QUERY by "zainul_ulum[at]yahoo[dot]com" zainul_ulum

2

BelajarVBA : Variabel dan tipe data by "Mr. Kid" nmkid.family@ymail.com

3a

Re: cara input karakter (') dari excel ke database mysql by "Rahmat Hermawan" ione_1984

4a

Update status data by "Rudi Anto" rudi.excel

4b

Re: Update status data by "Jan Raisin"

4c

Bls: Re: [belajar-excel] Update status data by "Rudi Anto" rudi.excel

5a

Re: merapikan database by "Jan Raisin"

5b

Re: merapikan database by "him mah"

5c

Re: merapikan database by "him mah"

5d

Re: merapikan database by "Jan Raisin"

6

menjumlahkan transaksi pajak ke penggunaan dana 8 standar by "Bos Kbrn" bos.kbrn

7a

bagaimana rumus otomatisnya menghitung bobot ya?? by "Anggraini Hapsari" anggrainihapsari@ymail.com

7b

Re: bagaimana rumus otomatisnya menghitung bobot ya?? by "Jan Raisin"

8

total jam kerja by "Renaldo Parulian" renaldo.parulian

Messages

1a

Re: MEMBUAT QUERY

Mon Jul 8, 2013 7:22 am (PDT) . Posted by:

"mardi" hekerkampoeng

Kalo belajar bahasa sql gitu dimana ya pak ? yang runut dari yang paling dasar tentunya.

mardi

From: zainul_ulum[at]yahoo[dot]com
Sent: Friday, July 05, 2013 2:45 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] MEMBUAT QUERY

silahkan dicoba langkah-langkah seperti di attachment.
menggunakan Microsoft query tanpa macro dan tanpa rumus.

thanks
-zainul-

From: mailto:belajar-excel%40yahoogroups.com [mailto:mailto:belajar-excel%40yahoogroups.com]
On Behalf Of Salam
Sent: Friday, July 05, 2013 11:05 AM
To: Belajar Excel
Subject: [belajar-excel] MEMBUAT QUERY

Assalamu'alaikum..

Master exceler, saya ingin membuat summary dari tabel berikut ( lih.
lampiran), dengan menggunakan macro.
Atas bantuannya saya ucapkan terima kasih.

Salam
A.Salam

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

1b

Re: MEMBUAT QUERY

Mon Jul 8, 2013 8:11 am (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

Saya juga sedang belajar Mas dari Sekolah Google

Kalo ada kesulitan, tanya ke Mr. Kid

wassalam

-zainul-

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of mardi
Sent: Monday, July 08, 2013 9:23 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] MEMBUAT QUERY

Kalo belajar bahasa sql gitu dimana ya pak ? yang runut dari yang paling dasar tentunya.

mardi

From: zainul_ulum[at]yahoo[dot]com <mailto:zainul_ulum@yahoo.com>

Sent: Friday, July 05, 2013 2:45 PM

To: belajar-excel@yahoogroups.com

Subject: RE: [belajar-excel] MEMBUAT QUERY

silahkan dicoba langkah-langkah seperti di attachment.
menggunakan Microsoft query tanpa macro dan tanpa rumus.

thanks
-zainul-

From: mailto:belajar-excel%40yahoogroups.com [mailto:mailto:belajar-excel%40yahoogroups.com]
On Behalf Of Salam
Sent: Friday, July 05, 2013 11:05 AM
To: Belajar Excel
Subject: [belajar-excel] MEMBUAT QUERY

Assalamu'alaikum..

Master exceler, saya ingin membuat summary dari tabel berikut ( lih.
lampiran), dengan menggunakan macro.
Atas bantuannya saya ucapkan terima kasih.

Salam
A.Salam

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

2

BelajarVBA : Variabel dan tipe data

Mon Jul 8, 2013 9:47 am (PDT) . Posted by:

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

Dear BeExceller,

Belajar tipe data dan variabel
disini<http://b-excel.blogspot.com/2013/07/belajarvba-004-tipe-data-variabel.html>yuk...

:)

Wassalam,
Kid.

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

3a

Re: cara input karakter (') dari excel ke database mysql

Mon Jul 8, 2013 2:24 pm (PDT) . Posted by:

"Rahmat Hermawan" ione_1984

Maaf baru bisa ol lagi..

Btw Terima kasih banyak Mr.. Kid atas petunjuknya... kemarin saya coba2 di script SQL nya tetep ga bisa pake replace tapi mungkin karena tanpa karakter "$" setelah "replace", akhirnya saya ngutak-atik di script VBA nya ketemulah script kayak gini...

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Private Sub cmd_simpan_Click()
Application.ScreenUpdating = False

Dim petik As String, garingpetik As String, namapemohon As String, namakuasa As String
Dim badanusaha As String, namausaha As String, jenisusaha As String
petik = "'"
garingpetik = "\&#39;"
namapemohon = Replace(Range("nama_pemohon_2"), petik, garingpetik)
namakuasa = Replace(Range("nama_kuasa_2"), petik, garingpetik)
badanusaha = Replace(Range("badan_usaha_2"), petik, garingpetik)
namausaha = Replace(Range("nama_usaha_2"), petik, garingpetik)
jenisusaha = Replace(Range("jenis_usaha_2"), petik, garingpetik)

konekdb
conn.CursorLocation = adUseClient

Set rs = New ADODB.Recordset
sQuery = "SELECT * FROM data_ho WHERE no_reg='" & Range("no_reg_2").Value & "'"
rs.Open sQuery, conn, adOpenStatic, adLockReadOnly

If rs.RecordCount > 0 Then
conn.Execute "UPDATE data_ho SET nama_pemohon='" & namapemohon & "', alamat_pemohon='" & Range("alamat_pemohon_2").Value & "', telp_pemohon='" & Range("telp_pemohon_2").Value & _
                            "', lokasi_permohonan='" & Range("lokasi_permohonan_2").Value & "', telp_lokasi='" & Range("telp_lokasi_2").Value & "', badan_usaha='" & badanusaha & "', nama_usaha=&#39;" & namausaha & _
                            "', jenis_usaha='" & jenisusaha & "', nama_indeks1='" & Range("nama_indeks1_2").Value & _
                            "', jenis_usaha1='" & Range("jenis_usaha1_2").Value & "', lrtu1=REPLACE('" & Range("lrtu1_2").Value & "',',','.&#39;), il1='" & Range("il1_2").Value & _
                            "', igt_permukiman1='" & Range("igt_Permukiman1_2").Value & "', igt_nonpermukiman1='" & Range("igt_nonpermukiman1_2").Value & "', igt_terminal1='" & Range("igt_terminal1_2").Value & _
                            "', igt_pertanian1='" & Range("igt_pertanian1_2").Value & "', igtt_produk1='" & Range("igtt_produk1_2").Value & "', igtt_jenis1='" & Range("igtt_jenis1_2").Value & _
                            "', ret1=REPLACE('" & Range("ret1_2").Value & "',',','.&#39;), nama_indeks2='" & Range("nama_indeks2_2").Value & "', jenis_usaha2='" & Range("jenis_usaha2_2").Value & "', lrtu2=REPLACE('" & Range("lrtu2_2").Value & _
                            "',',','.&#39;), il2='" & Range("il2_2").Value & "', igt_permukiman2='" & Range("igt_permukiman2_2").Value & "', igt_nonpermukiman2='" & Range("igt_nonpermukiman2_2").Value & _
                            "', igt_terminal2='" & Range("igt_terminal2_2").Value & "', igt_pertanian2='" & Range("igt_pertanian2_2").Value & "', igtt_produk2='" & Range("igtt_produk2_2").Value & _
                            "', igtt_jenis2='" & Range("igtt_jenis2_2").Value & "', ret2=REPLACE('" & Range("ret2_2").Value & "',',','.&#39;), nama_kuasa=&#39;" & namakuasa & "', telp_kuasa=&#39;" & Range("telp_kuasa_2").Value & _
                            "', lama_terhutang='" & Range("lama_terhutang_2").Value & "', besar_denda=REPLACE(&#39;" & Range("besar_denda_2").Value & "',',','.&#39;), cat1='" & Range("cat1_2").Value & "', cat2='" & Range("cat2_2").Value & _
                            "', cat3='" & Range("cat3_2").Value & "', tgl_masuk=&#39;" & Range("tgl_masuk_c_2").Value & "', tgl_tinjau=&#39;" & Range("tgl_tinjau_c_2").Value & "', tgl_skrd1=&#39;" & Range("tgl_skrd1_c_2").Value & _
                            "', tgl_skrd2=&#39;" & Range("tgl_skrd2_c_2").Value & "', alasan_skrd2='" & Range("alasan_skrd2_2").Value & "', tgl_skrd3=&#39;" & Range("tgl_skrd3_c_2").Value & "', alasan_skrd3='" & Range("alasan_skrd3_2").Value & _
                            "', tgl_dibayarkan='" & Range("tgl_dibayarkan_c_2").Value & "', tgl_terbit_sk='" & Range("tgl_terbit_sk_c_2").Value & "', no_kwitansi='" & Range("no_kwitansi_2").Value & _
                            "', status_cetak_sk='" & Range("status_cetak_sk_2").Value & "', syarat1='" & Range("syarat1_2").Value & "', tgl_syarat1='" & Range("tgl_syarat1_c_2").Value & "', syarat2='" & Range("syarat2_2").Value & _
                            "', tgl_syarat2='" & Range("tgl_syarat2_c_2").Value & "', syarat3='" & Range("syarat3_2").Value & "', tgl_syarat3='" & Range("tgl_syarat3_c_2").Value & "', syarat4='" & Range("syarat4_2").Value & _
                            "', tgl_syarat4='" & Range("tgl_syarat4_c_2").Value & "', retribusi=REPLACE('" & Application.WorksheetFunction.Sum(Range("ret1_2").Value, Range("ret2_2").Value) & "',',','.&#39;), pk='" & Range("pk_2").Value & _
                            "', ket_pk='" & Range("ket_pk_2").Value & "', luas_usaha=REPLACE('" & Application.WorksheetFunction.Sum(Range("lrtu1_2").Value, Range("lrtu2_2").Value) & _
                            "',',','.&#39;) WHERE no_reg='" & Range("no_reg_2").Value & "'"
MsgBox "Data berhasil di UPDATE", vbInformation
Range("no_reg_2").Select

Else
MsgBox "Data tidak ada di DATABASE HO, Silahkan dimasukkan dari Sheet BeritaAcaraTinjau&quot;, vbInformation
Range("no_reg_2").Select
End If
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

Jadi pake Replacenya ada yg di script VBA nya, ada yang di Script SQL nya....

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

4a

Update status data

Mon Jul 8, 2013 4:16 pm (PDT) . Posted by:

"Rudi Anto" rudi.excel

Assalamu'alaikum Wr. Wb.

gimana ya update status data via macro,
terlampir saya sertakan file lampiran.

ketika kita jalankan form, kemudian masukkan nomor barcode
di enter data akan mengupdate status sesuai nomor barcode dan option button.

saya tidak menggunakan command button,
karena saya pake scanner barcode.

terima kasih sebelumnya, atas batuan rekan2.

salam,
++rudi

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

4b

Re: Update status data

Mon Jul 8, 2013 7:36 pm (PDT) . Posted by:

"Jan Raisin"

æóÚóáóíúßõãõ áÓóøáÇóãõ æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
Mumpung lagi bisa online, bantu sedikit solusi:

script ditulis dalam sebuah modul:

Sub UpDateData()
Dim sCode As String
Dim rgFind As Range
Dim iCnt As Integer

sCode = frmData.txtNomor.Text
Set rgFind = Cells.Range("b:b").Find(sCode, lookat:=xlWhole,
MatchCase:=True)
If rgFind Is Nothing Then
frmData.Label3.Caption = 0
MsgBox "Data Tidak Ada", vbCritical + vbOKOnly, "Data Tidak
Ditemukan"
Exit Sub
End If
iCnt = Application.WorksheetFunction.CountIf(Range("b:b"), sCode)
frmData.Label3.Caption = iCnt
If iCnt >= 2 Then
MsgBox "BarCode : " & sCode & vbNewLine & _
"Ada " & iCnt & " data yang sama", vbCritical + vbOKOnly, "Data
Ganda"
Exit Sub
End If
If frmData.OptionButton1 = True Then
Cells(rgFind.Row, 12).Value = "bayar"
Else
Cells(rgFind.Row, 12).Value = "belum"
End If
End Sub

script ditulis dalam form Data

Private Sub OptionButton1_Click()
UpDateData
Unload frmData
End Sub

Private Sub OptionButton2_Click()
UpDateData
Unload frmData
End Sub

Jan mohon dibukakan pintu maaf atas segala salah kata selama kurang lebih 1
tahun bergabung dengan milis ini,
insya ALLAH mulai besok Jan akan menjalankan shaum Ramadhan, semoga ibadah
kita diterima ALLAH SWT.

Çóãöíä íóÇ ÑóÈóø ÇáúÚóÇáóãöíúä

æóÓóøáÇóãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ

-Miss Jan Raisin-

- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.

Çóãöíä íóÇ ÑóÈóø ÇáúÚóÇáóãöíúä

Pada 9 Juli 2013 05.51, Rudi Anto <rudi.excel@yahoo.com> menulis:

> **
>
>
> Assalamu'alaikum Wr. Wb.
>
> gimana ya update status data via macro,
> terlampir saya sertakan file lampiran.
>
> ketika kita jalankan form, kemudian masukkan nomor barcode
> di enter data akan mengupdate status sesuai nomor barcode dan option
> button.
>
> saya tidak menggunakan command button,
> karena saya pake scanner barcode.
>
> terima kasih sebelumnya, atas batuan rekan2.
>
> salam,
> ++rudi
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

4c

Bls: Re: [belajar-excel] Update status data

Mon Jul 8, 2013 11:08 pm (PDT) . Posted by:

"Rudi Anto" rudi.excel

Wah, terima kasih mbak Jan Raisin,

Saya juga mohon maaf
Atas khilaf dan salah selama ini
Smoga anggota milis
Memaafkan kesalahan saya.


++rudi
BeExceller

-----Original Message-----
From: Jan Raisin <miss.jan.raisin@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 9 Jul 2013 09:36:35
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Update status data


وَعَلَيÙ'كُمُ لسَÙ'لاَمُ وَرَحÙ'مَةُ اللهِ وَبَرَكَاتُهُ
Mumpung lagi bisa online, bantu sedikit solusi:

script ditulis dalam sebuah modul:

Sub UpDateData()
Dim sCode As String
Dim rgFind As Range
Dim iCnt As Integer

sCode = frmData.txtNomor.Text
Set rgFind = Cells.Range("b:b").Find(sCode, lookat:=xlWhole,
MatchCase:=True)
If rgFind Is Nothing Then
frmData.Label3.Caption = 0
MsgBox "Data Tidak Ada", vbCritical + vbOKOnly, "Data Tidak
Ditemukan"
Exit Sub
End If
iCnt = Application.WorksheetFunction.CountIf(Range("b:b"), sCode)
frmData.Label3.Caption = iCnt
If iCnt >= 2 Then
MsgBox "BarCode : " & sCode & vbNewLine & _
"Ada " & iCnt & " data yang sama", vbCritical + vbOKOnly, "Data
Ganda"
Exit Sub
End If
If frmData.OptionButton1 = True Then
Cells(rgFind.Row, 12).Value = "bayar"
Else
Cells(rgFind.Row, 12).Value = "belum"
End If
End Sub

script ditulis dalam form Data

Private Sub OptionButton1_Click()
UpDateData
Unload frmData
End Sub

Private Sub OptionButton2_Click()
UpDateData
Unload frmData
End Sub

Jan mohon dibukakan pintu maaf atas segala salah kata selama kurang lebih 1
tahun bergabung dengan milis ini,
insya ALLAH mulai besok Jan akan menjalankan shaum Ramadhan, semoga ibadah
kita diterima ALLAH SWT.

اَمِين يَا رَبَÙ' الÙ'عَالَمِيÙ'Ù†

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

-Miss Jan Raisin-


- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.


اَمِين يَا رَبَÙ' الÙ'عَالَمِيÙ'Ù†



Pada 9 Juli 2013 05.51, Rudi Anto <rudi.excel@yahoo.com> menulis:

> **
>
>
> Assalamu'alaikum Wr. Wb.
>
> gimana ya update status data via macro,
> terlampir saya sertakan file lampiran.
>
> ketika kita jalankan form, kemudian masukkan nomor barcode
> di enter data akan mengupdate status sesuai nomor barcode dan option
> button.
>
> saya tidak menggunakan command button,
> karena saya pake scanner barcode.
>
> terima kasih sebelumnya, atas batuan rekan2.
>
> salam,
> ++rudi
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

5a

Re: merapikan database

Mon Jul 8, 2013 8:29 pm (PDT) . Posted by:

"Jan Raisin"

æóÚóáóíúßõãõ áÓóøáÇóãõ æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ

Coba bantu solusi ya.. tapi gak pakai VBA.. hanya formula biasa dengan 1
kolom bantu
file terlampir

Jan mohon dibukakan pintu maaf atas segala salah kata selama kurang lebih
1 tahun bergabung dengan milis ini,
insya ALLAH mulai besok Jan akan menjalankan shaum Ramadhan, semoga ibadah
kita diterima ALLAH SWT.

Çóãöíä íóÇ ÑóÈóø ÇáúÚóÇáóãöíúä

æóÓóøáÇóãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ

-Miss Jan Raisin-

- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
Çóãöíä íóÇ ÑóÈóø ÇáúÚóÇáóãöíúä

Pada 8 Juli 2013 16.10, him mah <himmah.mlg@gmail.com> menulis:

> **
>
>
> Assalamu'alaikum Wr. Wb.
>
> Saya Punya database yang sebenarnya sudah teratur, yang terdiri dari dua
> kolom misal kolom ISI dan JUDUL. tiap satu data terdiri dari 3 baris
> tersusun kebawah, jadi kalau ada 3 data jumlah barisnya ada 9
>
> misal database awalnya seperti ini
>
>
> ISI JUDUL 1 P-A 7317009090 P-B 04-JAN-11 P-C 1 P-A 7219130000 P-B
> 05-JAN-11 P-C 2 P-A 7219130000 P-B 05-JAN-11 P-C
> kemudian database tersebut diubah menjadi seperti ini
>
> P-A P-B P-C 1 7317009090 04-JAN-11 1 7219130000 05-JAN-11 2
> 7219130000 05-JAN-11
> kira-kira kalau ingin hasil seperti diatas, VBA nya seperti Apa ya
>
> terima kasih
>
> _
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

5b

Re: merapikan database

Mon Jul 8, 2013 8:46 pm (PDT) . Posted by:

"him mah"

terima kasih bu, sudah bisa

sebelumnya saya coba googling dan nemu ini

http://superuser.com/questions/359617/convert-one-column-into-multiple-rows

tapi masih bingung untuk yang lebih dari satu kolom

kalau contohnya seperti ini

Column A
1
2
3
4
5
1
1
2
3

terus hasilnya seperti ini

1 2 3
4 5 1
1 2 3

VBA nya seperti ini

Option Explicit

Sub movetocolumns()
Dim i As Integer, iRow As Integer
Dim arrSource As Variant

'Set the first row
iRow = 1

With ActiveWorkbook.Worksheets("Sheet1&quot;)
'get the data into an array from the first column
arrSource = Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))

'parse every value of the array and add the data to the next column
For i = 1 To (UBound(arrSource) - UBound(arrSource) Mod 3) Step 3
.Cells(iRow, 2) = arrSource(i, 1)
.Cells(iRow, 3) = arrSource(i + 1, 1)
.Cells(iRow, 4) = arrSource(i + 2, 1)
iRow = iRow + 1
Next i
'add the remaining values
Select Case UBound(arrSource) Mod 3
Case 1 'one item to add
.Cells(iRow, 2) = arrSource(i, 1)
Case 2 'still two items to add
.Cells(iRow, 2) = arrSource(i, 1)
.Cells(iRow, 3) = arrSource(i + 1, 1)
Case Else 'nothing to add
End Select
End With
End Sub

kalau data saya itu seperti ini

Column A Column B Column C 1 A 2010 2 A 2010 3 A 2010 4 B 2011 5 B
2011 1 B 2011 1 C 2010 2 C 2010 3 C 2010
hasil yang diharapkan seperti ini

1 2 3 A 2010 4 5 1 B 2011 1 2 3 C 2010

Pada 9 Juli 2013 10.29, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

> **
>
>
> æóÚóáóíúßõãõ áÓóøáÇóãõ æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
>
> Coba bantu solusi ya.. tapi gak pakai VBA.. hanya formula biasa dengan 1
> kolom bantu
> file terlampir
>
> Jan mohon dibukakan pintu maaf atas segala salah kata selama kurang lebih
> 1 tahun bergabung dengan milis ini,
> insya ALLAH mulai besok Jan akan menjalankan shaum Ramadhan, semoga ibadah
> kita diterima ALLAH SWT.
>
> Çóãöíä íóÇ ÑóÈóø ÇáúÚóÇáóãöíúä
>
> æóÓóøáÇóãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
>
> -Miss Jan Raisin-
>
>
> - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
> belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
> member milis;
> - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
> dengan orang-orang yang sabar QS 2:153;
> - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
> memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
> ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
> Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
> memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
> bisa on line setiap saat;
> - Semoga semangat berbagi dan membantu semakin meningkat di kalangan
> Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
> Çóãöíä íóÇ ÑóÈóø ÇáúÚóÇáóãöíúä
>
>
>
> Pada 8 Juli 2013 16.10, him mah <himmah.mlg@gmail.com> menulis:
>
>> **
>>
>>
>> Assalamu'alaikum Wr. Wb.
>>
>> Saya Punya database yang sebenarnya sudah teratur, yang terdiri dari dua
>> kolom misal kolom ISI dan JUDUL. tiap satu data terdiri dari 3 baris
>> tersusun kebawah, jadi kalau ada 3 data jumlah barisnya ada 9
>>
>> misal database awalnya seperti ini
>>
>>
>> ISI JUDUL 1 P-A 7317009090 P-B 04-JAN-11 P-C 1 P-A 7219130000 P-B
>> 05-JAN-11 P-C 2 P-A 7219130000 P-B 05-JAN-11 P-C
>> kemudian database tersebut diubah menjadi seperti ini
>>
>> P-A P-B P-C 1 7317009090 04-JAN-11 1 7219130000 05-JAN-11 2
>> 7219130000 05-JAN-11
>> kira-kira kalau ingin hasil seperti diatas, VBA nya seperti Apa ya
>>
>> terima kasih
>>
>> _
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

5c

Re: merapikan database

Tue Jul 9, 2013 12:01 am (PDT) . Posted by:

"him mah"

Alhamdulillah sudah bisa, saya sedikit modifikasi VBA seperti dibawah

cuma yang sedikit masalah, bagaimana caranya agar penulisannya lebih
sederhana. kebetulan contohnya hanya cuma 3. bagaimana kalau contohnya ada
16 (per data) bagaimana ya. masa harus nulis satu-satu

.Cells(iRow, 5) = arrSource(i, 3)

sampai

.Cells(iRow, 16) = arrSource(i, 18)

Sub movetocolumns()
Dim i As Integer, iRow As Integer
Dim arrSource As Variant
Dim shtAwal As Worksheet
'Set the first row
iRow = 1

Set shtAwal = Sheets("data-awal")
With ActiveWorkbook.Worksheets("DATA-AKHIR")
'get the data into an array from the first column
arrSource = Range(shtAwal.Cells(1, 1),
shtAwal.Cells(shtAwal.Rows.Count, 3).End(xlUp))
'parse every value of the array and add the data to the next column
For i = 1 To (UBound(arrSource) - UBound(arrSource) Mod 3) Step 3
.Cells(iRow, 1) = arrSource(i, 1)
.Cells(iRow, 2) = arrSource(i + 1, 1)
.Cells(iRow, 3) = arrSource(i + 2, 1)
.Cells(iRow, 4) = arrSource(i, 2)
.Cells(iRow, 5) = arrSource(i, 3)
iRow = iRow + 1
Next i
'add the remaining values
Select Case UBound(arrSource) Mod 3
Case 1 'one item to add
.Cells(iRow, 1) = arrSource(i, 1)
Case 2 'still two items to add
.Cells(iRow, 2) = arrSource(i, 1)
.Cells(iRow, 3) = arrSource(i + 1, 1)
.Cells(iRow, 4) = arrSource(i, 1 + 1)
.Cells(iRow, 5) = arrSource(i, 3)
Case Else 'nothing to add
End Select
End With
End Sub

Pada 9 Juli 2013 10.46, him mah <himmah.mlg@gmail.com> menulis:

> terima kasih bu, sudah bisa
>
>
> sebelumnya saya coba googling dan nemu ini
>
> http://superuser.com/questions/359617/convert-one-column-into-multiple-rows
>
> tapi masih bingung untuk yang lebih dari satu kolom
>
> kalau contohnya seperti ini
>
> Column A
> 1
> 2
> 3
> 4
> 5
> 1
> 1
> 2
> 3
>
> terus hasilnya seperti ini
>
> 1 2 3
> 4 5 1
> 1 2 3
>
> VBA nya seperti ini
>
>
> Option Explicit
>
> Sub movetocolumns()
> Dim i As Integer, iRow As Integer
> Dim arrSource As Variant
>
> 'Set the first row
> iRow = 1
>
> With ActiveWorkbook.Worksheets("Sheet1&quot;)
> 'get the data into an array from the first column
> arrSource = Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
>
> 'parse every value of the array and add the data to the next column
> For i = 1 To (UBound(arrSource) - UBound(arrSource) Mod 3) Step 3
> .Cells(iRow, 2) = arrSource(i, 1)
> .Cells(iRow, 3) = arrSource(i + 1, 1)
> .Cells(iRow, 4) = arrSource(i + 2, 1)
> iRow = iRow + 1
> Next i
> 'add the remaining values
> Select Case UBound(arrSource) Mod 3
> Case 1 'one item to add
> .Cells(iRow, 2) = arrSource(i, 1)
> Case 2 'still two items to add
> .Cells(iRow, 2) = arrSource(i, 1)
> .Cells(iRow, 3) = arrSource(i + 1, 1)
> Case Else 'nothing to add
> End Select
> End With
> End Sub
>
>
> kalau data saya itu seperti ini
>
> Column A Column B Column C 1 A 2010 2 A 2010 3 A 2010 4 B 2011 5 B
> 2011 1 B 2011 1 C 2010 2 C 2010 3 C 2010
> hasil yang diharapkan seperti ini
>
> 1 2 3 A 2010 4 5 1 B 2011 1 2 3 C 2010
>
>
>
>
> Pada 9 Juli 2013 10.29, Jan Raisin <miss.jan.raisin@gmail.com> menulis:
>
> **
>>
>>
>> وَعَلَيÙ'كُمُ لسَÙ'لاَمُ وَرَحÙ'مَةُ اللهِ وَبَرَكَاتُهُ
>>
>> Coba bantu solusi ya.. tapi gak pakai VBA.. hanya formula biasa dengan 1
>> kolom bantu
>> file terlampir
>>
>> Jan mohon dibukakan pintu maaf atas segala salah kata selama kurang lebih
>> 1 tahun bergabung dengan milis ini,
>> insya ALLAH mulai besok Jan akan menjalankan shaum Ramadhan, semoga
>> ibadah kita diterima ALLAH SWT.
>>
>> اَمِين يَا رَبَÙ' الÙ'عَالَمِيÙ'Ù†
>>
>> وَسَÙ'لاَمُ عَلَيÙ'كُمÙ' وَرَحÙ'مَةُ اللهِ وَبَرَكَاتُهُ
>>
>> -Miss Jan Raisin-
>>
>>
>> - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya
>> * ke belajar-excel@yahoogroups.com bukan dikirim japri ke email
>> pribadi member milis;
>> - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
>> dengan orang-orang yang sabar QS 2:153;
>> - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
>> memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
>> ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
>> Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
>> memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
>> bisa on line setiap saat;
>> - Semoga semangat berbagi dan membantu semakin meningkat di kalangan
>> Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
>> اَمِين يَا رَبَÙ' الÙ'عَالَمِيÙ'Ù†
>>
>>
>>
>> Pada 8 Juli 2013 16.10, him mah <himmah.mlg@gmail.com> menulis:
>>
>>> **
>>>
>>>
>>> Assalamu'alaikum Wr. Wb.
>>>
>>> Saya Punya database yang sebenarnya sudah teratur, yang terdiri dari dua
>>> kolom misal kolom ISI dan JUDUL. tiap satu data terdiri dari 3 baris
>>> tersusun kebawah, jadi kalau ada 3 data jumlah barisnya ada 9
>>>
>>> misal database awalnya seperti ini
>>>
>>>
>>> ISI JUDUL 1 P-A 7317009090 P-B 04-JAN-11 P-C 1 P-A 7219130000 P-B
>>> 05-JAN-11 P-C 2 P-A 7219130000 P-B 05-JAN-11 P-C
>>> kemudian database tersebut diubah menjadi seperti ini
>>>
>>> P-A P-B P-C 1 7317009090 04-JAN-11 1 7219130000 05-JAN-11 2
>>> 7219130000 05-JAN-11
>>> kira-kira kalau ingin hasil seperti diatas, VBA nya seperti Apa ya
>>>
>>> terima kasih
>>>
>>> _
>>>
>>
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

5d

Re: merapikan database

Tue Jul 9, 2013 12:24 am (PDT) . Posted by:

"Jan Raisin"

æóÚóáóíúßõãõ áÓóøáÇóãõ æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ

coba script berikut:

syarat:
baris data pertama berada di baris 1 kolom 1
jika data berbeda, sesuaikan rujukan pada variabel rgData dan iMod dengan
kondisi data sebenarnya

Option Explicit

Sub RowToColumn()
Dim rgData As Range, rgCell As Range
Dim iData As Integer, c As Integer, iCol As Integer
Dim r As Long, iMod As Integer
Dim myArray() As Variant

Set rgData = Range("a1").CurrentRegion
Set rgData = rgData.Resize(rgData.Rows.Count, 1)

' karena datanya per 3 baris maka dibagi 3
' kalo datanya per 16 baris maka dibagi 16
iData = rgData.Rows.Count / 3

' r adalah jumlah baris data yang akan dihasilkan dikurangi 1
' c adalah jumlah kolom data yang akan dihasilkan dikurangi 1
ReDim myArray(r = 0 To iData - 1, c = 0 To 4)

For Each rgCell In rgData

' karena jumlah data per 3 baris maka menggunakan Mod 3
' jika data per 16 baris maka diganti dengan Mod 16
iMod = rgCell.Row Mod 3

If iMod <> 0 Then
iCol = 1
myArray(r, c) = rgCell.Value
c = c + 1
Else

' karena pada setiap akhir blok data ada 3 kolom yang harus
dimasukkan nilainya
' maka nilai iCol harus sampai dengan 3
' jika pada setiap akhir blok data ada 10 kolom yang harus
dimasukkan, maka
' nilai iCol harus sampai dengan 10
For iCol = 1 To 3
myArray(r, c) = Cells(rgCell.Row, iCol).Value
c = c + 1
Next iCol
r = r + 1
c = 0
End If
Next rgCell
Cells.Clear

' jumlah baris terakhir dan kolom terakhir harus ditambah 1
' karena index Array dimulai dari nilai 0 (Nol) bukannya 1
Set rgData = Range(Cells(1, 1), Cells(r + 1, 6))

rgData = myArray
End Sub

æóÓóøáÇóãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ

-Miss Jan Raisin-

- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
Çóãöíä íóÇ ÑóÈóø ÇáúÚóÇáóãöíúä

Pada 9 Juli 2013 14.01, him mah <himmah.mlg@gmail.com> menulis:

> **
>
>
> Alhamdulillah sudah bisa, saya sedikit modifikasi VBA seperti dibawah
>
> cuma yang sedikit masalah, bagaimana caranya agar penulisannya lebih
> sederhana. kebetulan contohnya hanya cuma 3. bagaimana kalau contohnya ada
> 16 (per data) bagaimana ya. masa harus nulis satu-satu
>
>
> .Cells(iRow, 5) = arrSource(i, 3)
>
> sampai
>
> .Cells(iRow, 16) = arrSource(i, 18)
>
>
>
> Sub movetocolumns()
> Dim i As Integer, iRow As Integer
> Dim arrSource As Variant
> Dim shtAwal As Worksheet
>
> 'Set the first row
> iRow = 1
>
> Set shtAwal = Sheets("data-awal")
> With ActiveWorkbook.Worksheets("DATA-AKHIR")
>
> 'get the data into an array from the first column
> arrSource = Range(shtAwal.Cells(1, 1),
> shtAwal.Cells(shtAwal.Rows.Count, 3).End(xlUp))
>
> 'parse every value of the array and add the data to the next column
> For i = 1 To (UBound(arrSource) - UBound(arrSource) Mod 3) Step 3
> .Cells(iRow, 1) = arrSource(i, 1)
> .Cells(iRow, 2) = arrSource(i + 1, 1)
> .Cells(iRow, 3) = arrSource(i + 2, 1)
> .Cells(iRow, 4) = arrSource(i, 2)
> .Cells(iRow, 5) = arrSource(i, 3)
>
> iRow = iRow + 1
> Next i
> 'add the remaining values
> Select Case UBound(arrSource) Mod 3
> Case 1 'one item to add
> .Cells(iRow, 1) = arrSource(i, 1)
> Case 2 'still two items to add
> .Cells(iRow, 2) = arrSource(i, 1)
> .Cells(iRow, 3) = arrSource(i + 1, 1)
> .Cells(iRow, 4) = arrSource(i, 1 + 1)
> .Cells(iRow, 5) = arrSource(i, 3)
>
> Case Else 'nothing to add
> End Select
> End With
> End Sub
>
>
>
>
> Pada 9 Juli 2013 10.46, him mah <himmah.mlg@gmail.com> menulis:
>
> terima kasih bu, sudah bisa
>>
>>
>> sebelumnya saya coba googling dan nemu ini
>>
>>
>> http://superuser.com/questions/359617/convert-one-column-into-multiple-rows
>>
>> tapi masih bingung untuk yang lebih dari satu kolom
>>
>> kalau contohnya seperti ini
>>
>> Column A
>> 1
>> 2
>> 3
>> 4
>> 5
>> 1
>> 1
>> 2
>> 3
>>
>> terus hasilnya seperti ini
>>
>> 1 2 3
>> 4 5 1
>> 1 2 3
>>
>> VBA nya seperti ini
>>
>>
>> Option Explicit
>>
>> Sub movetocolumns()
>> Dim i As Integer, iRow As Integer
>> Dim arrSource As Variant
>>
>> 'Set the first row
>> iRow = 1
>>
>> With ActiveWorkbook.Worksheets("Sheet1&quot;)
>> 'get the data into an array from the first column
>> arrSource = Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
>>
>> 'parse every value of the array and add the data to the next column
>> For i = 1 To (UBound(arrSource) - UBound(arrSource) Mod 3) Step 3
>> .Cells(iRow, 2) = arrSource(i, 1)
>> .Cells(iRow, 3) = arrSource(i + 1, 1)
>> .Cells(iRow, 4) = arrSource(i + 2, 1)
>> iRow = iRow + 1
>> Next i
>> 'add the remaining values
>> Select Case UBound(arrSource) Mod 3
>> Case 1 'one item to add
>> .Cells(iRow, 2) = arrSource(i, 1)
>> Case 2 'still two items to add
>> .Cells(iRow, 2) = arrSource(i, 1)
>> .Cells(iRow, 3) = arrSource(i + 1, 1)
>> Case Else 'nothing to add
>> End Select
>> End With
>> End Sub
>>
>>
>> kalau data saya itu seperti ini
>>
>> Column A Column B Column C 1 A 2010 2 A 2010 3 A 2010 4 B 2011 5 B
>> 2011 1 B 2011 1 C 2010 2 C 2010 3 C 2010
>> hasil yang diharapkan seperti ini
>>
>> 1 2 3 A 2010 4 5 1 B 2011 1 2 3 C 2010
>>
>>
>>
>>
>> Pada 9 Juli 2013 10.29, Jan Raisin <miss.jan.raisin@gmail.com> menulis:
>>
>> **
>>>
>>>
>>> æóÚóáóíúßõãõ áÓóøáÇóãõ æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
>>>
>>> Coba bantu solusi ya.. tapi gak pakai VBA.. hanya formula biasa dengan 1
>>> kolom bantu
>>> file terlampir
>>>
>>> Jan mohon dibukakan pintu maaf atas segala salah kata selama kurang
>>> lebih 1 tahun bergabung dengan milis ini,
>>> insya ALLAH mulai besok Jan akan menjalankan shaum Ramadhan, semoga
>>> ibadah kita diterima ALLAH SWT.
>>>
>>> Çóãöíä íóÇ ÑóÈóø ÇáúÚóÇáóãöíúä
>>>
>>> æóÓóøáÇóãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
>>>
>>> -Miss Jan Raisin-
>>>
>>>
>>> - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *
>>> hanya* ke belajar-excel@yahoogroups.com bukan dikirim japri ke email
>>> pribadi member milis;
>>> - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
>>> dengan orang-orang yang sabar QS 2:153;
>>> - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller
>>> yang memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
>>> ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
>>> Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
>>> memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
>>> bisa on line setiap saat;
>>> - Semoga semangat berbagi dan membantu semakin meningkat di kalangan
>>> Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
>>> Çóãöíä íóÇ ÑóÈóø ÇáúÚóÇáóãöíúä
>>>
>>>
>>>
>>> Pada 8 Juli 2013 16.10, him mah <himmah.mlg@gmail.com> menulis:
>>>
>>>> **
>>>>
>>>>
>>>> Assalamu'alaikum Wr. Wb.
>>>>
>>>> Saya Punya database yang sebenarnya sudah teratur, yang terdiri dari
>>>> dua kolom misal kolom ISI dan JUDUL. tiap satu data terdiri dari 3 baris
>>>> tersusun kebawah, jadi kalau ada 3 data jumlah barisnya ada 9
>>>>
>>>> misal database awalnya seperti ini
>>>>
>>>>
>>>> ISI JUDUL 1 P-A 7317009090 P-B 04-JAN-11 P-C 1 P-A 7219130000
>>>> P-B 05-JAN-11 P-C 2 P-A 7219130000 P-B 05-JAN-11 P-C
>>>> kemudian database tersebut diubah menjadi seperti ini
>>>>
>>>> P-A P-B P-C 1 7317009090 04-JAN-11 1 7219130000 05-JAN-11 2
>>>> 7219130000 05-JAN-11
>>>> kira-kira kalau ingin hasil seperti diatas, VBA nya seperti Apa ya
>>>>
>>>> terima kasih
>>>>
>>>> _
>>>>
>>>
>>
> _
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (5) . Top ^

6

menjumlahkan transaksi pajak ke penggunaan dana 8 standar

Mon Jul 8, 2013 11:07 pm (PDT) . Posted by:

"Bos Kbrn" bos.kbrn

assalamu'alaikum para master excel saya mau bertanya lagi, ketika saya memilih cetak K7 dan K7a transaksi pajak ada item belanja sendiri yaitu akun 2.4 bagaimana menjumlahkan akun pajak dan bank ke standar pembiayaan 1.7? link file terlampir ini linknya http://www.4shared.com/file/Sn5IQvuJ/BOS_SDN_2_Dukuhwaluh.html

best regards

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

7a

bagaimana rumus otomatisnya menghitung bobot ya??

Mon Jul 8, 2013 11:07 pm (PDT) . Posted by:

"Anggraini Hapsari" anggrainihapsari@ymail.com

sy punya lampiran 
kalo dia punya pengalaman 1 tahun bobotnya 1 tahun 
punya pengalaman 2 tahun bobotnya 2 thn
 tapi kriteria penilaian 100, 70 dan 0 
 isi kriteria booleh di rubah kok
kl ada dide sy boleh dikasih tahu
tp sementara dr sy seperti itu.
terima kasih bantuannya 

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

7b

Re: bagaimana rumus otomatisnya menghitung bobot ya??

Tue Jul 9, 2013 12:36 am (PDT) . Posted by:

"Jan Raisin"

Hai Anggraini,

Jan gak tau itu kriteria mau dimasukkan ke kolom mana.. tapi coba formula
berikut ini ditulis pada baris 6

=IFERROR(--MID(C6;FIND(" ";C6;FIND(" ";C6)+1)+1;2);"")

Salam,

-Miss Jan Raisin-

- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
اَمِين يَا رَبَÙ' الÙ'عَالَمِيÙ'Ù†

Pada 9 Juli 2013 11.52, Anggraini Hapsari <anggrainihapsari@ymail.com>menulis:

> **
>
>
> sy punya lampiran
> kalo dia punya pengalaman 1 tahun bobotnya 1 tahun
> punya pengalaman 2 tahun bobotnya 2 thn
> tapi kriteria penilaian 100, 70 dan 0
> isi kriteria booleh di rubah kok
> kl ada dide sy boleh dikasih tahu
> tp sementara dr sy seperti itu.
> terima kasih bantuannya
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

8

total jam kerja

Tue Jul 9, 2013 12:36 am (PDT) . Posted by:

"Renaldo Parulian" renaldo.parulian

dear para pakar excel...

saya punya permasalahan untuk perhitungan total jam kerja....karena memakai sistem 3 shift
tolong kepada para pakar excel untuk membantu permasalahan saya.
berikut saya lampirkan filenya.

permasalahannya adalah:
1.jam kerja normal adalah jumlahnya 7 jam kerja...baik dia masuk shift 1,2 maupun 3
2diatas 7 jam kerja berarti dihitung lembur
3.setiap kehadiran dipotong 1 jam untuk isitirahat.

trims

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

Visit Your Group

>

View All Topics

>

Create New Topic

>

15 New Members

>

We are making changes based on your feedback, Thank you !

Submit Feedback

>

The Yahoo! Groups Product Blog

Check it out!

>

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
---------------------------------------------------------------------

CHANGE SETTINGS

>

TERMS OF USE

>

UNSUBSCRIBE

>