11 New Messages

Digest #1919

Re: cara penulisan function di macro excel by "summonery" summonery

Re: cara penulisan function di macro excel by "lkm jktind" lkmjkt

Re: Membuat Nota Penjualan by "aji mumpung"

Re: Membuat Nota Penjualan by "hendrik karnadi" hendrikkarnadi

Re: Membuat Nota Penjualan by "Ade Ismail" ade_ismail@ymail.com

Re: Membuat Nota Penjualan by "hendrik karnadi" hendrikkarnadi

Convert text to number after copy paste special by "abdul" abduldedysubhansyah

Re: Convert text to number after copy paste special by "Mr. Kid" nmkid.family@ymail.com

Entri Data Pakai VBA by "Andre Rahmaidy Teeza" andre_teeza_bn

Re: Entri Data Pakai VBA by "Mr. Kid" nmkid.family@ymail.com

Messages

1a

Re: cara penulisan function di macro excel

Mon Nov 19, 2012 10:04 pm (PST) . Posted by:

"summonery" summonery

Coba juga teknik penggunaan sumproduct melalui macro berikut ini,

WorksheetFunction.SumProduct(evaluate("(F2:F34=N16)*(G1:L1=O16)*(G2:L34)\
"))
atau,
WorksheetFunction.SumProduct([(F2:F34=N16)*(G1:L1=O16)*(G2:L34)])

(Evaluate method menghasilkan array (satu-satunya yang dimaui
sumproduct) yang kemudian diumpankan ke WorksheetFunction.SumProduct)
---------The advantage of using square brackets is that the code is
shorter. The advantage of using Evaluate is that the argument is a
string, so you can either construct the string in your code or use a
Visual Basic variable.---------
>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, lkm jktind <lkmjktind@...> wrote:
>
> Pak Kid.
>
> sudah bisa
>
> terima kasih untuk Pak Kid dan Pak Jan Raisin
>
> Dim Sum_T As Range
> Dim Sum_J As Range
> Dim Sum_N As Range
>
> Set Sum_T = Range("F1:F34")
> Set Sum_J = Range("F1:L1")
> Set Sum_N = Range("F1:L34")
>
> On Error Resume Next
> With Application.WorksheetFunction
> 'Untuk formula worksheet berbunyi :
> '>> =I2+I3
> Range("S3").Value = Range("I2").Value + Range("I3").Value
>
> '>> =SUM(I2:I34)
> Range("S4").Value = .Sum(Range("I2:I34"))
>
> '>> =SUMPRODUCT((F2:F34=N16)*(G1:L1=O16)*(G2:L34))
> Range("S15").Value = .SumProduct(Evaluate("(F1:F34=N16)*(F1:L1=O16)"),
> Sum_N)
> Range("T15").Value = .SumProduct(Evaluate("(Sum_T = Cells(16, 14)) *
(Sum_J
> = Cells(16, 15))"), Sum_N) '-- cuma yg ini nga bisa. tapi nga apa
apa.
> Range("U15") = .SumProduct(Evaluate("(F1:F34=N16)*(F1:L1=O16)"),
Sum_N)
>
> '>>
=INDEX($G$2:$M$34,MATCH($N$16,$F$2:$F$34,0),MATCH($O$16,$G$1:$M$1,0))
> Range("S16").Value = .Index(Range("$F$1:$L$34"),
> .Match(Range("$N$16").Value, Range("$F$1:$F$34"), 0),
> .Match(Range("$O$16").Value, Range("$F$1:$L$1"), 0))
> Range("T16").Value = .Index(Sum_N, .Match(Range("$N$16").Value, Sum_T,
0),
> .Match(Range("$O$16").Value, Sum_J, 0))
> Range("U16") = .Index(Sum_N, .Match(Range("$N$16"), Sum_T, 0),
> .Match(Range("$O$16"), Sum_J, 0))
>
> '>> =VLOOKUP($N$16,$F$2:$L$34,MATCH($O$16,$F$1:$L$1,0),FALSE)
> Range("S17").Value = .VLookup(Range("$N$16").Value,
Range("$F$1:$L$34"),
> .Match(Range("$O$16").Value, Range("$F$1:$L$1"), 0), 0)
> Range("T17").Value = .VLookup(Range("$N$16").Value, Sum_N,
> .Match(Range("$O$16").Value, Sum_J, 0), 0)
> Range("U17") = .VLookup(Range("$N$16"), Sum_N, .Match(Range("$O$16"),
> Sum_J, 0), 0)
>
> Range("S19").Value = .WorkDay(Range("N19"), Range("O19"),
Range("AA2:AA39"))
>
>
>
> End With
> Err.Clear
> On Error GoTo 0
>
>
> Akan saya coba untuk function lain nya sesuai dengan kebutuhanku.
>
> Salam dan selamat malam
>
> Lukman
>
>
>
>
> On Mon, Nov 19, 2012 at 7:44 PM, Mr. Kid mr.nmkid@... wrote:
>
> > **
> >
> >
> > Pak Lukman,
> >
> > 'Pada variabel yang terdefinisi sebagai berikut :
> >
> > Dim Sum_T As Range
> > Dim Sum_J As Range
> > Dim Sum_N As Range
> >
> > Set Sum_T = Range("F2:F34")
> > Set Sum_J = Range("G1:L1")
> > Set Sum_N = Range("G2:L34")
> >
> > on error resume next
> > with application.worksheetfunction
> > 'Untuk formula worksheet berbunyi :
> > '>> =I2+I3
> > range("s3").value=range("I2").value + range("I3").value
> >
> > '>> =SUM(I2:I34)
> > range("s4").value = .sum( range("I2:I34") )
> >
> > '>> =SUMPRODUCT((F2:F34=N16)*(G1:L1=O16)*(G2:L34))
> > range("s15").value = .sumproduct( evaluate(
"(F2:F34=N16)*(G1:L1=O16)" ) ,
> > sum_n )
> >
> > '>>
=INDEX($G$2:$M$34,MATCH($N$16,$F$2:$F$34,0),MATCH($O$16,$G$1:$M$1,0))
> > range("s16").value = .index( range("$G$2:$M$34") , _
> >
> > .match( range("$N$16").value ,
range("$F$2:$F$34")
> > , 0 ) , _
> >
> > .match( range("$O$16").value ,
range("$G$1:$M$1")
> > , 0 ) _
> >
> > )
> > '>> =VLOOKUP($N$16,$F$2:$L$34,MATCH($O$16,$F$1:$L$1,0),FALSE)
> > range("s17").value = .vlookup( range("$N$16").value , _
> > range("$F$2:$L$34") , _
> > .match( range("$O$16").value ,
> > range("$F$1:$L$1") , 0 ) , _
> > 0 _
> > )
> >
> > end with
> > err.clear
> > on error goto 0
> >
> > Wassalam,
> > Kid.
> >
> >
> > 2012/11/19 lkm jktind lkmjktind@...
> >
> >> **
> >>
> >>
> >> Pak Jan.
> >>
> >> Masih belum bisa ?
> >> Yang berwarna biru.
> >>
> >>
> >>
> >> Option Explicit
> >> Sub coba_function()
> >> Dim Sum_T As Range
> >> Dim Sum_J As Range
> >> Dim Sum_N As Range
> >>
> >> Set Sum_T = Range("F2:F34")
> >> Set Sum_J = Range("G1:L1")
> >> Set Sum_N = Range("G2:L34")
> >>
> >> Range("R3").Formula = "=I2+I3"
> >> Range("R4").Formula = "=SUM(I2:I34)"
> >> Range("R15").Formula =
"=SUMPRODUCT((F2:F34=N16)*(G1:L1=O16)*(G2:L34))"
> >> Range("R16").Formula =
> >>
"=INDEX($G$2:$M$34,MATCH($N$16,$F$2:$F$34,0),MATCH($O$16,$G$1:$M$1,0))"
> >> Range("R17").Formula =
> >> "=VLOOKUP($N$16,$F$2:$L$34,MATCH($O$16,$F$1:$L$1,0),FALSE)"
> >>
> >> Range("U3").Value = Evaluate("=I2+I3")
> >> Range("U4").Value = Evaluate("=SUM(I2:I34)")
> >> Range("U15").Value =
> >> Evaluate("=SUMPRODUCT((F2:F34=N16)*(G1:L1=O16)*(G2:L34))")
> >> Range("U16").Value =
> >>
Evaluate("=INDEX($G$2:$M$34,MATCH($N$16,$F$2:$F$34,0),MATCH($O$16,$G$1:$\
M$1,0))")
> >> Range("U17").Value =
> >>
Evaluate("=VLOOKUP($N$16,$F$2:$L$34,MATCH($O$16,$F$1:$L$1,0),FALSE)")
> >>
> >> Range("S4") = Application.WorksheetFunction.Sum(Range(Range("I2"),
> >> Range("I34")))
> >> Range("T4") = Application.WorksheetFunction.Sum(Sum_N)
> >>
> >> 'Range("S15") =
> >> Application.WorksheetFunction.SumProduct((Range(Range("F2"),
Range("F34"))
> >> = Range("N16")) * (Range(Range("G1"), Range("L1")) = Range("O16"))
*
> >> Range(Range("G2"), Range("L34")))
> >> 'Range("T15") = Application.WorksheetFunction.SumProduct((Sum_T =
> >> Range("N16")) * (Sum_J = Range("O16")) * (Sum_N))
> >> 'Range("U15") =
Application.WorksheetFunction.SumProduct((Range(Sum_T) =
> >> Range("N16")) * (Range(Sum_J) = Range("O16")) * (Range(Sum_N)))
> >> 'Range("S16") =
Application.WorksheetFunction.Index(Range(Range("G2"),
> >> Range("L34")), 17, 3, 0)
> >> 'Range("T16") = Application.WorksheetFunction.Index(
> >> 'Range("U16") = Application.WorksheetFunction.Index(
> >> 'Range("S17") = Application.WorksheetFunction.VLookup(Range("N16"),
> >> (Range(Range("F2"), Range("F34"))), 4, False)
> >> 'Range("T17") = Application.WorksheetFunction.VLookup(Range("N16"),
> >> (Sum_T), 4, False)
> >> 'Range("U17") = Application.WorksheetFunction.VLookup(Range("N16"),
> >> Range(Sum_T), 4, False)
> >>
> >> Range("S18") = Application.WorksheetFunction.Match(Range("N16"),
> >> Range(Range("F2"), Range("F34")), 0)
> >> Range("T18") = Application.WorksheetFunction.Match(Range("O16"),
> >> Range(Range("G1"), Range("L1")), 0)
> >>
> >> End Sub
> >>
> >> Salam
> >>
> >> Lukman
> >>
> >>
> >
> >
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (11) . Top ^

1b

Re: cara penulisan function di macro excel

Tue Nov 20, 2012 12:43 am (PST) . Posted by:

"lkm jktind" lkmjkt

sudah saya coba dengan hasil :

WorksheetFunction.SumProduct(evaluate("(F2:F34=N16)*(G1:L1=O16)*(G2:L34)"))
=== yg ini bisa .

WorksheetFunction.SumProduct([(F2:F34=N16)*(G1:L1=O16)*(G2:L34)]) == yg
ini error.

didalam function nga mau terima *:* kecuali *:* nya ada didalam range
Range("N48").Value = .SumProduct((Range("F2:F35") = Range("C48")) *
(Range("G1:L1") = Range("D48")) * (Range("G2:L35")))
juga gagal .

selain cara .SumProduct(Evaluate ---- yg lain nya belum saya temukan .

salam

Lukman

2012/11/20 summonery <summonery@yahoo.com>

> **
>
>
> Coba juga teknik penggunaan sumproduct melalui macro berikut ini,
>
>
> WorksheetFunction.SumProduct(evaluate("(F2:F34=N16)*(G1:L1=O16)*(G2:L34)")
> )
>
> atau,
>
> WorksheetFunction.SumProduct([(F2:F34=N16)*(G1:L1=O16)*(G2:L34)])
>
>
> (Evaluate method menghasilkan array (satu-satunya yang dimaui sumproduct)
> yang kemudian diumpankan ke WorksheetFunction.SumProduct)
>
> ---------
> The advantage of using square brackets is that the code is shorter. The
> advantage of using Evaluate is that the argument is a string, so you can
> either construct the string in your code or use a Visual Basic variable.
> ---------
>
> >semoga bermanfaat

Reply to sender . Reply to group . Reply via Web Post . All Messages (11) . Top ^

2a

Re: Membuat Nota Penjualan

Mon Nov 19, 2012 10:04 pm (PST) . Posted by:

"aji mumpung"

sekedar tambahan wawasan,

PLU atau Product Look Up adalah sebuah sistem yang akan mencari nama
produk, harga produk, dan keterangan detail lainnya berdasarkan kode produk
yang diinput. Sistem inputnya bisa menggunakan ketik manual atau
menggunakan barcode scanner

Dalam kasus ini berarti harus disusun sebuah database yang berisi (minimal)
Kode Barang
Nama Barang
Harga Barang per unit

contoh yang diberikan oleh pak Hendrik adalah penggunaan combobox yang
merujuk ke sebuah daftar yang berisi list makanan, untuk menjadi PLU maka
listnya harus diubah merujuk kepada kode makanan, sedangkan untuk nama
makanan dan harga bisa menggunakan formula atau langsung dibuat dengan VBA.

mungkin dari member millis ada yang sedang sedikit senggang dan bersedia
membantu membuatkan contohnya.

wassalam,

-Aji Mumpung-

Pada 20 November 2012 12:05, hendrik karnadi <hendrikkarnadi@yahoo.com>menulis:

> **
>
>
> Apa yang dimaksud dengan PLU ?
>
> ------------------------------
> *From:* Ade Ismail <rakaboom.ismail2@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, 20 November 2012, 10:45
> *Subject:* RE: [belajar-excel] Membuat Nota Penjualan
>
>
> Terima kasih banyak Bang Hendrik..
> Kalo mau sistem kayak PLU gitu (saya Cuma masukin kode barangnya aja),
> gimana ?
>
> Salam
> ADE ISMAIL
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *hendrik karnadi
> *Sent:* 19 Nopember 2012 22:04
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Fw: [belajar-excel] Membuat Nota Penjualan
>
>
> *Kalau sdh OK, jangan lupa aktifkan macronya pada tombol Cetak.*
>
> ----- Forwarded Message -----
> *From:* hendrik karnadi <hendrikkarnadi@yahoo.com>
> *To:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Sent:* Monday, 19 November 2012, 21:58
> *Subject:* Re: [belajar-excel] Membuat Nota Penjualan
>
> Coba dulu file terlampir.
> Kalau sudah OK, tolong bungkus untuk MOD ....
>
> Salam,
> Hendrik Karnadi
>
> ------------------------------
> *From:* Ade Ismail <rakaboom.ismail2@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, 19 November 2012, 17:04
> *Subject:* [belajar-excel] Membuat Nota Penjualan
>
>
> Dear Master Exceller..
>
> Tolong bantu saya dalam membuat nota penjualan untuk Kedai Nasi Bakar Saya,
> Data2 saya lampirkan
>
> Terima kasih
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (10) . Top ^

2b

Re: Membuat Nota Penjualan

Mon Nov 19, 2012 10:28 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Kalau tinggal pencet kode (istillah orang awam), bukankah lebih baik dengan mesin kasir yang bisa diprogram ?

Salam,
Hendrik Karnadi

________________________________
From: aji mumpung <pupung1986@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 20 November 2012, 13:04
Subject: Re: [belajar-excel] Membuat Nota Penjualan

sekedar tambahan wawasan,

PLU atau Product Look Up adalah sebuah sistem yang akan mencari nama produk, harga produk, dan keterangan detail lainnya berdasarkan kode produk yang diinput. Sistem inputnya bisa menggunakan ketik manual atau menggunakan barcode scanner

Dalam kasus ini berarti harus disusun sebuah database yang berisi (minimal)
Kode Barang
Nama Barang
Harga Barang per unit

contoh yang diberikan oleh pak Hendrik adalah penggunaan combobox yang merujuk ke sebuah daftar yang berisi list makanan, untuk menjadi PLU maka listnya harus diubah merujuk kepada kode makanan, sedangkan untuk nama makanan dan harga bisa menggunakan formula atau langsung dibuat dengan VBA.

mungkin dari member millis ada yang sedang sedikit senggang dan bersedia membantu membuatkan contohnya.

wassalam,

-Aji Mumpung-

Pada 20 November 2012 12:05, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:

>
>Apa yang dimaksud dengan PLU ?
>
>
>
>________________________________
> From: Ade Ismail <rakaboom.ismail2@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Tuesday, 20 November 2012, 10:45
>Subject: RE: [belajar-excel] Membuat Nota Penjualan
>
>
>
>
>Terima kasih banyak Bang Hendrik..
>Kalo mau sistem kayak PLUgitu (saya Cuma masukin kode barangnya aja), gimana ?
>
>Salam
>ADE ISMAIL
>
>From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
>Sent: 19 Nopember 2012 22:04
>To: belajar-excel@yahoogroups.com
>Subject: Fw: [belajar-excel] Membuat Nota Penjualan
>
>
>Kalau sdh OK, jangan lupa aktifkan macronya pada tombol Cetak.
>
>----- Forwarded Message -----
>From: hendrik karnadi <hendrikkarnadi@yahoo.com>
>To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>Sent: Monday, 19 November 2012, 21:58
>Subject: Re: [belajar-excel] Membuat Nota Penjualan
>
>Coba dulu file terlampir.
>Kalau sudah OK, tolong bungkus untuk MOD ....
>
>Salam,
>Hendrik Karnadi
>
>
>________________________________
>
>From:Ade Ismail <rakaboom.ismail2@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Monday, 19 November 2012, 17:04
>Subject: [belajar-excel] Membuat Nota Penjualan
>
>
>Dear Master Exceller..
>
>Tolong bantu saya dalam membuat nota penjualan untuk Kedai Nasi Bakar Saya,
>Data2 saya lampirkan
>
>Terima kasih
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (10) . Top ^

2c

Re: Membuat Nota Penjualan

Tue Nov 20, 2012 12:45 am (PST) . Posted by:

"Ade Ismail" ade_ismail@ymail.com

Product/Price Look Up code

File kembali saya lampirkan

Terima kasih

ADE ISMAIL

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: 20 Nopember 2012 12:05
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Membuat Nota Penjualan

Apa yang dimaksud dengan PLU ?

_____

Reply to sender . Reply to group . Reply via Web Post . All Messages (10) . Top ^

2d

Re: Membuat Nota Penjualan

Tue Nov 20, 2012 12:45 am (PST) . Posted by:

"Ade Ismail" ade_ismail@ymail.com

Bagaimana cara mengaktifkan macro-nya

***betapa bodohnya saya L

Salam

ADE ISMAIL

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: 19 Nopember 2012 22:04
To: belajar-excel@yahoogroups.com
Subject: Fw: [belajar-excel] Membuat Nota Penjualan

Kalau sdh OK, jangan lupa aktifkan macronya pada tombol Cetak.

----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Monday, 19 November 2012, 21:58
Subject: Re: [belajar-excel] Membuat Nota Penjualan

Coba dulu file terlampir.
Kalau sudah OK, tolong bungkus untuk MOD ....

Salam,

Hendrik Karnadi

_____

From: Ade Ismail <rakaboom.ismail2@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 19 November 2012, 17:04
Subject: [belajar-excel] Membuat Nota Penjualan

Dear Master Exceller..

Tolong bantu saya dalam membuat nota penjualan untuk Kedai Nasi Bakar Saya,

Data2 saya lampirkan

Terima kasih

Reply to sender . Reply to group . Reply via Web Post . All Messages (10) . Top ^

2e

Re: Membuat Nota Penjualan

Tue Nov 20, 2012 8:05 am (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

File terlampir sudah saya revisi.
Karena yang anda inginkan adalah mengetik PLU nya maka PLU saya taruh di kolom sebelahnya, sehingga ketika anda mengetik PLU maka nama makanan/minuman akan tampak pada kolom yang disediakan dengan menggunakan fungsi Vlookup.

Mengaktifkan macronya ? Silakan klik tombol "Cetak" (siapkan printer terlebih dahulu).

Salam,
Hendrik Karnadi

________________________________
From: Ade Ismail <rakaboom.ismail2@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 20 November 2012, 11:21
Subject: RE: [belajar-excel] Membuat Nota Penjualan

Bagaimana cara mengaktifkan macro-nya

***betapa bodohnya saya L

Salam
ADE ISMAIL

From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: 19 Nopember 2012 22:04
To: belajar-excel@yahoogroups.com
Subject: Fw: [belajar-excel] Membuat Nota Penjualan

Kalau sdh OK, jangan lupa aktifkan macronya pada tombol Cetak.

----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Monday, 19 November 2012, 21:58
Subject: Re: [belajar-excel] Membuat Nota Penjualan

Coba dulu file terlampir.
Kalau sudah OK, tolong bungkus untuk MOD ....

Salam,
Hendrik Karnadi

________________________________

From:Ade Ismail <rakaboom.ismail2@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 19 November 2012, 17:04
Subject: [belajar-excel] Membuat Nota Penjualan

Dear Master Exceller..

Tolong bantu saya dalam membuat nota penjualan untuk Kedai Nasi Bakar Saya,
Data2 saya lampirkan

Terima kasih

Reply to sender . Reply to group . Reply via Web Post . All Messages (10) . Top ^

3a

Convert text to number after copy paste special

Tue Nov 20, 2012 12:41 am (PST) . Posted by:

"abdul" abduldedysubhansyah

Dear SUHU Excel

mo cari info neh, gimana cara convert text menjadi number, setelah paste special value dengan VBA?

setelah value di cell di copas special muncul error "The number in this cell is formatted as text or preceded by an apostrophe", biar datanya angka ga bisa di hitung karena di anggap text, kalo langsung ke autocorrect options ga bisa di rekam macro

ada ide ?

thanks ya suhu excel

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

3b

Re: Convert text to number after copy paste special

Tue Nov 20, 2012 1:16 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Pak Abdul,

Coba cara berikut : (bila perlu record macro)
[asumsi cell yang akan dikonversi menjadi numerik adalah kolom D dan kolom
terkanan tabel adalah kolom X]
1. pada cell Z1 ketik 0 lalu enter
2. klik kanan cell Z1 -> pilih Copy
3. blok data di kolom D (yang akan dikonversi) -> klik kanan -> pilih paste
special -> pilih opsi values -> pilih opsi Add -> tekan OK
4. selesai. Stop recording jika melakukan record macro

Wassalam,
Kid.

2012/11/20 abdul <abduldedysubhansyah@yahoo.co.id>

> **
>
>
> Dear SUHU Excel
>
> mo cari info neh, gimana cara convert text menjadi number, setelah paste
> special value dengan VBA?
>
> setelah value di cell di copas special muncul error "The number in this
> cell is formatted as text or preceded by an apostrophe", biar datanya angka
> ga bisa di hitung karena di anggap text, kalo langsung ke autocorrect
> options ga bisa di rekam macro
>
> ada ide ?
>
> thanks ya suhu excel
>
> _
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

4a

Entri Data Pakai VBA

Tue Nov 20, 2012 12:44 am (PST) . Posted by:

"Andre Rahmaidy Teeza" andre_teeza_bn

Salam Kenal,

Gimana caranya bikin program entri data pakai macro exel (VBA), yang hasil entri data tsb filetxt seperti contoh terlampir.

Regards

Andree

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

4b

Re: Entri Data Pakai VBA

Tue Nov 20, 2012 2:53 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Andre,

Mohon tidak cc kemana-mana lagi ya.

File terlampir hanya menulis fixedlength ke text file. Penggunaan lebih
luas, silakan dikembangkan sendiri.

Boleh pilih cara yang manapun yang ada dalam file terlampir (pilih salah
satu yang mudah untuk dipahami).
Cara 1 memanfaatkan fitur Save As text file yang dimiliki oleh Excel
Cara 2 memanfaatkan proses Input/Output file yang dimiliki oleh VB

Wassalam,
Kid.

2012/11/20 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com>

> **
>
>
> Salam Kenal,
>
> Gimana caranya bikin program entri data pakai macro exel (VBA), yang hasil
> entri data tsb filetxt seperti contoh terlampir.
>
>
>
>
>
> Regards
>
> Andree
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

Visit Your Group

View All Topics

Create New Topic

11 New Members

We are making changes based on your feedback, Thank you !

Submit Feedback

The Yahoo! Groups Product Blog

Check it out!

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

CHANGE SETTINGS

UNSUBSCRIBE

Selasa, 20 November 2012

11 New Messages

Messages

1a

Mon Nov 19, 2012 10:04 pm (PST) . Posted by:

1b

Tue Nov 20, 2012 12:43 am (PST) . Posted by:

2a

Mon Nov 19, 2012 10:04 pm (PST) . Posted by:

2b

Mon Nov 19, 2012 10:28 pm (PST) . Posted by:

2c

Tue Nov 20, 2012 12:45 am (PST) . Posted by:

2d

Tue Nov 20, 2012 12:45 am (PST) . Posted by:

2e

Tue Nov 20, 2012 8:05 am (PST) . Posted by:

3a

Tue Nov 20, 2012 12:41 am (PST) . Posted by:

3b

Tue Nov 20, 2012 1:16 am (PST) . Posted by:

4a

Tue Nov 20, 2012 12:44 am (PST) . Posted by:

4b

Tue Nov 20, 2012 2:53 am (PST) . Posted by:

1 komentar:

Posting Komentar

Followers

Blog Archive

About Me