[µo°Ý] ´¡¤JÄæ¦ìªº±±¨î

caichen3

¦pªG¦b²Ä2¦C«ö"´¡¤J "¡G©ó²Ä¤G¦C·s¼W2­ÓÄæ¦ì¨Ã¥B¦X¨ÖÀx¦s®æ¡A²Ä¤T¦C·s¼W¤GÄæ(¤£¦X¨Ö)
¦pªG¦b²Ä3¦C«ö"´¡¤J "¡G¥u¦b²Ä¤T¦C·s¼W¤@­ÓÄæ¦ì

range("A2")¬OÁ`¦@¨Ï¥Î´X­ÓÄæ¦ì

caichen3

¦^´_ 5# register313


    ·PÁÂR¤j¤j¡A¨ü¯q¨}¦h:D

register313

¦^´_ 4# caichen3

1. Private Sub CommandButton3_Click()
   
2. If Selection.Row = 1 Then
   
3.    Selection.Resize(1, 6).EntireColumn.Insert
   
4.    Selection.Offset(1, 0).Resize(1, 2).Merge
   
5.    Selection.Offset(1, 2).Resize(1, 2).Merge
   
6.    Selection.Offset(1, 4).Resize(1, 2).Merge
   
7.    Selection.Resize(1, 6).Merge
   
8. End If
   
9. End Sub

½Æ»s¥N½X

caichen3

½Ð°Ý¦U¦ì¤j¤j:°²³]·Q¦b²Ä¤@¦C«ö´¡¤J
·|·s¼W6¦C¡A²Ä¤@¦C¥þ³¡¦X¨Ö¡A²Ä2 ¦C¨C2¦C¦X¨Ö,¸Ó¦p¦ó±±¨î²Ä2¦C©O??
Private Sub CommandButton3_Click()
If Selection.Row = 1 Then
   Selection.EntireColumn.Insert
  Selection.EntireColumn.Insert
  Selection.EntireColumn.Insert
  Selection.EntireColumn.Insert
  Selection.EntireColumn.Insert
  Selection.EntireColumn.Insert
   Selection.Resize(1, 6).Merge



elseIf Selection.Row = 2 Then
   Selection.EntireColumn.Insert
   Selection.EntireColumn.Insert
   Selection.Resize(1, 2).Merge
ElseIf Selection.Row = 3 Then
   Selection.EntireColumn.Insert
End If

End Sub

caichen3

¦^´_ 2# register313


    ·PÁÂR¤j¤jªºÀ°§U:D

register313

¦^´_ 1# caichen3

1. Private Sub CommandButton3_Click()
   
2. If Selection.Row = 2 Then
   
3.    Selection.EntireColumn.Insert
   
4.    Selection.EntireColumn.Insert
   
5.    Selection.Resize(1, 2).Merge
   
6. ElseIf Selection.Row = 3 Then
   
7.    Selection.EntireColumn.Insert
   
8. End If
   
9. Range("A2").Value = Range("A2").Value + 1
   
10. End Sub

½Æ»s¥N½X