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

[µo°Ý] VBA´¡¤J«ü©wROW (EXCEL)

¦^´_ 1# liebe
  1. Private Sub CommandButton1_Click()
  2. ActiveSheet.Rows(TextBox1).Insert '´¡¤J¦C
  3. Unload Me 'Ãö³¬ªí³æ
  4. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# liebe

Unload·|¨ø¸ü¦Û­qªí³æ
Hide«h¬OÁôÂêí³æ

play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# liebe


    Range("A:C").Rows(TextBox1).Insert xlShiftDown
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD