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

§x´bªºÅܼÆ

§x´bªºÅܼÆ

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-7 08:39 ½s¿è

·Ð½Ð¦U¦ì«ü¾É¤@¤U,¬°¦ó²Ä3­Óµª®×·|¬Ono?
¥H¤Î­n¦p¦ó°µ¤~±o¨ì¥¿¸Ñyes?

homeFD1 = "D:\aaa\"

i = 1

If homeFD1 = "D:\aaa\" Then        '·íµM¬Oyes....
  MsgBox ("yes")
Else
  MsgBox ("no")
End If

If "homeFD" & i = "homeFD1" Then        'µª®×¬Oyes
  MsgBox ("yes")
Else
  MsgBox ("no")
End If

If "homeFD" & i = "D:\aaa\" Then          'µª®×¬Ono  MsgBox ("yes")
Else
  MsgBox ("no")
End If
½Ð¦h«ü±Ð

homeFD1 = "D:\aaa\"
³o­ÓhomeFD1¬OÅܼÆ
"homeFD"¥ÎÂù¤Þ¸¹¬A°_¨Ó¬O¦r²Å
¤£¯à²V¬°¤@½Í¡I

TOP

Sheets(i) ³oÃþ¥Îªk...¥ÎºD¤F ©Ò¥Hºµºµ¥d¦í...

¥t "homeFD"¥ÎÂù¤Þ¸¹¬A°_¨Ó¬O¦r²Å
¦ý´¿¸Õ¥Î
mySER = "homeFD" & i
MsgBox (mySER)                    'µª®×..... homeFD1 ¨ÌµM¤£·|¬O  "D:\aaa\"
½Ð¦h«ü±Ð

TOP

Dim homeFD(1 To 10)
homeFD(1) = "D:\aaa\"
i = 1
If homeFD(i) = "D:\aaa\" Then
  MsgBox ("yes")
Else
  MsgBox ("no")
End If
My Blog
http://blog.xuite.net/a8350070

TOP

¦^´_ 3# stephen
homeFD ="D:\aaa\"
mySER =homeFD & i
MsgBox  mySER                   ½Ð°Ýµª®×.¬O....

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-7 10:26 ½s¿è

¦^´_ 5# GBKEE
µª®×¬O  homeFD1
¥t,a8350070 ÁÂÁ°Õ~ ¥¿¸Ñ~Dim homeFD(1 To 10)



¦A¸Õ¸Õ¬ÝGBKEE¤W
  1. Sub Ex()
  2. Dim homeFD, I, mySER
  3. homeFD = "D:\aaa\"
  4. mySER = homeFD & I
  5. MsgBox mySER        
  6.   '          ½Ð°Ýµª®×.¬O....
  7. End Sub
½Æ»s¥N½X
½Ð¦h«ü±Ð

TOP

        ÀR«ä¦Û¦b : ·R¤£¬O­n¨D¹ï¤è¡A¦Ó¬O­n¥Ñ¦Û¨­ªº¥I¥X¡C
ªð¦^¦Cªí ¤W¤@¥DÃD