Messages In This Digest (15 Messages)

1a.: File dgn extension TEC From: hartini_80@yahoo.co.id
1b.: Re: File dgn extension TEC From: Haps

2a.: Re: copy dan rename file From: Haps
2b.: Re: copy dan rename file From: him mah

3a.: Menambah Text pada setiap baris From: lut her
3b.: Re: Menambah Text pada setiap baris From: o' Seno
3c.: Bls: [belajar-excel] Menambah Text pada setiap baris From: ghozi alkatiri
3d.: Re: Menambah Text pada setiap baris From: jkssxls Sudarsono

4a.: mencari round-up & total nilai From: Budhi Cahyanto
4b.: Re: mencari round-up & total nilai From: jkssxls Sudarsono

5a.: Data Siswa yang telah terurut menggunakan macro From: Muhammad Robin
5b.: Re: Data Siswa yang telah terurut menggunakan macro From: Haps
5c.: Re: Data Siswa yang telah terurut menggunakan macro From: Udin Haeruddin

6.: Urutan data From: budi_secbtm@sanyo.com

7.: bagaimana memfilternya... From: Harumi Wanasita

View All Topics | Create New Topic

Messages

1a.: File dgn extension TEC

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id hartini_80

Wed Dec 14, 2011 7:54 am (PST)

Selamat malam semua,
Rekan2 sekalian saya sangat membutuhkan bantuan, adakah yg tau bagaimana cara membuka file dgn extension tec (.tec)
Mungkin diantar rekan2 sekalian ada yg bisa menjelaskan mengenai extension tersebut kpd saya, saya sangat membutuhkan informasi tersebut.
Mohon bantuannya.
Salam
Tiny
Powered by Telkomsel BlackBerry®

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
1b.: Re: File dgn extension TEC

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Wed Dec 14, 2011 11:52 am (PST)

coba baca di beberapa tempat ini
http://file-extension.net/seeker/file_extension_tec
http://file-extension.paretologic.com/detail.php/File-Extension-TEC
http://filext.com/file-extension/TECH
http://www.ehow.com/facts_5751775_file-extension-type-tec_.html
http://filetonic.com/file-extension/results/tec
http://www.filefacts.net/tec-file-extension
http://www.filefacts.net/search.php?ext=tec
http://www.downloadatoz.com/file-extensions/tec-file-extension.html
http://people.sc.fsu.edu/~jburkardt/data/tec/tec.html
http://file.org/extension/tec
dsb

semua extention file, ada penjelasannya di internet
kalau mau, buka web browser / search engine anda misalnya yahoo, google,
bing , dsb...
ketikkan: *.tec extension file * atau misalnya *: what is *.tec file*
maka akan tersedia banyak link ke siuts yg memberi penjelasan..

[image: searching in web.GIF]

2011/12/14 <hartini_80@yahoo.co.id>
>
> Selamat malam semua,
> Rekan2 sekalian saya sangat membutuhkan bantuan, adakah yg tau bagaimana
cara membuka file dgn extension tec (.tec)
> Mungkin diantar rekan2 sekalian ada yg bisa menjelaskan mengenai
extension tersebut kpd saya, saya sangat membutuhkan informasi tersebut.
> Mohon bantuannya.
> Salam
> Tiny

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

2a.: Re: copy dan rename file

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Wed Dec 14, 2011 4:13 pm (PST)

Ikutan juga boleh ndak yaa....

Listing-Code tetap menginduk yg sudah ada (pinjam dari mas o'Seno,
sedangkan
Mas Seno pinjam dari Mr Kid)

Saya tidak mengikuti-full kasus pak himmah ini, o.k.i. belum tahu_persis
apakah daftar
FILE di kolom Z itu akan digunakan untuk keperluan LAIN (selain menjadi
LisFillRange
si Kombo )

