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

[µo°Ý] commandbuttonÀHÀx¦s®æ²¾°Ê

[µo°Ý] commandbuttonÀHÀx¦s®æ²¾°Ê

½Ð¦ì¦U¦ì¤j¤j~
¦p¦ó±NcommandbuttonÀHµÛÀx¦s®æ²¾°Ê©O¡H¡H
«ö¶s©ñ¸m©óA3:A4¡A¦b²Ä¤G¦C«ö¤U´¡¤J¡A«ö¶s·|¦Û°Ê©¹¤U²¾¦ÜA4:A5
Ä_Ä_

¦^´_ 1# caichen3


   

TOP

¦^´_ 2# GBKEE


    ¦ý±N«ö¶sÄݩʳ]¦¨"¤j¤p¦ì¸mÀHÀx®æ¦s¦ÓÅÜ"¬°¤°»ò«ö¶s¨ÌµM¤£°Ê©O¡H¡H
Ä_Ä_

TOP

¦^´_ 3# caichen3

1.gif

TOP

¦^´_ 3# caichen3
  1. Private Sub CommandButton1_Click()
  2. Dim x As Integer
  3. Dim k As Integer
  4. Dim xxx As String
  5. x = UserForm1.ComboBox1.Value
  6. k = Range("H1").Value
  7. If x > k Then
  8.    x = x - k
  9.    For i = 1 To x
  10.        '***Range("A3:G3").Insert
  11.        Range("A3").EntireRow.Insert
  12.    Next
  13. ElseIf x < k Then
  14.    x = k - x
  15.    For i = 1 To x
  16.        '**Range("A3:G3").Delete
  17.        Range("A3").EntireRow.Delete
  18.    Next
  19. End If
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD