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

½Ð¦U¦ìÀ°§Ú¬Ý¬Ý§Ú³o­Ó¨ç¼Æ¦³¤°»ò°ÝÃD?

½Ð¦U¦ìÀ°§Ú¬Ý¬Ý§Ú³o­Ó¨ç¼Æ¦³¤°»ò°ÝÃD?

¥Øªº>¦³5000­Ó·sª©¥»excel¤å¥ó²VÂø¤@°_,·sª©¤å¥ó¦³"¤é³øªí P3"­¶,¸Ó­¶[A2]="Show"
ª©¤å¥ó¨½¨S¦³"¤é³øªí P3"­¶.§Ú­n¥Î¦r¨å§â5000­Ó¤å¥ó¤À¤@¤À·sª©
°õ¦æ¤@¤Utest,²Ä¤@¦¸°õ¦æ­n3¤ÀÄÁ,¬Æ¦Ü­n6¤ÀÄÁ,¦pªG¦A°õ¦æ¤@¦¸´N¥u­n1¤ÀÄÁ³Ì¦h2¤ÀÄÁ
´«±¼5000­Ó¨ä¥L¤å¥ó,¤S¬O²Ä¤@¦¸3¤ÀÄÁ,¦A°õ¦æ¤@¦¸1¤ÀÄÁ´N§¹¦¨¤F
½Ð¦U¦ì¬Ý¬Ý,¨s³º°ÝÃD¦b­þ¨à©O?ÁÂÁÂ!
sub test
dim d as new Dictionary
for each f in (5000­Ó¤å¥óªºfullnameªº°}¦C)
d(f)=Benew(cstr(f))
next f
end sub

Function Benew(fl$) As Boolean
    Dim Fname$, Fpath$, temp$, temp2
    Fname = Mid(fl, InStrRev(fl, "\") + 1)''''¤å¥ó¦W
    Fpath = Replace(fl, Fname, "") '''''''''''''¤å¥ó¸ô®|(±a\)
    On Error Resume Next
    temp = "'" & Fpath & "[" & Fname & "¤é³øªí P3'!R2C1"
    temp2 = Application.ExecuteExcel4Macro(temp)
    Benew = IIf(temp2 = "Show", True, False)
End Function
lmh

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD