ªð¦^¦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)


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

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

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

¦^´_ 2# Andy2483

Private Sub UserForm_Activate()
' ¦Û­qªí³æ¼u¥X«á Åý´å¼Ðª½±µ¦b¿é¤Jµ¡¤W!¤£¥²¦A·Æ¹«ÂI¿é¤Jµ¡
TextBox1.SetFocus
For i = 1 To 8
   Set List(i) = ¿é¤J²M³æ("List" & i)
Next

End Sub

TOP

¦^´_ 3# Andy2483

§ó°Êµ²ªGÄæ¦ì  ¤£ª¾¹D ¬O¤£¬O§A­nªº ¸Õ¸Õ¬Ý§a
   
'[A1].Resize(UBound(Coderr), UBound(Coderr, 2)) = Coderr
y = Application.InputBox("½Ð¿é¤JÄæ¦ì¡G")
Cells(1, CInt(y)).Resize(UBound(Coderr), UBound(Coderr, 2)) = Coderr


Set Coderr = Nothing
End Sub

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)

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD