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

[µo°Ý] VBA ´¡¤J«ü©wªºÀɮ׹Ϥù

[µo°Ý] VBA ´¡¤J«ü©wªºÀɮ׹Ϥù

¦U¦ì¤j¤j¦n
¤p§Ì¦³¤@¨Æ·Q½Ð±Ð

¤p§Ì¤w±N¹Ï¤ùªºÀɦW³]©w¸ò²£«~«¬¸¹¤@¼Ë
¥t¥~¦bA2ªºÀx¦s®æ¨Ï¥Î¤U©Ô¿ï³æ¿ï¾Ü²£«~«¬¸¹
§Æ±æ¦bExcelªí¤W¯à¦b¿z¿ï¦n«¬¸¹¤§«á
°õ¦æ¥¨¶°
´N¯à¦b©T©wªº¦ì¸mÅã¥Ü¸Ó²£«~ªº·Ó¤ù
½Ð°Ý»yªk¸Ó¦p¦ó¼¶¼g??
¤U¦C¬O¤p§Ì¼gªº~¦ý³£¬O¿ù»~
Sub ¥¨¶°1()

Dim A, fd, fs

A = Range("A2").Value             '<-----Ū¨ú²£«~«¬¸¹
fd = "C:\Users\rd-2\Downloads\²£«~·Ó¤ù\"      '<-----¹Ï¤ùªº¦s©ñ¦ì¸m
fs = Dir(fd & "*.jpg")      '<-----°ÆÀɦW¬°JPG



Range("D25").Select        '<-----«ü©w¦b©T©w¦ì¸m
    ActiveSheet.Pictures.Insert("A1&A&A2"). _         '<-----´¡¤J¹Ï¤ù
        Select
                                

End Sub

·PÁ¤j¤j!!
¤p§Ì¤w¦Û¦æ¸Ñ¨M
­Y¦³§ó¦nªº¤è¦¡~¦A³Â·Ð´£¥X°Q½×

Dim A As String  '


A = Application.IfError(Application.VLookup(Cells(2, 1), Sheets("²M³æ").Range("A:B"), 2, False), "")

Dim x As String
x = Dir("C:\Users\rd-2\Downloads\²£«~·Ó¤ù\" & A & ".jpg") '°»´ú¹Ï¤ù¬O§_¦s¦b
If x <> "" Then

         Set p = ActiveSheet.Pictures.Insert("C:\Users\rd-2\Downloads\²£«~·Ó¤ù\" & A & ".jpg")  'Ū¨ú¹Ï¤ù
         Set c = Range("A18") '¹Ï¤ù¥á¨ì©Ò«ü©wÄæ¦ì

    Else
   
End If

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD