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

[µo°Ý] ªí³æ«ö¶s³sÄò°õ¦æ

[µo°Ý] ªí³æ«ö¶s³sÄò°õ¦æ

§Ú¦bªí³æ«ö¶s¤¤³]©w¥¨¶°
§Æ±æ¦b·Æ¹«ÂIÀ»«ö¶s¥¼©ñ¶}·Æ¹«®É¥i¥H³sÄò°õ¦æ¥¨¶°ª½¦Ü¶}©ñ·Æ¹«¡A½Ð°Ý­n¦p¦ó³]©w¡H
  1. Sub Left()
  2. shift = Range("A7").Value
  3.     ActiveSheet.Shapes("Group 2").Select
  4.     Selection.ShapeRange.IncrementLeft -shift * 75
  5. End Sub
½Æ»s¥N½X
°¸¦Ó¾Ç²ß

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-8-25 15:59 ½s¿è

¦^´_ 1# roy1221
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Dim Left_Msg As Boolean                 'ªí³æ¨p¥ÎÅܼÆ
  3. Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  4.     'CommandButton1 «ö¤U«ö¶s ªºÄ²µo¨Æ¥óµ{§Ç
  5.     Left_Msg = True
  6.     Sub_Left
  7. End Sub
  8. Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  9.     'CommandButton1 Â÷¶}«ö¶s ªºÄ²µo¨Æ¥óµ{§Ç
  10.     Left_Msg = False                    'Left_Msg = False °±¤î°j°é°õ¦æ¤U¥h
  11. End Sub
  12. Private Sub Sub_Left()                  'Left ¬Ovba¤º«ØÃöÁä¦r,¤Å¬°ÅܼÆ,µ{§Ç¦WºÙ
  13.     '«ö¤U«ö¶s ­n°õ¦æªºµ{§Ç
  14.     Dim Shift As Integer
  15.     Shift = Range("A7").Value
  16.     ActiveSheet.Shapes("Group 2").Select
  17.     Do While Left_Msg                   'Left_Msg = True °j°é°õ¦æ¤U¥h
  18.         DoEvents
  19.         Application.StatusBar = Time    'ª¬ºA¦C¤¤Åã¥Ü®É¶¡   »¡©úµ{§Ç¦b°õ¦æ¤¤
  20.         Selection.ShapeRange.IncrementLeft -Shift * 75
  21.     Loop
  22.     ActiveCell.Activate
  23. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD