返回列表 上一主題 發帖

CountIf問題

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-10-21 17:52 | 顯示全部帖子

CountIf問題

  1. Sub MYts()
  2. A = 1
  3. If WorksheetFunction.CountIf(Range("A1:A10,C1:D3"), A) > 0 Then
  4. MsgBox A + 1
  5. Else
  6. MsgBox A
  7. End If

  9. End Sub
複製代碼
請問大大為什麼不可以Range("A1:A10,C13")?
收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
2#
發表於 2010-10-21 19:30 | 顯示全部帖子
回復 2# dechiuan999


    謝謝你.
我試過是不行的.
50 字節以內
不支持自定義 Discuz! 代碼

TOP

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
3#
發表於 2010-10-21 20:10 | 顯示全部帖子
回復 4# Hsieh


    明日了.
那只好用
If Application.CountIf(Range("A1:A10"), A) > 0 Or Application.CountIf(Range("C13"), A) > 0 Then
50 字節以內
不支持自定義 Discuz! 代碼

TOP

basarasy

帖子
287 
主題
65 
精華
0 
積分
357 
點名
0  
作業系統
xp 
軟體版本
OFFIC 2007 
閱讀權限
20 
註冊時間
2010-6-4 
最後登錄
2015-8-19 
4#
發表於 2010-10-21 23:15 | 顯示全部帖子
本帖最後由 basarasy 於 2010-10-22 00:16 編輯

回復 6# GBKEE
謝謝大大.
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題