ªð¦^¦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·í¤Ñ·|¦³­«½Æ±ø¥ó


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



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


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


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


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

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

¦^´_ 20# v03586


V = InStr("+H0DP", xF(1, 3)) - 1 ³o¤]­n¥["P"


D = CDate(format(20230130, "00-00-00")) '§Y¥iÂন¤é´Á
if D - Date < 90 then msgbox "¤w¹L´Á"

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

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


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

TOP

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


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

TOP

¦^´_ 16# v03586

¥Î·L½Õ«ö¶s¿ï¾Ü±ø½X~~
Xl0000438-01.rar (122.56 KB)

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Åé®æ¦¡)

   ¦ý¦]±ø½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

¦^´_ 14# v03586

³o¸Ì¤£¬O¹w¯d¤F¤@±ø¥N½X
'xF.EntireRow.Delete '§R°£­ì¸ê®Æ(¦Û¦æ¨M©w)
±N³æ¤Þ¸¹§R¥h§Y¥i

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

¦^´_ 12# v03586

¨ú¥X//
Xl0000359-03.rar (109.44 KB)

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD