ÄãÊÇ·ñÔø¾ÔÚѰÕÒÒ»¿îÇ¿´óµÄÆæ¼£MU½Å±¾£¬ÒÔÌáÉýÄãÔÚÓÎÏ·ÖеÄÕ½¶·Á¦£¿ÊÇ·ñÔø¾Ê§ÍûµØ·¢ÏÖ£¬ÄÇЩËùνµÄ“×î¼Ñ½Å±¾”Æäʵ²¢²»ÊʺÏÄãµÄÐèÇó£¿ÏÖÔÚ£¬ÎÒÃÇΪÄã½Òʾһ¸ö¼òµ¥¶øÇ¿´óµÄ·½·¨£¬ÈÃÄãÇáËÉÖÆ×÷×Ô¼ºµÄÆæ¼£MU½Å±¾£¬10·ÖÖÓÄÚÉÏÊÖ£¡
ÔÚÎÒÃǵÄÉú»îÖУ¬ÎÒÃǾ³£ÐèÒª´¦Àí¸÷ÖÖÊý¾Ý£¬½øÐмÆËãºÍ·ÖÎö¡£ÓÐЩÊý¾Ý¿ÉÄܰüº¬´íÎó£¬ÓÐЩ¿ÉÄܹýÓÚ¸´ÔÓ£¬ÊÖ¶¯´¦Àí¼ÈºÄʱÓÖÒ׳ö´í¡£Õâʱºò£¬ExcelµÄÉóºË¹¦ÄܾÍÄÜ·¢»Ó´ó×÷Óá£Í¨¹ý×·×ÙÊý¾ÝµÄÀ´Ô´£¬ÎÒÃÇÄܹ»¸ü¿ìµØÕÒµ½Êý¾ÝµÄ´íÎóÔ´Í·£¬½ÚÊ¡´óÁ¿Ê±¼äºÍ¾«Á¦¡£
Ê×ÏÈ£¬´ò¿ªÆæ¼£MUÓÎÏ·£¬ÕÒµ½ÄãÏ£Íû×Ô¶¯Ö´ÐеÄÈÎÎñ»ò²Ù×÷¡£ÀýÈ磬ÄãÏ£Íû½Å±¾Äܹ»×Ô¶¯Êͷż¼ÄÜ“ÌìÀ×½µÁÙ”£¬ÄÇô¾ÍÏÈÊìϤÕâ¸ö¼¼ÄܵÄÊÍ·Å·½Ê½¡£
½ÓÏÂÀ´£¬´ò¿ªÒ»¸öеÄExcelÎĵµ¡£ÔÚA1µ¥Ôª¸ñÖÐÊäÈ듼¼ÄÜÃû³Æ”£¬B1µ¥Ôª¸ñÖÐÊäÈë“°´¼ü˳Ðò”¡£¼¼ÄÜÃû³ÆÊÇÄãµÄ¼¼ÄÜÃû³Æ£¬°´¼ü˳ÐòÊÇÄ㰴ϼ¼ÄÜʱËùÓõİ´¼ü˳Ðò¡£ÀýÈ磬Èç¹ûÄ㰴ϼ¼ÄÜ“ÌìÀ×½µÁÙ”µÄ°´¼ü˳ÐòÊÇ“K-×ó¼ü-ÓÒ¼ü”£¬ÄÇôÔÚB2µ¥Ôª¸ñÖÐÊäÈë“K-×ó¼ü-ÓÒ¼ü”¡£
È»ºó£¬ÔÚC1µ¥Ôª¸ñÖÐÊäÈë“°´¼ü¼ä¸ô”£¨µ¥Î»ÎªºÁÃ룩£¬D1µ¥Ôª¸ñÖÐÊäÈë“°´¼ü´ÎÊý”¡£°´¼ü¼ä¸ôÊÇÖ¸°´ÏÂÒ»´Î°´¼üºóÐèÒªµÈ´ýµÄʱ¼ä£¬°´¼ü´ÎÊýÊÇÖ¸ÐèÒª°´ÏµĴÎÊý¡£Èç¹ûÄãÏ£Íû°´ÏÂÒ»´Î“K-×ó¼ü-ÓÒ¼ü”ºóµÈ´ý0.5ÃëÔÙ°´ÏÂÒ»´Î£¬×ܹ²°´ÏÂ3´Î£¬ÄÇôÔÚC2ºÍD2µ¥Ôª¸ñÖзֱðÊäÈë0.5ºÍ3¡£
ÏÖÔÚ£¬ÎÒÃÇÒѾÍê³ÉÁ˽ű¾µÄ»ù±¾ÉèÖ᣽ÓÏÂÀ´£¬ÎÒÃÇÐèÒªÔÚExcelÖÐÉèÖÃ×Ô¶¯Ö´Ðнű¾µÄº¯Êý¡£ÔÚ¹¤¾ßÀ¸ÖÐÑ¡Ôñ“Ñ¡ÏºÍ×锣¬È»ºóÑ¡Ôñ“н¨Ñ¡Ï”¡£ÔÚеÄÑ¡ÏÖУ¬Ñ¡Ôñ“н¨×锣¬È»ºóÔÚеÄ×éÖÐÑ¡Ôñ“н¨ºê”¡£
ÔÚеĺ괰¿ÚÖУ¬ÊäÈëÒÔÏ´úÂ룺
vbnet
Sub AutoExecute()
Dim SkillName As String
Dim KeySequence As String
Dim PressInterval As Double
Dim PressCount As Integer
Dim i As Integer
'»ñÈ¡µ¥Ôª¸ñÖеIJÎÊýÖµ
SkillName = Sheets("Sheet1").Range("B2").Value
KeySequence = Sheets("Sheet1").Range("B3").Value
PressInterval = Sheets("Sheet1").Range("C2").Value
PressCount = Sheets("Sheet1").Range("D2").Value
'Ö´Ðа´¼ü²Ù×÷
For i = 1 To PressCount
PressKeys KeySequence, PressInterval * 1000
PressKeys SkillName, PressInterval * 1000
Next i
End Sub
Õâ¸ö´úÂëµÄ×÷ÓÃÊǶÁÈ¡B2¡¢C2ºÍD2µ¥Ôª¸ñÖеIJÎÊýÖµ£¬È»ºó°´ÕÕÖ¸¶¨µÄ°´¼ü˳ÐòºÍ¼ä¸ô×Ô¶¯Ö´Ðа´¼ü²Ù×÷¡£Äã¿ÉÒÔ¸ù¾ÝÐèÒªÐ޸ĴúÂëÖеIJÎÊýÃû³ÆºÍµ¥Ôª¸ñλÖá£
×îºó£¬±£´æ²¢¹Ø±ÕExcelÎĵµ¡£ÏÖÔÚ£¬ÄãÒѾ³É¹¦µØ´´½¨ÁËÒ»¸ö¿ÉÒÔ×Ô¶¯Ö´Ðа´¼ü²Ù×÷µÄÆæ¼£MU½Å±¾£¡Äã¿ÉÒÔ¸ù¾ÝÐèÒªÐ޸ĴúÂëÖеIJÎÊýÖµºÍ°´¼ü˳Ðò£¬ÒÔÊÊÓ¦²»Í¬µÄÓÎÏ·»·¾³ºÍ²Ù×÷ÐèÇó¡£
ÈËÇ××ÔÊÔÑéN¸öÆæ¼£ºóµÃ³öÒÔϽáÂÛ 2 3 4Á¬¶¼ÊÇ¿ÉÄÜ×öµ½µÄ µ«ÄãÐèÒª¾ß±¸ÒÔ϶«Î÷ ¼ÓËÙÆ÷ ¸úÖÆ×÷½Å±¾µÄ ÎұȽÏϲ»¶½Å±¾´óʦ·½±ã µ«°´¼ü¾«ÁéÒ²²»´í ºÃÏÂÃæÐ´¸øÒ»¸ö½Å±¾Êý¾Ý £¨ÒÔǰµÄǰ±²·¢¹ýµÄ½èÓÃϺǺÇ
KeyPress 49,1Delay 250KeyPress 50,1Delay 50KeyPress 51,1Delay 130
¿´ºÃÉÏÃæÕâ¸öÊÇ×î¼òµ¥µÄÒ»Á¬µÄ ÖмäµÄ¼ä¸ô¿ÉÒÔ×Ô¼º¿´¶¼ÊǺÁÃë ºÜ¼òµ¥µÄµÀÀí1Ãë=1000ºÁÃë(ms) ÎÒÃÇ¿ÉÒÔ¼ÆËãÏÂÉÏÃæµÄ×ܹ²ÓÃÁË430ºÁÃëËùÓÐJN¾ÍÒѾתһ´Î»ØÀ´ÄØ ºÃÄÇôʣÏ嵀 570ºÁÃëÎÒÃÇÄÜ×öÊ²Ã´ÄØ ¶ÔÔÙÀ´Á¬ ºÃÕâÀï¾ÍÊÇ2Á¬ÁË OK²»´íµÄ½Å±¾µ« ½ÓÏÂÈ¥¾ÍûÁË ËùÒÔÎÒÃÇÔÚÕâÀïÖ»Òª¸ÄÏÂС¶¯×÷¾Í¿ÉÒÔÔÙÈÃËüÁ¬Ò»´Î Ò²¾ÍÊÇ 3Á¬ÄǾÍÊÇÔÚ µÚÒ»´Î£¨430Ã룩¶¯×÷Íê³Éºó ÎÒÃDz»ÒªÈõÚ3¸ö¼¼Äܼ¼Êõ°´ÕÕÔÀ´ÄÇÑùÌøµ½µÚ3¶øÊÇ ´ÓµÚ3JNÖ±½Óת»ØµÚ2JN ¶øÕâÀï¾ÍÒª´ÓÉèÖýű¾ ¿´
KeyPress 49,1Delay 250KeyPress 50,1Delay 50KeyPress 51,1Delay 130
£¨´ÓÉÏÃæÄǸöµ½ÏÂÃæÕâ¸ö¾ÍÊÇ´ÓµÚ3JNת»ØµÚ2JN£©KeyPress 50,1Delay 50
£¨ÕâÀïÐèÒªÄã×Ô¼ºÉèÖüä¸ôʱ¼ä£©ÕâÑùÒ»×ö¾ÍÊÇ2Á¬µÄ ×ܹ²ÓÃÁ˲¶àÓÃÁË500ºÁÃëµÄʱ¼ä £¨±ÈÒÔǰµÄ2Á¬½ÚÔ¼ÁË360ºÁÃ룩ºÃÏÂÒ»´ÎÔÙÈÃËüת»ØÀ´ °´ÕÕÀÏ·×ÓÔÙÁ¬Ò»´Î ÓÃÁË430ºÁÃë ÄÇËãÒ»ÏÂÔÚÒ»ÃëǰÌáϾͳöÁË3´Î£¡Õâ¸öÊÇ×î¼òµ¥µÄ3Á¬ºÇºÇ£¡Ê£ÏµÄ4Á¬Ôõô´ïµ½ÄØ ÄǾÍÊÇÒªÓüÓËÙ¶ÈÁË ÕâÀï¾Í²»×ö¶à˵ÁË ¸ù¾ÝÉÏÃæµÄ¿ÉÒÔ×Ô¼º ŪÁË ¼ÓËÙ¶ÈÎÒÒ»Ö±¾ÍÊǾõµÃ°ïÄã½ÚÔ¼¸ü¶àµÄʱ¼äÀ´ Èýű¾ÔÙÁ¬Ò»´Î ¶øÒÑ £¡µ«È·ÊµºÃÓà ºÇºÇÈ»ºó˵ÏÂʲôÊǺýű¾ ÕæÕýµÄºÃ½Å±¾ÊÇÔÚûfs²¹¶¡Ç°ÌáÏÂÒ²ÄÜ·è¿ñÁ¬»÷ ÕâÀïÓÖÒªÇ£Éæµ½×°±¸ÊôÐÔ ÒÔºóÔÙ˵À² ºÇºÇ...
ÔÚÎÒÃǵÄÉú»îÖУ¬ÎÒÃǾ³£ÐèÒª´¦Àí¸÷ÖÖÊý¾Ý£¬½øÐмÆËãºÍ·ÖÎö¡£ÓÐЩÊý¾Ý¿ÉÄܰüº¬´íÎó£¬ÓÐЩ¿ÉÄܹýÓÚ¸´ÔÓ£¬ÊÖ¶¯´¦Àí¼ÈºÄʱÓÖÒ׳ö´í¡£Õâʱºò£¬ExcelµÄÉóºË¹¦ÄܾÍÄÜ·¢»Ó´ó×÷Óá£Í¨¹ý×·×ÙÊý¾ÝµÄÀ´Ô´£¬ÎÒÃÇÄܹ»¸ü¿ìµØÕÒµ½Êý¾ÝµÄ´íÎóÔ´Í·£¬½ÚÊ¡´óÁ¿Ê±¼äºÍ¾«Á¦¡£
Ê×ÏÈ£¬´ò¿ªÆæ¼£MUÓÎÏ·£¬ÕÒµ½ÄãÏ£Íû×Ô¶¯Ö´ÐеÄÈÎÎñ»ò²Ù×÷¡£ÀýÈ磬ÄãÏ£Íû½Å±¾Äܹ»×Ô¶¯Êͷż¼ÄÜ“ÌìÀ×½µÁÙ”£¬ÄÇô¾ÍÏÈÊìϤÕâ¸ö¼¼ÄܵÄÊÍ·Å·½Ê½¡£
½ÓÏÂÀ´£¬´ò¿ªÒ»¸öеÄExcelÎĵµ¡£ÔÚA1µ¥Ôª¸ñÖÐÊäÈ듼¼ÄÜÃû³Æ”£¬B1µ¥Ôª¸ñÖÐÊäÈë“°´¼ü˳Ðò”¡£¼¼ÄÜÃû³ÆÊÇÄãµÄ¼¼ÄÜÃû³Æ£¬°´¼ü˳ÐòÊÇÄ㰴ϼ¼ÄÜʱËùÓõİ´¼ü˳Ðò¡£ÀýÈ磬Èç¹ûÄ㰴ϼ¼ÄÜ“ÌìÀ×½µÁÙ”µÄ°´¼ü˳ÐòÊÇ“K-×ó¼ü-ÓÒ¼ü”£¬ÄÇôÔÚB2µ¥Ôª¸ñÖÐÊäÈë“K-×ó¼ü-ÓÒ¼ü”¡£
È»ºó£¬ÔÚC1µ¥Ôª¸ñÖÐÊäÈë“°´¼ü¼ä¸ô”£¨µ¥Î»ÎªºÁÃ룩£¬D1µ¥Ôª¸ñÖÐÊäÈë“°´¼ü´ÎÊý”¡£°´¼ü¼ä¸ôÊÇÖ¸°´ÏÂÒ»´Î°´¼üºóÐèÒªµÈ´ýµÄʱ¼ä£¬°´¼ü´ÎÊýÊÇÖ¸ÐèÒª°´ÏµĴÎÊý¡£Èç¹ûÄãÏ£Íû°´ÏÂÒ»´Î“K-×ó¼ü-ÓÒ¼ü”ºóµÈ´ý0.5ÃëÔÙ°´ÏÂÒ»´Î£¬×ܹ²°´ÏÂ3´Î£¬ÄÇôÔÚC2ºÍD2µ¥Ôª¸ñÖзֱðÊäÈë0.5ºÍ3¡£
ÏÖÔÚ£¬ÎÒÃÇÒѾÍê³ÉÁ˽ű¾µÄ»ù±¾ÉèÖ᣽ÓÏÂÀ´£¬ÎÒÃÇÐèÒªÔÚExcelÖÐÉèÖÃ×Ô¶¯Ö´Ðнű¾µÄº¯Êý¡£ÔÚ¹¤¾ßÀ¸ÖÐÑ¡Ôñ“Ñ¡ÏºÍ×锣¬È»ºóÑ¡Ôñ“н¨Ñ¡Ï”¡£ÔÚеÄÑ¡ÏÖУ¬Ñ¡Ôñ“н¨×锣¬È»ºóÔÚеÄ×éÖÐÑ¡Ôñ“н¨ºê”¡£
ÔÚеĺ괰¿ÚÖУ¬ÊäÈëÒÔÏ´úÂ룺
vbnet
Sub AutoExecute()
Dim SkillName As String
Dim KeySequence As String
Dim PressInterval As Double
Dim PressCount As Integer
Dim i As Integer
'»ñÈ¡µ¥Ôª¸ñÖеIJÎÊýÖµ
SkillName = Sheets("Sheet1").Range("B2").Value
KeySequence = Sheets("Sheet1").Range("B3").Value
PressInterval = Sheets("Sheet1").Range("C2").Value
PressCount = Sheets("Sheet1").Range("D2").Value
'Ö´Ðа´¼ü²Ù×÷
For i = 1 To PressCount
PressKeys KeySequence, PressInterval * 1000
PressKeys SkillName, PressInterval * 1000
Next i
End Sub
Õâ¸ö´úÂëµÄ×÷ÓÃÊǶÁÈ¡B2¡¢C2ºÍD2µ¥Ôª¸ñÖеIJÎÊýÖµ£¬È»ºó°´ÕÕÖ¸¶¨µÄ°´¼ü˳ÐòºÍ¼ä¸ô×Ô¶¯Ö´Ðа´¼ü²Ù×÷¡£Äã¿ÉÒÔ¸ù¾ÝÐèÒªÐ޸ĴúÂëÖеIJÎÊýÃû³ÆºÍµ¥Ôª¸ñλÖá£
×îºó£¬±£´æ²¢¹Ø±ÕExcelÎĵµ¡£ÏÖÔÚ£¬ÄãÒѾ³É¹¦µØ´´½¨ÁËÒ»¸ö¿ÉÒÔ×Ô¶¯Ö´Ðа´¼ü²Ù×÷µÄÆæ¼£MU½Å±¾£¡Äã¿ÉÒÔ¸ù¾ÝÐèÒªÐ޸ĴúÂëÖеIJÎÊýÖµºÍ°´¼ü˳Ðò£¬ÒÔÊÊÓ¦²»Í¬µÄÓÎÏ·»·¾³ºÍ²Ù×÷ÐèÇó¡£
ÈËÇ××ÔÊÔÑéN¸öÆæ¼£ºóµÃ³öÒÔϽáÂÛ 2 3 4Á¬¶¼ÊÇ¿ÉÄÜ×öµ½µÄ µ«ÄãÐèÒª¾ß±¸ÒÔ϶«Î÷ ¼ÓËÙÆ÷ ¸úÖÆ×÷½Å±¾µÄ ÎұȽÏϲ»¶½Å±¾´óʦ·½±ã µ«°´¼ü¾«ÁéÒ²²»´í ºÃÏÂÃæÐ´¸øÒ»¸ö½Å±¾Êý¾Ý £¨ÒÔǰµÄǰ±²·¢¹ýµÄ½èÓÃϺǺÇ
KeyPress 49,1Delay 250KeyPress 50,1Delay 50KeyPress 51,1Delay 130
¿´ºÃÉÏÃæÕâ¸öÊÇ×î¼òµ¥µÄÒ»Á¬µÄ ÖмäµÄ¼ä¸ô¿ÉÒÔ×Ô¼º¿´¶¼ÊǺÁÃë ºÜ¼òµ¥µÄµÀÀí1Ãë=1000ºÁÃë(ms) ÎÒÃÇ¿ÉÒÔ¼ÆËãÏÂÉÏÃæµÄ×ܹ²ÓÃÁË430ºÁÃëËùÓÐJN¾ÍÒѾתһ´Î»ØÀ´ÄØ ºÃÄÇôʣÏ嵀 570ºÁÃëÎÒÃÇÄÜ×öÊ²Ã´ÄØ ¶ÔÔÙÀ´Á¬ ºÃÕâÀï¾ÍÊÇ2Á¬ÁË OK²»´íµÄ½Å±¾µ« ½ÓÏÂÈ¥¾ÍûÁË ËùÒÔÎÒÃÇÔÚÕâÀïÖ»Òª¸ÄÏÂС¶¯×÷¾Í¿ÉÒÔÔÙÈÃËüÁ¬Ò»´Î Ò²¾ÍÊÇ 3Á¬ÄǾÍÊÇÔÚ µÚÒ»´Î£¨430Ã룩¶¯×÷Íê³Éºó ÎÒÃDz»ÒªÈõÚ3¸ö¼¼Äܼ¼Êõ°´ÕÕÔÀ´ÄÇÑùÌøµ½µÚ3¶øÊÇ ´ÓµÚ3JNÖ±½Óת»ØµÚ2JN ¶øÕâÀï¾ÍÒª´ÓÉèÖýű¾ ¿´
KeyPress 49,1Delay 250KeyPress 50,1Delay 50KeyPress 51,1Delay 130
£¨´ÓÉÏÃæÄǸöµ½ÏÂÃæÕâ¸ö¾ÍÊÇ´ÓµÚ3JNת»ØµÚ2JN£©KeyPress 50,1Delay 50
£¨ÕâÀïÐèÒªÄã×Ô¼ºÉèÖüä¸ôʱ¼ä£©ÕâÑùÒ»×ö¾ÍÊÇ2Á¬µÄ ×ܹ²ÓÃÁ˲¶àÓÃÁË500ºÁÃëµÄʱ¼ä £¨±ÈÒÔǰµÄ2Á¬½ÚÔ¼ÁË360ºÁÃ룩ºÃÏÂÒ»´ÎÔÙÈÃËüת»ØÀ´ °´ÕÕÀÏ·×ÓÔÙÁ¬Ò»´Î ÓÃÁË430ºÁÃë ÄÇËãÒ»ÏÂÔÚÒ»ÃëǰÌáϾͳöÁË3´Î£¡Õâ¸öÊÇ×î¼òµ¥µÄ3Á¬ºÇºÇ£¡Ê£ÏµÄ4Á¬Ôõô´ïµ½ÄØ ÄǾÍÊÇÒªÓüÓËÙ¶ÈÁË ÕâÀï¾Í²»×ö¶à˵ÁË ¸ù¾ÝÉÏÃæµÄ¿ÉÒÔ×Ô¼º ŪÁË ¼ÓËÙ¶ÈÎÒÒ»Ö±¾ÍÊǾõµÃ°ïÄã½ÚÔ¼¸ü¶àµÄʱ¼äÀ´ Èýű¾ÔÙÁ¬Ò»´Î ¶øÒÑ £¡µ«È·ÊµºÃÓà ºÇºÇÈ»ºó˵ÏÂʲôÊǺýű¾ ÕæÕýµÄºÃ½Å±¾ÊÇÔÚûfs²¹¶¡Ç°ÌáÏÂÒ²ÄÜ·è¿ñÁ¬»÷ ÕâÀïÓÖÒªÇ£Éæµ½×°±¸ÊôÐÔ ÒÔºóÔÙ˵À² ºÇºÇ...

