Sub ܂Ƃ߂Đݒ()

    Dim ws As Worksheet  '[NV[g
    Dim dataRange As Range 'ݒp͈̔̓IuWFNg
    
    Dim out_Row As Long: out_Row = 20  '׏o͌̃JE^[
    
    '݂̃V[g
    Set ws = ActiveWorkbook.ActiveSheet

    'Range̒2Cell߂gĔ͈͎w
    Set dataRange = ws.Range(ws.Cells(1, 1), ws.Cells(out_Row, 5))

    'f[^Ŝ̏܂Ƃ߂Đݒ(Xɐݒ肷j
    With dataRange
        .Font.Name = "Meiryo UI"
        .Font.Size = 11
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = True

        'riŌɖׂǂݍ񂾍sɈ̂ɕ֗j
        .Borders.LineStyle = xlContinuous
        .Borders.Color = RGB(0, 0, 0)
    End With


    'O[v\ŏcr̎
    With dataRange
        .Font.Name = "Meiryo UI"
        .Font.Size = 11
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = True

        '͈͂̓ɏc
        With .Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .Color = RGB(0, 0, 0)
        End With
        
    End With

   'r_Ōrir̎wׂ鎞 dataRange ł͂Ȃ dataRange.Borders ɂj

    With dataRange.Borders

        'cr͎
        .Item(xlInsideVertical).LineStyle = xlContinuous
        .Item(xlEdgeLeft).LineStyle = xlContinuous
        .Item(xlEdgeRight).LineStyle = xlContinuous

        'r͓_
        .Item(xlInsideHorizontal).LineStyle = xlDot
        .Item(xlEdgeTop).LineStyle = xlDot
        .Item(xlEdgeBottom).LineStyle = xlDot
        .Weight = xlThin
        .Color = RGB(0, 0, 0)
    End With

End Sub