Andy2483

¦^´_ 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

Andy2483

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

°a¤ªºµ

¦^´_ 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

°a¤ªºµ

¦^´_ 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

Andy2483

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


~~~~~

Andy2483

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

¤U¸ü (100.09 KB)

2022-9-8 16:43