Re: ]] XL-mania [[ memecah cell secara otomatis

 

Saya ada sedikit makro...

ex kasus yg  pernah muncul (di forum lain) sangat mirip, oleh karena itu 

makro dari mbak siti (yg menjawabnya), tinggal dimodif sedikit agar sesuai dengan kehendak saat ini;

menjadi seperti ini..

Private Sub Worksheet_Change(ByVal Target As Range)

' Hapsari / 4-Agu-2011

' diambil dari onlinefolder siti / 24 Apr 2009

'---------------------------------------------

If Target.Column = 1 Then

If Target.Row > 6 Then

If Target.Columns.Count = 1 Then

Dim tmp, i As Long

For i = 1 To Target.Rows.Count

  If Len(Target(i).Text) > 0 Then

  If Len(Target(i).Text) - Len(Replace(Target(i).Text, "#", "")) >= 4 Then

    tmp = Split(Target(i).Text, "#")

    Target(i, 3) = tmp(1)

    Target(i, 5) = tmp(4)

    Target(i, 6) = tmp(2)

    Target(i, 7) = tmp(3)

  Else

    Target(i, 3) = vbNullString

    Target(i, 5) = vbNullString

    Target(i, 6) = vbNullString

    Target(i, 7) = vbNullString

  End If

  End If

Next i

End If

End If

End If

End Sub

'-----

kalau ternyata salah tidak sesuai harsil yg diharapkan  " ya minta maaf.."

Syarat yg harus terpenuhi (seperti yg telah anda contohkan sendiri):

1

DATA DITULIS DI SHEET1  KOLOM A MULAI BARIS KE 7 KE BAWAH (JIKA BUKAN DI SITU, TIDAK AKAN DIOTOMATIASKAN) / Hasil pengolahan ditulis di kolom C, E, F dan G

2

DATA HARUS SEPERTI CONTOH, YAITU berupa String yg "TERDIRI DARI" 4 SUBSTRING, tiap subString dipisahkan dgn ""#" dan ada tambahan extra pada karakter pertama = "#"  (dlm cell data harus ada 4 (empat karakter "#")

(jika tidak seperti itu mungkin makro akan memunculkan error message (atau memberi hasil kosong)

3

Data (input) boleh dimasukkan secara bulk (copy paste lebih dari satu baris KE Kolom A) maupun ketikan satu persatu / data tgl akan masuk sbg data Date (jika kolom tujuan diformat bukan General, atau date (asal bukan fotmat sbg TEXT)

Sebetulnya kasus ini lebih cocok dimakrokan sebagai UDF (fungsi baru) seperti asli jawaban yg saya kutip;

tetapi nanti dikira nggak otimatis ?? (hasil masih berupa formula)

**

barangkali pak Gunawan Gunawan Gunawan Gunawan belum sempat menyimpulkan:  

" untuk mengotomatiskan jalannya makro jika ada update di suatu cell, maka makro "harus" ditulis di dalam (atau dipanggil dari) Prosedur Event WorksheetChange.

Event itu apa, Prosedur itu apa ? Sheet_Change itu kapan terjadi ? (ketiganya sudah banyak dibicarakan di milis ini)

best regards,

wassalamu alaikum wr wb, 

hapsari 

On Wed, Aug 3, 2011 at 7:27 PM, Gunawan, Gunawan <Gunawan.Gunawan@sc.com> wrote:
>
> Saya ada sedikit masalah…
> Saya ingin membagi data di suatu cell ke beberapa cell lain dengan delimiter tertentu…
> Fungsi text to column tidak bisa saya gunakan karena data yang ingin saya pecah terbagi ke kolom2 yang tidak beraturan…
> Nah, boleh dibantu untuk macro-nya, nubie blom mahir menggunakan macro… J
>
> Satu hal lagi, bagaimana setting macro-nya supaya setiap kali saya meng-update cell A, 

> macro-nya langsung jalan dan mengisi kolom C,E-G…
> Moga-moga pertanyaannya tidak bikin bingung… J
>
> GZ

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (4)

Recent Activity:

• New Members 62

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| tiap tanggal gajian, order buku "mengapa boss benci chart anda    |
| membludak :) ayo2 pesan yang belum punya....                      |
| btw... selamat menunaikan ibadah puasa ya...                      |
| www.facebook.com/pages/XL-mania/104233892978057                   |
+-------------------------------------------------------------------+
| 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              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___