HOME>TOP>セル

選択した範囲に対して斜めに罫線をひくには?


キーワード>>罫線・ななめ 

Point:選択した範囲に対して斜めに罫線を引きたい。(選択するセルは、縦横同じ数にしないと怒られます。)

Sub Test()
    Tate = Selection.Rows.Count
    Yoko = Selection.Columns.Count
    Hidariue = Selection.Row
    Hidarisita = Selection.Row + Tate - 1
    Migiue = Selection.Column
    If Tate <> Yoko Then
      MsgBox "セルの縦横の個数が合いません!!", vbCritical
      Exit Sub
    End If

   res = MsgBox("/←はい or \←いいえ", vbQuestion + vbYesNo)

    If res = 7 Then
         For i = Hidariue To Hidarisita
              p = Migiue
          With Cells(i, p).Borders(xlDiagonalDown)
             .LineStyle = xlContinuous
             .Weight = xlThin
             .ColorIndex = xlAutomatic
          End With
          Migiue = Migiue + 1
        Next i
   Else
         For a = Hidarisita To Hidariue Step -1
             b = Migiue
           With Cells(a, b).Borders(xlDiagonalUp)
              .LineStyle = xlContinuous
              .Weight = xlThin
              .ColorIndex = xlAutomatic
           End With
           Migiue = Migiue + 1
         Next a
   End If
End Sub


掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。