ªð¦^¦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
¬Ý±oÀ´¬OÀ³¸Óªº,À´±oÀ³¥Î¤~¹³¾Ç¥Í,Áy¥Ö«pÂI¾Ç·|§óÂÔ·V¿n·¥

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

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD