Dim Mcol As Long
Dim Mrow As Long
Private Sub MSFlexGrid1_Click()
Mcol = MSFlexGrid1.MouseCol
Mrow = MSFlexGrid1.MouseRow
End Sub
Private Sub Command1_Click()
MSFlexGrid1.Row = Mrow
MSFlexGrid1.Col = Mcol
MSFlexGrid1.Text = "hello,word"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024