Senin, 02 Januari 2012

]] XL-mania [[ Digest Number 2314

Messages In This Digest (10 Messages)

Messages

1a.

Re: Membagi data ke kolom

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

Sun Jan 1, 2012 9:11 pm (PST)



tidak sulit
=OFFSET($A$1,ROW(1:$10)+(COLUMN(A1)-1)*10,0)

formula biasa ditulis di satu cell lalu dicopy ke 100cell (dimensi 10 X
10) cells

2011/12/27 Wxwx Tit <wxwxtit@yahoo.co.id>

> **
> Dear Pakar Excel,
> Mohon bantuan dari pakar excel semua untuk memudahkan permasalahan saya.
> Di dalam Kolom A terdapat beberapa data ex 100 baris, semua data tidak ada
> yang sama
> dari data yg 100 itu ingin di pecah ke beberapa kolom
> misalkan setiap kolom berisi 10 baris,
> file terlampir ya.
> terima kasih atas pencerahannya.
> Salam
> Alex Purnama
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
1b.

Re: Membagi data ke kolom

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

Sun Jan 1, 2012 9:14 pm (PST)



jika masih ada keinginan cara lain, terlampir beberapa formula dan 1 makro
(subProsedur)

*FORMULA*

=OFFSET($C$1,ROW(1:$10)+(COLUMN(A1)-1)*10,0)
atau
=INDEX($A$2:$A$121,ROW(1:$10)+(COLUMN(A1)-1)*10)

atau
jika boleh ada Baris dan Kolom BANTU, rumus menjadi sederhana
karena Baris dan Kolom Bantu tsb, sebanarnya adalah BAGIAN dari formula
yg dipisahakan dari formula utama
=INDEX($A$2:$A$121, F$48+$E49)

*MAKRO*

berikut ini loop yg akan menekik data sekolom menjadi kolom kolom
dengan tinggi tertentu

C = 1
For Each xCell In rangeData
If xCell.Value = vbNullString Then Exit For
R = R + 1
Hasil(R, C) = xCell.Value
If R = iKolom Then
R = 0: C = C + 1
End If
Next xCell

Semuanya ada di workbook terlampir; semoga masih ada gunanya

*2011/12/27 Wxwx Tit <wxwxtit@yahoo.co.id>
> *
>>
>> * *
>> *Dear Pakar Excel,*
>> *Mohon bantuan dari pakar excel semua untuk memudahkan permasalahan saya.
>> *
>> *Di dalam Kolom A terdapat beberapa data ex 100 baris, semua data tidak
>> ada yang sama
>> dari data yg 100 itu ingin di pecah ke beberapa kolom
>> misalkan setiap kolom berisi 10 baris,
>> file terlampir ya.*
>> *terima kasih atas pencerahannya.
>> Salam*
>> *Alex Purnama*
>>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
2a.

Re: Menghilangkan karakter (...) di list

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

Sun Jan 1, 2012 9:11 pm (PST)



*=TRIM( LEFT( A1, FIND( "(", F32) - 1) )*

cell A1 berisi data teks yg akan diproses, rumus ditulis di cell lain,
misalnya B1

" Mengambil rangkaian krakter dari arah KIRI di cell A1 sebanyak N
karakter,
sedangkan N - nya adalah *Angka Posisi* Karakter "*(*" pada A1, mundur 1,
dan kemudian hasilnya di TRIM (=dihilangkan spasi yg tidak perlu, bila ada)
"

*2011/12/28 Marthin Winner <marthin_was@yahoo.com>
*
>
> * *
> *Saya memiliki data dengan format seperti berikut:*
> Badu (Badu)
> Anita (Anit)
> Charli (che)
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2b.

Re: Menghilangkan karakter (...) di list

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com   hendrikkarnadi

Sun Jan 1, 2012 9:14 pm (PST)



Jawban terlampir.

Cara kerjanya :
- Temukan posisi karakter "(" dengan fungsi Find, kemudain dikurangi 1 (Spasi)
- Gunakan fungsi Left untuk mengambil jumlah karakter pada posisi sebelum spasi

Salam,
Hendrik Karnadi

________________________________
From: Marthin Winner <marthin_was@yahoo.com>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Sent: Wednesday, 28 December 2011, 17:53
Subject: ]] XL-mania [[ Menghilangkan karakter (...) di list


 
Para Suhu mohon sarannya,
 
Saya memiliki data dengan format seperti berikut:
 
Badu (Badu)
Anita (Anit)
Charli (che)
..
..
..
 
dan seterusnya, hasil yg diinginkan adalah karakter (..) dihilangkan, sehingga menjadi
 
Badu
Anita
Charli
 
Berhubung jumlah datanya sangat banyak, mohon sarannya untuk kasus ini.
 
Terima Kasih,
Marthin
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3a.

Re: conditional formating dengan warna berbeda-beda

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

Sun Jan 1, 2012 9:11 pm (PST)



salah satu contoh conditional formatting; kondisinya dibuat dengan *formula*
*=COUNTIF(B4,"*RO 3")
*
(di B4 (relatif reference) ada string "RO3" di bagian belakang/terkanan)?
Jika menghasilkan TRUE maka conditional formatting diberlakkan ( fill color
Hijau)

[image: condit format RO 3.PNG]

2011/12/27 dyat <dyat_dy@yahoo.com>

> **
>
> Dear Xl mania...
> Butuh bantuan lagi dari tmen2 xl-mania
> Gimana caranya membuat conditional formating dengan warna berbeda-beda
> jika dalam cell tersebut ada beberapa kondisi?..
> contoh :
> NOPOL KET
> B 2448 S NEW
> B 5555 K NEW
> B 2448 S RO 1
> F 2525 W NEW
> F 2525 W RO 1
> B 2448 S RO 2
> B 2448 S RO 3
>
> Yg saya inginkan pada KET yg NEW,RO 1,RO 2,RO 3 memiliki warna yg
> berbeda-beda... jadi ketika saya ketik nopol yg sama tapi ket berbeda dia
> akan langsung berubah warnanya nopolnya...
> Trims...
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
4.

Excel Solver 2010 mengskip constraint lewat VBA

Posted by: "Philip Thomas" philip_hebatt@yahoo.com   philip_hebatt

Sun Jan 1, 2012 9:12 pm (PST)



Dear All, 

saya mau tanya, saya buat code vba untuk excel solver untuk mensetting constraints dan menjalankan solver. 
kode itu saya buat untuk dijalankan di 2 tab yang berbeda yang memiliki posisi cell yang sama, hanya beda input, 

pertanyaan saya, kenapa di tab yang pertama (tab using macro di file attachment) itu jalan dengan sempurna. 
tetapi di tab yang kedua (tab Using Macro corr enabl di file attachment) ada constraint yang di skip ? 
apakah ada kesalahan yang saya buat dalam penulisan nya ? 

mohon bantuan rekan2 semua. terima kasih 

FYI, bentuk code vba untuk solver yang saya buat adalah sebagai berikut : 

Sub solv()
Dim i As Integer

i = 21

For i = 21 To 122

   SolverReset
      SolverOk SetCell:="$H$" & i, MaxMinVal:=2, ValueOf:=0, ByChange:=Range("$D$" & i, "$G$" & i), _
        Engine:=1, EngineDesc:="GRG Nonlinear"
       
    SolverAdd CellRef:="$D$" & i, Relation:=1, FormulaText:="1"
    SolverAdd CellRef:="$E$" & i, Relation:=1, FormulaText:="1"
    SolverAdd CellRef:="$F$" & i, Relation:=1, FormulaText:="1"
    SolverAdd CellRef:="$G$" & i, Relation:=1, FormulaText:="1"
    SolverAdd CellRef:="$I$" & i, Relation:=2, FormulaText:="$C$" & i
    SolverAdd CellRef:="$J$" & i, Relation:=1, FormulaText:="150"
    SolverSolve True
    Range("C" & i).Activate
    Next i
    Range("C19:J19").Select
End Sub
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
5a.

Re: Validasi untuk Form

Posted by: "Hilman" hilman_email@yahoo.com   hilman_email

Sun Jan 1, 2012 9:14 pm (PST)



Dear Hachi Rizki...

1. Untuk Text box tanggal, setahu saya selama user menginput kedalam text box dengan format date yang dikenali oleh excel, mis: mm/dd/yyyy, mm-dd-yyyyy, dd mmm yy dsb, maka seharusnya excel akan langsung meng-convert nilainya menjadi "Date". Dan saran saya tidak perlu pusing kalo hanya masalah format, karena toh di cell tujuan (atau lebih tepatnya di field/column tujuan) kan bisa diformat terlebih dahulu tanggal nya sesuai dengan selera kita. Satu saran lagi, untuk input tanggal dalam bentuk textbox, dimana user disuruh menulis langsung tanggal didalam satu text box, sangat rentan terjadi kesalahan. Untuk itu deperlukan validasi apakah data yang dientry sudah merupakan data tanggal atau belum. Misalnya dengan memanfaatkan TextBox_exit events (events yg terjadi sesaat setelah text box tsb kehilangan fokus), dimana didalam event prosedur nya tambahkan kode sbb..
   

    If IsDate(TextBox1.Text)=false then
        MsgBox "Data Tanggal yang dimasukkan tidak valid"
        TextBox1.SetFocus   

    End If

Atau dengan cara lain lagi, gunakan DateTimePicker control.... atau jika pada excel anda tidak terdapat DateTimePicker.

2. Untuk Format Time : menurut saya identik dengan format tanggal diatas.
3. Untuk Format Number : sebelum data dari textbox tsb ditrasnfer ke cell tertentu, dibuat validasi sbb..
   

    If IsNumeric(TextBox2.Text)=false then
        MsgBox "Selain angka dilarang masuk"
        TextBox2.SetFocus

        Exit Sub 
    End if

    'Misalkan angka minus tidak boleh masuk
    If TextBox2.Text < 0 then
        MsgBox "Masukkan angka positif ya mas..."
        TextBox2.SetFocus

        Exit Sub 

    End if

    'Baru setelah melalui serangkaian validasi seperti diatas,
    'data TextBox2 tsb di transfer ke cell tujuan

    Worksheets("Sheet1").Cells(5,3).Value = TextBox2.Text

    dst...

4. Untuk ComboBox, agar supaya user hanya bisa memilih data yg sudah ada pada list dari combobox tsb, maka pada properties "MatchedRequired" di set menjadi "True" (Defaultnya adalah "False")

Demikian, semoga membantu....

Selamat mencoba dan ber-excel ria.....

________________________________
From: Hachi Rizki <hachiuz_ld27@yahoo.co.id>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Sent: Wednesday, December 28, 2011 2:53 PM
Subject: ]] XL-mania [[ Validasi untuk Form


 
Dear all Excel expert,
Saya membuat User Form untuk input data,
Awalnya saya mengarahkan user yang input mengenai format2 yang seharusnya mereka input. Namun tetap saja masih banyak ditemukan ketidak sesuaian dalam hasil inputnya. Masalah saya sebagai berikut :
1. Textbox tanggal : Bagaimana caranya agar user input hanya dalam format tanggal yang ditentukan "dd mmm yy"
2. Format Time : Bagaimana cara agar user input hanya dalam format hh:mm
3. Format number : Bagaimana agar user hanya input angka saja (tidak kosong, bukan tanda strip, atau karakter lainnya)
4. Untuk Comb Box bagaimana agar mereka tidak bisa menulis sendiri, karena secara default untuk combo box user bisa pilih item di combo
box, tetapi bisa juga mereka input manual

Mohon bantuannya, karena ketidak seragaman tersebut sangat merepotkan dalam pengolahan data lebih lanjut.

terima kasih,
hachi

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

menghitung jumlah karyawan saat filter data

Posted by: "Leanora Marthalova" leanora.marthalova@PROFAB-GROUP.COM

Sun Jan 1, 2012 9:14 pm (PST)



Dear Para XL-experts,

Terlampir adalah data yang diambil dari finger print Jam masuk & keluar
karyawan. Yang ingin saya tanyakan, bagaimana caranya menghitung jumlah
karyawan (jumlah actual mencapai ratusan orang per dept. ) pada saat
mem-filter kolom dept untuk mengetahui berapa jumlah karyawan yg kerja
pada dept A. selama ini saya hitung manual, dan ini melelahkan +
membuang waktu. Apakah ada formulanya untuk menghitung secara cepat?

Mohon bantuan dari para master sekalian untuk memecahkan masalah ini.

Maaf apabila pertanyaan ini sudah pernah dibahas sebelumnya.

Terima kasih atas bantuan dan pencerahannya J

Lea

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

Pembulatan mengabaikan belakang koma

Posted by: "Kekal Abadi" kekabadi@yahoo.com

Sun Jan 1, 2012 9:14 pm (PST)



Dear para master XL
Saya ingin menanyakan fungsi apa agar bisa menampilkan angka pembulatan hasil hitungan secara otomatis dengan mengabaikan berapapun angka di belakang koma, tidak seperti otomatis defaultnya xl dimana kalau angka di belakang koma >5 akan dibulatkan ke atas.
 
Contoh:
222.333 x 2% = 4.446, 66 dibulatkan menjadi 4.446, bukan 4.447
222.111 x 2% = 4.442, 22 dibulatkan menjadi 4.442, bukan 4.443
 
contohnya terlampir
Atas bantuannya diucapkan terima kasih.
 
Kekal  
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
8.

membuat progress bar

Posted by: "Aziz Yudhistira Alaudin" aziz.yudhistira.alaudin@gmail.com   adhi_tax_dk3

Sun Jan 1, 2012 9:17 pm (PST)



Wahai para fakar xl, ana kepingin belajar bikin control progressbar, tapi
ga tau mantera-manteranya....

Kasih ilmu kanuragannya dong para agan sekalian yah...

Berikut ana lampirkan filenya...

Terima kasih sebelumnya....
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
Recent Activity
Visit Your Group
Yahoo! Groups

Parenting Zone

Tips for family,

kids and living

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Small Business Group

Improve your business

by community exchange

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com                       |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :(   |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+
MARKETPLACE

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

Diposting oleh EXCEL FEED LEARNING di 04.34

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)