Messages In This Digest (25 Messages)
- 1a.
- Re: Menyisipkan data di kolom sebelah From: jkssxls Sudarsono
- 2a.
- format graphic utk questioner From: Mulki Akbar
- 2b.
- Re: format graphic utk questioner From: jkssxls
- 2c.
- Re: format graphic utk questioner From: jkssxls Sudarsono
- 2d.
- Re: format graphic utk questioner From: Mulki Akbar
- 2e.
- Re: format graphic utk questioner From: jkssxls
- 2f.
- Re: format graphic utk questioner From: jkssxls Sudarsono
- 3a.
- Menghilangkan tanda" - "(dash) pada nomor From: Mansor
- 3b.
- Re: Menghilangkan tanda" - "(dash) pada nomor From: Koplo Sukoplo
- 4a.
- Mengirim Email Melalui Userform From: Asror Al-Aliif's
- 4b.
- Re: Mengirim Email Melalui Userform From: jkssxls Sudarsono
- 4c.
- Re: Mengirim Email Melalui Userform From: STDEV(i)
- 4d.
- Re: Mengirim Email Melalui Userform From: jkssxls Sudarsono
- 4e.
- Re: Mengirim Email Melalui Userform From: STDEV(i)
- 4f.
- Re: Mengirim Email Melalui Userform From: jkssxls Sudarsono
- 4g.
- Re: Mengirim Email Melalui Userform From: Asror Al-Aliif's
- 5a.
- Bls: [belajar-excel] sistem Cuti From: tuti andrayani
- 6a.
- Supaya tidak keluar error 'FALSE' jika tiada data. From: Mansor
- 6b.
- Re: Supaya tidak keluar error 'FALSE' jika tiada data. From: Haps
- 6c.
- Re: Supaya tidak keluar error 'FALSE' jika tiada data. From: Prasetya Adi Rahman
- 6d.
- Re: Supaya tidak keluar error 'FALSE' jika tiada data. From: summonery
- 6e.
- Re: Supaya tidak keluar error 'FALSE' jika tiada data. From: Haps
- 7a.
- Bls: [belajar-excel] Macro excel copy data ke posisi terakhir From: Dewan Deya
- 8a.
- Menjumlah cells berisi teks angka-angka diatas 15 digit From: Koplo Sukoplo
- 8b.
- Re: Menjumlah cells berisi teks angka-angka diatas 15 digit From: Haps
Messages
- 1a.
-
Re: Menyisipkan data di kolom sebelah
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Thu Oct 27, 2011 7:15 pm (PDT)
Pelajaran berlanjut ( seperti sekolah saja ya... ) :ada data misal di range c7:c11 : a b c d e bila kita gunakan rumus : {=INDEX(C7:C11, ROW(2:3) )} hasilnya di range F7:F9 :b c #N/A bila kita gunakan rumus : { =INDEX(C7:C11, COLUMN(2:3) ) } hasilnya di I7:K7 :abc Jadi penggunaan Row sbg index dapat dihandalkan dibandingkan Column fungsi dibawah ini adalah mengambil data sesuai posisi indeks yg diinginkan : Function AmbilArray(arraysumber, posambil)
Dim jumambil As Variant
jumdata = UBound(arraysumber)
jumambil = UBound(posambil)
Dim arrayhasil As Variant
' yg diinginkan kadang tak memenuhi syarat alias isi array kosong
ReDim arrayhasil(jumambil)
xarraysumber = WorksheetFunction.Transpose( arraysumber)
'ambil data yg diinginkan
ygsesuai = 0
For i = 1 To jumdata
' jika isi array kosong
perror = IsError(xarraysumber(i))
For j = 1 To jumambil
' sesuai dgn yg diinginkan dan tak kosong
If (i = posambil(j)) And Not perror Then
ygsesuai = ygsesuai + 1
arrayhasil(ygsesuai) = xarraysumber( i)
End If
Next j
Next i
'hasil sesuai data yg ada
Dim hasilnya As Variant
ReDim hasilnya(ygsesuai)
For i = 1 To ygsesuai
hasilnya(i) = arrayhasil(i)
Next i
AmbilArray = WorksheetFunction.Transpose( hasilnya)
End Function
rumus di range N7:N11 : {=IF( C7:C11>"b" , C7:C11 )} hasilnya :FALSE FALSE c d e rumus di range Q7 : { =AmbilArray( IF(C7:C11>"c",C7:C11,null) , {3,5} ) } hasil :
e
rumus di range T7:T8 : {=AmbilArray( IF(C7:C11>"c",C7:C11,null) , {3,5} ) } hasil :
e
e
Rumus di range W7:W8 : {=AmbilArray( IF(C7:C11>="c",C7:C11, null) , {3,5} ) } hasil :
c
e
Rumus di range W7:W9 : {=AmbilArray( IF(C7:C11>="c",C7:C11, null) , {3,5} ) } hasil :
c
e
#N/A
Dari contoh2 di atas, dapat di ambil kesimpulan :1. Penggunaan Row dapat dihandalkan 2. jika array mempunyai jumlah item 1 ( satu ) , maka rumus array jika dibuat pada range yg melebihi , tidak akan menghasilkan #N/A Selamat Belajar membuat Fungsi Array Formula sendiri. To: belajar-excel@yahoogroups. com
From: jkssxls@hotmail.com
Date: Thu, 27 Oct 2011 03:48:49 +0000
Subject: RE: [belajar-excel] Menyisipkan data di kolom sebelah
Tambahan penggunaan row dan column .
1
2
3
4
5
{=INDEX(D7:D11, ROW(2:3) )} akan menghasilkan keluaran :
2
3
#N/A
{=INDEX(D7:D11, COLUMN(2:3) )} akan menghasilkan keluaran :
1
2
3
walaupun kita hanya ingin memilih indeks ke 2 dan 3 , penggunaan Column tidak mendukung hal itu .To: belajar-excel@yahoogroups. com
From: jkssxls@hotmail.com
Date: Wed, 26 Oct 2011 09:43:23 +0000
Subject: RE: [belajar-excel] Menyisipkan data di kolom sebelah
* ada pola baru dgn transpose nih
sekarang kita bermain dengan posisi data pada baris :
1
2
3
4
5
6
7
8
9
10
dan mengubah menjadi :
1
4
7
10
2
5
8
#REF!
3
6
9
#REF!
kita dapat menggunakan : {=INDEX(B3:B12,ROW(1:3)+ {0,3,6,9} )}
tapi saya gunakan :
{=INDEX(B3:B12,ROW(1:3)+ 3*(COLUMN(1: 4)-1) )} untuk mengubah menjadi :
1
2
3
4
5
6
7
8
9
10
#REF!
#REF!
kita dapat menggunakan : {=INDEX(B3:B12, COLUMN(1:3)+ TRANSPOSE({0,3,6,9}) )}
tapi saya gunakan :{=INDEX(B3:B12, COLUMN(1:3) + 3*(ROW(1:4)- 1) )}
To: belajar-excel@yahoogroups. com
From: jkssxls@hotmail.com
Date: Tue, 25 Oct 2011 13:35:18 +0000
Subject: RE: [belajar-excel] Menyisipkan data di kolom sebelah
pola 1,2,1,2 atau 1,2,3,1,2,3 atau 1,2,3,4,1,2,3,4
dapat diakali dengan cara ?
{=MOD(ROW(1:20)-1,2)+ 1} --> 1,2,1,2 ...
{=MOD(ROW(1:20)-1,3)+ 1} --> 1,2,3,1,2,3 ...
{=MOD(ROW(1:20)-1,4)+ 1} --> 1,2,3,4,1,2, 3,4 ...
pola 1,1,2,2,.. atau 1,1,1,2,2,2, ..
{=CEILING(ROW(1:20)/2,1) } ---> 1,1,2,2 ...
{=CEILING(ROW(1:20)/3,1) } ---> 1,1,1,2,2,2 ...
misal :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
menjadi :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
gunakan :{=INDEX(B16:D22, CEILING(ROW( 1:20)/3,1) , MOD(ROW(1:20) -1,3)+1 ) }
silakan berkreasi dgn pola-pola bilangan lainnya.....
To: belajar-excel@yahoogroups. com
From: jkssxls@hotmail.com
Date: Tue, 25 Oct 2011 13:25:25 +0000
Subject: RE: [belajar-excel] Menyisipkan data di kolom sebelah
gunakan array formula :
{=INDEX(B3:C12, CEILING(ROW(1:20)/2,1) , IF(ISEVEN(ROW( 1:20)),2, 1) )}
rumus ini berpola {{1,1},{1,2},{2,1},{2, 2},{3,1}, {3,2} ... {10,1},{10,2} }
CEILING(ROW(1:20)/2,1) dapat diganti oleh ROUNDUP(ROW( 1:20)/2,1)
IF(ISEVEN(ROW(1:20)),2, 1) dapat diganti IF(ISODD(ROW( 1:20)),1, 2) ' ini masa saja
To: belajar-excel@yahoogroups. com
From: sc0rpi0_b0y82@yahoo.com
Date: Tue, 25 Oct 2011 16:58:45 +0800
Subject: [belajar-excel] Menyisipkan data di kolom sebelah
Kepada para suhu X-cel
Mohon pencerahan untuk kasus newbie yang pertama, kalo bisa jangan pake macro
Thanks
- 2a.
-
format graphic utk questioner
Posted by: "Mulki Akbar" mulki@aop.component.astra.co.id mulki_akbar
Thu Oct 27, 2011 7:32 pm (PDT)
Assalamu'alaikum wr. wb.
Master & Mb'ter B-xl,
Saya mau membuat graphic dari data questioner yg terlampir.
Kira2, bagaimana bagusnya menurut para mas & mb ter b-xl, kalo format datanya di ubah jg gpp asal bukan valuenya.
Atas bantuan dan pencerahannya saya haturkan banyak terimakasih.
Thx & Wassalam,
mulki - 2b.
-
Re: format graphic utk questioner
Posted by: "jkssxls" jkssxls@hotmail.com jkssbma
Thu Oct 27, 2011 7:58 pm (PDT)
Gambar menjelaskan seribu bahasa
From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ]com
On Behalf Of Mulki Akbar
Sent: Friday, October 28, 2011 9:27 AM
To: belajar-excel@yahoogroups. com
Subject: [belajar-excel] format graphic utk questioner
Assalamu'alaikum wr. wb.
Master & Mb'ter B-xl,
Saya mau membuat graphic dari data questioner yg terlampir.
Kira2, bagaimana bagusnya menurut para mas & mb ter b-xl, kalo format
datanya di ubah jg gpp asal bukan valuenya.
Atas bantuan dan pencerahannya saya haturkan banyak terimakasih.
Thx & Wassalam,
mulki
- 2c.
-
Re: format graphic utk questioner
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Thu Oct 27, 2011 8:06 pm (PDT)
Cara membuatnya ( dengan excel 2007/2010 ) :1. pilih menu insert 2. pilih ribbon Charts3. pilih type Column4. pilih sub type 2D , pilih Chart Clustered Columnuntuk agar semua aktifitas terlihat pada bingkai legenda , tinggikan bingkai legenda.
To: belajar-excel@yahoogroups. com
From: jkssxls@hotmail.com
Date: Fri, 28 Oct 2011 09:55:52 +0700
Subject: RE: [belajar-excel] format graphic utk questioner
Gambar menjelaskan seribu bahasa From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ] On Behalf Of Mulki Akbarcom
Sent: Friday, October 28, 2011 9:27 AM
To: belajar-excel@yahoogroups. com
Subject: [belajar-excel] format graphic utk questioner Assalamu'alaikum wr. wb. Master & Mb'ter B-xl, Saya mau membuat graphic dari data questioner yg terlampir.Kira2, bagaimana bagusnya menurut para mas & mb ter b-xl, kalo format datanya di ubah jg gpp asal bukan valuenya. Atas bantuan dan pencerahannya saya haturkan banyak terimakasih. Thx & Wassalam,
mulki
- 2d.
-
Re: format graphic utk questioner
Posted by: "Mulki Akbar" mulki@aop.component.astra.co.id mulki_akbar
Thu Oct 27, 2011 8:08 pm (PDT)
terimakasih buat respon jkssxls.
Maaf kalo penjelasan saya ada yg kurang, yg saya inginkan adalah mungkin dari rekan2 pernah membuat grapic utk quesioner, nah biasanya kan ada rumusan tuh utk mendptkan data akhirnya bisa dalam prosentase atau apapun.
Pertanyaan saya :
Bagaimanakah cara yg benar utk membuat data questioner dlm prosentase tersbt berikut graphicnya ?
Thx & Wassalam,
mulki
----- Original Message -----
From: jkssxls
To: belajar-excel@yahoogroups. com
Sent: Friday, October 28, 2011 9:55 AM
Subject: RE: [belajar-excel] format graphic utk questioner
Gambar menjelaskan seribu bahasa
From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ] On Behalf Of Mulki Akbarcom
Sent: Friday, October 28, 2011 9:27 AM
To: belajar-excel@yahoogroups. com
Subject: [belajar-excel] format graphic utk questioner
Assalamu'alaikum wr. wb.
Master & Mb'ter B-xl,
Saya mau membuat graphic dari data questioner yg terlampir.
Kira2, bagaimana bagusnya menurut para mas & mb ter b-xl, kalo format datanya di ubah jg gpp asal bukan valuenya.
Atas bantuan dan pencerahannya saya haturkan banyak terimakasih.
Thx & Wassalam,
mulki
- 2e.
-
Re: format graphic utk questioner
Posted by: "jkssxls" jkssxls@hotmail.com jkssbma
Thu Oct 27, 2011 9:36 pm (PDT)
Dengan sekolompok range bantu buat rumus seperti K5/K$15 dan copy ke bawah
( sesuai dengan banyaknya pengguna )
Lalu buat charts
From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ]com
On Behalf Of jkssxls Sudarsono
Sent: Friday, October 28, 2011 10:07 AM
To: Belajar-Excel Yahoo Groups
Subject: RE: [belajar-excel] format graphic utk questioner
Cara membuatnya ( dengan excel 2007/2010 ) :
1. pilih menu insert
2. pilih ribbon Charts
3. pilih type Column
4. pilih sub type 2D , pilih Chart Clustered Column
untuk agar semua aktifitas terlihat pada bingkai legenda , tinggikan bingkai
legenda.
_____
To: belajar-excel@yahoogroups. com
From: jkssxls@hotmail.com
Date: Fri, 28 Oct 2011 09:55:52 +0700
Subject: RE: [belajar-excel] format graphic utk questioner
Gambar menjelaskan seribu bahasa
From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ]com
On Behalf Of Mulki Akbar
Sent: Friday, October 28, 2011 9:27 AM
To: belajar-excel@yahoogroups. com
Subject: [belajar-excel] format graphic utk questioner
Assalamu'alaikum wr. wb.
Master & Mb'ter B-xl,
Saya mau membuat graphic dari data questioner yg terlampir.
Kira2, bagaimana bagusnya menurut para mas & mb ter b-xl, kalo format
datanya di ubah jg gpp asal bukan valuenya.
Atas bantuan dan pencerahannya saya haturkan banyak terimakasih.
Thx & Wassalam,
mulki
- 2f.
-
Re: format graphic utk questioner
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Thu Oct 27, 2011 9:49 pm (PDT)
Bagaimana cara memilih du range yang terpisah ( kalau sudah tahu anggap saja ini pengingatan kembali ) :1. Sorot range pertama , misal B5:B14 2. tekan tombol [Ctrl], jangan di lepas 3. posisikan kursor mouse pada awal range kedua , misal M5, lalu pindahkan kursor mouse ke bawah sampai ke posisi yang diinginkan ( sekarang tombol [Ctrl] boleh dilepas, karena cukup lelah ) . 4. pilih menu insert5. pilih ribbon Charts6. pilih type chart pie7. pilih sub type chart exploded pie8. klik kanan di daerah chart pie ( persis di atas pie )9. pilih add data labels10. selamat kuisener anda dapat diterima oleh para analis
To: belajar-excel@yahoogroups. com
From: jkssxls@hotmail.com
Date: Fri, 28 Oct 2011 11:36:16 +0700
Subject: RE: [belajar-excel] format graphic utk questioner
Dengan sekolompok range bantu buat rumus seperti K5/K$15 dan copy ke bawah ( sesuai dengan banyaknya pengguna )Lalu buat charts From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ] On Behalf Of jkssxls Sudarsonocom
Sent: Friday, October 28, 2011 10:07 AM
To: Belajar-Excel Yahoo Groups
Subject: RE: [belajar-excel] format graphic utk questioner Cara membuatnya ( dengan excel 2007/2010 ) :
1. pilih menu insert
2. pilih ribbon Charts
3. pilih type Column
4. pilih sub type 2D , pilih Chart Clustered Column
untuk agar semua aktifitas terlihat pada bingkai legenda , tinggikan bingkai legenda.
To: belajar-excel@yahoogroups. com
From: jkssxls@hotmail.com
Date: Fri, 28 Oct 2011 09:55:52 +0700
Subject: RE: [belajar-excel] format graphic utk questioner
Gambar menjelaskan seribu bahasa From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ] On Behalf Of Mulki Akbarcom
Sent: Friday, October 28, 2011 9:27 AM
To: belajar-excel@yahoogroups. com
Subject: [belajar-excel] format graphic utk questioner Assalamu'alaikum wr. wb. Master & Mb'ter B-xl, Saya mau membuat graphic dari data questioner yg terlampir.Kira2, bagaimana bagusnya menurut para mas & mb ter b-xl, kalo format datanya di ubah jg gpp asal bukan valuenya. Atas bantuan dan pencerahannya saya haturkan banyak terimakasih. Thx & Wassalam,
mulki
- 3a.
-
Menghilangkan tanda" - "(dash) pada nomor
Posted by: "Mansor" dbpermatasari@gmail.com nbmy1980
Thu Oct 27, 2011 8:25 pm (PDT)
Dear teman teman belajar Excel,
Masalah saya simple aja, tapi saya bingung untuk mencari solusinya.
Bagaimana caranya membuang tanda"-" di antara 2 nomor.
Semoga pertanyaan ini bermanfaat juga untuk member yang lain.
Terima kasih
Mansor.
Data Asli Hasil yang diinginkan
254-06 25406
001-00 00100
105-01 10501
030-00 03000
023-26 02326
169-02 16902
200-06 20006
005-00 00500
154-00 15400
File ada dilampirkan.
- 3b.
-
Re: Menghilangkan tanda" - "(dash) pada nomor
Posted by: "Koplo Sukoplo" koplosukoplo@rocketmail.com koplosukoplo@rocketmail.com
Thu Oct 27, 2011 8:35 pm (PDT)
jika pola nya tetap seprti contoh
=SUBSTITUTE(C3,"-","" )
atau
=REPLACE(C3,4,1,"")
atau
=LEFT(C3,3)&RIGHT(C3, 2)
_____________________ _________ __
From: Mansor <dbpermatasari@gmail.com >
To: belajar-excel <belajar-excel@yahoogroups. >com
Sent: Friday, October 28, 2011 10:16 AM
Subject: [belajar-excel] Menghilangkan tanda" - "(dash) pada nomor
Dear teman teman belajar Excel,
Masalah saya simple aja, tapi saya bingung untuk mencari solusinya.
Bagaimana caranya membuang tanda"-" di antara 2 nomor.
Semoga pertanyaan ini bermanfaat juga untuk member yang lain.
Terima kasih
Mansor.
Data Asli Hasil yang diinginkan
254-06 25406
001-00 00100
105-01 10501
030-00 03000
023-26 02326
169-02 16902
200-06 20006
005-00 00500
154-00 15400
File ada dilampirkan.
- 4a.
-
Mengirim Email Melalui Userform
Posted by: "Asror Al-Aliif's" asrorcakep@yahoo.com asrorcakep
Thu Oct 27, 2011 8:43 pm (PDT)
Selamat pagi,
Dear rekan2 milis, saya membuat form, kalau di blog namanya email me, seperti terlampir, bisa kah, ketika button kirim di klik itu mengirim ke alamat email saya? Dengan textbox1 sebagai subject, dan textbox2 sebagai isi email,
Terimakasih.
Asror,
Semangat,
Safety is my responsibility
Sent from Super Asror's BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...! - 4b.
-
Re: Mengirim Email Melalui Userform
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Fri Oct 28, 2011 2:38 am (PDT)
Name
Address
Yes/No
aku
aku@test.com
yes
anda
anda@test.com
no
kita
kita@test.com
yes
Sub TestFile()
' Working in Office 2000-2010
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook. Application" ) On Error GoTo cleanup
For Each cell In Columns("B").Cells.SpecialCe lls(xlCellTypeCo nstants)
If cell.Value Like "?*@?*.?*" And _
LCase(Cells(cell.Row, "C").Value) = "yes" Then Set OutMail = OutApp.CreateItem( 0)
On Error Resume Next
With OutMail
.To = cell.Value
.Subject = "Reminder"
.Body = "Dear " & Cells(cell.Row, "A").Value _
& vbNewLine & vbNewLine & _
"Please contact us to discuss bringing " & _
"your account up to date"
'You can add files also like this
'.Attachments.Add ("C:\test.txt" )
.Display 'Or use Send
End With
On Error GoTo 0
Set OutMail = Nothing
End If
Next cellcleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
catatan : anda harus menginstall outlook 2003/2007/2010
Silakan berkreasi To: belajar-excel@yahoogroups. com
From: asrorcakep@yahoo.com
Date: Fri, 28 Oct 2011 03:34:48 +0000
Subject: [belajar-excel] Mengirim Email Melalui Userform
Selamat pagi,
Dear rekan2 milis, saya membuat form, kalau di blog namanya email me, seperti terlampir, bisa kah, ketika button kirim di klik itu mengirim ke alamat email saya? Dengan textbox1 sebagai subject, dan textbox2 sebagai isi email,
Terimakasih.
Asror,
Semangat,
Safety is my responsibility
Sent from Super Asror's BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
- 4c.
-
Re: Mengirim Email Melalui Userform
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Fri Oct 28, 2011 2:49 am (PDT)
anda bermain-main email selama ini dengan 'client-email' apa ??
kalau jawabannya gak tahu atau pakai yahoo mail / gmail, dsb,
jangan teruskan baca jawaban ini
kalau anda pakai MS Outlook, boleh meneruskan baca
Prosedur ini ditulis di Module Userform
Private Sub CommandButton1_Click()
' milis BeExcal # 13754 / Oct 28, 2011
'-------------------- --------- --------
Dim Email As String, Subj As String
Dim Msg As String, URL As String
Dim r As Integer, x As Double
Email = "asrorcakep@yahoo.com "
Subj = TextBox1.Text
Msg = TextBox2.Text
With Application.WorksheetFunctio n
Subj = .Substitute(Subj, " ", "%20")
Msg = .Substitute(Msg, " ", "%20")
Msg = .Substitute(Msg, vbCrLf, "%0D%0A")
End With
URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg
ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString,
vbNormalFocus
Application.Wait (Now + TimeValue("0: 00:02"))
Application.SendKeys "%s"
End Sub
~bests regards,
'-------
bisakah Excel menjumlah angka 16 - 28 digit dgn hasil tetap presisi??
http://www.box.net/shared/ <http://www.box.0rn8cxmue3kt9ig0 5534 net/shared/ >h0k1ds7gg3frypr6 7t1h
2011/10/28 Asror Al-Aliif's <asrorcakep@yahoo.com >
> **
>
> Selamat pagi,
> Dear rekan2 milis, saya membuat form, kalau di blog namanya email me,
> seperti terlampir, bisa kah, ketika button kirim di klik itu mengirim ke
> alamat email saya? Dengan textbox1 sebagai subject, dan textbox2 sebagai isi
> email,
> Terimakasih.
> Asror,
>
>
- 4d.
-
Re: Mengirim Email Melalui Userform
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Fri Oct 28, 2011 2:52 am (PDT)
* ada penjelasan
Name
Address
Yes/No
aku
aku@test.com
yes
anda
anda@test.com
no
kita
kita@test.com
yes
Sub TestFile()
' Working in Office 2000-2010
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook. Application" )
On Error GoTo cleanup' kolom B berisi karakter
For Each cell In Columns("B").Cells.SpecialCe lls(xlCellTypeCo nstants)' harus berisi satu karakter ( ? ) atau tambahan 0 atau lebih karakter (*) dan ada tanda '@' dan '.'' pada kolom C berisi 'yes'
If cell.Value Like "?*@?*.?*" And _
LCase(Cells(cell.Row, "C").Value) = "yes" Then Set OutMail = OutApp.CreateItem( 0)
On Error Resume Next
With OutMail
.To = cell.Value
.Subject = "Reminder"
.Body = "Dear " & Cells(cell.Row, "A").Value _
& vbNewLine & vbNewLine & _
"Please contact us to discuss bringing " & _
"your account up to date"
'tambahkan file attachment
'.Attachments.Add ("C:\test.txt" )
.Display 'Or use Send
End With
On Error GoTo 0
Set OutMail = Nothing
End If
Next cell
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
catatan :
anda harus menginstall outlook 2003/2007/2010
Silakan berkreasi
To: belajar-excel@yahoogroups. com
From: asrorcakep@yahoo.com
Date: Fri, 28 Oct 2011 03:34:48 +0000
Subject: [belajar-excel] Mengirim Email Melalui Userform
Selamat pagi,
Dear rekan2 milis, saya membuat form, kalau di blog namanya email me, seperti terlampir, bisa kah, ketika button kirim di klik itu mengirim ke alamat email saya? Dengan textbox1 sebagai subject, dan textbox2 sebagai isi email,
Terimakasih.
Asror,
Semangat,
Safety is my responsibility
Sent from Super Asror's BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
- 4e.
-
Re: Mengirim Email Melalui Userform
Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi
Fri Oct 28, 2011 2:53 am (PDT)
koreksi dikitts..
maaf variable r dan x seharusnya tidak ada
Private Sub CommandButton1_Click()
' * hapsari & ~siti
' milis BeExcal # 13754 / Oct 28, 2011
'-------------------- --------- --------
Dim Email As String, Subj As String
Dim Msg As String, URL As String
Email = "asrorcakep@yahoo.com "
Subj = TextBox1.Text
Msg = TextBox2.Text
With Application.WorksheetFunctio n
Subj = .Substitute(Subj, " ", "%20")
Msg = .Substitute(Msg, " ", "%20")
Msg = .Substitute(Msg, vbCrLf, "%0D%0A")
End With
URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg
ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString,
vbNormalFocus
Application.Wait (Now + TimeValue("0: 00:02"))
Application.SendKeys "%s"
End Sub
2011/10/28 STDEV(i) <setiyowati.devi@gmail.com >
> anda bermain-main email selama ini dengan 'client-email' apa ??
> kalau jawabannya gak tahu atau pakai yahoo mail / gmail, dsb,
> jangan teruskan baca jawaban ini
> kalau anda pakai MS Outlook, boleh meneruskan baca
>
> Prosedur ini ditulis di Module Userform
>
> Private Sub CommandButton1_Click()
> ' milis BeExcal # 13754 / Oct 28, 2011
> '-------------------- --------- --------
> Dim Email As String, Subj As String
> Dim Msg As String, URL As String
> Dim r As Integer, x As Double
> Email = "asrorcakep@yahoo.com "
> Subj = TextBox1.Text
> Msg = TextBox2.Text
> With Application.WorksheetFunctio n
> Subj = .Substitute(Subj, " ", "%20")
> Msg = .Substitute(Msg, " ", "%20")
> Msg = .Substitute(Msg, vbCrLf, "%0D%0A")
> End With
> URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg
> ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString,
> vbNormalFocus
> Application.Wait (Now + TimeValue("0: 00:02"))
> Application.SendKeys "%s"
> End Sub
>
> ~bests regards,
>
>
> '-------
> bisakah Excel menjumlah angka 16 - 28 digit dgn hasil tetap presisi??
> http://www.box.net/shared/ <http://www.box.0rn8cxmue3kt9ig0 5534 net/shared/ >h0k1ds7gg3frypr6 7t1h
>
>
>
> 2011/10/28 Asror Al-Aliif's <asrorcakep@yahoo.com >
>
>> **
>>
>> Selamat pagi,
>> Dear rekan2 milis, saya membuat form, kalau di blog namanya email me,
>> seperti terlampir, bisa kah, ketika button kirim di klik itu mengirim ke
>> alamat email saya? Dengan textbox1 sebagai subject, dan textbox2 sebagai isi
>> email,
>> Terimakasih.
>> Asror,
>>
>>
>
- 4f.
-
Re: Mengirim Email Melalui Userform
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Fri Oct 28, 2011 3:12 am (PDT)
boleh bertanya : ShellExecute itu sepertinya punya VB6 ya ? apa bisa dijalankan pada vba , kecuali sudah didaftakan sbg API Library di vba excel..
To: belajar-excel@yahoogroups. com
From: setiyowati.devi@gmail.com
Date: Fri, 28 Oct 2011 16:52:38 +0700
Subject: Re: [belajar-excel] Mengirim Email Melalui Userform
koreksi dikitts..maaf variable r dan x seharusnya tidak ada
Private Sub CommandButton1_Click() ' * hapsari & ~siti
' milis BeExcal # 13754 / Oct 28, 2011 '-------------------- --------- --------
Dim Email As String, Subj As String Dim Msg As String, URL As String
Email = "asrorcakep@yahoo.com " Subj = TextBox1.Text
Msg = TextBox2.Text With Application.WorksheetFunctio n
Subj = .Substitute(Subj, " ", "%20") Msg = .Substitute( Msg, " ", "%20")
Msg = .Substitute(Msg, vbCrLf, "%0D%0A") End With
URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg
ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus Application.Wait (Now + TimeValue("0: 00:02"))
Application.SendKeys "%s"End Sub
2011/10/28 STDEV(i) <setiyowati.devi@gmail.com >
anda bermain-main email selama ini dengan 'client-email' apa ??kalau jawabannya gak tahu atau pakai yahoo mail / gmail, dsb,
jangan teruskan baca jawaban inikalau anda pakai MS Outlook, boleh meneruskan baca
Prosedur ini ditulis di Module Userform
Private Sub CommandButton1_Click()
' milis BeExcal # 13754 / Oct 28, 2011
'-------------------- --------- -------- Dim Email As String, Subj As String
Dim Msg As String, URL As String Dim r As Integer, x As Double
Email = "asrorcakep@yahoo.com " Subj = TextBox1.Text
Msg = TextBox2.Text With Application.WorksheetFunctio n
Subj = .Substitute(Subj, " ", "%20") Msg = .Substitute( Msg, " ", "%20")
Msg = .Substitute(Msg, vbCrLf, "%0D%0A") End With
URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg
ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus Application.Wait (Now + TimeValue("0: 00:02"))
Application.SendKeys "%s"End Sub
~bests regards,
'-------
bisakah Excel menjumlah angka 16 - 28 digit dgn hasil tetap presisi??http://www.box.net/shared/ 0rn8cxmue3kt9ig0 5534
2011/10/28 Asror Al-Aliif's <asrorcakep@yahoo.com >
Selamat pagi,
Dear rekan2 milis, saya membuat form, kalau di blog namanya email me, seperti terlampir, bisa kah, ketika button kirim di klik itu mengirim ke alamat email saya? Dengan textbox1 sebagai subject, dan textbox2 sebagai isi email,
Terimakasih.
Asror,
- 4g.
-
Re: Mengirim Email Melalui Userform
Posted by: "Asror Al-Aliif's" asrorcakep@yahoo.com asrorcakep
Fri Oct 28, 2011 3:34 am (PDT)
Dear all,
Terimakasih atas masukannya, tadi saya sempet mencoba untuk coding yang di berikan, tapi gagal, besok hari senin saya coba lagi, karena outlook hanya ada di kantor :D,
Terimakasih.
Asror,
Safety is my responsibility
Sent from Super Asror's BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
-----Original Message-----
From: "STDEV(i)" <setiyowati.devi@gmail.com >
Sender: belajar-excel@yahoogroups. com
Date: Fri, 28 Oct 2011 16:52:38
To: <belajar-excel@yahoogroups. >com
Reply-To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] Mengirim Email Melalui Userform
koreksi dikitts..
maaf variable r dan x seharusnya tidak ada
Private Sub CommandButton1_Click()
' * hapsari & ~siti
' milis BeExcal # 13754 / Oct 28, 2011
'-------------------- --------- --------
Dim Email As String, Subj As String
Dim Msg As String, URL As String
Email = "asrorcakep@yahoo.com "
Subj = TextBox1.Text
Msg = TextBox2.Text
With Application.WorksheetFunctio n
Subj = .Substitute(Subj, " ", "%20")
Msg = .Substitute(Msg, " ", "%20")
Msg = .Substitute(Msg, vbCrLf, "%0D%0A")
End With
URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg
ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString,
vbNormalFocus
Application.Wait (Now + TimeValue("0: 00:02"))
Application.SendKeys "%s"
End Sub
2011/10/28 STDEV(i) <setiyowati.devi@gmail.com >
> anda bermain-main email selama ini dengan 'client-email' apa ??
> kalau jawabannya gak tahu atau pakai yahoo mail / gmail, dsb,
> jangan teruskan baca jawaban ini
> kalau anda pakai MS Outlook, boleh meneruskan baca
>
> Prosedur ini ditulis di Module Userform
>
> Private Sub CommandButton1_Click()
> ' milis BeExcal # 13754 / Oct 28, 2011
> '-------------------- --------- --------
> Dim Email As String, Subj As String
> Dim Msg As String, URL As String
> Dim r As Integer, x As Double
> Email = "asrorcakep@yahoo.com "
> Subj = TextBox1.Text
> Msg = TextBox2.Text
> With Application.WorksheetFunctio n
> Subj = .Substitute(Subj, " ", "%20")
> Msg = .Substitute(Msg, " ", "%20")
> Msg = .Substitute(Msg, vbCrLf, "%0D%0A")
> End With
> URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg
> ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString,
> vbNormalFocus
> Application.Wait (Now + TimeValue("0: 00:02"))
> Application.SendKeys "%s"
> End Sub
>
> ~bests regards,
>
>
> '-------
> bisakah Excel menjumlah angka 16 - 28 digit dgn hasil tetap presisi??
> http://www.box.net/shared/ <http://www.box.0rn8cxmue3kt9ig0 5534 net/shared/ >h0k1ds7gg3frypr6 7t1h
>
>
>
> 2011/10/28 Asror Al-Aliif's <asrorcakep@yahoo.com >
>
>> **
>>
>> Selamat pagi,
>> Dear rekan2 milis, saya membuat form, kalau di blog namanya email me,
>> seperti terlampir, bisa kah, ketika button kirim di klik itu mengirim ke
>> alamat email saya? Dengan textbox1 sebagai subject, dan textbox2 sebagai isi
>> email,
>> Terimakasih.
>> Asror,
>>
>>
>
- 5a.
-
Bls: [belajar-excel] sistem Cuti
Posted by: "tuti andrayani" andrayani_lee@yahoo.co.id andrayani_lee
Thu Oct 27, 2011 9:27 pm (PDT)
Dear All,
Terimakasih untuk respon-responnya, sedikit-sedikit bisa saya ambil untuk pembuatan aplikasi tersebut.
Untk Pa Agung dan rekan lainnya juga ....
jika kita mau ambil tanggal persis jatuh tempo, bukan hanya bulannya saja rumusnya gimana ya Pa?
Misal : jika tanggal ini = hari jatuh tempo maka tambahkan angka 12 ke kolom ini, tetapi jika tidak sama dengan jatuh tempo atau tahun jatuh temposama dengan tahun join date munculkan angka 0 (untuk lebih jelasnya file excell saya lampirkan )
Terimakasih
Tuti
_____________________ _________ __
Dari: "agung_widodo@sanyo.com " <agung_widodo@sanyo.com >
Kepada: belajar-excel@yahoogroups. com
Dikirim: Kamis, 27 Oktober 2011 15:33
Judul: RE: [belajar-excel] sistem Cuti
Dear Tuti,
Sedikit share tentang cara mengontrol cuti,
Cuma di tempat saya setiap 6 bulan dapat hak cutinya soale kelamaan nunggu setahun.
Jadi formulanya dan aplikasinya sepert di lampiran
Jika mau dibikin setahun sekali kayaknya tinggal hapus kolom saja.
Semoga bermanfaat
Wassalam
Agung Widodo
_____________________ _________ __
From:belajar-excel@yahoogroups. [mailto: belajar-excel@com yahoogroups. ] On Behalf Of STDEV(i)com
Sent: Thursday, October 27, 2011 12:13 PM
To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] sistem Cuti
mungkin akan lebih menyemangatkan members lain untuk berpartisisapi
jika seandainya ada contoh set data, kiriman dari mbak tutik..
misalnya
** ada tabel karyawan palsu(dummies / jangan data beneran) minimal dgn
kolom2 : NIK, NAMA, TGL JOIN, Tgl CUTI TH XXXX, sekedar 8 sampai 13 baris lah..
Tgl-Join dibuat bervariasi, sehingga ada tgl dengan berbagai Bulan, Tahun
dan bermacam-macam Hari; terutama harus ada tahun kabisat ada tahun basitah
** Tabel (seperti Account Cuti): penampakan yg diinginkan seperti apa ?
sehingga di dalam kartu tsb kelihatan semua hal yg berhubungan dengan cutinya
misal (dlm bentuk sederhana) seperti ini..
Khusus untuk menghitung Tgl setahun dari tgl tertentu (setahun persis baik dlm
tahun kabisat maupun basitah) jangan menambah dengan 365 tetapi dengan:
mengubah komponen tahun
misal A3 berisi tanggal join,
di B3 diinginkan tgl yg sama tetapi tahun-nya = 2014
data TAHUN tsb misalnya tertulis di B1
rumusnya mengejutkan (mudahnya)
=Date(B1, month(A3), day(A3) )
jika diinginkan TGL mulai cuti pada th kedua setelah join
=Date( year(A3)+2, month(A3), day(A3) )
Sementara begitchu dulu.. ya mbak, sambil menunggu tanggapan dari teman2
lain; terutama dari orang2 HRD yg sudah "ngelothok / hafal luar kepala) soal2
"cuti-mencuti"
'-------
lupa kiboard-short-cut di excel???
daftarnya ada di sini:. http://www.box.net/shared/ h0k1ds7gg3frypr6 7t1h
2011/10/27 tuti <andrayani_lee@yahoo.co. >id
Dear All,
Saya sedang membuat aplikasi excell untuk mengontrol cuti karyawan. Karena cuti karyawan per join date, saya ingin memunculkan ketika dia ulang tahun join date, otomatis muncul 12.Tapi kalao pake rumus kehitungnya 365 hari, padahal kalau tahunnya kabisat jadi gak tanggal tersebut.
Di tempat kami rulenya 1 tahun setelah karyawan dapat jatah cuti, setelah 1 tahun kemudian muncul lagi jatah cutinya.
Mohon sharingnya aplikasi yang dipakai, kalau bisa supaya kontrolnya otomatis.
Terimkasih
Regards,
Tuti
- 6a.
-
Supaya tidak keluar error 'FALSE' jika tiada data.
Posted by: "Mansor" dbpermatasari@gmail.com nbmy1980
Thu Oct 27, 2011 9:27 pm (PDT)
Dear Pakar Excel,
Bagaimana formula yang lebih baik agar tidak keluar
error message 'FALSE', jika tidak ada data di column DATA1.
Yang saya inginkan ialah sekiranya DATA1 kosong, Column Gabungan Bersyarat
juga kosong dan bukan FALSE.
Terima kasih, semoga pertanyaan ini juga bermanfaat kepada member yang lain.
-Mansor
DATA 1 DATA2 DATA3 GABUNGAN BERSYARAT DDD 44 1 0004400000 00001
EUUE 22 5 0002200000 00005 RRR 444 9 0044400000 00009 OOO 0000000000
00000 FALSE FALSE FALSE Saya mau column ini
kosong jika DATA1 kosong
- 6b.
-
Re: Supaya tidak keluar error 'FALSE' jika tiada data.
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Thu Oct 27, 2011 10:24 pm (PDT)
=IF(*B3<>""*, *TEXT(C3,"00000" "00000""" ) & " " & TEXT(D3, **"00000")*, *""*
)
mari kita perhatikan bahwa fungsi IF memiliki 3 buah argument
= IF (*Logikal_Test*, *Value_If_Ttrue, * *Value_If_False* )
argument no.3 masih bapak kosongkan, maka ketika *logikal-test* menghailkan
FALSE
yg muncul bagian *Value_If_False* (jika dikosongkan keluarnya *FALSE*)
misalnya diisi "*Wharakadah"* maka kata itu pula yg ditampakkan.
Kita tidak mengisi seperti itu tetapi mengisinya dengan *""*
cmiiw
2011/10/28 Mansor <dbpermatasari@gmail.com >
>
> Dear Pakar Excel,
> Bagaimana formula yang lebih baik agar tidak keluar
> error message 'FALSE', jika tidak ada data di column DATA1.
> Yang saya inginkan ialah sekiranya DATA1 kosong, Column Gabungan
Bersyarat juga kosong dan bukan FALSE.
>
> Terima kasih, semoga pertanyaan ini juga bermanfaat kepada member yang
lain.
> -Mansor
> DATA 1 DATA2 DATA3 GABUNGAN BERSYARAT DDD 44 1 0004400000 00001
> EUUE 22 5 0002200000 00005 RRR 444 9 0044400000 00009 OOO 0000000000
> 00000 FALSE FALSE FALSE
>
- 6c.
-
Re: Supaya tidak keluar error 'FALSE' jika tiada data.
Posted by: "Prasetya Adi Rahman" prasetya.rahman@sera.astra.co.id
Thu Oct 27, 2011 10:30 pm (PDT)
Langsung saja ya,,,
Semoga membantu,,,
From: belajar-excel@yahoogroups. com
[mailto:belajar-excel@yahoogroups. ] On Behalf Of Mansorcom
Sent: 27 Oktober 2011 21:27
To: belajar-excel
Subject: [belajar-excel] Supaya tidak keluar error 'FALSE' jika tiada
data.
Dear Pakar Excel,
Bagaimana formula yang lebih baik agar tidak keluar
error message 'FALSE', jika tidak ada data di column DATA1.
Yang saya inginkan ialah sekiranya DATA1 kosong, Column Gabungan
Bersyarat juga kosong dan bukan FALSE.
Terima kasih, semoga pertanyaan ini juga bermanfaat kepada member yang
lain.
-Mansor
DATA 1
DATA2
DATA3
GABUNGAN BERSYARAT
DDD
44
1
0004400000 00001
EUUE
22
5
0002200000 00005
RRR
444
9
0044400000 00009
OOO
0000000000 00000
FALSE
FALSE
FALSE
Saya mau column ini kosong jika DATA1 kosong
- 6d.
-
Re: Supaya tidak keluar error 'FALSE' jika tiada data.
Posted by: "summonery" summonery@yahoo.com summonery
Thu Oct 27, 2011 10:51 pm (PDT)
coba juga,
=REPT(TEXT(C3,"00000""00000" "")&" "&TEXT(D3,"00000" ),B3<>"")
>semoga bermanfaat
--- In belajar-excel@yahoogroups. , Mansor <dbpermatasari@com ...> wrote:
>
> Dear Pakar Excel,
>
> Bagaimana formula yang lebih baik agar tidak keluar
>
> error message 'FALSE', jika tidak ada data di column DATA1.
>
> Yang saya inginkan ialah sekiranya DATA1 kosong, Column Gabungan
Bersyarat
> juga kosong dan bukan FALSE.
>
>
>
> Terima kasih, semoga pertanyaan ini juga bermanfaat kepada member yang
lain.
>
>
>
> -Mansor
>
> DATA 1 DATA2 DATA3 GABUNGAN BERSYARAT DDD 44 1 0004400000
00001
> EUUE 22 5 0002200000 00005 RRR 444 9 0044400000 00009 OOO
0000000000
> 00000 FALSE FALSE FALSE Saya mau column
ini
> kosong jika DATA1 kosong
>
- 6e.
-
Re: Supaya tidak keluar error 'FALSE' jika tiada data.
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Thu Oct 27, 2011 10:53 pm (PDT)
oh ternyata sudah ada yg menjawab lebih dulu dan jawaban saya menyamainya.
mohon maaf, waktu menjawab tidak bisa membaca isi jawaban..dlm workbook)
yau dah.. jawaban diubah dikit biar tidak sama
=CHOOSE( (B3="")+1, TEXT(C3,"00000""00000""" )&" "&TEXT(D3,"00000" ), "")
2011/10/28 Haps <hapsari.stlizbeth@gmail.com >
> =IF(*B3<>""*, *TEXT(C3,"00000" "00000""" ) & " " & TEXT(D3, **"00000")*, *""
> * )
> mari kita perhatikan bahwa fungsi IF memiliki 3 buah argument
> = IF (*Logikal_Test*, *Value_If_Ttrue, * *Value_If_False* )
> argument no.3 masih bapak kosongkan, maka ketika *logikal-test*menghailkan FALSE
> yg muncul bagian *Value_If_False* (jika dikosongkan keluarnya *FALSE*)
> misalnya diisi "*Wharakadah"* maka kata itu pula yg ditampakkan.
> Kita tidak mengisi seperti itu tetapi mengisinya dengan *""*
> cmiiw
>
>
> 2011/10/28 Mansor <dbpermatasari@gmail.com >
> > Dear Pakar Excel,
> > Bagaimana formula yang lebih baik agar tidak keluar
> > error message 'FALSE', jika tidak ada data di column DATA1.
> > Yang saya inginkan ialah sekiranya DATA1 kosong, Column Gabungan
> Bersyarat juga kosong dan bukan FALSE.
> > Terima kasih, semoga pertanyaan ini juga bermanfaat kepada member yang
> lain.
> > -Mansor
>
- 7a.
-
Bls: [belajar-excel] Macro excel copy data ke posisi terakhir
Posted by: "Dewan Deya" dwanxls@yahoo.co.id dwanxls
Thu Oct 27, 2011 9:27 pm (PDT)
Tks semuanya...sudah bisa jalan macro nya.
Salam
>
> _____________________ _________ __
> Dari: Haps <hapsari.stlizbeth@gmail.com >
> Kepada: belajar-excel@yahoogroups. com
> Dikirim: Selasa, 18 Oktober 2011 15:20
> Judul: Re: [belajar-excel] Macro excel copy data ke posisi terakhir
>
>
>
> maaf ikutan..
> Procedure yg ada di module milik Workbook SAMPLE.xls
>
> seharusnya seperti ini (bandingkan dengan teliti) vl makro tulisan pak
> Dewan
>
> Sub KopiTranspose()
>
> Dim CellTujuan1 As Range, CellTujuan2 As Range
>
> Set CellTujuan1 = Sheet2.Cells(Rows.Count, 2).End(xlUp) .Offset(1, 0)
> Set CellTujuan2 = Sheet2.Cells(Rows.Count, 11).End(xlUp) .Offset(1, 0)
>
> Sheets("Master").Range(" c3:c11"). Copy
> CellTujuan1.PasteSpecial Paste:=xlPasteValue s, _
> Operation:=xlNone, SkipBlanks:=False, Transpose:=True
>
> Sheets("Master").Range(" D13:D17") .Copy
> CellTujuan2.PasteSpecial Paste:=xlPasteValue s, _
> Operation:=xlNone, SkipBlanks:=False, Transpose:=True
>
> End Sub
>
> sepertinya bapak harus membaca helpnya, bgmana cara merujuk sheet
> (ada beberapa cara)
> - dengan menyebut indexnyaSheets(1) , Sheets(6) dst..
> - dengan menyebut NAMA nyaSheets("NamaSheet") , Sheets("Sheet10" )
> -dengan menyebut CodeName nya Sheet1 , Sheet32, dst
> . dengan mengexpresikan object sheet tsb (banyak cara)
> misalnya CellTujuan1.Parent.Range( "A1:A1000" )
> adalah object range yg berada di sheet2 (yaitu sheet yg menjadi induk
> (parent)
> bagi range yg bernama CellTujuan1
> dst...
>
> -hapsari-
>
>
>
> 2011/10/18 Dewan Deya <dwanxls@yahoo.co.id >
>
>
>>B' Siti
>>Saya sudah coba aplikasikan listing VB nya dengan mengcreate file excel
>> baru (nama file nya : Book121.xls). dan VB nya berhasil sesuai dengan yang
>> diharapkan.
>>
>>Kemudian saya coba VB tersebut di file excel yang sudah ada (nama file
>> excel nya : sample.xls). Terjadi error. Error 424.
>>
>>Berikut listing di file sample.xls
>>
>>Sub Transpose()
>>'
>>' Transpose Macro
>>' Matrix transpose
>>'
>>' Keyboard Shortcut: Ctrl+Shift+O
>>'
>>Dim CellTujuan1 As Range
>>Dim CellTujuan2 As Range
>>
>>Set CellTujuan1 =Market2011.Cells(Row. Count, 2).End(xlUp) .Offset(1, 0)
>>Set CellTujuan2 = Market2011.Cells(Row.Count, 11).End(xlUp) .Offset(1, 0)
>>
>>Master.Range("c3:c11") .Copy
>>CellTujuan1.PasteSpecial Paste:=xlPasteValue s, Operation:=xlNone,
>> SkipBlanks:=False, Transpose:=True
>>
>>Master.Range("D13:D17" ).Copy
>>CellTujuan2.PasteSpecial Paste:=xlPasteValue s, Operation:=xlNone,
>> SkipBlanks:=False, Transpose:=True
>>End Sub
>>
>>Dan dibawah ini adalah listing VB dari fileBook121.xls
>>
>>Sub Macro1()
>>'
>>' Macro1 Macro
>>'
>>' Keyboard Shortcut: Ctrl+n
>>'
>>Dim CellTujuan1 As Range
>>Dim CellTujuan2 As Range
>>
>>Set CellTujuan1 = Sheet2.Cells(Rows.Count, 3).End(xlUp) .Offset(1, 0)
>>Set CellTujuan2 = Sheet2.Cells(Rows.Count, 6).End(xlUp) .Offset(1, 0)
>>
>>Sheet1.Range("d4:d8"). Copy
>>CellTujuan1.PasteSpecial Paste:=xlPasteValue s, Operation:=xlNone,
>> SkipBlanks _
>>=False, Transpose:=True
>>
>>Sheet1.Range("D16:D20" ).Copy
>>CellTujuan2.PasteSpecial Paste:=xlPasteValue s, Operation:=xlNone,
>> SkipBlanks:=False, Transpose:=True
>>
>>End Sub
>>
>>Pada file Book121.xls nama sheet nya saya ubah, sheet1 menjadi master dan
>> sheet2 menjadi index2011. Dan VB tetap bisa berjalan.
>>Berikut saya lampirkan ke dua file tersebut.
>>
>>Sebelumnya saya ucapkan terimakasih.
>
- 8a.
-
Menjumlah cells berisi teks angka-angka diatas 15 digit
Posted by: "Koplo Sukoplo" koplosukoplo@rocketmail.com koplosukoplo@rocketmail.com
Thu Oct 27, 2011 10:24 pm (PDT)
Pak Boss punya tabel berisi angka-angka yg lebarnya (length of text) = 20 digit .
Semua angka tanpa tanda pemisah ribuan maupun pemisah desimal; setiap kolom
berisi 32 baris. Tabel diberikan dlm bentuk kertas (tulisannya pun sulit dibaca
karena terlalu "bagus")
Seperti yg kami takutkan, (karena angka lebih lebar dari 15 digit akan dibulatkan
oleh excel), kemarin sore Pak Boss minta dibuatkan tabel ditambah data hasil
penjumlahannya per kolom; dalam diminta bentuk worksheet excel2007 dan
print out nya; dengan dua catatan
1. type data yg tertulis tidak harus Numbers (bilangan) / type Text diperkenankan
2 harus ada tanda pemisah ribuan (baik pada 32 data maupun pada hasil penjumlahan).
Kami sudah mencoba dengan memotong menjadi 3 bagian mengkonversi ke angka
menjumlahkan (tiap bagian diolah secara terpisah) kemudian jumlah 3 bagian itu
digabung, tetapi ternyata sering salah dan memang ilmunya belum sampai kesitu..
diambah dikejar waktu...
Mohon bantuan apakah di excel ada rumus atau cara praktis lain, yg bisa
menjumlahkanangka-angka besar (dlm bentuk text) seperti itu.
Telampir contoh 3 kolom data saja + 1 kolom gambaran hasil yg diinginkan.
Terima kasih...
si Ovlo.. - 8b.
-
Re: Menjumlah cells berisi teks angka-angka diatas 15 digit
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Thu Oct 27, 2011 11:28 pm (PDT)
Betul kata mas Ko*v*lo bahwa bekerja dengan* angka di atas 15 digit* bisa
bikin *revot.*
Angka *digit ke enambelas dst* dibulatkan oleh excel manjadi NOL
Karena menurut cerita dari "sonoh"nya cell excel hanya di-mampu-kan
menampilkan
nilai bilangan presisi pada MAX 15 digit saja..
Agar pekerjaan Pak Kovlo cepat selesai, disarankan pakai* fungi khusus* saja
(1)
Mengkonversi text angka besat agar tampil seperti bilangan yg diformat
berpemisah ribuan ; rumusnya (satu cel satu rumus)
*=Text2BigNum(B4)*
(2)
Menjumlah range berisi data text angka besar, rumusnya (seperti SUM)
*=BigSum(B4:B35)*
Kedua Fungsi itu menghasilkan DATA TYPE TEXT yg penampakannya seperti
Numbers (Bilangan); tetapi hasil penjumlahannya sepertinya benar
(kalau tidak percaya dihuitng ulang saja .. xD :D )
tentu saja lebar bilangan juga tetap ada batasnya ( 28 digit..)
*VBA coding UDFnya*
' hapsari / smg, 28 okt 2011
Function BigSum(Rng As range) As String
Dim i As Long, big As Variant
For i = 1 To Rng.Cells.Count
big = *CDec*(big) + CDec(Rng(i))
Next
BigSum = CStr(Format(big, "###,###"))
End Function
Function Text2BigNum(X As String) As String
Text2BigNum = Format(*CDec*(X), "###,###")
End Function
cmiiw
***Decimal variables* are stored as 96-bit (12-byte) signed integers scaled
by a variable power of 10.
The power of 10 scaling factor specifies the number of digits to the right
of the decimal point,
and ranges from 0 to 28. With a scale of 0 (no decimal places), the largest
possible value is
+/-79,228,162,514,264,337, 593,543,950, 335.
With a 28 decimal places, the largest value is
+/-7.9228162514264337593543950335
and the smallest, non-zero value is +/-0.0000000000000000000000000001.
2011/10/28 Koplo Sukoplo <koplosukoplo@rocketmail. >com
>
> Pak Boss punya tabel berisi angka-angka yg lebarnya (length of text) = 20
digit .
> Semua angka tanpa tanda pemisah ribuan maupun pemisah desimal; setiap
kolom
> berisi 32 baris. Tabel diberikan dlm bentuk kertas (tulisannya pun sulit
dibaca
> karena terlalu "bagus")
> Seperti yg kami takutkan, (karena angka lebih lebar dari 15 digit akan
dibulatkan
> oleh excel), kemarin sore Pak Boss minta dibuatkan tabel ditambah data
hasil
> penjumlahannya per kolom; dalam diminta bentuk worksheet excel 2007 dan
> print out nya; dengan dua catatan
> 1. type data yg tertulis tidak harus Numbers (bilangan) / type Text
diperkenankan
> 2 harus ada tanda pemisah ribuan (baik pada 32 data maupun pada hasil
penjumlahan).
> Kami sudah mencoba dengan memotong menjadi 3 bagian mengkonversi ke angka
> menjumlahkan (tiap bagian diolah secara terpisah) kemudian jumlah 3 bagian
itu
> digabung, tetapi ternyata sering salah dan memang ilmunya belum sampai
kesitu..
> diambah dikejar waktu...
> Mohon bantuan apakah di excel ada rumus atau cara praktis lain, yg bisa
> menjumlahkan angka-angka besar (dlm bentuk text) seperti itu.
> Telampir contoh 3 kolom data saja + 1 kolom gambaran hasil yg diinginkan.
> Terima kasih...
> si Ovlo..
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
1 komentar:
kalau mau format data
misalnya
12345678
menjadi
1234-5678
bagaimana caranya,mohon bantuan infonya.Terima kasih
Posting Komentar