返回列表 上一主題 發帖

困惑的變數

stephen

帖子
7 
主題
3 
精華
0 
積分
19 
點名
0  
作業系統
WINXP 
軟體版本
2002 SP3 
閱讀權限
10 
性別
男 
來自
TAIWAN 
註冊時間
2010-5-4 
最後登錄
2019-12-5 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-7-6 22:01 | 只看該作者

困惑的變數

本帖最後由 GBKEE 於 2011-7-7 08:39 編輯

煩請各位指導一下,為何第3個答案會是no?
以及要如何做才得到正解yes?

homeFD1 = "D:\aaa\"

i = 1

If homeFD1 = "D:\aaa\" Then        '當然是yes....
  MsgBox ("yes")
Else
  MsgBox ("no")
End If

If "homeFD" & i = "homeFD1" Then        '答案是yes
  MsgBox ("yes")
Else
  MsgBox ("no")
End If

If "homeFD" & i = "D:\aaa\" Then          '答案是no  MsgBox ("yes")
Else
  MsgBox ("no")
End If
收藏 分享
請多指教

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
2#
發表於 2011-7-6 22:29 | 只看該作者
homeFD1 = "D:\aaa\"
這個homeFD1是變數
"homeFD"用雙引號括起來是字符
不能混為一談！

TOP

stephen

帖子
7 
主題
3 
精華
0 
積分
19 
點名
0  
作業系統
WINXP 
軟體版本
2002 SP3 
閱讀權限
10 
性別
男 
來自
TAIWAN 
註冊時間
2010-5-4 
最後登錄
2019-12-5 
3#
發表於 2011-7-6 22:53 | 只看該作者
Sheets(i) 這類用法...用慣了 所以熊熊卡住...

另 "homeFD"用雙引號括起來是字符
但曾試用
mySER = "homeFD" & i
MsgBox (mySER)                    '答案..... homeFD1 依然不會是  "D:\aaa\"
請多指教

TOP

a8350070

帖子
48 
主題
2 
精華
0 
積分
64 
點名
0  
作業系統
xp 
軟體版本
office 2000 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2011-4-16 
最後登錄
2018-9-26 
4#
發表於 2011-7-7 00:30 | 只看該作者
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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2011-7-7 08:43 | 只看該作者
回復 3# stephen
homeFD ="D:\aaa\"
mySER =homeFD & i
MsgBox  mySER                   請問答案.是....

TOP

stephen

帖子
7 
主題
3 
精華
0 
積分
19 
點名
0  
作業系統
WINXP 
軟體版本
2002 SP3 
閱讀權限
10 
性別
男 
來自
TAIWAN 
註冊時間
2010-5-4 
最後登錄
2019-12-5 
6#
發表於 2011-7-7 10:10 | 只看該作者
本帖最後由 GBKEE 於 2011-7-7 10:26 編輯

回復 5# GBKEE
答案是  homeFD1
另,a8350070 謝謝啦~ 正解~Dim homeFD(1 To 10)



再試試看GBKEE上
  1. Sub Ex()
  2. Dim homeFD, I, mySER
  3. homeFD = "D:\aaa\"
  4. mySER = homeFD & I
  5. MsgBox mySER        
  6.   '          請問答案.是....
  7. End Sub
複製代碼
請多指教

TOP

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題