隣り合ったCELLの境界線を消す方法

解決

GON 2003-04-18 02:45:10 No: 77742

MSFlexGridコントロールで左右および
上下のセルの境界線を消す方法を教えて下さい。

Loreley 2003-04-18 10:48:39 No: 77743

プロパティページからGrid関連をNoneにすればできます(2箇所)
時間がないので大雑把ですがすいません

GON 2003-04-18 21:59:52 No: 77744

質問のしかたが悪くて済みません。
沢山あるセルのうち、特定の隣合った２個の
セルの境界線のみ消し、他の線はそのまま表示
即ち、２個のセルが見掛け上１個に見えるように
する方法を知りたいのですが。

魔界の仮面弁士 2003-04-19 01:02:11 No: 77745

これで如何でしょう。

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

GON 2003-04-19 03:57:55 No: 77746

な〜るほど、Merge を使う方法ですネ。
ありがとうございました。
回転が速くて、機転の利く人は羨ましい
限りです。