1樓：匿名使用者
如果你是想要vba做的自定義函式，可以用下面**：
function ab(a as range)
if a > 0 then ab = "正"
if a = 0 then ab = "零"
if a < 0 then ab = "負"
end function
在b1單元格輸入公式=ab(a1)，把這個公式向b列下方拖動複製即可。
如果是想用乙個**一次性完成檢測，可以用下面**：
sub abc()
for i = 1 to [a65536].end(xlup).row
if cells(i, 1) > 0 then cells(i, 2) = "正"
if cells(i, 1) = 0 then cells(i, 2) = "零"
if cells(i, 1) < 0 then cells(i, 2) = "負"
next
end sub
這兩種可任選乙個
2樓：表裡如一
在b1輸入：
=if(a1>0,"正",if(a1<0,"負","零"))
下拉即可
3樓：朱仕平
sub tt
dim rng as range
for each rng in range("a1:a" & [a65536].end(xlup).row)
if rng.value>0 then
rng.offset(0,1).value="正"
elseif rng.value<0 thenrng.offset(0,1).value="負"
else
rng.offset(0,1).value="零"
end if
next
end sub
如果用公式可以在b1輸入
=if(a1<0,"負",if(a1=0,"零","正"))然後下拉填充,或雙擊填充柄填充
求個excel函式，求乙個excel函式
a1 員工入職或轉正日期 b1 年假 c1 已放年假天數 d1 剩餘年假天數 a2 1992 10 16 b2 if a2 if today a2 365,7,0 公式 c2 2 1 d2 if a2 b2 c2,公式效果預覽如下 員工入職或轉正日期 年假 已放年假天數 剩餘年假天數1992 10 ...
求二次函式題，求乙個二次函式題
1 解 頂點為m 5，6 則設拋物線為y k x 5 2 6 過c 1，0 代入拋物線，得，k 1 5 2 6 0,即k 1 6 所以拋物線方程為y 1 6 x 5 2 62 a的座標為 0，11 6 則b是關於x 5的對稱，所以b的座標為 10，11 6 ab x軸，則與三角形abo相等的其中兩點...
求excel函式的寫法，求乙個excel函式的寫法
如果只有上面三種情況，可以直接用if函式 if a1 廣東 a if a1 廣西 b c 如果對應的省份比較多，資料也比較多時候，建議用lookup b1單元格公式 if a1 廣東 a if a1 廣西 b if a1 山東 c 下拉即可 用choose函式也可以，直接if巢狀也可以。functi...
關於求分式函式的方法，關於乙個分式函式的！！！！
可以用反函式法 或者不等式法 看情況啊，有很多方法 1 y 2x 5x 1 5y 2 x y x y 2 5y 明顯的，y不等於2 5之外的其他任何實數 2 y 1 x 2 2x 2 1 x 1 2 1 明顯得，分母大於1 所以，y大於0，小於1 事實上2也可以用1做，自己試試 分式函式最值咋求，最...
求php數字壓縮函式，求乙個php數字壓縮函式
php的zlib實現是以擴充套件的方式存在於ext zlib目錄中。通過deflateinit2 deflate deflateend 三個函式配合完成壓縮功能，inflateinit2 inflate inflateend 三個函式配合完成解壓功能。壓縮最終都是通過php zlib encode函...