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

°O¿ýªí«Ø¥ß°ÝÃD½Ð±Ð

°O¿ýªí«Ø¥ß°ÝÃD½Ð±Ð

¦U¦ì«e½ú¦n
«á¾ÇµêÀÀ¤F¤@­Ó²©öªº°Êª«Âå°|¬Ý¶E°O¿ý°µ¾Ç²ß,¦³¤@¨ÇºÃ°Ý·Q½Ð±Ð¦U¦ì«e½ú
1.¦Û­qªí³æ¼u¥X«á¦p¦óÅý´å¼Ðª½±µ¦b¿é¤Jµ¡¤W!¤£¥²¦A·Æ¹«ÂI¿é¤Jµ¡
2.«á¾Ç¨Ï¥Î¤@­Ó¥i²£¥Íµ{¦¡½Xªº¤èªk,¦]À³¨Ï¥ÎªÌªº»Ý¨D§ó°ÊÄæ¦ì,¤£¥²§ïµ{¦¡½X
    ½Ð±Ð¦U¦ì«e½ú¦³¨S¦³¨ä¥L¤èªk?
3.¦Û°Ê­pºâ¤@­Ó¤ë¤ºªºÃdª«¥Í¤éÅÜ©³¦â ¦³®É·|¦³®t¤@¤Ñªº°ÝÃD!¦p¦óºëºâ?
4.°õ¦æ³t«×¦p¦ó´£¤É?ÁYµu®É¶¡!
5.µ{¦¡½X¥i¦p¦óºë²?©Î­×¥¿¿ù»~?
6.¨ä¥L¥¼´£¥Xªº°ÝÃD«áÄò¦A´£¥X

ÁÂÁ¦U¦ì«e½ú«ü¾É
¯¬ ¤¤¬î¨Î¸` ¥­¦w³ß¼Ö

°O¿ýªí_20220908.zip (581.56 KB)
¾Þ§@»¡©ú.png
2022-9-8 16:38

ªí³æ¼Ë¥K.png
2022-9-8 16:38

PS:¾³õ¤Wªº¤u§@¸ê®Æ¤£¤è«K§@½d¨Òµo©«¾Ç²ß,µêÀÀ±¡¹Ò§@¾Ç²ß

1.¦Û­qªí³æ¼u¥X«á¦p¦óÅý´å¼Ðª½±µ¦b¿é¤Jµ¡¤W!¤£¥²¦A·Æ¹«ÂI¿é¤Jµ¡

¿é¤Jµ¡.png
2022-9-8 16:43

TOP

2.«á¾Ç¨Ï¥Î¤@­Ó¥i²£¥Íµ{¦¡½Xªº¤èªk,¦]À³¨Ï¥ÎªÌªº»Ý¨D§ó°ÊÄæ¦ì,¤£¥²§ïµ{¦¡½X
    ½Ð±Ð¦U¦ì«e½ú¦³¨S¦³¨ä¥L¤èªk?

Option Explicit
Sub ¦Û°Ê²£¥Í¼ÐÃDCODE()
Dim i&, x&, »²§Uªí¼ÐÃDÄærr, »²§UªíÅܼÆÄærr, Coderr, ¦C¼Æ&
Sheets("Code¥Í¦¨»²§Uªí").Select
»²§Uªí¼ÐÃDÄærr = Range([AA1], Cells([AA65536].End(xlUp).Row, "AA"))
»²§UªíÅܼÆÄærr = Range([AB1], Cells([AB65536].End(xlUp).Row, "AB"))
ReDim Coderr(1 To UBound(»²§Uªí¼ÐÃDÄærr) * 5, 1 To 1)
Coderr(1, 1) = "Option Explicit"
Coderr(2, 1) = "Public »²_¼ÐÃDrr, ¾Þ_¼ÐÃDrr, ¼ÐÃD¿ëÃÑ»²§UNO, ¼ÐÃD¿ëÃÑ»²§Urr, °±¹y®É¶¡& , Acc&, Asrc&"
¦C¼Æ = 3


~~~~~

TOP

¦^´_ 4# °a¤ªºµ
ÁÂÁ«e½ú«ü¾É
¬P´Á¤G¤~¯à¦bPC¤W´ú¸Õ¾Ç²ß

TOP

¦^´_ 5# °a¤ªºµ
ÁÂÁ«e½ú«ü¾É
«á½ú¨Sªí¹F²M·¡,¦A¥Î¥t¤@­Ó¤è¦¡»¡©ú
1.¥Ñ©ó¤½¥q¥DºÞ©Î¨Ï¥ÎªÌ¦b¾ã­Óµ{¦¡½X¤w¸g¼gªº«Ü½ÆÂøªº±¡ªp¤U¡Aµw¬O­n¼W¥[Äæ¦ì©Î§ó°ÊÄæ¦ì¡I§ïµ{¦¡½X·|«Ü³Â·Ð¡A
©Ò¥H´N¦w´¡¤F«Ü¦hªº³Æ¥ÎÄæ¥ýÁôÂáA¥H³Æ¥DºÞ¼W¥[Äæ¦ì¡A¦ýÄæ¦ì§ó°ÊÁÙ¬O­n§ïµ{¦¡½X
2.«á¾Ç·Q¨ì¼ÐÃD¦Cªº¨C­Ó©ïÀY³£¤£¤@¼Ë¡A©Ò¥H¥Î©ïÀY¦C¨Ó¿ëÃѸê®ÆÄ榳¨S¦³ÅÜ°Ê
3.¦]¬°¨C¦¸·sªº±M®×³£­n­«·s¼g¤@¦¸¿ëÃÑÄæ¦ìªºµ{¦¡½X¡A©Ò¥H´N±N¾Þ§@ªíªº©ïÀY¦CÂà¸m¨ì»²§UªíAAÄæ¡AABÄ檺¤å¦r©w¸q¬°®e¾¹¡A¦Û°Ê¥Îµ{¦¡½X¿ëÃÑ»²§Uªí¼g¦¨µ{¦¡½X¦b·s¬¡­¶Ã¯
4.±N3©Ò²£¥Íªºµ{¦¡½X½Æ»s¶K¨ìVB¸Ì¨Ï¥Î

¥H¤W¬O«á¾Ç¼È®É·Q¨ìªº¿ìªk,¯à¤è«K¸Ñ¨M ¼W¥[Äæ¦ì©ÎÅÜ°ÊÄæ¦ìªº»Ý¨D¡I¤£¥²¤j´T«×§ï°Ê¬J¦¨ªºµ{¦¡½X

­«ÂI¬O ¦U¦ì«e½ú¬O¦p¦ó¦bµ{¦¡½X¼gªº«Ü½ÆÂøªº®É­Ô°t¦X¨Ï¥ÎªÌ»Ý¨D ¼W¥[Äæ¦ì©ÎÄæ¦ì½Õ«e½Õ«á¡H

TOP

¦^´_ 4# °a¤ªºµ

SetFocus¦b½d¨Ò¸Ì¦n¹³¤]¦³¡I
«á¾Ç¬O¨Ï¥Î¦h¦~«e¦¬Âà ªº«Üºë²ªºª©¥D½d¨Ò ¤­¼h²M³æ ¡A§ï¦¨¦Û¤v¬ÝªºÀ´¤S¯à²Å¦X»Ý¨Dªº¹s¸¨½X¡C
¾Ç¤F«Ü¦h¦~¡A¶i¨B½wºC¡I´X¥G³£¬O§Ûŧ«e½ú­Ìªº½d¨Ò¥ý®M¥Î¥i¥H¥Î¦A§ó²`¤J¤F¸Ñ¡A
¤£¬OÃϲ³¨úÃd¡A¤]¤£¬O­n±o¿n¤À¡I
³æ¦s¬O«á¾Çµ{«×¤£¦n¡I¥Î¦Û¤vªº¤èªk¹G¦Û¤v¾Ç²ß¡C
ÁÙ¦³¦h­Ó¥ý«e«e½úÀ°¦£¸Ñ¨M«ü¾Éªºµ{¦¡½X³£Á٬ݤ£À´¡A¤S¤£·Q©ñ±ó¾Ç²ß¡C
ÁÂÁ«e½ú­Ìªº«ü¾É

TOP

¦^´_ 4# °a¤ªºµ


    ÁÂÁ«e½ú«ü¾É
´ú¸ÕOK!

TOP

¦^´_ 5# °a¤ªºµ


    ÁÂÁ«e½ú«ü¾É
¤µ¤é²ß±o¸Ñ¨M°ÝÃD2.ªº¤èªk,¨Ã´£¤É®Ä¯à
"2.«á¾Ç¨Ï¥Î¤@­Ó¥i²£¥Íµ{¦¡½Xªº¤èªk,¦]À³¨Ï¥ÎªÌªº»Ý¨D§ó°ÊÄæ¦ì,¤£¥²§ïµ{¦¡½X½Ð±Ð¦U¦ì«e½ú¦³¨S¦³¨ä¥L¤èªk?"
http://forum.twbts.com/thread-23775-1-1.html

°O¿ýªí_20220923_2.zip (173.62 KB)

20220923-1.png
2022-9-23 16:38

TOP

¦^´_ 11# ­ã´£³¡ªL
ÁÂÁ«e½ú«ü¾É
Ãø©ÇPLM,SAP ¾É¤J®É»Ý­n¶}³o»ò¦h·|ij,ÁöµM«á½ú¤£¬OMIS¡A¨S¾÷·|°Ñ»P,¦Ó¬O¨Ï¥ÎªÌªº¨¤¦â¡A¤@¦ý¾É¤J¤§«á¹ê»Ú¨Ï¥Î´ú¸Õ«á¡A«è¨¥¥|°_¡A¥u­n½Í¨ì¤Fµ²ºc¡I³Ì«áªºµ²½×´N´N¬O¤£¯à§ï¡A­ì¦]¬O·íªì§A­Ìªº¥DºÞ¬O³o¼Ë¥s§Ú­Ì»²¾É°Ó³]­pªº¡I¦³¨Ç¤p­×§ï»Ý­n¥t¦¬¶O¥Î¡A¦³¨Ç¬O§¹¥þ¤£¯à§ïªº¡I
ÁÂÁ«e½ú

TOP

¦^´_ 12# singo1232001
ÁÂÁ«e½ú«ü¾É
¡§°ò¥»¤W¼gvba ­nºÉ¥i¯àÁקK¨Ï¥ÎªÌ¯à¸I¨ì¸ê®Æ®wªº¥ô¦ó±¡ªp! §ó¬Æ¦Ü³s¸ê®Æ®w»P¸ê®Æªí³£¤£¸ÓÅý¨Ï¥ÎªÌµo²{!¡¨

³o¹ï«á½ú¨Ó»¡ÁÙ«ÜÃø§a¡I³o¼Ëªº¹Ò¬ÉÀ³¸Ó¬O»Ý­n«Ü¦hªº¦Û­qªí³æ¤~¯à¹ê²{¡I
«á¾Ç­n¾ÇªºÁ٫ܦh¡I
ÁÂÁ«e½ú

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD