「MSFlexGrid」セルの罫線消去するには (ID:102283)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 選択モードがセル単位で良ければこんなのとか。 Private Sub Command1_Click() With MSFlexGrid1 .Cols = 10 .Rows = 10 For i = 1 To 9 For j = 1 To 9 .TextMatrix(i, j) = "A" Next Next .MergeCells = flexMergeFree .MergeCol(3) = True End With End Sub Private Sub MSFlexGrid1_LeaveCell() MSFlexGrid1.CellBackColor = vbWhite End Sub Private Sub MSFlexGrid1_RowColChange() MSFlexGrid1.CellBackColor = vbRed End Sub