Selasa, 20 Desember 2011

[belajar-excel] Digest Number 1445

Messages In This Digest (13 Messages)

Messages

1a.

Re: Help, kadang error, kadang tidak

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

Tue Dec 20, 2011 12:08 am (PST)



Coba baca disini, barangkali bisa membantu.
http://www.excelforum.com/excel-programming/789669-vbmodeless-form-problem.html 

Salam,
Hendrik Karnadi

________________________________
From: Aliif Akbar <asrorcakep@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 20 December 2011, 11:59
Subject: Re: [belajar-excel] Help, kadang error, kadang tidak


 
Dear,
Masih error dan kadang tidak error,
Berikut module yang error.

Private Sub cmdbtn_click()
Application.wondowState = xlMinimized
On Error Resume Next
Welcome.show vbModeless
Err.Clear
On Error goTo 0
End sub

Pada tulisan welcome.show vbModeless itu menjadi kuning?

Mohon dibantu,
Terimakasih.

Asr

________________________________

From: "Kid Mr." <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 20 Dec 2011 11:36:58 +0700
To: <belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Help, kadang error, kadang tidak
 
Coba Pak Asror, bagian welcome.show diubah menjadi :

on error resume next
welcome.show
err.clear
on error goto 0

Kid.

2011/12/20 Aliif Akbar <asrorcakep@yahoo.com>

> 
> Mohon maaf, file menggunakan makro, ini tidak bsa di attachment karena terlalu besar, ketika error, di debug, itu kata yang menjadi kuning adalah welcome.show,
>Namun ketika dicoba lagi, ini dpat berjalan lancar tanpa ada error,
>Ini baru dipake di komputer 1 dan belum di coba di komputer lain,..
>Terimakasih,
>
>Asror
>
>________________________________
>
>From: hendrik karnadi <hendrikkarnadi@yahoo.com>
>Sender: belajar-excel@yahoogroups.com
>Date: Mon, 19 Dec 2011 19:22:02 -0800 (PST)
>To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
>ReplyTo: belajar-excel@yahoogroups.com
>Subject: Re: [belajar-excel] Help, kadang error, kadang tidak
>
> 
>Ada 2 hal yang masih perlu ditambahkan/dijelaskan :
>1. Lampiran file yang berisi Macro
>2. Kadang jalan kadang error, apakah di komputer yang sama dengan versi Excel yang sama ?
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>________________________________
> From: Aliif Akbar <asrorcakep@yahoo.com>
>To: belajar-excel@yahoogroups.com
>Sent: Tuesday, 20 December 2011, 9:56
>Subject: [belajar-excel] Help, kadang error, kadang tidak
>
>
> 
>Selamat pagi,
>
>Rekan BeExcel,
>Apa kaabar?
>Program macro yg saya buat, itu kadang bisa di jalankan dengan lancar, kadang juga error,
>Mengapa demikian?
>Mohon bantuannya,
>Terimakasih,
>
>Asror
>
>
>
>

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

Re: Help, kadang error, kadang tidak

Posted by: "Aliif Akbar" asrorcakep@yahoo.com   asrorcakep

Tue Dec 20, 2011 12:13 am (PST)



Mr.Hendrik n Mr.Kid,
Okeh, nanti saya kirimkan, sekarang lagi kerja, :)

Terimakasih responsnya,..

Regards,
Asror


-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 20 Dec 2011 00:08:40
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Help, kadang error, kadang tidak

Coba baca disini, barangkali bisa membantu.
http://www.excelforum.com/excel-programming/789669-vbmodeless-form-problem.html 


Salam,
Hendrik Karnadi


________________________________
From: Aliif Akbar <asrorcakep@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 20 December 2011, 11:59
Subject: Re: [belajar-excel] Help, kadang error, kadang tidak


 
Dear,
Masih error dan kadang tidak error,
Berikut module yang error.

Private Sub cmdbtn_click()
Application.wondowState = xlMinimized
On Error Resume Next
Welcome.show vbModeless
Err.Clear
On Error goTo 0
End sub

Pada tulisan welcome.show vbModeless itu menjadi kuning?

Mohon dibantu,
Terimakasih.

Asr

________________________________

From: "Kid Mr." <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 20 Dec 2011 11:36:58 +0700
To: <belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Help, kadang error, kadang tidak
 
Coba Pak Asror, bagian welcome.show diubah menjadi :

on error resume next
welcome.show
err.clear
on error goto 0

Kid.


2011/12/20 Aliif Akbar <asrorcakep@yahoo.com>


> 
> Mohon maaf, file menggunakan makro, ini tidak bsa di attachment karena terlalu besar, ketika error, di debug, itu kata yang menjadi kuning adalah welcome.show,
>Namun ketika dicoba lagi, ini dpat berjalan lancar tanpa ada error,
>Ini baru dipake di komputer 1 dan belum di coba di komputer lain,..
>Terimakasih,
>
>Asror
>
>________________________________
>
>From: hendrik karnadi <hendrikkarnadi@yahoo.com>
>Sender: belajar-excel@yahoogroups.com
>Date: Mon, 19 Dec 2011 19:22:02 -0800 (PST)
>To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
>ReplyTo: belajar-excel@yahoogroups.com
>Subject: Re: [belajar-excel] Help, kadang error, kadang tidak
>
> 
>Ada 2 hal yang masih perlu ditambahkan/dijelaskan :
>1. Lampiran file yang berisi Macro
>2. Kadang jalan kadang error, apakah di komputer yang sama dengan versi Excel yang sama ?
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>________________________________
> From: Aliif Akbar <asrorcakep@yahoo.com>
>To: belajar-excel@yahoogroups.com
>Sent: Tuesday, 20 December 2011, 9:56
>Subject: [belajar-excel] Help, kadang error, kadang tidak
>
>
> 
>Selamat pagi,
>
>Rekan BeExcel,
>Apa kaabar?
>Program macro yg saya buat, itu kadang bisa di jalankan dengan lancar, kadang juga error,
>Mengapa demikian?
>Mohon bantuannya,
>Terimakasih,
>
>Asror
>
>
>
>


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

Re: mau tanya dong..

Posted by: "Aliif Akbar" asrorcakep@yahoo.com   asrorcakep

Tue Dec 20, 2011 12:17 am (PST)



Pak dian,
Coba kalo pake yang di userform dari saya,
Rgds
Asror


-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Mon, 19 Dec 2011 23:15:14
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] mau tanya dong..

Saya coba forward salah satu contoh dari salah satu Master dalam milis ini.
Semoga sesuai kebutuhan.

Caranya:
Jangan langsung buka dari file .rarnya tetapi extract dulu ke salah satu folder, mis D:\

Salam,
Hendrik Karnadi


________________________________
From: dian cahyadi <penyok2000@yahoo.co.id>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Tuesday, 20 December 2011, 13:47
Subject: [belajar-excel] mau tanya dong..


 
dear master excel semuanya
mau tanya dong kalo mau bikin pict ato photo
yang bisa berubah2 sesuai pilihan yang kita buat
gimana caranya ya ?


Terimakasih




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

Ambil Data Angka Kode Pos

Posted by: "Eko Budhi" eko_tbr_11@yahoo.com   eko_tbr_11

Tue Dec 20, 2011 12:37 am (PST)



Dear pakar2 Be-Excel yang budiman,

Selamat siang semuanya, mohon bantuan pakar2 sekalian saya kesulitan akan mengambil data angka ( Kode Pos ) yg ingin saya pisahkan dari alamat seperti terlampir, karena data yg sy dapatkan tdk teratur dan banyak ( dalam hal ini spasi ataupun jumlah numbernya ) sehingga akan memerlukan waktu yg lama utk edit satu persatu alamat tsb. mohon kiranya ada formula yg cocok utk memisahkan angka2 kode pos tsb. mohon maaf kalau pernah ada ditanyakan sebelumnya ya. terimakasih banyak sebelumnya

Salam,

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

Trs: [belajar-excel] Ambil Data Angka Kode Pos

Posted by: "Eko Budhi" eko_tbr_11@yahoo.com   eko_tbr_11

Tue Dec 20, 2011 12:43 am (PST)



resend, maaf masuk ke spam kenapa ya??

----- Pesan yang Diteruskan -----
Dari: Eko Budhi <eko_tbr_11@yahoo.com>
Kepada: Belajar excel <belajar-excel@yahoogroups.com>
Dikirim: Selasa, 20 Desember 2011 15:37
Judul: [belajar-excel] Ambil Data Angka Kode Pos


 
Dear pakar2 Be-Excel yang budiman,

Selamat siang semuanya, mohon bantuan pakar2 sekalian saya kesulitan akan mengambil data angka ( Kode Pos ) yg ingin saya pisahkan dari alamat seperti terlampir, karena data yg sy dapatkan tdk teratur dan banyak ( dalam hal ini spasi ataupun jumlah numbernya ) sehingga akan memerlukan waktu yg lama utk edit satu persatu alamat tsb. mohon kiranya ada formula yg cocok utk memisahkan angka2 kode pos tsb. mohon maaf kalau pernah ada ditanyakan sebelumnya ya. terimakasih banyak sebelumnya

Salam,

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

Re: Ambil Data Angka Kode Pos

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Tue Dec 20, 2011 12:54 am (PST)



Pak Budhi,

Coba formula :
=--RIGHT(SUBSTITUTE(SUBSTITUTE(B4,"."," - "),")",""),6)

Salam,
Kid.

2011/12/20 Eko Budhi <eko_tbr_11@yahoo.com>

> **
>
>
> Dear pakar2 Be-Excel yang budiman,
>
> Selamat siang semuanya, mohon bantuan pakar2 sekalian saya kesulitan akan
> mengambil data angka ( Kode Pos ) yg ingin saya pisahkan dari alamat
> seperti terlampir, karena data yg sy dapatkan tdk teratur dan banyak (
> dalam hal ini spasi ataupun jumlah numbernya ) sehingga akan memerlukan
> waktu yg lama utk edit satu persatu alamat tsb. mohon kiranya ada formula
> yg cocok utk memisahkan angka2 kode pos tsb. mohon maaf kalau pernah ada
> ditanyakan sebelumnya ya. terimakasih banyak sebelumnya
>
>
> Salam,
>
> Budi
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3d.

Re: Ambil Data Angka Kode Pos

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

Tue Dec 20, 2011 1:27 am (PST)



Kalau "pengganggunya" di sebelah kanan hanya spasi dan ")"
maka formulanya cukup dengan:
=RIGHT(TRIM(SUBSTITUTE(B4,")","")),5)

Rumus dari mas Kid itu sudah mengantisipasi hal-hal lain...

*
*
*
*
*2011/12/20 Eko Budhi <eko_tbr_11@yahoo.com>
>
> Dear pakar2 Be-Excel yang budiman,
> Selamat siang semuanya, mohon bantuan pakar2 sekalian saya kesulitan akan
mengambil data angka ( Kode Pos ) yg ingin saya pisahkan dari alamat
seperti terlampir, karena data yg sy dapatkan tdk teratur dan banyak (
dalam hal ini spasi ataupun jumlah numbernya ) sehingga akan memerlukan
waktu yg lama utk edit satu persatu alamat tsb. mohon kiranya ada formula
yg cocok utk memisahkan angka2 kode pos tsb. mohon maaf kalau pernah ada
ditanyakan sebelumnya ya. terimakasih banyak sebelumnya
>
> Salam,
> Budi*
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3e.

Trs: [belajar-excel] Ambil Data Angka Kode Pos

Posted by: "Eko Budhi" eko_tbr_11@yahoo.com   eko_tbr_11

Tue Dec 20, 2011 2:17 am (PST)



terimakasih banyak bu hapsari n mr.kid, sdh ok formulanya.

----- Pesan yang Diteruskan -----
Dari: i Haps <hapsari.stlizbeth@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 20 Desember 2011 16:27
Judul: Re: [belajar-excel] Ambil Data Angka Kode Pos


 
Kalau "pengganggunya" di sebelah kanan hanya spasi dan ")"
maka formulanya cukup dengan:
=RIGHT(TRIM(SUBSTITUTE(B4,")","")),5)

Rumus dari mas Kid itu sudah mengantisipasi hal-hal lain...

2011/12/20 Eko Budhi <eko_tbr_11@yahoo.com>
>
> Dear pakar2 Be-Excel yang budiman,
> Selamat siang semuanya, mohon bantuan pakar2 sekalian saya kesulitan akan mengambil data angka ( Kode Pos ) yg ingin saya pisahkan dari alamat seperti terlampir, karena data yg sy dapatkan tdk teratur dan banyak ( dalam hal ini spasi ataupun jumlah numbernya ) sehingga akan memerlukan waktu yg lama utk edit satu persatu alamat tsb. mohon kiranya ada formula yg cocok utk memisahkan angka2 kode pos tsb. mohon maaf kalau pernah ada ditanyakan sebelumnya ya. terimakasih banyak sebelumnya
>
> Salam,
> Budi
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
4a.

Re: Copy/Convert data '.prn' dari aplikasi under DOS ke dlm excel

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Tue Dec 20, 2011 12:57 am (PST)



Kalau dicoba dari windows explorer, klik kanan lalu open with Excel jadinya
seperti apa ?
Atau mungkin ada salah satu contoh file .prn nya

Kid.

2011/12/20 sin.ur4t <sin.ur4t@yahoo.com>

> **
>
>
> Salam Be-excel..
>
> Kami memiliki sekumpulan series data dlm file berekstensi '.prn' yg
> bersumber dari suatu aplikasi under DOS. Bagaimana cara mengambil dan
> memindahkan data tsb ke dlm excel?? Atau, adakah aplikasi converter-nya??
> Mohon dibantu, terima kasih sebelumnya.
>
> Salam..
>
> Imam F. Sinurat - Sumut
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
5a.

Re: Menambah ROW dengan Automatic

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

Tue Dec 20, 2011 1:08 am (PST)



Pak sugeng,
Mari kita lupakan istilah di DRUG itu = di apakan? (jangan dijawab)
Karena sampai saat ini saya belum menangkap maksud pak Sugeng.
Paling dekat mungkin = *MemBLOK* atau* men SELECT* Range

Ketika sebuah Range di-SELECT (diBLOK / di highlited), sepertinya pak
Sugeng
ingin menyisipkan baris baru diantara baris yg ada; misal :
Range yg diselect = 5 baris (A2:A6) menjadi A2:A11
dimana baris 3, 5, 7, 9, 11 adalah baris baru yg kosong.

Jika demikian yg dikehendaki, kita mengusulkan 2 cara

