回复 1楼wlosg的帖子
wlosg 你好,
请通过以下代码测试:
- Private Sub Command1_Click()
- fpSpread1.BlockMode = True
- For x = 0 To fpSpread1.SelectionCount - 1
- fpSpread1.GetSelection x, c, r, c2, r2
- fpSpread1.Col = c
- fpSpread1.Col2 = c2
- fpSpread1.Row = r
- fpSpread1.Row2 = r2
- fpSpread1.BackColor = &HFF0000
- Next x
- fpSpread1.BlockMode = False
- End Sub
- Private Sub Form_Load()
- fpSpread1.OperationMode = OperationModeMulti
- End Sub
复制代码 |