路过的可以进来看看这个问题,发表一下高论吗？

Question

For ij = 1 To Sign_Grid.Rows - 1
    For jj = 1 To Sign_Grid.Cols - 1
        str = Sign_Grid.TextMatrix(ij, jj)
    Next jj
Next ij
上面这段代码为什么会取最后一个单元格的内容呢?
我想要取的是我单击的那个单元格的内容吖..
知道的请给个答案我好吗？给分你哦....

Answer 1

Private Sub Sign_Grid_Click()
    Dim mRow As Integer
    Dim mCol As Integer
    Dim str As String
    
    mRow = Sign_Grid.RowSel
    mCol = Sign_Grid.ColSel
    str = Sign_Grid.TextMatrix(mRow, mCol)
    
End Sub

Answer 2

呵呵，晕~~
你这个循环到最后当然是最大列和最大行的单元格也就是最后那个单元格内容。
使用Row和Col属性获取当前单元格文本：
str=Sign_Grid.TextMatrix(Sign_Grid.Row, Sign_Grid.Col)

Answer 3

就是的
 Grid1.TextMatrix(Grid1.Row,Grid1.Col)  就可以了

Answer 4

str = Sign_Grid.TextMatrix(Sign_Grid.MouseRow, Sign_Grid.MouseCol)