Coding Excell Farrel


Data kami di Excell baru sekarang sempat diolah. Kami minta bantuan dari seorang mhs teknik mesin angkatan 2015 namanya Farrel. Kemudian dengan caranya yang luarbiasa…yaitu membuat program dengan MACRO-EXCELL. Dan hasilnya menakjubkan, kami bisa mengetahui berapa jumlah persis setiap tahun bayi yang kami tolong. Sekaligus juga kami bisa search apa saja, mulai dari nama bayi, berat bayi, tgl lahir dan banyak lagi yang lain. Dibawah inilah Codingnya…Bravo Farrel…

-0-

Sub SearchBox()

Dim myButton As OptionButton
Dim MyVal As Long
Dim ButtonName As String
Dim sht As Worksheet
Dim myField As Long
Dim DataRange As Range
Dim mySearch As Variant

‘Load Sheet into A Variable
Set sht = ActiveSheet

‘Unfilter Data (if necessary)
On Error Resume Next
sht.ShowAllData
On Error GoTo 0

‘Filtered Data Range (include column heading cells)
Set DataRange = sht.Range(“A4:K517”) ‘Cell Range
‘Set DataRange = sht.ListObjects(“Table1”).Range ‘Table

‘Retrieve User’s Search Input
mySearch = sht.Shapes(“UserSearch”).TextFrame.Characters.Text ‘Control Form
‘mySearch = sht.OLEObjects(“UserSearch”).Object.Text ‘ActiveX Control
‘mySearch = sht.Range(“A1″).Value ‘Cell Input

‘Loop Through Option Buttons
For Each myButton In ActiveSheet.OptionButtons
If myButton.Value = 1 Then
ButtonName = myButton.Text
Exit For
End If
Next myButton

‘Determine Filter Field
myField = Application.WorksheetFunction.Match(ButtonName, DataRange.Rows(1), 0)

‘Filter Data
DataRange.AutoFilter _
Field:=myField, _
Criteria1:=”=*” & mySearch & “*”, _
Operator:=xlAnd

‘Clear Search Field
sht.Shapes(“UserSearch”).TextFrame.Characters.Text = “” ‘Control Form
‘sht.OLEObjects(“UserSearch”).Object.Text = “” ‘ActiveX Control
‘sht.Range(“A1”).Value = “” ‘Cell Input

End Sub

-0-
Berikut sedikit contoh datanya untuk bayi yang kami tolong th 2014:

Gazelle Al Muchsin Sitti Nur Afny Andri Ramadan RS Budi Kemuliaan Jakarta 08778242574xx
Nabila M. Ayu Ningsih Rohmani RSUD Cilegon Lampung –
Malika Salma Alwi Lindawati Muhammad Alwi RSI Cempaka Putih Jakarta 0877820097xx
Qhanaya Harisha Putri Febriy Hari Saputra Bogor 08966577345xx
Haikal As Sirozi Fera Rosmayanti M. Sirozjudin RS Al Ikhsan Bandung 0857212158xx

-0-

Mohon doa anda agar kami bisa menyebarkan peminjaman gratis inkubator ini ke seluruh Nusantara. FYI saat ini sudah ada di 39 kota dan atau kabupaten kota.

Leave a Reply (boleh kasi komentar)

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s