帖子: 86
主題: 30
精華: 0
積分: 140
點名: 0
作業系統: windows
軟體版本: XP
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2020-8-26

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-2-7 21:50 | 只看該作者

[已解決]數字與區間的比較

本帖最後由 jiuhtsair 於 2012-2-7 22:58 編輯

各位大大好：

數字與區塊比較.zip (1.44 KB)
小弟想要將一個隨意輸入的數字，判斷他在何者區間，除了利用倆倆比較之外，是否有更好的方式?謝謝！
例如：在a2欄有一個數字23...我想判斷他是在c欄10,20,30,40,50,60,70,80,90.100這些數字的哪兩個之間。
直接判斷當然知道是在20與30之間，但是，如何利用vba寫指令或程式來判斷呢?
懇請大大指導，謝謝！

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

jiuhtsair

中學生 Rank: 2

帖子: 86
主題: 30
精華: 0
積分: 140
點名: 0
作業系統: windows
軟體版本: XP
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2020-8-26

8^#

發表於 2012-2-8 15:49 | 只看該作者

回復 4# GBKEE
謝謝GBKEE大大提供不同解題方式，讓小弟對指令的運用有更多的了解。
感恩！謝謝！

50 字節以內
不支持自定義 Discuz! 代碼

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2012-2-8 14:07 | 只看該作者

RE: [已解決]數字與區間的比較

回復 6# GBKEE

可以運作了,謝謝指正.

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兔年全勤獎章

6^#

發表於 2012-2-8 12:02 | 只看該作者

回復 5# PJChen

Sub judge()
If [A2] >= 10 And [A2] <= 100 Then
a = Application.Lookup([A2], [C2:C11])
b = Application.Lookup([A2], [C2:C11], [C3:C12])
MsgBox [A2] & "介於" & a & "與" & b & "之間"
End If
End Sub

複製代碼

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2012-2-8 11:46 | 只看該作者

回復 2# Hsieh

版大您好,
我將您寫的程式放在excel中,但卻不知如何讓它執行,我將檔案上傳,請你指導!

數字與區塊比較.zip (9.23 KB)

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兔年全勤獎章

4^#

發表於 2012-2-8 11:34 | 只看該作者

回復 1# jiuhtsair
完全判斷

Sub Ex()
Dim A, Rng As Range, S As String
Set Rng = [C2:C11]
A = Application.Match([A2], Rng, 1)
If IsError(A) Then
S = [A2] & " : <= " & Rng(1)
ElseIf A = 1 Then
S = [A2] & " : <= " & Rng(1)
ElseIf A = Rng.Count Then
S = [A2] & " : >=" & Rng(A)
Else
If [A2] = Rng(A) Then
S = [A2] & " : " & Rng(A - 1) & " <-> " & Rng(A)
Else
S = [A2] & " : " & Rng(A) & " <-> " & Rng(A + 1)
End If
End If
MsgBox S
End Sub

複製代碼

TOP

jiuhtsair

中學生 Rank: 2

帖子: 86
主題: 30
精華: 0
積分: 140
點名: 0
作業系統: windows
軟體版本: XP
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2020-8-26

3^#

發表於 2012-2-7 22:50 | 只看該作者

回復 2# Hsieh
感謝大大指導...一試OK！
程式簡潔，小弟原先想用兩兩比較..工程浩大且無效率..
感謝解惑！謝謝！

50 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2012-2-7 22:37 | 只看該作者

本帖最後由 Hsieh 於 2012-2-7 22:39 編輯

回復 1# jiuhtsair

If [A2] >= 10 And [A2] <= 100 Then
a = Application.Lookup([A2], [C2:C11])
b = Application.Lookup([A2], [C2:C11], [C3:C12])
MsgBox [A2] & "介於" & a & "與" & b & "之間"
End If

學海無涯_不恥下問

TOP