Seandainya, jika, misal, : Daftar di kolom Z itu* tidak terpakai selain sbg
ListFillRange*
maka modified-coding di bawah ini bertujuan
** meringkas code,
** meniadakan penulisan file tersaring ke kolom Z (dan kolom AA) ,
** langsung mengisikan text namafile hasil fungsi Dir$ ke Combobox
( dengan metoda AddItem, bukan melalui Property ListFillRange )
** 2 (dua) buah ComboBox yg dicaat dlm Array; agar dua (atau lebih) combo
dapat diisi
itemsnya dgn cara pengulangan/Loop (tanpa mengulang) codingnya
** variable ArCriter (Array Kriteria) bermaksud mempermudah jika ada
perubahan kriteria
dan penyaringannya pun bisa ikut di dalam Looping tanpa harus mengubah
code
For i = LBound(ArCbo) to UBound(ArCbo)

Kami tetap menunggu saran-saran dari Mr Kid.., tararengkyu..
(beliauw itu sering melihat hal-hal yg kita-kita gak lihat,,, ih takutt,.
paranormal kalee)

Public Sub MengisiComboBox()
* ' pinjam coding dari Mas Seno ex Mr Kid*
* ' indri Hapsari / 14 Dec 2011*
* ' Property ListFillRange diganti dgn method AddItem*
* '==================================================*

Dim shtAktif As Worksheet, sFile As String
Dim lPos As Long, i As Integer, *ArCbo, ArCriter*

*ArCriter = Array("02", "03")* *' <-- daftar criteria NamaFile*
Sheets(1).Activate *' yg lebih friendly*
Set shtAktif = ActiveSheet

With ActiveSheet
*ArCbo = Array(.cboFile, .CboFile2)*
Application.DisplayAlerts = False

*For i = LBound(ArCriter) To UBound(ArCriter)*
If ArCbo(i).ListCount > 0 Then ArCbo(i).Clear
lPos = 0
sFile = Dir$("F:\COBA\DATA\*?" & ArCriter(i) & "*.csv*")
Do While LenB(sFile) <> 0
*ArCbo(i).AddItem sFile*
sFile = Dir$
lPos = lPos + 1
Loop
.Calculate
*Next i*
End With
End Sub
'--------------------------------

2011/12/14 o' Seno <ontoseno84@gmail.com>

> **
>
> mungkin Mr Kid masih sibuk...
> maaf ikut 'nimbrung' meng-Code
>
> Public Sub mBuatDaftarFile()
> * ' pinjam coding dari Mr Kid*
> * ' dimodifikasi sedikit oleh o'Seno*
> * '================================================*
> * ' bayangkan bahwa di path F:\COBA\DATA\*
> * ' ada beberapa file antara lain*
> * ' X02XX.CSV; W03WC.CSV; Q02QWERY.CSV; P02PZZ.CSV*
> * ' D03D.CSV; C02C.CSV; B03B.CSV; A02A.CSV*
> * '=================================================*
> End Sub
>
> CMIIW, tks, br, & wassalamualailkum wr wb.
> 'oSeno
>

> 2011/12/14 him mah <himmah.mlg@gmail.com>
> > ada tambahan lagi pak
> > misal combobox nya ada 2
> > cbofile1 dan cbofile2 cuma list file yang ditambilkan dimasing-masing
> > combobox berbeda
> > untuk cbofile1 list yang ditampilkan adalah daftar file dengan
> > karakter ke2 dan 3 = 03
> > untuk cbofile2 list yang ditampilkan adalah daftar file dengan
> > karakter ke2 dan 3 = 02
> >
> > daftar filenya adalah sebagai berikut
> > A02A.CSV
> > B03B.CSV
> > C02C.CSV
> > D03D.CSV
> > E01E.CSV
> >
> > terima kasih
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
2b.: Re: copy dan rename file

Posted by: "him mah" himmah.mlg@gmail.com

Wed Dec 14, 2011 4:39 pm (PST)

terima kasih semuanya, terutama untuk mas Seno, Mbak Haps, dan Mas
kid, masalah saya sementara sudah terselesaikan

