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 :)

樓主熱帖

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2016-8-22 16:00 | 只看該作者

回復 1# Changbanana
ng = Evaluate("COUNTIF(A:A,""<0"")")

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

Changbanana

中學生 Rank: 2

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

論壇贊助勳章

3^#

發表於 2016-8-22 16:06 | 只看該作者

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

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

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2016-8-22 16:27 | 只看該作者

回復 3# Changbanana
這邊Evaluate單純是計算公式後傳回結果，參數必須是字串
也可以寫成中括號，如
ng = [COUNTIF(A:A,"<0")]

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

Changbanana

中學生 Rank: 2

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

論壇贊助勳章

5^#

發表於 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

論壇贊助勳章

6^#

發表於 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2016-10-18 06:26 | 只看該作者

回復 6# Changbanana
試試看

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

Changbanana

中學生 Rank: 2

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

論壇贊助勳章

8^#

發表於 2016-10-18 11:00 | 只看該作者

回復 7# GBKEE

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

TOP