Sabtu, 25 Agustus 2012

[belajar-excel] Digest Number 1741

3 New Messages

Digest #1741

Messages

Fri Aug 24, 2012 7:05 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Kayaknya julukan "@Master" belum cocok untuk saya.
Cuma sekedar tambahan u/ macro yang saya buat; agar hasilnya langsung menjadi "value" cukup tambahkan code ini :
Selection.Value = Selection.Value
di bawah code Selection.FormulaR1C1 ......, sehingga macronya menjadi :

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Selesai
    If Target.Column = 3 Then
        If Target <> "" Then
            Dim n As Integer
            n = Len(Target.Value)
            Target.Offset(0, 1).Resize(, n).Select
            Range(Selection, Selection.End(xlToRight)).ClearContents
            Selection.FormulaR1C1 = "=Mid(RC3,COLUMN()-3,1)"
            Selection.Value = Selection.Value
        End If
    End If
Selesai:

End Sub

Salam,
Hendrik Karnadi

________________________________
From: abu dimaz <abudimaz@yahoo.co.id>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, 24 August 2012, 0:34
Subject: Bls: Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis


 

@Master Kid
Terimakasih. Kode tersebut sudah sesuai dg harapan saya.
atas ilmunya sy ucapkan Jazakumullah khaira.

@Master Hendrik
Mohon maaf, karena keterburunafsuan sy sehingga tdk melihat kode yg ada.

Semoga para master tdk bosan memberikan ilmunya. Terimakasih

________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 24 Agustus 2012 0:15
Judul: Re: Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis


 
Coba prosedur event worksheet change berikut :
private sub worksheet_change(byval target as range)
     dim lChar as long     'variabel indeks karakter
     application.enableevents=false     'set events lain tidak diproses
     with target           'pada range yang berubah isinya
        if .count=1 then   'jumlah cell yang berubah hanya 1
            if .column=3 then   'kolom cell yang berubah adalah kolom ke-3 ~ kolom C
                'hapus isi cell dikanannya (hati-hati dengan cell kosong diantara 2 cell isi)
                range( .offset(0,1) , .end(xltoright)  ).clearcontents   
                if len(.value)<>0 then   'tidak berubah jadi blank maupun nullstring
                    for lchar=1 to len(.value)     'loop setiap karakter data cell yang berubah isi
                        'isi cell kanan berturutan dengan setiap karakter data berturutan
                        .offset(0,lchar).value=mid$(.value,lchar,1)   
                    next lchar    'akhir blok loop
                endif
            endif
        endif
     end with  
     application.enableevents=true     'set events lain boleh diproses lagi
end sub

>> yang diwarna merah sebaiknya dibuat di VBE dengan memilih event tersebut pada class worksheet terkait
>> sesuaikan rujukan ke cell agar sesuai kondisi setempat dan kebutuhannya
>> yang diwarna magenta, tidak akan berjalan baik jika ada cell kosong (blank dan bukan nullstring) diantara 2 cell berisi data

Wassalam,
Kid.

2012/8/23 abu dimaz <abudimaz@yahoo.co.id>


>Terimakasih, mas Hendrik.
>Tujuannya sama seperti itu, namun yg dikehendaki fungsi MID nya menggunakan kode macro, kalau tidak salah menggunakan Worksheet_SelectionChange event, cuma karena sy tidak mengetahui/memahami koding, jd tidak tahu bagaimana membuatnya.
>Jazakumullah khaira
>
>
>
>
>
>
>
>________________________________
> Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
>Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>Dikirim: Kamis, 23 Agustus 2012 21:49
>Judul: Re: Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis
>
>
>

>Jika yang diinginkan adalah seperti yang diberi huruf tebal(sesuai yang tertulis dalam milis di bawah ini) maka jawaban terlampir mungkin merupakan solusinya.
>
>
>Semoga pas sesuai kebutuhan.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>________________________________
> From: abu dimaz <abudimaz@yahoo.co.id>
>To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>Sent: Wednesday, 22 August 2012, 18:16
>Subject: Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis
>
>

>Terimakasih atas solusinya, namun yg sy inginkan adalah kode worksheet yg berfungsi memisahkan teks pada cell C ke kolom2 berikutnya per huruf secara otomatis.
>
>
>
>
>________________________________
> Dari: Kid Mr. <mr.nmkid@gmail.com>
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Rabu, 22 Agustus 2012 17:00
>Judul: Re: [belajar-excel] Ekstrak teks ke kolom secara otomatis
>
>

>Coba di d2 :
>=mid( $c2, column()-3,1)
>Wassalam,
>Kid.
>» Mohon maaf lahir dan batin «
>
>On Aug 22, 2012 4:46 PM, "Padara Mbeneh" <abudimaz@yahoo.co.id> wrote:
>
>
>> 
>>Mohon bantuannya, sy membutuhkan worksheet module untuk memisahkan teks jawaban pada kolom C ke kolom berikutnya, seperti fungsi MID, misal: dikolom C2 = ABCDAABCDABCD22234, maka otomatis di kolom D = A, kolom E=B, kolom E=C, dst.
>>Terimakasih sebelumnya.
>>
>>
>
>
>
>
>
>

Sat Aug 25, 2012 12:05 am (PDT) . Posted by:

"Yayat Ply"