Pada tanggal 15/12/11, Haps <hapsari.stlizbeth@gmail.com> menulis:
> Ikutan juga boleh ndak yaa....
>
> Listing-Code tetap menginduk yg sudah ada (pinjam dari mas o'Seno,
> sedangkan
> Mas Seno pinjam dari Mr Kid)
>
> Saya tidak mengikuti-full kasus pak himmah ini, o.k.i. belum tahu_persis
> apakah daftar
> FILE di kolom Z itu akan digunakan untuk keperluan LAIN (selain menjadi
> LisFillRange
> si Kombo )
>
> Seandainya, jika, misal, : Daftar di kolom Z itu* tidak terpakai selain sbg
> ListFillRange*
> maka modified-coding di bawah ini bertujuan
> ** meringkas code,
> ** meniadakan penulisan file tersaring ke kolom Z (dan kolom AA) ,
> ** langsung mengisikan text namafile hasil fungsi Dir$ ke Combobox
> ( dengan metoda AddItem, bukan melalui Property ListFillRange )
> ** 2 (dua) buah ComboBox yg dicaat dlm Array; agar dua (atau lebih) combo
> dapat diisi
> itemsnya dgn cara pengulangan/Loop (tanpa mengulang) codingnya
> ** variable ArCriter (Array Kriteria) bermaksud mempermudah jika ada
> perubahan kriteria
> dan penyaringannya pun bisa ikut di dalam Looping tanpa harus mengubah
> code
> For i = LBound(ArCbo) to UBound(ArCbo)
>
> Kami tetap menunggu saran-saran dari Mr Kid.., tararengkyu..
> (beliauw itu sering melihat hal-hal yg kita-kita gak lihat,,, ih takutt,.
> paranormal kalee)
>
>
> Public Sub MengisiComboBox()
> * ' pinjam coding dari Mas Seno ex Mr Kid*
> * ' indri Hapsari / 14 Dec 2011*
> * ' Property ListFillRange diganti dgn method AddItem*
> * '==================================================*
>
> Dim shtAktif As Worksheet, sFile As String
> Dim lPos As Long, i As Integer, *ArCbo, ArCriter*
>
> *ArCriter = Array("02", "03")* *' <-- daftar criteria NamaFile*
> Sheets(1).Activate *' yg lebih friendly*
> Set shtAktif = ActiveSheet
>
> With ActiveSheet
> *ArCbo = Array(.cboFile, .CboFile2)*
> Application.DisplayAlerts = False
>
> *For i = LBound(ArCriter) To UBound(ArCriter)*
> If ArCbo(i).ListCount > 0 Then ArCbo(i).Clear
> lPos = 0
> sFile = Dir$("F:\COBA\DATA\*?" & ArCriter(i) & "*.csv*")
> Do While LenB(sFile) <> 0
> *ArCbo(i).AddItem sFile*
> sFile = Dir$
> lPos = lPos + 1
> Loop
> .Calculate
> *Next i*
> End With
> End Sub
> '--------------------------------
>
>
>
>
> 2011/12/14 o' Seno <ontoseno84@gmail.com>
>
>> **
>>
>> mungkin Mr Kid masih sibuk...
>> maaf ikut 'nimbrung' meng-Code
>>
>> Public Sub mBuatDaftarFile()
>> * ' pinjam coding dari Mr Kid*
>> * ' dimodifikasi sedikit oleh o'Seno*
>> * '================================================*
>> * ' bayangkan bahwa di path F:\COBA\DATA\*
>> * ' ada beberapa file antara lain*
>> * ' X02XX.CSV; W03WC.CSV; Q02QWERY.CSV; P02PZZ.CSV*
>> * ' D03D.CSV; C02C.CSV; B03B.CSV; A02A.CSV*
>> * '=================================================*
>> End Sub
>>
>> CMIIW, tks, br, & wassalamualailkum wr wb.
>> 'oSeno
>>
>
>
>
>
>> 2011/12/14 him mah <himmah.mlg@gmail.com>
>> > ada tambahan lagi pak
>> > misal combobox nya ada 2
>> > cbofile1 dan cbofile2 cuma list file yang ditambilkan dimasing-masing
>> > combobox berbeda
>> > untuk cbofile1 list yang ditampilkan adalah daftar file dengan
>> > karakter ke2 dan 3 = 03
>> > untuk cbofile2 list yang ditampilkan adalah daftar file dengan
>> > karakter ke2 dan 3 = 02
>> >
>> > daftar filenya adalah sebagai berikut
>> > A02A.CSV
>> > B03B.CSV
>> > C02C.CSV
>> > D03D.CSV
>> > E01E.CSV
>> >
>> > terima kasih
>>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)

