|
Sub Macro2()
'
' Macro2 Macro
' ƒ}ƒNƒ‹L˜^“ú : 2001/10/24 ƒ†[ƒU[–¼ : watanabe
'
'
@@Range("B2:D8").Select
@@Range("D8").Activate
@@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 = xlHairline
@@@@.ColorIndex = xlAutomatic
@@End With
@@With Selection.Borders(xlInsideHorizontal)
@@@@.LineStyle = xlContinuous
@@@@.Weight = xlHairline
@@@@.ColorIndex = xlAutomatic
@@End With
@@Range("B2:D2").Select
@@Range("D2").Activate
@@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 = xlDouble
@@@@.Weight = xlThick
@@@@.ColorIndex = xlAutomatic
@@End With
@@With Selection.Borders(xlEdgeRight)
@@@@.LineStyle = xlContinuous
@@@@.Weight = xlThin
@@@@.ColorIndex = xlAutomatic
@@End With
@@With Selection.Borders(xlInsideVertical)
@@@@.LineStyle = xlContinuous
@@@@.Weight = xlHairline
@@@@.ColorIndex = xlAutomatic
@@End With
@@Range("B7:D7").Select
@@Range("D7").Activate
@@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 = xlHairline
@@@@.ColorIndex = xlAutomatic
@@End With
@@With Selection.Borders(xlEdgeBottom)
@@@@.LineStyle = xlDouble
@@@@.Weight = xlThick
@@@@.ColorIndex = xlAutomatic
@@End With
@@With Selection.Borders(xlEdgeRight)
@@@@.LineStyle = xlContinuous
@@@@.Weight = xlThin
@@@@.ColorIndex = xlAutomatic
@@End With
@@With Selection.Borders(xlInsideVertical)
@@@@.LineStyle = xlContinuous
@@@@.Weight = xlHairline
@@@@.ColorIndex = xlAutomatic
@@End With
@@Range("D8").Select
End Sub |
@‚¤‚í‚Ÿ```‚È‚ñ‚¶‚Ⴑ‚è‚á`I
‚³‚Á‚ς蕪‚©‚ç‚ñ‚¼I
–{“–A‚±‚ñ‚È‚ÌŒ©‚½‚牽‚ª‰½‚¾‚©•ª‚©‚ç‚È‚¢‚Å‚·‚æ‚ËB
‚Å‚à‚±‚̃vƒƒOƒ‰ƒ€‚ªŒrü‚ðˆø‚‚½‚߂̃}ƒNƒ‚̃vƒƒOƒ‰ƒ€‚È‚Ì‚Å‚·B
‚Å‚Í‚¢‚¶‚Á‚Ä‚¢‚«‚Ü‚µ‚傤‚©I |
[ƒgƒbƒv][‘O‚Ö][Œrüƒ}ƒNƒ‚̃R[ƒh][ŽŸ‚Ö]
|