Wawan

Find Row Position of Certain Text

Jan 1st, 2004 | Wawan | visual basic

Terkadang di Excel, kita perlu mencari posisi baris dari suatu text tertentu, ini tentunya kalau worksheet yg kita gunakan menggunakan sebuah template yg tidak berubah bentuknya. Disinilah fungsi dibawah ini mengambil perannya.

'------
'Input:
'   sText: text yg ingin dicari
'   SearchDirection: arah pencarian, maju atau mundur
'   SearchOrder: urutan pencarian, baris atau kolom duluan
'   kedua input yg terakhir bersifat optional
'   defaultnya adalah maju dan baris dahulu br kolom
'Output: posisi baris dari text input
'------
Private Function pFindRowPos(sText As Variant, _
  Optional SearchDirection As XlSearchDirection = xlNext, _
  Optional SearchOrder As XlSearchOrder = xlByRows) As Long
 
    Dim lResult As Long, oRg As Range
 
    Set oRg = Cells.Find(What:=sText, LookIn:=xlValues, _
    LookAt:=xlPart, SearchOrder:=SearchOrder, _
                 SearchDirection:=SearchDirection, _
    MatchCase:=False, SearchFormat:=False)
 
    If Not oRg Is Nothing Then lResult = oRg.Row
 
    pFindRowPos = lResult
 
    Set oRg = Nothing
End Function

Ehm… fyi, semua post di kategori vba-excel ini aku ubah timestampnya ke 2004.01.01 :mrgreen:

Bagikan artikel ini ke: InfoGue · Lintas Berita · Facebook · Twitter

Related Entries:

Random Entries:

«
»

This entry was posted on Thursday, January 1st, 2004 and is filed under visual basic with tags . You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

No comments yet.

feel free to leave a comment

Comment Guidelines: Basic XHTML is allowed (a href, strong, em, code). All line breaks and paragraphs are automatically generated. Off-topic or inappropriate comments will be edited or deleted. Email addresses will never be published. Keep it PG-13 people!

All fields marked with " * " are required.

Search Engine Terms for This Article:

find row text visual basic, get cell position excel, posisi row vb exel

Popular Search Engine Terms

bunga deposito, berita gempa, zte mg880, wise word, wise words about life, modem cdma zte, deposito mandiri, bunga deposito bank mandiri, tembang dolanan, modem zte mg880

Recent Search Engine Terms

hack kecepatan telkomflash, cara install node32 fix v3 0, cara instal plugin wp, situs untuk nonton video dengan cepat, wisata kuliner bandung, im2 indosat, Unable to connect to the database:Could not connect to MySQL, merubah font nama di facebook, hacker email yahoo, mandala air