3a.: Menambah Text pada setiap baris

Posted by: "lut her" luth3rs@yahoo.com luth3rs

Wed Dec 14, 2011 7:34 pm (PST)

Dear All,

mohon bantuannya bagaimana cara cepet menambah text pada setiap baris dari data sumber yang lumayan banyak.
lebih jelasnya data terlampir. terima kasih sebelum & sesudahnya

salam
lut

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
3b.: Re: Menambah Text pada setiap baris

Posted by: "o' Seno" ontoseno84@gmail.com ontoseno84@ymail.com

Wed Dec 14, 2011 9:45 pm (PST)

Mumpung jam istirahat, Barangkali saja... dapat "anggukan", untung-untungan
lah...
'Tar kalau yg nanya gak mau model kayak gini, ya tinggal dicabut kembali..

'------------------------
Sub Klothakk(Sumber As Range)
'===================================
' dipun coded dening pun o'Seno
' 15 des 2011 / beExcel Post #14646
'===================================
Dim Hasil As Range, ArKet As Variant
Dim sArea As String, sTipe As String, sNama As String
Dim lRows As Long, i As Long, r As Long, n As Byte
Const sKetr As String = _
"JUMLAH GURU\JUMLAH SISWA LAKI\" & _
"JUMLAH SISWA PEREMPUAN\ALAMAT\NO TELEPON"

