Changbanana

中學生 Rank: 2

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-8-22 15:03 | 顯示全部帖子

[發問] 在單一欄位中計算有無負值

在A欄中計算欄位有無負值
如工作表1

寫的程式碼如下:

Sub CheckNegativeNumber()
Dim ng As Integer
Worksheets("工作表1").Activate
Range("A500").FormulaR1C1 = "=COUNTIF(R[-499]C:R[-1]C,""<0"")"
ng = Range("A500").Value
MsgBox "負數共有 :" & ng & "筆"
End Sub

複製代碼

現在的問題是A欄的資料目前沒有很多
所以先設定在A500這儲存格下公式
但未來如果超過500筆就必須在修改程式碼

有什麼方法可以不要指定儲存格
直接搜尋目前的欄位有無負值，後用MsgBox顯示出負數有幾筆~~

麻煩各位了~~Thank you :)

樓主熱帖

Changbanana

中學生 Rank: 2

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

2^#

發表於 2016-8-22 16:06 | 顯示全部帖子

回復 2# stillfish00
謝謝你~ 成功解決，不用在特定儲存格下公式了

Evaluate 的用法是?
可否解說一下~

TOP

Changbanana

中學生 Rank: 2

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

3^#

發表於 2016-8-22 16:40 | 顯示全部帖子

回復 4# stillfish00

謝謝您的詳細解說~
學到了一課:)

TOP

Changbanana

中學生 Rank: 2

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

4^#

發表於 2016-10-17 15:16 | 顯示全部帖子

回復 2# stillfish00

請教您若在A欄編號有1234&-1234
如圖:

編號去掉前面有" - "不計算
只計算正常的1234.1555.1556.1777.1899.1890.9999.9997這些編號即可
-1234.-1890忽略不看

以下是修改的程式碼但結果不是正確的

Sub CNN()
Dim ng As Integer
Dim rg As Range
Dim row As Long
Set rg = Worksheets("工作表1").Range("A1")
row = 2
Do While LEFT(rg(row, 1),1) <> "-"
ng = Evaluate("COUNTIF(B:B,""<0"")")
row = row + 1
Loop
If ng <> 0 Then
MsgBox "有 : " & ng & " 筆" & "負數!!! ", vbExclamation, " 警示 "
Else
MsgBox "沒有負的", vbOKOnly, " "
End If
End Sub

複製代碼

結果會跑出三筆負數
但正確結果是只有一筆
這樣程式碼該怎麼修改~

TOP

Changbanana

中學生 Rank: 2

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

5^#

發表於 2016-10-18 11:00 | 顯示全部帖子

回復 7# GBKEE

謝謝您提供的程式碼~結果是成功的唷

TOP