]] XL-mania [[ Digest Number 2207

Microsoft Excel Community

Messages In This Digest (3 Messages)

1a.

Re: print dokumen excel From: STDEV(i)

2a.

Re: Belajar Looping From: STDEV(i)

3a.

Re: Menjumlah angka-angka primer dalam satu sel From: summonery

View All Topics | Create New Topic

Messages

1a.

Re: print dokumen excel

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Jul 14, 2011 5:49 am (PDT)

biasanya orang orang sini pakai makro tombol

Private Sub CommandButton1_Click()
Dim n As Long
For n = Range("G1").Value To Range("J1").Value
Range("E1").Value = n
Me.PrintPreview ' dipakai selama coba coba makro
' Me.PrintOut ' hidupkkan bila printer sudah siap
Next n
End Sub

2011/7/14 imam nahrowi <nahraw_1@yahoo.com>

> minta bantuannya rekan rekan xl mania, bagaimana cara mencetak dokumen
> tersebut secara langsung bukan satu persatu...tq atas bantuannya
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

2a.

Re: Belajar Looping

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Thu Jul 14, 2011 5:50 am (PDT)

Sub DeretKwadratik()

Dim x As Long
Dim batas As Integer

x = Range("A3").Value
batas = 1

Do While batas <= 100
batas = batas + 1
Range("b3").Cells(batas - 1, 1).Value = x
x = x * 2
Loop

End Sub

walaupun variable x sudah siti ganti menjadi *Long Integer*
tetapi karena x akan meningkat secara kuadratic, maka pada step ke 32
nilai x sudah overflow (type data long akan diisi data yg diluar
jangkauannya)

Kalau tetap ingin loop sampai 100 step, Cobalah X diatur agar mampu
menampung bilangan diatas 2 pangkat 32
Baca-baca di help VBA mengenai Type data dan daya tampungnya.

2011/7/14 Yokanan Wahyono <yokananwahyono@yahoo.co.id>
>
> Dear All
>
> Saya sedang mempelajari looping
> Masih belum bias nich,
> Nilai b3 kebawah adalah nilai a3 dikalikan 2
> Hasilnya supaya seperti attachment colom B
>
> Saya buat code makro nya belum bisa jalan
> Harusnya ada fungsi for next juga ya ?
> Bisa tolong di sempurnakan kode makro berikut
>
> Dim x As Integer
> x = Range("A3").Value
> batas = 1
> Do While batas < 100
> batas = batas + 1
> x = x * 2
> Loop
>
> Range("b3").Select
> Selection = x
>
> Salam
> Yokanan

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

3a.

Re: Menjumlah angka-angka primer dalam satu sel

Posted by: "summonery" summonery@yahoo.com   summonery

Thu Jul 14, 2011 7:39 pm (PDT)

coba juga,

=SUM((LEN(A1)-LEN(SUBSTITUTE(A1,{1,2,3,4,5,6,7,8,9},)))*{1,2,3,4,5,6,7,8\
,9})

>semoga bermanfaat

--- In XL-mania@yahoogroups.com, "faistone" <faizinse@...> wrote:
>
> Halo Suhu.. saya sangat bahagia akhirnya dapat menemukan milis group
yang sangat saya dambakan selama ini. terima kasih telah diterima
menjadi member. Singkat saja, aku ingin sekali dibantu bagaimana membuat
formula yang dapat mejumlah angka-angka primer dalam satu sel. contoh:
dalam sel A1 ada angka -3,3452967874355 (angka desimal negatif).
bagaimana supaya dalam sel C8 hasilnya adalah -71 (negatif tujuh puluh
satu)atau setidaknya hasilnya 71 juga tidak apa-apa yaitu hasil dari
penjumlahan -(3+3+4+5+2+9+6+7+8+7+4+3+5+5)di sel A1 tadi. jadi
penjumlahan tanpa memperhatikan tanda negatif dan koma. dan ini dalam
satu sel.. banyak rumus telah aku coba tapi hasilnya semua hanya mampu
menyelesaikan sebagian kecil perhitungan tapi ketika menyelesaikan angka
tersebut selalu gagal. demikian suhu.. mohon petunjuk yang teramat
sangat.. terima kasih yg sebesar-besarnya..
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

Recent Activity

•  79
  New Members

Visit Your Group

Yahoo! Groups

Mental Health Zone

Bi-polar disorder

Find support

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Find helpful tips

for Moderators

on the Yahoo!

Groups team blog.

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

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| tiap tanggal gajian, order buku "mengapa boss benci chart anda    |
| membludak :) ayo2 pesan yang belum punya....                      |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

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