Set Hasil = Sumber(1, Sumber.Columns.Count + 4)
ArKet = Split(sKetr, "\")
lRows = Sumber.Rows.Count - 1
For i = 1 To lRows
If LenB(Sumber(i, 1)) > 0 Then sArea = Sumber(i, 1).Value
If LenB(Sumber(i, 2)) > 0 Then sTipe = Sumber(i, 2).Value
If LenB(Sumber(i, 3)) > 0 Then
sNama = Sumber(i, 3).Value
For n = LBound(ArKet) To UBound(ArKet)
r = r + 1
If n = 0 Then
Hasil(r, 1) = sArea
Hasil(r, 2) = sTipe
Hasil(r, 3) = sNama
End If
Hasil(r, 4) = ArKet(n)
Next n
End If
Next i
End Sub
'------------------

Sub Jalan()
' di assigned untuk gambar tombol
Dim RefRg As Range
Set RefRg = Me.Range("A3").CurrentRegion.Offset(1, 0)
Set RefRg = RefRg.Resize(RefRg.Rows.Count - 1)
Call Klothakk(RefRg)
End Sub
'-----------------

2011/12/15 lut her <luth3rs@yahoo.com>
>
> Dear All,
> mohon bantuannya bagaimana cara cepet menambah text pada setiap baris
dari data sumber yang lumayan banyak.
> lebih jelasnya data terlampir. terima kasih sebelum & sesudahnya
>
> salam
> lut

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
3c.: Bls: [belajar-excel] Menambah Text pada setiap baris

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id ghozialkatiri

Thu Dec 15, 2011 3:51 am (PST)

solusi dengan formula
langsung lihat di attachment

wassalam

Ghozi Alkatiri

________________________________
Dari: lut her <luth3rs@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Kamis, 15 Desember 2011 10:07
Judul: [belajar-excel] Menambah Text pada setiap baris

Â
Dear All,

mohon bantuannya bagaimana cara cepet menambah text pada setiap baris dari data sumber yang lumayan banyak.
lebih jelasnya data terlampir. terima kasih sebelum & sesudahnya

salam
lut

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
3d.: Re: Menambah Text pada setiap baris

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Thu Dec 15, 2011 5:42 am (PST)

Bila punya keinginan bekerja dengan rumus di worksheet : L3 M3 N3 O3 P3

SMU
SMU 1
JUMLAH GURU

JUMLAH GURU
1

JUMLAH SISWA LAKI

JUMLAH SISWA LAKI
1

JUMLAH SISWA
PEREMPUAN

JUMLAH SISWA PEREMPUAN
1

ALAMAT

ALAMAT
1

NO. TELEPON

NO. TELEPON
1

SMU 2
JUMLAH GURU

2

JUMLAH SISWA LAKI

2

JUMLAH SISWA
PEREMPUAN

2

ALAMAT

2

NO. TELEPON

mulai sel di M4 ke bawah : =COUNTA(O$3:O3)-COUNTBLANK(O$3:O3)lalu kopi dari M5 sampai ke M87 di N3 :=IF(ISNA(MATCH(O3,C$4:C$20,0)),"",OFFSET(C$4,MATCH(O3,C$4:C$20,0)-1,-1))lalu kopi dari N4 sampai ke N87 di O3 : =C4 di sel O4 : =IF(COUNTBLANK(O$3:O3)<(4*M4),"",OFFSET(C$4,COUNTA(O$3:O3)-COUNTBLANK(O$3:O3),0)) lalu kopi dari O5 sampi dengan O87 di P3 : =OFFSET(L$4,MOD(ROW()-3,5),0)lalu kopi dari P4 sampai ke P87 ==================== =COUNTA(O$3:O3)-COUNTBLANK(O$3:O3)artinya : hitung jumlah baris yang terisi =IF(ISNA(MATCH(O3,C$4:C$20,0)),"",OFFSET(C$4,MATCH(O3,C$4:C$20,0)-1,-1))artinya : cari kelompok/ jenis tingkat sekolah ( SMU,SMKN, dst ) , dari kolom sebelah kirinya ( kiri dari kolom SMU1, SMU2,... , SMKN1, ..... ) { =IF(COUNTBLANK(O$3:O3)<(4*M4),"",OFFSET(C$4,COUNTA(O$3:O3)-COUNTBLANK(O$3:O3),0)) }artinya : jika baris kosong belum mencapai 4 , maka isi "" ( kosong ) jika tidak , ambil dari nama sekolah =OFFSET( L$4, MOD(ROW()-3,5) ,0)artinya : terjadi perulangan : 1 ,2 ,3 ,4 dan 5 , dengan mengambil data mulai dari L4 ==================== From: luth3rs@yahoo.com
Date: Wed, 14 Dec 2011 19:07:50 -0800
Subject: [belajar-excel] Menambah Text pada setiap baris

Dear All,

mohon bantuannya bagaimana cara cepet menambah text pada setiap baris dari data sumber yang lumayan banyak.

lebih jelasnya data terlampir. terima kasih sebelum & sesudahnya

salam

lut

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

4a.: mencari round-up & total nilai

Posted by: "Budhi Cahyanto" budhi.cahyanto@suryajayaenergy.com

Wed Dec 14, 2011 9:54 pm (PST)

Dear eXCel,

Mohon bantuannya donk untuk mencari nilai round up & total nilai dari
kriteria yang diberikan.

1. Sheet1

Bagaimana mencari nilai round up pada kolom G yang acuannya adalah kolom F dengan ketentuan :

0,00 - 0,49 = 0,50
0,51 - 0,99 = 1,00
1,01 - 1,49 = 1,50

Kolom F diperoleh dari penjumlahan dari kolom D & E dibagi 2. Karena
kriterianya ada 3, yakni 0,5 ; 1,00, dan 1,50 maka diperlukan round up pada kolom G.

Juga, bagaimana mencari nilai bulan dan prorata bulan yang acuannya adalah kolom B & C.

Ketentuannya :
a. Apabila diatas 1 tahun (kolom B), maka nilai bulannya adalah 1.
b. Apabila dibawah 1 tahun (kolom C), maka nilai bulannya prorata yakni jumlah bulan dibagi 12.

2. Sheet2

Pada sheet2, bagaimana mencari total nilai pada kolom D sesuai dengan 3 kriteria yang ditentukan.

Syarat kriteria sudah dibagi menjadi sembilan kombinasi :

A,A,A = 1,5
A,A,B = 1,5
A,A,C = 1,0
A,B,C = 1,0
B,B,A = 1,0
B,B,C = 0,5
A,C,C = 0,5
B,C,C = 0,5
C,C,C = 0,5

Jadi walau hurufnya diputar-putar, total nilai tidak akan berubah sesuai yang telah ditentukan.

Mohon bantuan para master untuk formulasinya.

Thank you,
Budhi

Please consider the environment before printing this email.

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
4b.: Re: mencari round-up & total nilai

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Thu Dec 15, 2011 5:44 am (PST)

untuk roundup dgn ketentuan < 0.5 menjadi 0 selain itu 0.5 ( untuk baris 4 ) : =INT(F4)+IF(F4-INT(F4)<0.5,0.5,0)
untuk penentuan bulan atau prorerata ( untuk baris 4 ) : =IF(B4=0,C4/12,1) '==============> To: belajar-excel@yahoogroups.com
> From: budhi.cahyanto@suryajayaenergy.com
> Date: Thu, 15 Dec 2011 11:52:52 +0700
> Subject: [belajar-excel] mencari round-up & total nilai
>
> Dear eXCel,
>
> Mohon bantuannya donk untuk mencari nilai round up & total nilai dari
> kriteria yang diberikan.
>
> 1. Sheet1
>
> Bagaimana mencari nilai round up pada kolom G yang acuannya adalah kolom F dengan ketentuan :
>
> 0,00 - 0,49 = 0,50
> 0,51 - 0,99 = 1,00
> 1,01 - 1,49 = 1,50
>
> Kolom F diperoleh dari penjumlahan dari kolom D & E dibagi 2. Karena
> kriterianya ada 3, yakni 0,5 ; 1,00, dan 1,50 maka diperlukan round up pada kolom G.
>
> Juga, bagaimana mencari nilai bulan dan prorata bulan yang acuannya adalah kolom B & C.
>
> Ketentuannya :
> a. Apabila diatas 1 tahun (kolom B), maka nilai bulannya adalah 1.
> b. Apabila dibawah 1 tahun (kolom C), maka nilai bulannya prorata yakni jumlah bulan dibagi 12.
>
> 2. Sheet2
>
> Pada sheet2, bagaimana mencari total nilai pada kolom D sesuai dengan 3 kriteria yang ditentukan.
>
> Syarat kriteria sudah dibagi menjadi sembilan kombinasi :
>
> A,A,A = 1,5
> A,A,B = 1,5
> A,A,C = 1,0
> A,B,C = 1,0
> B,B,A = 1,0
> B,B,C = 0,5
> A,C,C = 0,5
> B,C,C = 0,5
> C,C,C = 0,5
>
> Jadi walau hurufnya diputar-putar, total nilai tidak akan berubah sesuai yang telah ditentukan.
>
> Mohon bantuan para master untuk formulasinya.
>
> Thank you,
> Budhi
>
> Please consider the environment before printing this email.

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

5a.: Data Siswa yang telah terurut menggunakan macro

Posted by: "Muhammad Robin" mrobin86@yahoo.co.id mrobin86

Wed Dec 14, 2011 9:55 pm (PST)

Dear Be Exceller,

Saya ingin tanya bagaimana solusinya untuk kasus:

1. siswa yang kelasnya lebih besar diletakkan pada nomor urut yang lebih tinggi, jika ada dua siswa atau lebih yang memiliki kelas yang sama maka dari mereka yang usianya lebih tua diletakkan dalam nomor urut yang lebih tinggi
2. Bila ada dua siswa atau lebih, yang kelasnya sama dan usianya sama, maka dari mereka yang peringkat kelasnya lebih tinggi dicantumkan dalam nomor urut yang lebih tinggi

untuk lebih jelasnya, ada diattachment

Thank you very much

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
5b.: Re: Data Siswa yang telah terurut menggunakan macro

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Wed Dec 14, 2011 11:10 pm (PST)

Pakai *rumus* boleh ndak ya Oom..?
Rumus ditulis langsung di sheet "hasil" merujuk data di sheet "Masalah"

(1) Array Formula multi hasil / sekolom (kolom Nomor)
=RIGHT(LARGE(--(TEXT(Masalah!C2:C19,"00")&TEXT(TODAY()-Masalah!D2:D19,"00000")&

TEXT(10-Masalah!F2:F19,"000")&TEXT(Masalah!A2:A19,"00")),Masalah!A2:A19),2)

dan

(2) Array Formula multi hasil (sebaris) / tiap records (5 kolom) selain
Nomor
=OFFSET(Masalah!$B$1:$F$1,--Hasil!B2,0,1,)

Rumus 1 : inti "kerjaan"-nya merangkai *composit key* yg terdiri dari
Angka Kelas (2 digit) &
Umur dlm hari (5 digit) &
(10 - NilaiPeringkat, (2 digit) &
NomorUrut (2 digit)

sebelum diolah lebih lanjut mungkin bentuk nya kira-kira spt ini: 05
04782 08 07 (tanpa spasi)
Hasil composit tsb (bertype data text) dikonversi menjadi bilangan, lalu di
sort dengan fungsi LARGE,
kemuaidn diambil 2 digit terkanan ( ex angka urut / index barisdata)
Maka kita mendapat nomor index data, yg posisi urutannya sudah
tersusun *seperti
kalau tabel *
*diSORT Descending **(*Kecuali* Peringkat = Ascending)*

Berdasarkan nomor Index tersebut, memanggil data per record, ibarat memijit
buah tomat matang..
becoz cukup minta bantuan fungsi OFFSET atau INDEX atau VLOOKUP
"Membuat JUSS buah tomat ranum" itulah yg dikerjakan oleh Rumus 2...

Dengan Makro tentunya lebih gampang, jika sampai besok siangbelum ada yg
memberikan akan
diberikan besok sore. (sebetulnya sudah ada di OnLineFolder yu Siti, dan
sering disiarkan URL nya)
Algoritma seperti yg diuraikan di atas itu tentunya bisa di CODEkan menjadi
makro, atau jika lebih
senang algoritma lain (yg orang lain sulit memahaminya) juga bisa (kalau
mau) tapi untuk apa..?
Lha wong yg ini saja belum terlaksana...

2011/12/15 Muhammad Robin <mrobin86@yahoo.co.id>

> **
> Dear Be Exceller,
> Saya ingin tanya bagaimana solusinya untuk kasus:
> 1. siswa yang kelasnya lebih besar diletakkan pada nomor urut yang lebih
> tinggi, jika ada dua siswa atau lebih yang memiliki kelas yang sama maka
> dari mereka yang usianya lebih tua diletakkan dalam nomor urut yang lebih
> tinggi
> 2. Bila ada dua siswa atau lebih, yang kelasnya sama dan usianya sama,
> maka dari mereka yang peringkat kelasnya lebih tinggi dicantumkan dalam
> nomor urut yang lebih tinggi
> untuk lebih jelasnya, ada diattachment
> Thank you very much
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
5c.: Re: Data Siswa yang telah terurut menggunakan macro

Posted by: "Udin Haeruddin" herumamuda@gmail.com ruddin1795

Wed Dec 14, 2011 11:16 pm (PST)

Coba merekam makro.
1. Pilih menu *View *> *Macros *> Record Macro. Beri nama misalnya:* "Urut"*
2. Blok Sel *B1:F19*
3. Pilih menu *Home *> *Sort&Filter* > *Custom Sort*
4. Pada bag. *Sort by* pilih: *Kelas*. Pada bag. *Order *pilih *Largest to
Smallest*
5. Klik *Add Level*.
6. Pada bag. *Sort by* pilih: *Tanggal Lahir*
7. Klik *Add Level*
8. Pada bagian *Sort by* pilih: *Peringkat Kelas*. Pada bagian *Order *pilih:
*Smallest to Largest*
9. Klik *OK*
10. Pilih menu *View *> *Macro *> *Stop Recording*
*[image: sss.PNG]
*
11. Klik kanan Command Button, Pilih *Assign Macro*. Pilih "*Urut*". *OK*

Pada 15 Desember 2011 11:53, Muhammad Robin <mrobin86@yahoo.co.id> menulis:

> **
>
>
> Dear Be Exceller,
> Saya ingin tanya bagaimana solusinya untuk kasus:
> 1. siswa yang kelasnya lebih besar diletakkan pada nomor urut yang lebih
> tinggi, jika ada dua siswa atau lebih yang memiliki kelas yang sama maka
> dari mereka yang usianya lebih tua diletakkan dalam nomor urut yang lebih
> tinggi
> 2. Bila ada dua siswa atau lebih, yang kelasnya sama dan usianya sama,
> maka dari mereka yang peringkat kelasnya lebih tinggi dicantumkan dalam
> nomor urut yang lebih tinggi
> untuk lebih jelasnya, ada diattachment
> Thank you very much

--
====== Haeruddin, S.Pd ======

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

6.: Urutan data

Posted by: "budi_secbtm@sanyo.com" budi_secbtm@sanyo.com

Wed Dec 14, 2011 10:05 pm (PST)

Dear Exceller,

Saya buat formula utk urutan nilai dari tertinggi sampai ke terendah, kenapa ya kok nggak berurutan hasilnya ya?

Thank & Best Regards
Budi
http://one-for-all.webnode.com<http://one-for-all.webnode.com/>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

7.: bagaimana memfilternya...

Posted by: "Harumi Wanasita" hwanasita@yahoo.com hwanasita

Thu Dec 15, 2011 5:41 am (PST)

pada sheet report saat tombol filter di klik yang muncul kok bukan daftar list yang dibawahnya. dan hanya sebagian saja
bagaimana bisa menampilkan list yang di bawahnya ya..
misalkan saat yang di klik sifat pekerjaan filter yang muncul adalah sup restitusi dan pekerjaan..
terima kasih pencerahannya

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

Create New Topic | Visit Your Group on the Web

Messages

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

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

Kamis, 15 Desember 2011

Messages In This Digest (15 Messages)

Messages

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id hartini_80

Wed Dec 14, 2011 7:54 am (PST)

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Wed Dec 14, 2011 11:52 am (PST)

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Wed Dec 14, 2011 4:13 pm (PST)

Posted by: "him mah" himmah.mlg@gmail.com

Wed Dec 14, 2011 4:39 pm (PST)

Posted by: "lut her" luth3rs@yahoo.com luth3rs

Wed Dec 14, 2011 7:34 pm (PST)

Posted by: "o' Seno" ontoseno84@gmail.com ontoseno84@ymail.com

Wed Dec 14, 2011 9:45 pm (PST)

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id ghozialkatiri

Thu Dec 15, 2011 3:51 am (PST)

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Thu Dec 15, 2011 5:42 am (PST)

Posted by: "Budhi Cahyanto" budhi.cahyanto@suryajayaenergy.com

Wed Dec 14, 2011 9:54 pm (PST)

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Thu Dec 15, 2011 5:44 am (PST)

Posted by: "Muhammad Robin" mrobin86@yahoo.co.id mrobin86

Wed Dec 14, 2011 9:55 pm (PST)

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Wed Dec 14, 2011 11:10 pm (PST)

Posted by: "Udin Haeruddin" herumamuda@gmail.com ruddin1795

Wed Dec 14, 2011 11:16 pm (PST)

Posted by: "budi_secbtm@sanyo.com" budi_secbtm@sanyo.com

Wed Dec 14, 2011 10:05 pm (PST)

Posted by: "Harumi Wanasita" hwanasita@yahoo.com hwanasita

Thu Dec 15, 2011 5:41 am (PST)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me