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

[µo°Ý] ¦p¦ó ´¡¤J ¸ê®Æ§¨¤¤§t¤l¸ê®Æ§¨ªº ¹Ï¤ù

¦^´_ 2# GBKEE
½Ð°Ý
(1)¥i¥H¿ï¾Ü­n±q­þ¸Ì¶}©l´¡¤J¹Ï¤ù¶Ü?¨Ò¦pC2¶}©l
(2)§Ú­n10­Ó¹Ï´N´«¤@Äæ­n«ç»ò¥Î©O?

TOP

¦^´_ 4# GBKEE
¦A½Ð±Ð¤@­Ó°ÝÃD
¦³¿ìªk¦bCÄæÅã¥Ü¹Ï¤ùDÄæÅã¥Ü¹Ï¤ùªº¦WºÙ¶Ü

TOP

¦^´_ 4# GBKEE
½Ð°Ý¦pªG§Ú¥[¤J
Cells(i, xCol + 1) = f
¨ú±oÀɮצWºÙ
¦³¿ìªk¥u¨ú±oÀɮצWºÙ
¦Ó¤£­n§¹¾ãªº¸ô®|¶Ü
EX:D:\¹Ï¤ù\ABC.JPG
     §Ú¥u­nÅã¥ÜABC.JPG´N¦n

TOP

¦^´_ 2# GBKEE

¦pªG§ï¦¨
NN= cells(2,1)
MM=cells(3,1)
        For Each e In Array(NN,MM)
        Set fs = CreateObject("Scripting.FileSystemObject").GetFolder(e)
        ¤l¸ê®Æ§¨ fs
    Next
·|¥X¿ù
½Ð°Ý¦³¿ìªk¦Û¤v¦bÀx¦s®æ¿é¤J¦ì§}¶Ü

TOP

¦^´_ 4# GBKEE
½Ð°Ý¤@¤U
¦pªG§Ú¦³24­Ó¤l¸ê®Æ§¨
§Ú·Q­n
C1Åã¥Ü¤l¸ê®Æ§¨1ªº¦WºÙC2Åã¥Ü¹Ï¤ù
D1Åã¥Ü¤l¸ê®Æ§¨2ªº¦WºÙD2Åã¥Ü¹Ï¤ù
³o¼Ëªº¸Ü¸Ó¦p¦ó§ï©O

TOP

¦^´_ 10# GBKEE
½Ð°Ý¤@¤U
§Úªº¸ê®Æ§¨¦WºÙ¬O¤é´Á®æ¦¡(2012/12/10)
¤l¸ê®Æ§¨ªº¦WºÙ¬O¤p®É®æ¦¡(00-23)24­Ó¸ê®Æ§¨
¦pªG§Ú¦bA1¿é¤J06  B1¿é¤J12
´N¥i¥H¬Ý¨ì06-12³o¤§¶¡©Ò¦³ªº¹Ï¤ù
³o¼Ëµ{¦¡­n«ç»ò§ï©O

TOP

¦^´_ 12# GBKEE

§Ú¥[¤F If e.Name >= [A1] And e.Name <= Range("B1") Then ³o¤@¦æ«á
µLªkÅã¥Ü¹Ï¤ù­C
½Ð°Ý¦³§Oªº¤èªk¶Ü
ÁÙ¬O­þ¸Ì¿ù¤F©O

TOP

¦^´_ 14# GBKEE
¦³ªü
§Ú½T»{ÀɦW¸ò¸ê®Æ§¨³£¨S¦³¨º¨Ç¦r¤¸

TOP

¦^´_ 16# GBKEE
§Ú¥u§ï¤F¸ô®|¦Ó¤w
¨ä¥Lªºµ{¦¡½X³£¤@¼Ë
¦bA1¸òB1¿é¤J¼Æ¦r
ÁÙ¬OµLªkÅã¥Ü¹Ï¤ù

TOP

¦^´_ 17# GBKEE
¦]¬°¤W¶ÇÀɮתº­­¨î
§Ú§R±¼¤@¨ÇÀÉ®×
³Â·ÐÀ°§Ú´ú¸Õ¬Ý¬Ý

TEST.rar (889.57 KB)

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD