隣り合ったCELLの境界線を消す方法 (ID:77745)

名前

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

本文 これで如何でしょう。 Private Sub Form_Load() Dim S As String S = "1-1|1-2|1-3|1-4|1-5" & vbCr _ & "2-1|2-2|2-3|2-4|2-5" & vbCr _ & "3-1|2-2|3-3|3-4|3-5" & vbCr _ & "4-1|4-2|4-3|4-3|4-5" & vbCr _ & "5-1|5-2|5-3|5-4|5-5" With Me.MSFlexGrid1 .SelectionMode = flexSelectionFree .MergeCells = flexMergeFree .Rows = .FixedRows .Cols = .FixedCols .Rows = 5 .Cols = 5 .FixedRows = 1 .FixedCols = 1 .Row = 0 .Col = 0 .RowSel = 4 .ColSel = 4 .Clip = Replace(S, "|", vbTab) .Row = 1 .Col = 1 .MergeCol(1) = True .MergeRow(3) = True End With End Sub