*(1). tanpa makro*
a. sisipkan (insert secara biasa) jadi *baris baru akan berada di baris
7, 8, 9, 10,11*
b. insertkan *kolom baru di kirinya* >> seakarang kolom A = kolom kosong
c. pada A2 sampai A6 berikan nomor urut 1,2,3,4,5
d. pada A7 sampai A11 berikan nomor urut juga 1,2,3,4,5
e. Blok (select-lah Baris A2 sampai A11
f. Range yg diblok ini di SORT (data > Sort) dengan kolom kunci = kolom
A,
dengan order : Asecending (menaik)
g. Selesai

*(2) dengan Makro*
Sub Selang_Sisip()
Dim n As Long
For n = Selection.Rows.Count + 1 To 2 Step -1
Selection(n, 1).EntireRow.Insert
Next n
End Sub

*Cara menjalankan*
BLOK dulu suaru Range Misal A2:A8
boleh baris 2 sampai baris 8
Jalankan makronya dengan menekan [* Ctrl + Shift + O* ]
atau
tekan Alt + F8, pilih nama mako (sisip selang) tekan tombol RUN

Jika diskusi masih akan berlanjut, dan* istilah DRUG* masih akan bapak
gunakan, mohon
di jelaskan dulu *di DRUG itu di apakan* ??

iHaps

2011/12/20 Sugeng Subagio <sugsuek96@gmail.com>

> **
>
> Mas or Mbak I Haps,
> Terima kasih atas masukannya. Mengenai nama Coba1, maaf saya salah menamai
> karena ini sama dengan file sebelumnya. Sebenarnya saya inginkan untuk
> menambah Row baru di file yang saya drag. Biasanya kan kalau di drug
> kemudian click kanan terus kita insert, maka akan muncul ROW baru sesuai
> dengan row yang kita drug. Terus kalau kita click satu ROW, misalkan A2,
> maka akan muncul ROW baru di bawah A2. Nach, saya ingin menyisipkan Row
> kosong A2,A3,A4 dan seterusnya tanpa harus menglick satu persatu. Inikan
> nantinya akan memakan waktu. Mohon maaf sekiranya pertanyaan dari saya agak
> membingungkan, maklum pemula :)
>
> regard's
> Sugeng
>
>
> 2011/12/19 i Haps <hapsari.stlizbeth@gmail.com>
>
>> Drag And Drop<http://www.dummies.com/how-to/content/using-drag-and-drop-in-excel-2007.html>
>> ??
>>
>> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> *' coded by indri hapsari *
>> ' smg, dec 19, 2011, after-subuhan-prayer-time
>> '---------------------------------------------
>> If Target.Columns.Count = Columns.Count Then
>> If Target.Rows.Count > 1 Then
>> Target(2, 1).EntireRow.Insert
>> End If
>> End If
>> End Sub
>>
>>
>> -iHaps-
>>
>>
>>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
6a.

tanya code macro

Posted by: "guru muda" mudaguru@yahoo.com   mudaguru

Tue Dec 20, 2011 1:12 am (PST)



Yang terhormat para anggota dan guru besar excel.

Saya dapat code macro seperti yang saya lampirkan. Kata yang buat, kode tersebut untuk membuat range dinamis.

Yang ingin saya tanyakan adalah

1. Bagaimana cara memasukkan code tersebut ke dalam excel. Tolong dijelaskan step by
   step.
2. Setelah masuk, cara penggunaannya gimana?

Terima kasih berat.

----------

Sub MakeDynRanges()
' shg 2011-06

' Adds dynamic ranges using the names in the top row of the selection
Dim r As Range
Dim cell As Range

If Not TypeOf Selection Is Range Then
MsgBox Prompt:="Select a range and try again.", _
Title:="Oops!"
Exit Sub
End If

ActiveWorkbook.Names.Add Name:="conBig", RefersTo:=9.99999999999999E+307
ActiveWorkbook.Names.Add Name:="conZzz", RefersTo:="=rept(""z"", 255)"

Set r = Selection

For Each cell In Intersect(r.Rows(1).EntireRow, r.EntireColumn).Cells
If Len(cell.Text) Then
MakeDynRange cell, VarType(cell.Offset(1).Value2)
End If
Next cell
End Sub

Function MakeDynRange(cell As Range, iType As VbVarType) As Boolean
' shg 2011-06
Dim sName As String
Dim sAdrCel As String
Dim sAdrCol As String

With cell.Worksheet
sName = Replace(Replace(cell.Text, " ", ""), Chr(160), "")
sAdrCel = cell.Address
sAdrCol = cell.EntireColumn.Address

