1樓：屋簷上的呆貓
sub kucunyujing()
yujing = ""
maxr = activesheet.cells(1, 2).end(xldown).row
for i = 2 to maxr
if activesheet.cells(i, 2).value < 5 then
if yujing = "" then
yujing = yujing & activesheet.cells(i, 1).value
else
yujing = yujing & "、" & activesheet.cells(i, 1).value
end if
end if
next i
if yujing = "" then
msgbox ("庫存正常！")
else
msgbox (yujing & "庫存低於5！")
end if
end sub
如果需要啟動執行，就把需要執行的**放進workbook的open事件就行了，例如：
private sub workbook_open()
call kucunyujing()
end sub
2樓：匿名使用者
private sub commandbutton1_click()dim a as integer
dim i as integer
dim t as string
t = ""
a = [b65536].end(xlup).rowfor i = 2 to a
if cells(i, 2).value < 5 thenif t = "" then
t = cells(i, 1).valueelse: t = t + "、" + cells(i, 1).value
end if
end if
next
if t <> "" then msgbox t + "的庫存量不足5。"
end sub
EXCEL巨集製作，製作一個EXCEL巨集程式，
你這個問題太強大了，巨集 都是用來執行相同步驟的操作的。先教你一個簡單的吧 一 簡單加法 1 首先，建立一個 兩列，a列一組數字，b列一組數字，我們在c列計算a與b的和。2 按下 錄製巨集 按鈕，定義一個巨集名稱，開始錄製巨集3 滑鼠點c1，錄入公式 a1 b1 回車，得到了計算結果4 按 結束錄製...
高分求助Excel高手請進
假設 等級位於a列，積分位於b列 僅輸入最高分。例如，一級僅輸入100即可 頭銜位於c列 則，在需要顯示某人等級的單元格中輸入下面的公式 lookup e1,b1 b4,a1 a4 其中，e1是某人的積分所在的單元格，a1 a4為等級，b1 b4為各等級對應的積分。顯示頭銜的方法是類似的。拿 來，應...
求助高手和大師來
愛情就是這麼折騰人 緣分錯過了就不再回來，既然你和初戀錯過了，而選擇了現在的妻子，那就好好地對她吧。好男人和壞男人，有時也只在一念之間定位了的。如果你再繼續留戀著那初戀，那不僅會毀了現在這個好家庭 也會把那個初戀也害了的。最好就是現在不要和她聯絡了，慢慢地她會從你的世界走出來的。她還可以尋找自己 的...