1樓：匿名使用者
sub 連續偶()
dim r as integer, i as integer, bz as integer, num as integer
r = activesheet.range("a65536").end(xlup).row
for i = 2 to r
if cells(i, 1) mod 2 = 0 then num = num + 1 else num = 0
if num >= 6 then cells(i, 2) = str(num)
next i
end sub
2樓：匿名使用者
if bj = cells(i, 1) mod 2 then num = num + 1 else bj = cells(i, 1) mod 2: num = 1
改if bj = cells(i, 1) mod 2 thennum = num + 1
else
bj = cells(i, 1) mod 2num = 1
end if
請求幫忙寫一下期末評語，謝謝，請求！！！幫忙寫一下期末評語50字，謝謝！！
來自蠡園名嬡美姝的美人魚 誠實 文靜是你良好的一面。你是一個守紀律的學生 能夠約束自己 你渴望能為班級爭光。但你缺乏勇氣與膽量 就像現在的你不願寫評語 能力還不夠 你渴望學習成績的進步 但缺乏頑強拼搏的精神。請你不要灰心 慢慢來 只有不懈追求 不懈努力 讓無數次失敗奠定成功的基石 你能得到成功的喜悅...
求大神幫忙解答一下這個excel題有關於遲到扣工資的，小弟著實已經被愁哭了TAT
用if函式的巢狀 在h2裡面輸入 if e2 4,0.8 b2,b2 在i2裡面輸入 if e2 f2 5,0.7 c2,c2 在j2裡面輸入 if g2 3,0.6 d2,d2 在k2裡面輸入 sum h2 j2 都向下填充 環真如 這有啥難的，比如說 遲到超過4次的扣基本工資20 那麼我拿一個遲...
求英語大神幫忙翻譯一下，求大神幫忙翻譯一下
在模組中有其他可用設定的地方，您可以單擊齒輪輪 b 這將帶您到首選項中的特定設定。第一種配置 由於aaps2.0，安裝嚮導將引導您完成安裝androidaps的過程。在螢幕 f 的右上角推送3點選單，並選擇 安裝嚮導 來使用它。求大神幫忙翻譯一下 藍色狂想曲 窗下秋衣風雨日，花零香砌玉痕清。那念女兒...