推 MOONRAKER:你真有耐心…我看到他說「沒有才可以」就不想理他了… 11/13 14:16
推 oycoyc:問題已解決,感謝你的解答! 11/13 17:27
→ m9556:唉~我也不想~只是來這想學~卻是都來敎別人~希望新手多想想! 11/13 22:04
你有用"F8" Debug mode 去看過為什麼會這樣嗎?
※ 引述《oycoyc (.......)》之銘言：
: 我要計算sheet2中有幾個column,
: 因為每個column的最開始都固定是"nA"字串,
: 所以我的程式碼如下,
: Sub 按鈕1_Click()
: Dim i As Integer
: i = 1
: Do while Sheet2.Cells(1, i) = nA
^^^^^^^^^^^^^^^^^^^^^^^^
這裡的敘述我用白話說: 當Sheet2.Cells(1, i) 等於 nA 'nA :內容"無"
Do while=>當cells(1,i) "等於無" 不成立就跳出LOOP ，
因為Cells(1,1) 有值 =\= 無,形成"不成立條件"當然會跳出，
我就說這樣!!!你在想想吧!!!
建議你在最上面加入 Option Explicit
: i = i + 1
: Loop
: '在sheet1顯示出有幾個column
: Sheet1.Cells(1, 2) = i - 1
: End Sub
: 結果答案都是0,
: 奇怪的是我把判斷式改為
: Sheet2.Cells(1,i) <> nA
: 之後,
: 答案竟然正確了!?
: 怎麼邏輯剛好相反?
: 是我哪裡搞錯了嗎?
: 煩請諸位高手指點迷津為小弟,感謝!!!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.230.221.175