waduh... ini terlewat ya....
mudah2an pak Erick Morgan masih 'monitor'
Mungkin tidak harus dengan mengHIDE kolom lain selain Kolom yg dicari; melainkan
Cukup dengan menSCROLL Horizontal_Scroll_Bar sehingga Kolom yg dicari
berada di tengah layar
Kalau perlu diberi tanda; misalnya dlm keadaan di Blok, atau diberi Shape tertentu
Ada dua tombol yg akan digunakan
1
Class CommandButton
jika di klik akan menyebabkan spinbutton1 bernilai tertentu sehingga mengarahkan
kolom yg berisi tgl hari ini di scroll ke tengah
2
Class SpinButton untuk menggeser kolom tsb ke kiri atau kekanan sesuai tgl yg dikehendaki
Untuk keperluan itu baris tanggal C11:NI11 yg semula hanya berisi angka biasa, harus
diganti dengan data date (soal penamppilannya = hanya DAY nya saja, itu soal gampang)
Mohon dijajal dulu, dan mohon kabar bila ada yg tidak sesuai "order spec"
'---- vba code ----
Sub bGini_Dech(ColPos As Integer)
' coded by Hapsari / Nov 23, 2011
' menscroll horisontal agar kolom yg dimaksud selalu
' berada di tengah layar
'--------------------------------------------
Dim DateBar As Range
Set DateBar = Range("C11")
Set DateBar = Range(DateBar, DateBar.End(xlToRight))
ActiveWindow.ScrollColumn = ColPos + 15
Me.Shapes("dArrow").Left = DateBar(1, ColPos).Left
Range("C12").Activate
Range("B11:B30").Offset(0, ColPos).Select
Range("B11:B30").Offset(0, ColPos)(1).Activate
End Sub
2011/11/17 Erick Morgan <rick_sanctified@yahoo.com>
>
> dear master excel,
> tolong bantu aku, disini aku lampirkan sheet kerjaanku.
> aku bermaksud input data setiap hari, namun karena kolomnya seabrek ada 360 kolom, maka saya kesulitan untuk input datanya.
> Bisakah teman2 bantu saya, bila sekarang tanggal 17 Nov 2011, maka hanya kolom tanggal 17 Nov 2011 saja yang terbuka, selain tanggal tersebut dihidden, tapi tidak menutup kemungkinan bisa saya unhidden kembali bila saya ingin mengeditnya.
> terima kasih banyak para master excel.
>
> "GOD hears more than u say, GOD answers more than u ask & GOD gives more than u desire"
> ....Kumau jadi rajawali, semakin kencang angin berhembus, semakin tinggi ku terbang....
>
> Erick P Morgan
> erickmorgan@pjbservices.com
> rick_sanctified@yahoo.com
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :( |
+-------------------------------------------------------------------+
| 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 |
+-------------------------------------------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :( |
+-------------------------------------------------------------------+
| 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
.
__,_._,___
Nenhum comentário:
Postar um comentário