QTP & QC-> Code for function to get the column number of activex grid for a given header text, 2nd for in a row

'**********************************************************************************************************
'Function Name:   fun_GetColumnNumberWithGivenHeaderText(strText)
'Description :        Used to get the column number of activex grid for a given header text
'Parameters:        strText
'Return  value       Int
'Registerd To      AcxTable
'Example:              fun_GetColumnNumberWithGivenHeaderText("Description")
'**********************************************************************************************************

Public Function fun_GetColumnNumberWithGivenHeaderText(ByRef test_object , strText)
   Dim i
    For i = 2 to test_object.ColumnCount
  If  Trim(test_object.GetCellData(1 , i )) = strText Then
   fun_GetColumnNumberWithGivenHeaderText = i
   Exit For
  End If
 Next
End Function
RegisterUserFunc "AcxTable", "fun_GetColumnNumberWithGivenHeaderText", "fun_GetColumnNumberWithGivenHeaderText"


**********************************************************************************************************
'Function Name:   fun_ExGetColumnNumberWithGivenHeaderText(strText , intRow)
'Description :        Used to get the column number of activex grid for a given header text
'Parameters:        strText
'Return  value       Int
'Registerd To      AcxTable
'Base Project      EFAS
'Example:              fun_ExGetColumnNumberWithGivenHeaderText("Description" , 2)
'**********************************************************************************************************
Public Function fun_ExGetColumnNumberWithGivenHeaderText(ByRef test_object , strText , intRow)
   Dim i
    For i = 2 to test_object.ColumnCount
  If  Trim(test_object.GetCellData(intRow , i )) = strText Then
   fun_ExGetColumnNumberWithGivenHeaderText = i
   Exit For
  End If
 Next
End Function
RegisterUserFunc "AcxTable", "fun_ExGetColumnNumberWithGivenHeaderText", "fun_ExGetColumnNumberWithGivenHeaderText"