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

[µo°Ý] ½Ð°Ý¬O§_¦³¿ìªk«ö·Ó·í·Æ¹«ÂI¨ìªº¶¶§Ç¥h±Æ§Ç?(¤w§¹¦¨¡AÁÂHsieh¤j¤j)

[µo°Ý] ½Ð°Ý¬O§_¦³¿ìªk«ö·Ó·í·Æ¹«ÂI¨ìªº¶¶§Ç¥h±Æ§Ç?(¤w§¹¦¨¡AÁÂHsieh¤j¤j)

¥»©«³Ì«á¥Ñ av8d ©ó 2012-2-15 15:50 ½s¿è

§Ú­è¿ý»s¤F¤@­Ó¥¨¶°
    Range("C7").Select
    Application.CutCopyMode = False
    Selection.Cut
    Range("C2").Select
    Selection.Insert Shift:=xlDown

³o¬O§âC7°Å¤UµM«á¶K¨ìC2¤W¤èªº¥¨¶°


¬O§_¦³¿ìªkÅý°O¾ÐÅé°ïÅ|¸ê®Æ©O?
¨Ò¦p:«ö·ÓÂI¨ìªº¥ý«á¶¶§Ç¥h±Æ§Ç¡A
1.C2 ¡÷ C1
2.C5 ¡÷ C2
3.C3 ¡÷ C3
4.C4 ¡÷ C4
5.C1 ¡÷ C5
«ö·ÓÂIªº¶¶§Ç±q·s±Æ¦C¡C

¦^´_ 2# Hsieh


    ªO¤j©êºp~¦pªG¬OXPª©ªº¸Ü

¸Ó¦p¦ó§ï¼g©O?

XPª©·|Åã¥Ü

½sĶ¿ù»~:
ª«¥ó¼Ò²Õ¤¤ªºPublic¦¨­û¤£¥i¥H¬O±`¼Æ¡B©T©wªø«×ªº¦r¦ê¡B°}¦C¡B¨Ï¥ÎªÌ¦Û­q«¬ºA©ÎDeclare³¯­z¦¡

»¡©ú:
ª«¥óÃþ§O¼Ò²Õ¤¤ªº Public ¦¨­û¤£¥i¥H¬O¡G±`¼Æ¡B©T©wªø«×ªº¦r¦ê¡B¨Ï¥ÎªÌ©w¸q«¬ºA¡B°}¦C©Î Declare ³¯­z¦¡
¨Ã«D©Ò¦³ª«¥ó¼Ò²Õ¤¤ªºÅܼƳ£¥i«Å§i¦¨ Public¡CµM¦Ó¡Aµ{§Ç¦b¹w³]¤W¬O Public¡A¥B Property µ{§Ç¦b»yªkµ²ºc¤W¥i¤ñ·ÓÅܼơC³o­Ó¿ù»~ªº°_¦]»P¸Ñ¨M¤èªk¦p¤U©Ò¥Ü¡G
±z¦bª«¥ó¼Ò²Õ¤¤«Å§i¤F¤@­Ó Public ±`¼Æ¡C
ÁöµM±z¤£¯à¦bª«¥ó¼Ò²Õ¤¤«Å§i Public ±`¼Æ¡A¦ý±z¥i¥H¬Û¦P¦WºÙ«Ø¥ß¤@­ÓProperty Get µ{§Ç¡C­Y±z¤£¥H¬Û¦P¦WºÙ«Ø¥ß¤@­Ó Property Let ©Î Property Set µ{§Ç¡A±z¹ê»Ú¤W±N«Ø¥ß¤@­Ó°ßŪÄÝ©Ê¡A¨ä¥Îªk»P±`¼Æ¬Û¦P¡C

±z¦bª«¥ó¼Ò²Õ¤¤«Å§i¤F¤@­Ó Public «¬ºAªº©T©wªø«×¦r¦ê¡C
±z¥i¥Î Property µ{§Ç¼ÒÀÀ©T©wªø«×¦r¦ê¡A¨ÃºI±¼¶W¥Xªø«×ªº¦r¦ê¸ê®Æ¡A©Î´£¥Ü¨Ï¥ÎªÌ¶W¥Xªø«×¡C

±z¦bª«¥ó¼Ò²Õ¤¤«Å§i¤F¤@­Ó Public °}¦C¡C
ÁöµMµ{§Ç¤£¯à¶Ç¦^°}¦C¡A¦ý¥i¶Ç¦^¤@­Ó¥]§t°}¦Cªº Variant¡C­n¦Aª«¥óÃþ§O¼Ò²Õ¤¤¼ÒÀÀ¤@­Ó Public °}¦C¡A¥i¨Ï¥Î¤@²Õ¥i±µ¨ü»P¶Ç¦^¥]§t°}¦C¤§ Variant ªº Property µ{§Ç¡C

±z¦bª«¥ó¼Ò²Õ¤¤©ñ¤F¤@­Ó Declare ³¯­z¦¡¡C
Declare ³¯­z¦¡³£¬O¤½¥Îªº¡A±z¥i¦b Declare ³¯­z¦¡¤§«e¥[¤W¤@­Ó Private ÃöÁä¦r¡C

¸Ô²Ó¸ê°T¡A½Ð¥ý¿ï¨ú¦³ºÃ°Ýªº¶µ¥Ø¡AµM«á«ö¤U F1 (¦b Windows¤¤) ©Î HELP (¦b Macintosh¤W)¡C

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2012-2-15 16:03 ½s¿è

¦^´_ 4# Hsieh


    2003ª©¥i¥Î¡A¸U¤À·PÁ¡C

±z¦n~§Ú·Q¦b¸ß°Ý¤@¤U¦pªG­n½Õ¾ãA©MBÄæ¸Ó¦p¦ó­×§ï©O?

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2012-2-15 16:47 ½s¿è

¦^´_ 6# Hsieh

»~·|¤F~§Úªº·N«ä¦¡AÄæ¦ì§ï¦¨CÄæ¦ì~BÄæ¦ì§ï¦¨DÄæ¦ì­n¦p¦ó­×§ï©O?
If Target.Count = 1 Then
If Target.Column = 1 Then

¬O1§ï¦¨3¶Ü?ÁÙ¬O­n­«¼g?

    ­è¦n°Ý¤@¤U~³]­p¼Ò¦¡©Mµ²§ô³]­p¼Ò¦¡~°µ¦¨¶}Ãö«ö¶s~¬O§_¦³¿ìªk?

¶¶«K°Ý¤@¤U«ü¥O«ö¶s¤@©w­n¼g¦bSHEET¸Ì­±¶Ü?
¦pªG¬O¡A½Ð°Ý±zªº«ö¶s¬O­þ¤@ºØ«ö¶s©O?¨S¦³¼g¦bSHEET¸Ì­±¬O¦]¬°©ÈÅܼƷ|½Ä¬ð¨ì¶Ü?ÁÙ¬O?

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD