麻辣家族討論版版 » Excel程式區 » 判斷式的問題

返回列表下一主題上一主題發帖

[發問] 判斷式的問題

中學生 Rank: 2

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2014-4-15 17:27 | 只看該作者

[發問] 判斷式的問題

各位大師!  小弟有個小問題，請求幫助~~

範例如下

A       B
0       10
1       10.4
2       10.2
3       10
4       10.2
5       5.8
6       10.6
7       9.8
8       9.8
9       10.6
10    11.2
0       5.6
1       5.4
2       5.2
3       5
4       5.2
5       5.8
6       5.6
7       5.8
8       5.8
9       5.6
10    5.2
0       10
1       10.4
2       10.2
3       10
4       5.2
5       5.8
6       10.6
7       9.8
8       9.8
9       10.6
10    11.2
我的問題是，我要如何判斷

A列從0~10筆資料判斷一次，看B列值是否都介在於5~6之間，
如果是，將值取0
      否，則原值呈現

麻煩各位大師!! 謝謝

樓主熱帖

收藏

中學生 Rank: 2

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

7^#

發表於 2014-4-17 10:59 | 只看該作者

謝謝各位大師的幫助，小弟試試。

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

6^#

發表於 2014-4-16 17:33 | 只看該作者

回復 1# 518587
結果是不是樣子?
0 10.0
1 10.4
2 5.4
3 10.0
4 10.2
5 5.8
6 10.6
7 9.8
8 9.8
9 10.6
10 11.2
0 0
1 0
2 0
3 0
4 0
5 0
6 0
7 0
8 0
9 0
10 0
0 10
1 10.4
2 10.2
3 10
4 5.2
5 5.8
6 10.6
7 9.8
8 9.8
9 10.6
10 11.2
如果是, 試試看

Option Explicit
Private Sub CommandButton1_Click()
Dim i, j, r1 As Integer
Dim OK As Boolean
'
For i = 1 To 3
OK = True '先假定所有的均介於 5 與 6 之間
For j = 0 To 10
r1 = i * 11 + j - 10
'若有任一個不介於 5 與 6 之間, 則跳離迴圈
'並設為 not OK, 換下一組
If Cells(r1, 2) < 5 Or Cells(r1, 2) > 6 Then
OK = False
Exit For
End If
Next
'若全部介於 5 與 6 之間, 則填0
If OK Then
For j = 0 To 10
r1 = i * 11 + j - 10
Cells(r1, 2) = 0
Next
End If
Next
End Sub

複製代碼

超級版主 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兔年全勤獎章

5^#

發表於 2014-4-16 13:21 | 只看該作者

回復 4# 518587
試試看

Option Explicit
Sub EX()
Dim E As Range, xMax As Single, xMin As Single
With Range("A:A")
.Cells.Replace "0", "=KKK", xlWhole
With .SpecialCells(xlCellTypeFormulas, xlErrors)
.Value = 0
For Each E In .Areas
With E.Resize(11).Offset(, 1)
xMax = Application.WorksheetFunction.Max(.Cells)
xMin = Application.WorksheetFunction.Min(.Cells)
If xMin >= 5 And xMax <= 6 Then
.Offset(, 1) = 0
Else
.Offset(, 1) = .Value
End If
End With
Next
End With
End With
End Sub

複製代碼

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

中學生 Rank: 2

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

4^#

發表於 2014-4-16 12:57 | 只看該作者

回復 2# GBKEE

您的意思是要呈現在哪一列嗎??

可以將值呈現在B列或是列在新的一列中都可

中學生 Rank: 2

帖子: 63
主題: 15
精華: 0
積分: 81
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
註冊時間: 2014-3-16
最後登錄: 2015-9-20

3^#

發表於 2014-4-16 12:49 | 只看該作者

回復 2# GBKEE

是的。請問這樣的問題要如何用VBA呈現呢??

超級版主 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兔年全勤獎章

2^#

發表於 2014-4-16 06:23 | 只看該作者

回復 1# 518587
A列從0~10筆資料判斷一次，看B列值是否都介在於5~6之間，
如果是，將值取0 否，則原值呈現, 如何呈現??

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

靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。

返回列表下一主題上一主題