Tecnologia, programação e muito Visual FoxPro.

sexta-feira, 5 de fevereiro de 2010

Re: ]] XL-mania [[ cmd button posisinya jalan2

 

jika layar excel di 'scroll'  atas / bawah / kiri / kanan sehingga menyebabkan
tombol jauh dari pojok (bahkan tidak kelihatan); maka tombol akan segera
kembali ke pojok (kiri atas) jika anda mengklik sebuah cell, sembarang cell..
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ctv As Range
With ActiveWindow
Set ctv = Me.Cells(.ScrollRow, .ScrollColumn)
End With
With CommandButton1
.Top = ctv.Top + 10: .Left = ctv.Left + 15
End With
With Me.Shapes("xBox")
.Top = ctv.Top + 100: .Left = ctv.Left + 200
End With
End Sub
 
 

----- Original Message -----
From: rizald al kaaf
To: xl-mania
Sent: Friday, February 05, 2010 2:52 PM
Subject: ]] XL-mania [[ cmd button posisinya jalan2
salam para master
mau tanya simple ajah, gimana caranya bikin cmd button yg posisinya bisa jalan2
kaya di contoh yg saya lampirkan ini, posisinya kan sekitar Q4-S5 lah,
namun kalo kita scroll agak jauh kebawah ato kesamping kan jadi gag
keliatan ntu cmd button dan gag bisa diekseskusi
maunya si dibikin biar bisa jalan2 itu ntu cmd button yg posisinya
relativ tetep pada windows/penglihatan kita (maap kalo kurang jelas)
trrriimmss

__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Member ke 13,013 siapa ya? Sini mau dikirimin coklat :D           |
| Member ke 31,031 dapet iPod dehh.... :D :D :D                     |  
| 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              |
+-------------------------------------------------------------------+
.

__,_._,___

Nenhum comentário:

Arquivo do blog