Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 1999.2.21 ユーザー名 : momiji
ActiveCell.FormulaR1C1 = "小遣い"
ActiveCell.Characters(1, 2).PhoneticCharacters = "コヅカ"
Range("A3").Select
ActiveCell.FormulaR1C1 = "一郎"
ActiveCell.Characters(1, 2).PhoneticCharacters = "イチロウ"
Range("A4").Select
ActiveCell.FormulaR1C1 = "二郎"
ActiveCell.Characters(1, 2).PhoneticCharacters = "ジロウ"
Range("B2").Select
ActiveCell.FormulaR1C1 = "1月"
ActiveCell.Characters(2, 1).PhoneticCharacters = "ガツ"
Range("A2:B4").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With
End Sub

Copyright (c) 1999-2011 iiyan.net, All rights reserved.