Search
EXCEL VBA進階範例尋找與判斷負0到9的值分享
本範例為進階VBA的程式範例，直接用自訂函數思考，
最後再用SUB呼叫，一改入門班的思考方式，
另外，多重邏輯也可以用迴圈來撰寫，
只是需要的是將數字轉為文字，可用Cstr函數轉換，
有點像EXCEL裡的Value函數。
程式需求：
1.如果儲存格中有-0到-9就返還 Apple
2.如果儲存格為空白就輸出空白，不然就輸出 Orange
完整連結：
https://terry55wu.blogspot.com/2018/08/excel-vba09.html
吳老師 20100811
Comments · 11 – (6 to the x power) = 3, x =? “Let's solve this exponential equation one step at a time!” · 04 VBA 插入 空白 列與刪除 空白 列. ... <看更多>
EXCEL高階函數與大數據 VBA 自動化第11次範例股票配股統計表&定義12個名稱&名稱計算結果&使用 VBA 配合名稱輸出公式&工作表物件自動帶出業績以後的資料& ... ... <看更多>
vba 尋找 空白儲存格 在 [問題] Excel VBA 判斷儲存格是否空白- 看板Office - 批踢踢實業坊 的推薦與評價
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: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://www.ptt.cc/bbs/Office/M.1504883260.A.5F2.html
※ 編輯: cksmark129 (111.184.97.121), 09/09/2017 18:54:05
... <看更多>