If IsValidRangeName(sName) Then
Select Case iType
Case vbDouble
.Names.Add _
Name:=sName, _
RefersTo:="=index(" & sAdrCol & ", row(" & sAdrCel & ") + 1):" & _
"index(" & sAdrCol & ", match(conBig, " & sAdrCol & "))"
MakeDynRange = True

Case vbString
.Names.Add _
Name:=sName, _
RefersTo:="=index(" & sAdrCol & ", row(" & sAdrCel & ") + 1):" & _
"index(" & sAdrCol & ", match(conZzz, " & sAdrCol & "))"
MakeDynRange = True

Case Else
Select Case InputBox(Prompt:="Data below cell " & cell.Address & " will be: " & vbLf & vbLf & _
"1. Numbers" & vbLf & _
"2. Text", _
Title:="Dynamic Column Ranges")
Case "1"
MakeDynRange = MakeDynRange(cell, vbDouble)
Case "2"
MakeDynRange = MakeDynRange(cell, vbString)
Case Else
Exit Function
End Select
End Select
Else
MsgBox Prompt:="""" & sName & """ in " & _
cell.Address(False, False) & _
" is not a valid name.", _
Title:="Oops"
End If
End With
End Function

Function IsValidRangeName(sInp As String) As Boolean
' shg 2011-06

Dim sTest As String

With CreateObject("VBScript.RegExp")
.IgnoreCase = True
.Pattern = "^[A-Z_][\w]{0,254}$"
If Not .test(sInp) Then Exit Function
End With

' verify that the name doesn't look like an A1 or R1C1 address
On Error Resume Next
With Application
sTest = LCase(.ConvertFormula(sInp, xlA1, xlR1C1, True))
If Err.Number = 0 Then
If sTest <> LCase(sInp) Then Exit Function
Else
Err.Clear
End If

sTest = LCase(.ConvertFormula(sInp, xlR1C1, xlA1, True))
If Err.Number = 0 Then
If sTest <> LCase(sInp) Then Exit Function
Else
Err.Clear
End If
End With

IsValidRangeName = True
End Function
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
6b.

Re: tanya code macro

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

Tue Dec 20, 2011 4:51 am (PST)



Pak guru dianggap pakai excel 2007

(A) menulis / code vba
1. Buka Excel
2. Buka workbook Baru
3. Buka Visual Basic Editor (VBE) dengan Alt + F11
atau melalui Ribbon > Tab DEVELOPER > Lihat Group CODE > Visual Basic
(Tab Developer defatultnya belum ditampakkan, anda dapat menampakkan
seterusnya
melalui Excel Options > Tab Popular > Show Developer Tab in the Ribbon )
[image: tab Developer.PNG]

4. Buka Module Baru ( VBA menu > Insert > Module )
5. Copykan text code VBA yg pak gurumuda miliki itu ke Jendela Code
(sebelah kanan)

[image: VBE.PNG]
6. Keluar / menutup dari VBE dengan Alt + Q

(B) Menggunakan Fungsi yg dibuat dengan Makro
Cara penggunaan Makro Fungsi (UDF), seperti menuliskan formula mengandung
FUNGSI di sheet
Perhatikan: arguments-nya
Mestinya ada penjelasan dari pemilik code tsb. Apa beum dicopy ?

2011/12/20 guru muda <mudaguru@yahoo.com>
>
> Yang terhormat para anggota dan guru besar excel.
> Saya dapat code macro seperti yang saya lampirkan. Kata yang buat, kode
tersebut untuk membuat range dinamis.
> Yang ingin saya tanyakan adalah
> 1. Bagaimana cara memasukkan code tersebut ke dalam excel. Tolong
dijelaskan step by step.
> 2. Setelah masuk, cara penggunaannya gimana?
> Terima kasih berat.
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
7a.

Re: Pakai formula atau pivot table?

