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

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

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


    ÁÂÁ«e½ú

Option Explicit
Sub Mid¯S§O¥Îªk_¦r¦êªº«ü©w¦r¤¸¼Æ¸m´«()
Dim Y$, Z$
Y = "ABCDEFG": Z = Y
Mid(Y, 2, 10) = "bcdefghijk"
MsgBox Y
Mid(Z, 2, 10) = "b"
MsgBox Z
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

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

¦^´_ 12# v03586

¨ú¥X//
Xl0000359-03.rar (109.44 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

¦^´_ 14# v03586

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

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

¦^´_ 16# v03586

¥Î·L½Õ«ö¶s¿ï¾Ü±ø½X~~
Xl0000438-01.rar (122.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 : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD