请问在mshflexgrid中如果搜索负值(谢谢各位老师)

Question

如已经显示出数值结果的mshflexgrid中,如何能通过点击一个命令按钮在mshflexgrid中从左至右,从上至下,搜索结果为负数的单元格,并定位到负值的单元格,当在点击此命令按键时,再定位到下一负值单元格,到搜索完毕为止!
  谢谢各位,能给出代码!

Answer 1

Option ExplicitPrivate nRow As Long, nCol As LongPrivate Sub Form_Load()
    MSHFlexGrid1.Row = 1
    MSHFlexGrid1.Col = 1
End SubPrivate Sub Command1_Click()
    Dim i As Long, j As Long
    For i = nRow To MSHFlexGrid1.Rows - 1
        For j = nCol To MSHFlexGrid1.Cols - 1
            if ... then
                MSHFlexGrid1.Row = nRow
                MSHFlexGrid1.Col = nCol
                Exit Sub
            End If
        Next
    Next
End SubPrivate Sub MSHFlexGrid1_RowColChange()
    nRow = MSHFlexGrid1.Row
    nCol = MSHFlexGrid1.Col
End Sub