Posted by: "nathan.tama" nathan.tama@yahoo.com   nathan.tama

Tue Dec 20, 2011 3:02 am (PST)



Wow, ini mah jurus pamungkas.
Saia belum mampu pakai jurus2 pamungkas, ginkang saya masih chetek (dangkal).
Btw, trimakasih mbak Haps (kata org sih, a.k.a mbak Siti, bener yah mbak?)

Salam

--- In belajar-excel@yahoogroups.com, i Haps <hapsari.stlizbeth@...> wrote:
>
> cara cepat-nya mungkin begini
>
> (maaf ikut nimbrung, mas OntoSeno-nya lagi "pulang ndeso" ama Gatotkaca...)
>
> Sub Menormalkantabel_Jilid27()
> '--------------------------------------------
> ' mengkonversi struktur tabel menjadi normal
> ' indri Hapsari //20 Dec 2011
> ' BeExcel Case # 14751
> '-------------------------------------------
> Dim Abnorm As Range, Normal As Range, Head
> Dim i As Integer, n As Long, r As Long
>
> Head = Split("Emiten,Data,Tahun,Nilai", ",")
> Set Abnorm = Sheets("Sheet1").Range("B2").CurrentRegion
> Set Normal = Sheets("Sheet2").Range("A2")
> Normal.Parent.Activate
>
> Application.Calculation = xlCalculationManual
> Application.ScreenUpdating = False
>
> For i = 0 To UBound(Head): Normal(0, i + 1) = Head(i): Next
>
> * For n = 3 To Abnorm.Rows.Count*
> * For i = 2 To Abnorm.Columns.Count*
> * r = r + 1*
> * Normal(r, 1) = Abnorm(n, 1)*
> * Normal(r, 2) = Abnorm(1, i)*
> * Normal(r, 3) = Abnorm(2, i)*
> * Normal(r, 4) = Abnorm(n, i)*
> * Next i*
> * Next n*
>
> Application.ScreenUpdating = True
> Application.Calculation = xlCalculationAutomatic
> MsgBox "Selesai.." & vbCrLf & "Begini 'kan yg Boss !", 64,
> ThisWorkbook.Name
>
> End Sub
>
> Seperti saran mas Zainul, data kolom terakhir kalau mau disebut sbg
> "berkaidah database "
> harus data yg typenya sama, jangan "rucahan" seperti itu..
>
> iHaps.
>
>
> 2011/12/20 Nathan Tama <nathan.tama@...>
>
> > **
> > Ternyata setelah dipikir2, saia punya KEHENDAK LAIN, yaitu mengubah tabel
> > tadi menjadi TABEL BERKAIDAH DATABASE seperti yg dicontohkan suhu O'Seno.
> > Mohon bantuannya sekali lagi untuk jurus2nya.
> > Salam,
> > Nathan
> >
>
>
> > --- In belajar-excel@yahoogroups.com, "o' Seno" <ontoseno84@> wrote:
> > > Dengan formula: masih bisa,
> > > walaupun sangat khusus ( = jika data sumber berubah urutan & susunan
> > > strukturnya) maka formula dijamin akan menghasilkan data yg "tidak
> betoel")
> > >
> > > Dengan Pivot Tabel,
> > > data AbNormal seperti itu tidak memenuhi syarat per*-Pivot-Tabel-*an, he
> > > he.. ( tidak berkaidah database!) ..
> > > Harus di ubah dulu menjadi tabel Normal / "berBAU" aturan database...
> > > ( dulu di sini ada "embak-embak" yg sering bilang ogah pakai Pivot
> becoz
> > > takut pipinya komvot, kemana dia sekarang ya...)
> > >
> > > wassalam...
> > > o'Seno
>

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

Small Business Group

Own a business?

Connect with others.

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Parenting Zone

Resources and tips

for parents

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

Diposting oleh EXCEL FEED LEARNING di 07.00

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)