ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] BordersÄÝ©Ê°ÝÃD

[µo°Ý] BordersÄÝ©Ê°ÝÃD

½Ð°Ý¦U¦ì¤j¤j
¥H¤U¬O"§R°£"«ö¶sªºµ{«×½X
Private Sub CommandButton2_Click()
Dim a As Integer
Dim b As Integer
Dim xR As Integer
Dim xT As Integer
Dim gyou As Integer
xR = ActiveCell.Row
xT = ActiveCell.Column
a = Range("A1").Value
b = Range("A2").Value
If xR = 1 And xT > 2 And xT <= a + 2 Then
   gyou = ActiveCell.Column
   ActiveSheet.Columns(gyou).Delete
   Range("A1").Value = Range("A1").Value - 1
   a = Range("A1").Value
ElseIf xR > 1 And xR <= b + 1 Then
   Cells(xR, "B").Resize(, a + 2).Delete xlUp
   Range("A2").Value = Range("A2").Value - 1
   b = Range("A2").Value
End If

Range(Cells(1, 2), Cells(b + 4, a + 2)).Borders(xlEdgeRight).Weight = xlThick
Range(Cells(1, 2), Cells(b + 4, a + 2)).Borders(xlEdgeLeft).Weight = xlThick
Range(Cells(1, 2), Cells(b + 4, a + 2)).Borders(xlEdgeBottom).Weight = xlThick
Range(Cells(1, 2), Cells(1, a + 2)).Borders(xlEdgeBottom).Weight = xlThick

End Sub

°õ¦æ«á¥X²{"µLªk³]©wºØÃþBordersªºÄÝ©ÊWeight"  ¬O¤°»ò­ì¦]©O¡H¡H

³Ð·s±M¦wPugh·§©À¿ï¾Ü.rar (25.65 KB)

Ä_Ä_

Range(Cells(1, 2), Cells(b + 4, a + 2)).Borders.LineStyle = xlNone
Range(Cells(1, 2), Cells(b + 4, a + 2)).Borders.LineStyle = xlContinuous
Range(Cells(1, 2), Cells(b + 4, a + 2)).BorderAround , 4, 1
Range(Cells(1, 2), Cells(1, a + 2)).BorderAround , 4, 1
1.¥ý¨ú®ø©Ò¦³®Ø½u
2.³]¸m½d³òªº©Ò¦³²Ó½u
3.¹ï¨â­Ó°Ï°ì¤À§O³]¥~®Ø²Ê½u

TOP

¦^´_ 2# oobird
§Aªº¤èªk¬O¥i¸Ñ°£¿ù»~
¦ý°ÝÃD¬O¬°¦ó¨â­Ó¤u§@ªíªºB1:B11 Àx¦s®æ, ¨Ï¥Î«ü¥O[Àx¦s®æ®æ¦¡] ³£¥¢®Ä

TOP

³o°ÝÃD«ÜÃø²z¸Ñ¡A¥u¦³³¡¥÷Äæ¦ì¤£¯à³]¸m®æ¦¡
¤]³\¥Î·sª©»s§@ªº¸ê®Æ°µ¬Û®e©ÊÂà´«®É¯}Ãaªº¡C
©Ò¥H§Ú¹Á¸Õ¥Î¥N½X¨ú®ø®Ø½u¡A³o¼Ë´N¯à­×¥¿¬J¦³ªº¿ù»~¤F¡C

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD