主题：当前表的单元格位置信息

捣乱的又来了

试试

Dim c1table As C1FlexGrid.C1FlexGrid = Tables("表A").Grid
Dim rc As C1FlexGrid.CellRange = c1table.Selection
Dim cellrect As System.Drawing.Rectangle = c1table.RectangleToScreen(c1table.GetCellRect(rc.r1,rc.c1))
Output.show("x=" & cellrect.x &  "    y=" & cellrect.y)