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

[µo°Ý] VBA ªí³æ¥\¯àµo°Ý

[µo°Ý] VBA ªí³æ¥\¯àµo°Ý

¦U¦ì«e½ú, ¤p§Ì·Q«Ø¥ß¤@­Óªí³æ¦¡¥\¯àªºµ{¦¡³]­p
¤º§t¥\¯à¦³   «Ø¥ß¸ê®Æ/½s¿è¸ê®Æ/¬d¸ß¸ê®Æ µ¥¥\¯àÀ³¥Î

«Ø¥ß¸ê®Æ
1. ¾÷¥x¸¹½XÄæ¦ì¥u¯à¿é¤J ¨â­Ó¼Æ¦r
2. »sµ{Ãþ§O¥u¯àÂI¿ï¤@­Ó
3. «p«×¥u¯à¿é¤J ¤T­Ó¼Æ¦r
4. ¦^·Å¤é´Á ¥|­Ó¼Æ¦r MMDD
5. ID «h¬O 4­Ó¤å¦r©Î¼Æ¦r³£¥i¥H
6. «ö¤U«Ø¥ß±ø½X«á¸ê®Æ·|¶]¨ìExcel Database ¹ïÀ³ªºÄæ¦ì
    AÄæ¦ì=Now()
7. «ö¤U«Ø¥ß±ø½X«á·|²£¥Í¤@­Ó§Ç¸¹¦bDatabase GÄæ¦ì
³W«h¦p¤U­±¹Ï¤ù, ¥Í²£¤é= Now ªºMMDD, ¤§«á¨Ì§Ç¦X¨Ö°_¨Ó¦¨¬°¤@²Õ§Ç¸¹, «á¨â½X¬y¤ô¸¹¬OÁקK·í¤Ñ·|¦³­«½Æ±ø¥ó
Q1.png
2023-1-1 11:08


½s¿è¸ê®Æ
1.¿é¤J§Ç¸¹¦C·|±a¥X¸Óµ§¸ê®Æªº¸ê°T
2.¤å¦r¤è¶ô¥¼¿é¤J§Ç¸¹µLªk¿é¤J¸ê®Æ, §Ç¸¹¦³¿é¤J«á¤~¥i¥H½s¿è¸ê®Æ
3.½s¿è§¹¦¨´N§ó·sExcel Database¸ê®Æ
Q2.png
2023-1-1 11:17



¬d¸ß¸ê®Æ
1.¬d¸ß¸ê®Æ¥u¯à¬d¸ß¤£¯à­×§ï¸ê®Æ
2.¿é¤J§Ç¸¹½X´N¥i¥H±a¥X¸ê°T
Q3.png
2023-1-1 11:21


¬d¸ß¹L´Á
1. Excel EÄæ¦ì +90Days ¶W¹L·|Åã¥Ü¥X¨Ó²M³æ¤º
Q4.png
2023-1-1 11:38


¨ú¥X¸ê®Æ
1.¿é¤J±ø½X§Ç¸¹·|Åã¥Ü¸Ó§Ç¸¹ªº¤U¦C¸ê°T
2.¿é¤JMH ID , ·|§â¸Ó§Ç¸¹±qDatabaseÂà´«¨ì MH Databaseªº¸ê®Æªí ,MH Database" IÄæ¦ì" Now()
Q5.png
2023-1-1 11:39


¦C¦L±ø½X
1.¬O§_¯à±N²£¥Í¥X¨Óªº±ø½X§Ç¸¹Âà´«¦¨±ø½X¤å¦r®æ¦¡
2.¦C¦Lªø«× 6CM ¼e«× 1CM

±ø½X¦C¦L.rar (32.02 KB)

¦^´_ 2# singo1232001


    ·PÁ¤j¤jªºÀ°¦£...¤p§Ì§Ú¦Û¤v¤]§V¤O¦b¬Ý¬Ý¨ä¥L¦³­þ¨Ç¥\¯à¬O¦Û¤v¥i¥H·s¼Wªº!! ¥Ø«eÁÙ¥dÃö¤¤

TOP

¦^´_ 4# ­ã´£³¡ªL


    ©êºpª©¤j..¨S±Ô­z²M·¡, ·PÁª©¤jªº¨ó§U
     1.¥kÃä¤@¦r¬O "0"  ³o³¡¤À§Ú­×§ï¹L¤F
     2."¦^·Å¤é´Á" »P «Ø¥ß¤é´Á¦³¦óÃö«Y???   ¦^·Å¤é´Á¥Î³~¦b«Ø¥ß²£«~±q§N­á®w®³¥X«á3­Ó¤ë¤º¦³®Ä´Á­­,
                                                                                ©Ò¥HA ²£«~¥i¯à¦b1/8²Ä¤@¦¸¦^·Å,
                                                                                B²£«~¦b2/28¨Ï¥Î¬Û¦P§N­á«~(´Á­­©|¥¼¹L)  ,
                                                                                C ²£«~¦b4/10­n¨Ï¥Î®É´N¤£¯à¥Î, ¤w¶W¹L¤T­Ó¤ë¦³®Ä´Á­­

     3."¦^·Å¤é´Á" ­Y¥u¦³ "mmdd" ,¨S¦~¥÷..¦p¦ó§PÂ_¹L´Á??? ·íªì¦Ò¶q¤£©P...¦]¬°±ø½X²£¥Í¦r¦ê¤Óªø, ±ø½X¾÷µLªk±½...³oÂI¦³´¿·Q¹L...¦ý¤£ª¾¹D±qµ{¦¡¥i¤£¥i¥H¿z¿ï, ©Ò¥H¤~¯dMMDD

TOP

¦^´_ 6# ­ã´£³¡ªL


    «Ø¥ß¤é´Á¬°¦ó»Ý­n¥[®É¶¡
     ¦]¬°¤u¼t24¤p®É¹B§@»Ý­nª¾¹D­þ¤@­Ó®É¶¡ÂI¥Í²£ªº¸ê®Æ
     1. ·PÁª©¤jªº«Øij, ·í®É½T¹ê«Ü­W´o³o­Ó°ÝÃD, ¦]¬°YYYY/MM/DD ¨S¦³·Q¨ì³o­Ó¦h , ª©¤j¤SÀ°§Ú·Q¨ì2¤ë¦³¼í¤ëªº°ÝÃD
     2. ¦^·Å¤é´Á¤p©ó«Ø¥ß¤é´Á(¬Æ¦Ü§PÂ_¤Ñ¼Æ¬O§_¥¿½T, ¦p:¦Ü¤Ö­n®t30¤Ñ) , ¥Ø«e¥Í²£¹Lµ{¤¤¦³¤@¨Ç¨Ò¥~, ©Ò¥H¼È®É¤£±N³o­Ó§PÂ_¦b¤º, °£«D¦³¹L´Á§÷®Æ, ¤]´N¬O¦^·Å¤é+90¤Ñ
     3.¤µ¤Ñ¹Á¸Õ±Nª©¤jªºµ{¦¡¦A®M¤J¡y½s¿è¸ê®Æ¡z¡y¨ú¥X¸ê®Æ¡z¥\¯àªí¤¤, ¨ä¤¤¡y½s¿è¸ê®Æ¡z¤£ª¾¹D¦p¦ó§âOptionButton¥s¥X¨Ó, µM«á«ö¤U½s¿è§¹¦¨«á, §ó·s¸Óµ§¸ê®Æ
Q7.png
2023-1-11 06:32


     4.¡y¨ú¥X¸ê®Æ¡z¥\¯àªí¤¤ , ·s¼W¨ú¥X«e¥ý¿é¤J­n¨ú¥Xªº«p«×, ¦A³z¹L±ø½X¥h§PÂ_, ¨ú¥X¨Óªº«p«×¬O§_¥¿½T, ¾á¤ß®³¿ù±ø½X«p«×, ¦b¦¨¬O¼¶¼g¤¤, ¬d¸ß¨ì±ø½X, ¤£ª¾¹D«ç»ò§â¸ê®Æ±qDatabase¸ê®Æ­¶, ·h¨ìMH Database¸ê®Æ­¶
     
Q6.png
2023-1-11 06:41

  ªþ¥ó¬O§Q¥Îª©¤jªºµ{¦¡¦b©µ¦ù
Xl0000359-01.rar (54.18 KB)

TOP

¦^´_ 8# ­ã´£³¡ªL


    ·PÁª©¤jªºÀ°¦£¡A³o´X¤Ñ´ú¸Õ¤F¤§«á¥\¯à³£¥¿±`, °ß¿W¦³­×§ï¤F¤é´Áªº¥d±±(­n¤j©ó¤µ¤é)
   
     ¨ú¥X¥\¯à¯à½ÐªO¤j¨ó§UÀ°¦£
   
Q8.png
2023-1-18 23:33


     ¡¨¨ú¥X¸ê®Æ¡¨¥\¯à¤¤, ¿é¤J­n¨ú¥Xªº¸ê®Æ¤ñ¹ï¿é¤J±ø½Xªº«p«×­n¤@¼Ë¤~¯à¨ú¥X
    ¤§«á°O¿ý¨ú¥X¤HID »P ¨Ï¥Î²£«~ ID
    ¸ê®Æ·|±q"Database"¸ê®Æ­¶ ¸õ¨ì"MH Database"¸ê®Æ­¶
    ¨Ï¥Î²£«~©T©wªø«× 7½X¼Æ¦r+"-"+SA"¼Æ¦r"."¼Æ¦r"
     ex : 1234567-SA0.1  ¬õ¦â=©T©w®æ¦¡
   




Xl0000359-02.rar (57.23 KB)

TOP

¦^´_ 13# ­ã´£³¡ªL


    ·PÁ¤j¤jªº¨ó§U, ¦A½Ð°Ý¤j¤j¤@¤U, ¦pªG¨ú¥X­n§âDatabaseªº¸ê®Æ²¾¨ìMHdatabase ­n¥[­þ¤@¬qµ{¦¡½X?
   ·N«ä´N¬O¨â­Ó¸ê®Æ­¶¥u·|¯d¤@µ§§Ç¸¹½X ( ¥Ø«e¨â­Ó¸ê®Æ­¶³£·|¦s¦b)

TOP

¦^´_ 15# ­ã´£³¡ªL


    ¤£¦n·N«äª©¤j!!¬Ý¨ì¤F, ¤]­×§ï¹L¨Ó¤F!! ·PÁÂÀ°¦£
    ¦]¬°¥Ø«eÁÙ·Q¤£¨ì¦C¦L±ø½Xªº¤¶­±..©Ò¥H¥u¦n¥ýÀ˳檺³]©w¦C¦Lªº¤è¦¡
   ¥Ø«e¥u¯à¥ý±N«Ø¥ß¦nªº¸ê°T¥ý¼g¤@­ÓÀ˳檺¦C¦L®æ¦¡¦b¸ê®Æ­¶¡y±ø½X¦C¦L¡z¦b¼Ò²Õ¤ºªºModule2 (Äæ¼e/¦rÅé®æ¦¡)
Q9.png
2023-2-3 23:14

   ¦ý¦]±ø½X¾÷»Ý­n±N¦r¦ê«e«á¥[¤W¡y*¡z ¤~Ū¥X¨Ó
    ¥i¥H½Ð±Ð¦p¦ó¦b«Ø¥ß¸ê®Æªº¦P®É¤]¦b¸ê®ÆÄæ¡y±ø½X¦C¦L¡zB2Äæ¦ì¤]·s¼W­è­è«Ø¥ßªº±ø½X§Ç¸¹¦ý«e«á­n¥[¤W¡y*¡z
    e.g *02031566546*


±ø½X«Ø¥ß&¦C¦L.rar (114.56 KB)

TOP

¦^´_ 17# ­ã´£³¡ªL


    ·PÁª©¤jÀ°¦£¡A¥t½Ð°Ý¤@¤U½Ð°Ý¿ï¾ÜÄ榳¹w³]­È¶Ü¡H¥Ø«e´ú¸Õ¨ì²Ä300µ§¸ê®Æ«á¡AµLªk¸õ¨ì²Ä301µ§¸ê®Æ¥H«á

TOP

¦^´_ 17# ­ã´£³¡ªL


    §ä¨ì°ÝÃD¤F¤w­×§ï¡A§Ú¦A´ú¸Õ¤@¤U

TOP

¦^´_ 17# ­ã´£³¡ªL

1.ª©¤j§A¦n, §Ú¦³¦b·s¼W¤@­ÓWGP»sµ{, ¦ý¦b°õ¦æ¬d¸ßªº®É­Ô¦³¸õ¥X¤@­Ó¿ù»~, ¡y°}¦C¤Þ¯Á¶W¥X½d³ò¡z, §Ú¦³¦Aµ{¦¡½X¦h¥["WGP" ¦ýÁÙ¬O¿ù»~, ½Ð°Ý»Ý­n­×§ï¦b­þÃä©O?
  1. Private Sub CommandButton2_Click()
  2. Dim T$, xF As Range, V%
  3. Call ²M°£_¬d¸ß­È: xChk = 0
  4. T = TextBox5.Text
  5. If T = "" Then MsgBox "¡¯±ø½X§Ç¸¹¥¼¿é¤J¡I¡@": Exit Sub
  6. If Len(T) <> 16 Then MsgBox "¡¯±ø½X§Ç¸¹¿é¤J¤£§¹¾ã©Î¶W¹L16­Ó¦r¤¸¡I¡@": Exit Sub
  7. Set xF = Sheets("Database").Range("G:G").Find(T, Lookat:=xlWhole)
  8. If xF Is Nothing Then MsgBox "¡¯§ä¤£¨ì¥Ø¼Ð¡I¡@": Exit Sub
  9. Set xF = xF(1, -5)
  10. V = InStr("+H0D", xF(1, 3)) - 1
  11. Lab_A1 = Array("", "WGH", "WG0", "WGD", "WGP")(V)
  12. Lab_A2 = xF(1, 4)
  13. Lab_A3 = xF(1, 5)
  14. xChk = 1
  15. End Sub
½Æ»s¥N½X
2. ª©¤j¥ý«e¦b«e­±´X½gªº¦^ÂФ¤¦³´£¨ì¦pªG»Ý­n­pºâ¹L´Á¤é´Á, »Ý­n¦A¿é¤J®É¥[¤W¦~¥÷, ¦ý¥Ø«e¬Ý°_¨Ó¿é¤J­È¬O¤å¦r, ³o¼Ë¯à¦ADatabase¤¤HÄæ¦ì­pºâD+90ªº¹L´Á¤é¶Ü?
±ø½X¨t²Î.rar (326.21 KB)

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD