1樓：匿名使用者
統計區域某單元格數量，直接用countif，非要用vba的話···········...下邊這個是個計數函式，用法就是在單元格內直接寫=計數（區域）就好，巨具體你要什麼**，自己參照下吧。
function 計數(rng as range) as string
dim arr as range, i as byte, arr1, arr2, mystr as string
with createobject("scripting.dictionary")
for each cell in rng
.item(cell.value) = .item(cell.value) + 1
next cell
arr1 = .keys
arr2 = .items
for i = 0 to ubound(arr2)
mystr = mystr & arr1(i) & arr2(i) & ","
next
end with
計數 = left(mystr, len(mystr) - 1)
end function
2樓：匿名使用者
sub test()
'假設三個特定的數在d1:d3
dim tmp(1 to 3) as boolean
range("a:c").interior.pattern = xlnone
l = range("a65536").end(xlup).row
if l < 3 then exit sub
for lne = 1 to l - 2
tmp(1) = false: tmp(2) = false: tmp(3) = false
for r = lne to lne + 2
for c = 1 to 3
for k = 1 to 3
if cells(r, c) = range("d" & k) then
tmp(k) = true
end if
next
next
next
for r = lne to lne + 2
for c = 1 to 3
for k = 1 to 3
if cells(r, c) = range("d" & k) and tmp(1) and tmp(2) and tmp(3) then
cells(r, c).interior.color = rgb(255, 255, 0)
end if
next
next
next
next
end sub
我不想做個好人也不想人品好有擔當只想做個壞人
那不一定是壞人,畢竟壞人會無緣無故的做壞事。你這還達不到那種程度。保護自己是對的,只不過存在的也就是素質的問題,活出自己沒有錯,但是這樣無法提高個人修養,沒人敢交你。我不想當好人也不想當壞人只想做你的心上人這裡,我不想當壞人啥意思 不想復當好人 制,不想當友人,只想當你最愛的人 整句話解析 解析 不...
EXCEL巨集應用
excel的巨集是由一系列的visual basic語言 構成的,因此,如果你熟悉visualbasic 語言,可以用它編寫為巨集,如果使用者不熟悉vb語言,可以用記錄功能建立巨集。下面詳細介紹一 下有關的方法和技巧。一 建立巨集 要想建立一個巨集,方法有兩種 一是用巨集記錄器記錄所要執行的一系列操...
我想做個壞女孩，誰教教我我想做個壞女孩，誰教教我？
學壞容易學好難，你幹嘛要糟踐自己，有什麼問題可以和父母老師朋友說，他們會給你建議，開導你，隔何必這樣呢？我覺得做個好女孩更好，相信我喲，加油？我勸你還是打消這個念頭 你如果真的成為一個壞女孩 傷害得不僅僅是自己更專傷害一心培屬養你的父母 甚至是整個家庭 成為一個好女孩不容易 成為一個壞女孩就是一瞬間...