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

[µo°Ý] ¨D§U.¦p¦ó¦b¤@­Ó300¦hµ§ªº¹ÏÀɮק¨¤º§ä2±i¹Ï>"<

[µo°Ý] ¨D§U.¦p¦ó¦b¤@­Ó300¦hµ§ªº¹ÏÀɮק¨¤º§ä2±i¹Ï>"<

¤p§Ì³Ìªñ¦b¾Ç²ß¨Ï¥ÎVBA  ·s¤â¤@­Ó½Ð¥]¥]§t~"~
·Q¥Î¦b¤u§@¤W   
¤½¥q³øªí®Ä¥Î¨ì«Ü¦h¹Ï  ¹Ï¤ù ½s½X1-1 , 1-2 ,1-3  ,  2-1 , 2-2  ,2-3  (¥H¦¹Ãþ±À300¦hµ§
¦Ó¥B­n¨D¥Î¨ì´N­n§R±¼


·Q¼g­Ó·j¯Á µM«á´¡¤J¹Ï¤ù ¬å±¼¹ÏÀÉ
ª¦¤å¦h¤é¤]§ä¤£¨ì¤°»ò¦n¤èªkQQ

§Ú¤]¤£¬O·Q¦ù¤â­nµ{¦¡¬O¯uªº«Ü·Q¾Ç²ß.
©Ò¥H¸ò¤p§Ì«üÂI¤@¤U¤j·§´N¦n

³Ò·Ð¦U¦ì¥ý¶i­Ì«üÂI¤@¤U.·P¿E:dizzy:

§Ñ¤F»¡ 1-1 ,1-2 ,1-3  ¹ÏÀɬ°¤@­Ó¤å¥ó­n¥Î
µM«á¸Ì­±±`±`¦³¶¡Â_ªº

PS.­è­è§Ñ°O¥´.µ´¹ï¤£¾A­nÄé¤ô.¤j®a½Ð­ì½Ì§Ú~"~¤U¯ZÁÙ­n¦£³o­Ó¥u¨D¼g¦n«á³¡·|³o»ò²Ö¤FQQ

TOP

¦³Àɮ׶Ü?
³o¼Ë´y­zÁÙ¬O¤£¤ÓÀ´

TOP

¦^´_ 1# naknay


   ¥i¥H°Ñ¦Ò§Úµo¦b³o½×¾Âªº³o¤@©«¡Ghttp://forum.twbts.com/thread-21898-1-1.html

TOP

¥»©«³Ì«á¥Ñ naknay ©ó 2019-8-3 01:28 ½s¿è

¦^´_ 1# naknay

ÂI§Ú¤U¸ü
    Àɮצ³ÂI¤j~³Ò·Ð¦U¦ì¥ý¶iÀ°§Ú¬Ý¤@¤U><||
²Ä¤@¦¸°Ý°ÝÃDÁٰݱo¤£¦n½Ð¨£½Ì><

·PÁ¦³³Ò¥ý¶i¤F

TOP

¥»©«³Ì«á¥Ñ naknay ©ó 2019-8-3 01:40 ½s¿è
¦^´_  naknay


   ¥i¥H°Ñ¦Ò§Úµo¦b³o½×¾Âªº³o¤@©«¡G
jeffrey628litw µoªí©ó 2019-8-2 12:10


·PÁ«e½ú´£¨ÑÀÉ®×~¤p§Ì¦A¬ã¨s¬Ý¬Ý~¥ý»¡Án·P¿E~¦ý¬O¥\¯à¨Ã¤£¬O§Ú»Ý¨Dªº¤£¹L¯uªº«Ü±j¤jÆg¹Ä¤¤

TOP

1) ¬Ý¬O3±i¹Ï???
2) ­n¾Ç·|¨Ï¥Î¤W¶ÇªþÀÉ, ¤è«K§O¤H¤U¸ü

Sub ´¡¤H¹Ï¤ù()
Dim i%, P$, N$(3), xR As Range, xS, Shp As Shape
'¸ô®|»P¸ê®Æ§¨ÀË´ú
P = ThisWorkbook.Path & "\«È¤á¦WºÙ¹ÏÀÉ"
If Dir(P, vbDirectory) = "" Then MsgBox "¡e«È¤á¦WºÙ¹ÏÀÉ¡f¸ô®|¿ù»~©Î¸ê®Æ§¨¤£¦s¦b!  ": Exit Sub
For Each xR In [A3:C3]
    If xR = "" Then MsgBox xR(0) & "¥¼¿é¤J!  ": Exit Sub
    If xR(0) <> "½s¸¹" Then P = P & "\" & xR Else N(0) = xR
    If Dir(P, vbDirectory) = "" Then MsgBox "¡e" & xR(0) & "¡f¸ô®|¿ù»~©Î¸ê®Æ§¨¤£¦s¦b!  ": Exit Sub
Next
'¹Ï¤ùÀÉ®×ÀË´ú
For i = 1 To 3
    N(i) = N(0) & -i & ".jpg"
    If Dir(P & "\" & N(i)) = "" Then MsgBox "§ä¤£¨ì¡e" & N(i) & "¡f¹Ï¤ùÀÉ®×!  ": Exit Sub
Next i
'¸ü¤J¹ÏÀɨýվã¤j¤p¤Î¦ì¸m
xS = Array("A11", "E11", "I11")
For i = 1 To 3
    Set xR = Range(xS(i - 1)).Resize(9, 4) '¹Ï¤ù©ñ¸mªº½d³ò
    Set Shp = ActiveSheet.Shapes.AddPicture(P & "\" & N(i), 0, 1, xR.Left, xR.Top, -1, -1)
    If Shp.Height > xR.Height Then Shp.Height = xR.Height - 2 '½Õ¾ã¹Ï¤ù°ª«×
    If Shp.Width > xR.Width Then Shp.Width = xR.Width - 2 '½Õ¾ã¹Ï¤ù¼e«×
    Shp.Top = xR.Top + (xR.Height - Shp.Height) / 2 '½Õ¾ã¹Ï¤ù¤WÃä¬É(¤W¤U¸m¤¤)
    Shp.Left = xR.Left + (xR.Width - Shp.Width) / 2 '½Õ¾ã¹Ï¤ù¥ªÃä¬É(¥ª¥k¸m¤¤)
    'Kill P & "\" & N(i)  '§R°£¹Ï¤ùÀÉ®×
Next i
End Sub

TEST_v1.rar (1.63 MB)


========================================

TOP

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


«D±`·PÁ­㴣³¡ªL«e½úÀ°§Ú­×§ïµ{¦¡¤@¬Ý²¼ä¦³¤O~¤p§Ì·|¦b¾Ç²ß¤W¶Ç³o³¡¤À.
ÃB¥~½Ð±Ð ½s¸¹³oÃä¨ä¹ê¦³1-300¦hµ§ ¬O§_¯à°µ¨ì¤£¶ñ½s¸¹¥h§ì.
¦]¬°¤½¥q­n¨D¥Î¹Lªº¹ÏÀɤ£¯à¦A¨Ï¥Î.

¥Ø«e·Qªk N$(300) ³o°}¦C¸Ì­±¦³­Èªº§ì¥X¤@­Ó­È¨Ó»s§@.

   ©ÎªÌ¥Î´`Àôªº§PÂ_¤è¦¡ (1¤£¦b§ì2 ,2¤£¦b§ì3  ´`Àô¤U¥h )300¦hµ§µ{¦¡¦]¸Ó¤£·|¶]«Ü¤[.

  ©Ò¥H½Ð±Ð
    N(i) = N(0) & -i & ".jpg"
    If Dir(P & "\" & N(i)) = "" Then MsgBox "§ä¤£¨ì¡e" & N(i) & "¡f¹Ï¤ùÀÉ®×!  ": Exit Sub

©Ò¥H¦A¦¸½Ð¯q «e½ú­Ì³o¬q¦p¦ó­×§ï.·P¿E¤£ºÉ

TOP

¦^´_ 8# naknay


³W«h¤£©ú, ¯à§_»¡²M·¡¸Ô²Ó???

TOP

¦^´_ 9# ­ã´£³¡ªL
·PÁ¤j¤j¦^´_


¥Ø¼ÐÀɮק¨¤ºªº½s¸¹1-300ªº·Ó¤ù¨Ã¤£·|¤@ª½¦s¦b

¦Ó¤å¥ó¥u­nÀH·N¨Ï¥Î¤@²Õ·Ó¤ù§Y¥i.¦Ó¨Ï¥Î¹Lªº·Ó¤ù¥²¶·§R°£.½s¸¹¬J¤£¦s¦b

©êºpªí¹Fªº¤£¾A«Ü¦n.²`·P©êºp

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD