mark15jill

¦^´_ 10# dakiu

­Y­n²³æÂIªº¸Ü

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     For jj = 1 To ActiveSheet.Range("A1").CurrentRegion.Rows.Count
   
3.         u1 = Cells(jj, 1)  '001 002 003  ¤§Ãþ
   
4.         u2 = Cells(jj, 2) & "\" ' "¥Ø¿ý + \"
   
5.         u3 = Cells(jj, 3)  '°ÆÀɦW
   
6.         If Dir(u2 & u1 & u3) <> "" Then Cells(jj, 17) = "¦³ÀÉ®×" Else Cells(jj, 17) = "µLÀÉ®×"
   
7.         
   
8.     Next
   
9. End Sub

½Æ»s¥N½X

ANGELA

½Ð°Ñ¦Ò
Book2.zip (7.56 KB)

¤U¸ü¦¸¼Æ: 7

2012-10-29 15:19

dakiu

¦^´_ 12# ANGELA


    ª©¤j:
ÁÂÁ«üÂI¡A¸g´ú¸ÕOK¡C
¦ý¬O¸ê®Æ¦h¹F1¤dµ§¡A³o¼Ë©Ô¤U¥h§ä¸ê®Æ®É·|¹y±¼...«ÜºC....¦pªG¥i¥H¬O§_ÁÙ¦³¨ä¥L¤è¦¡???¥ýÁÂÁ¤F...

ANGELA

¦^´_ 13# dakiu


    ³o¬O¨ç¼Æªº­P©R¶Ë¡A¤×¨ä¬O°}¦C¨ç¼Æ¡C­pºâ¶q¤j³t«×¤@©wºC¡A§ï¥ÎVBA·|¤ñ¸û§Ö¡C

kuoliang123

¸ê®Æ¶q­n¥ÎVBA¡A¤£µM´N¬O¹q¸£µwÅé¥Î¦n¤@ÂI............

dakiu

¦^´_ 14# ANGELA


    Áª©¤j«üÂI:
¦pªG¥i¥H¡A¥i§_¦³­Ó½d¨ÒÅý§Ú¬ã¨s¦A´£¥X¤@¨Ç°ÝÃD.....ÁÂÁ±z¤F!

ANGELA

¤@¤dµ§¥Î¨ç¼ÆÀ³ÁÙ¥iÀ³¥I¡A°£«D¹q¸£¤Ó¡CVBA¥i¨ìVBAÑi°Ï´£°Ý¡C

dakiu

¦^´_ 17# ANGELA


    ¦¬¨ì~·PÁ«üÂI....ÁÂÁ±zªº¦^ÂÐ!:)

whirlwind963

¦^´_ 2# mark15jill
½Ð°ÝTextToDisplay:="C:\Users\user\Desktop\·s¼W¸ê®Æ§¨ (2)\" & Cells(kka, 1) & ".bmp"
¦pªG§ï¯àTextToDisplay:= Cells(kka, 1) ·|¥X¿ù
½Ð°Ý¦³¿ìªk±NÅã¥Ü¥X¨Óªº¤å¦r¥uÅã¥ÜÀɦW¶Ü

mark15jill

¦^´_ 19# whirlwind963


        ActiveCell.FormulaR1C1 = "Sheet2"
    Range("B1").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Sheet2!A1", TextToDisplay:="Sheet2"


    Range("C1").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "XXXXXXXXXXXXXXXXXXXX", TextToDisplay:="test.txt"

XXXXXXXXXXXXXXXXXXXX=Àɮץؿý+ÀɮצWºÙ+ÀÉ®×°ÆÀɦW