依條件選對應值 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 依條件選對應值

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

依條件選對應值

高中生 Rank: 3 Rank: 3

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

3^# 跳轉到 »

發表於 2014-4-9 13:08 | 只看該作者

本帖最後由 yen956 於 2014-4-9 13:14 編輯

回復 1# yeh6712
1. 工作表 "仰臥起坐", (第2列)插入一列, 並各填 100,
這樣, 男生超過60次, 女生超過45次才能抓到分數
2. 定義名稱：
x=仰臥起坐!$A$2:$A$63
y=仰臥起坐!$D$2:$D$47
如下圖：

3. 工作表 "成績總表" , E2 公式：
=IF(C2="男",INDIRECT("仰臥起坐!B"&IF(C2="男",MATCH(D2,x,-1)+1,MATCH(D2,y,-1)+1)),INDIRECT("仰臥起坐!E"&IF(C2="男",MATCH(D2,x,-1)+1,MATCH(D2,y,-1)+1)))
向下拉
請參考!!
註：原附圖, 女生45次, 應為100分, 你誤填為男生的95分,
害我以為公式有問題, 查了半天才發現問題所在.

超級版主 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-9 06:58 | 只看該作者

回復 1# yeh6712

Option Explicit
Sub Ex()
Dim i As Integer, M As Variant, S As Integer, Rng As Range
i = 2
With Sheets("成績總表")
Do While .Cells(i, "C") <> ""
S = 0 '不是男女
If .Cells(i, "C") = "男" Then
S = 1 'A欄
ElseIf .Cells(i, "C") = "女" Then
S = 4 'D欄
End If
If S > 0 And .Cells(i, "D") > 0 Then '條件: 有欄位且仰臥起坐次數 > 0
If .Cells(i, "D") < Sheets("仰臥起坐").Columns(S).Cells(2, 1) Then
M = Application.Match(.Cells(i, "D"), Sheets("仰臥起坐").Columns(S), 0)
ElseIf .Cells(i, "D") >= Sheets("仰臥起坐").Columns(S).Cells(2, 1) Then
M = 2 '100分
End If
If IsNumeric(M) Then .Cells(i, "E") = Sheets("仰臥起坐").Columns(S).Cells(M, 2)
'Application.Match 工作表的函數:沒有找到時傳回錯誤值
End If
i = i + 1
Loop
End With
End Sub

複製代碼

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

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

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