Terima kasih Mr. Kid atassolusinya , nanti akan saya praktikan.
-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Fri, 24 Aug 2012 03:20:39
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Open file secara otomatis

Coba buat event worksheet before double click di VBE pada sheet tersebut.
Kemudian isi dengan :
dim oShellApp as object
dim sFullFileName as string

with target 'pada range yang di double click
if .count=1 then 'hanya 1 cell
if .column=7 then 'di kolom ke-7
if .row>3 then 'nomor baris excel-nya > 3
if len(.value)=3 then 'isinya hanya 3 karakter
'set nama file lengkap dengan foldernya
'ganti *thiswrokbook.path* dengan pathfile-nya
'seperti : *D:\mydata\folderku*
sfullfilename=*thisworkbook.path* & "\" & .value & ".pdf"

if lenb(dir$(sfullfilename)<>0 then 'filenya ada beneran
set oShellApp=createobject("WScript.Shell") 'buat shell
command
oshellapp.run sfullfilename 'run file dari shell
command
cancel=true 'batalkan perintah double click
endif
endif
endif
endif
endif
end with

Wassalam,
Kid.

2012/8/22 Yayat Ply <yayat_ply@ymail.com>

> **
>
>
> ** Maap saya lupa melampirkannya
> Nih, saya kirimkan kembali.
> Terima kasih
> ------------------------------
> *From: * hendrik karnadi <hendrikkarnadi@yahoo.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Wed, 22 Aug 2012 04:44:50 -0700 (PDT)
> *To: *belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Open file secara otomatis
>
>
>
> Lampirannya ga kelihatan Pak.
>
> Salam,
> Hendrik Karnadi
>
> ------------------------------
> *From:* "yayat_ply@ymail.com" <yayat_ply@ymail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, 22 August 2012, 10:39
> *Subject:* [belajar-excel] Open file secara otomatis
>
> Selamat siang para master excel.
> Mohon bantunya dan petunjuk atas masalah yg sudah saya lampirkan pada
> email ini.
> Sebelumnya saya ucapkan banyak erima kasih.
> Maap kalau email saya terlalu singkat :)
> Powered by Telkomsel BlackBerry�
>
> ------------------------------------
>
> ----------------------------------------------------------
> 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
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>
>
>
>

Sat Aug 25, 2012 3:13 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Mr. Kid,

Menyambung pertanyaan dari Pak Yayat,
bagaimana Script VBA nya jika extension filenya terdiri dari ber-macam2, antara lain .JPEG, .xls, .xlsm ?

Terima kasih.

Salam,
Hendrik Karnadi

----- Forwarded Message -----
From: Yayat Ply <yayat_ply@ymail.com>
To: belajar-excel@yahoogroups.com
Sent: Saturday, 25 August 2012, 5:23
Subject: Re: [belajar-excel] Open file secara otomatis


 
Terima kasih Mr. Kid atassolusinya , nanti akan saya praktikan.
________________________________

From: "Kid Mr." <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Fri, 24 Aug 2012 03:20:39 +0700
To: <belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Open file secara otomatis
 
Coba buat event worksheet before double click di VBE pada sheet tersebut. Kemudian isi dengan :
dim oShellApp as object
dim sFullFileName as string

with target     'pada range yang di double click
   if .count=1 then     'hanya 1 cell
     if .column=7 then   'di kolom ke-7
       if .row>3 then     'nomor baris excel-nya > 3
         if len(.value)=3 then    'isinya hanya 3 karakter
            'set nama file lengkap dengan foldernya
            'ganti thiswrokbook.path dengan pathfile-nya
            'seperti :   D:\mydata\folderku
            sfullfilename=thisworkbook.path & "\" & .value & ".pdf"

            if lenb(dir$(sfullfilename)<>0 then    'filenya ada beneran
                set oShellApp=createobject("WScript.Shell")    'buat shell command
                oshellapp.run sfullfilename      'run file dari shell command
                cancel=true     'batalkan perintah double click
            endif
         endif
       endif
     endif
   endif   
end with

Wassalam,
Kid.

2012/8/22 Yayat Ply <yayat_ply@ymail.com>


> Maap saya lupa melampirkannya
>Nih, saya kirimkan kembali.
>Terima kasih
>________________________________
>
>From: hendrik karnadi <hendrikkarnadi@yahoo.com>
>Sender: belajar-excel@yahoogroups.com
>Date: Wed, 22 Aug 2012 04:44:50 -0700 (PDT)
>To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
>ReplyTo: belajar-excel@yahoogroups.com
>Subject: Re: [belajar-excel] Open file secara otomatis
>

>Lampirannya ga kelihatan Pak.
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>________________________________
> From: "yayat_ply@ymail.com" <yayat_ply@ymail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Wednesday, 22 August 2012, 10:39
>Subject: [belajar-excel] Open file secara otomatis
>
>Selamat siang para master excel.
>Mohon bantunya dan petunjuk atas masalah yg sudah saya lampirkan pada email ini.
>Sebelumnya saya ucapkan banyak erima kasih.
>Maap kalau email saya terlalu singkat :)
>Powered by Telkomsel BlackBerry®
>
>------------------------------------
>
>----------------------------------------------------------
>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
>----------------------------------------------------------Yahoo! Groups Links
>
>
>    belajar-excel-fullfeatured@yahoogroups.com
>
>
>
>

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