作者cksmark129 (請多指教~)
看板Office
標題[問題] Excel VBA 判斷儲存格是否空白
時間Fri Sep 8 23:07:37 2017
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:Excel
版本:2010
想寫一個巨集是判斷某a儲存格的相對位置（1，0）之b儲存格內容是否空白
如果是，則b儲存格相對位置（-1，3）輸入"是空白"
如果不是，則繼續找下一欄直到最後一個有字元的儲存格《用錄的，使用END+↓》，已此儲存格相對位置（0，3）輸入"非空白"
以下是我的巨集，不知道為什麼無論b儲存格是否空白，If判斷結果都是執行Else。
請先進們幫忙指點迷津
謝謝各位
*手機排版，傷眼請見諒
----
sub a()
sub a()
ActiveCell.Offset(1,0).Range("A1").Select
If Range("A1") = "" Then
ActiveCell.Offset(-1,3).Range("A1").Select
ActiveCell.FormulaR1C1 = "是空白"
ActiveCell.Offset(1,0).Range("A1").Select
Else
Selection.End(xlDown).Select
ActiveCell.Offset(0,3).Range("A1").Select
ActiveCell.FormulaR1C1 = "非空白"
End of
End sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 110.28.76.101
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1504883260.A.5F2.html
1F：→ soyoso: if range("a1")改為if activecell或if selection 試試09/08 23:18
2F：→ soyoso: end of會錯誤訊息，應為end if09/08 23:18
謝謝您的協助，成功無誤了，原來是Range的問題
謝謝您提供的程式碼，簡單易懂。受教了
※ 編輯: cksmark129 (111.184.97.121), 09/09/2017 18:54:05