Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

65033 / 76734

←次へ　｜　前へ→


	【16278】ランク

koshimizu - 04/7/23(金) 8:12 -


	引用なし

	パスワード

koshimizuと申します。
よろしくお願いします。

下記のようにA列にA,B,C,Dのいずれかが入りB列ににもA,B,C,Dのいずれかが入った
場合にC列には必ず小さい値を返してほしいと言うことで下記のファンクションで
解決しているのですが、A列、B列が共に空白のときは空白で良いのですが、
どちらか片方のみ入力されたら、その値を返してほしいのですが、できません。
お願い致します。

　　A　B　C　D　列
1　 B　C　　C
2　 A　D　　D
3　 C　A　　C

Function fncMinRank(strX As String, strY As String) As String
　　Dim intX As Integer, intY As Integer
　　Dim intMin As Integer
　　'対象セルのランクを数値に置き換えます
　　intX = fncRankNum(strX)
　　intY = fncRankNum(strY)
　　'最小値を求めます
　　intMin = WorksheetFunction.Min(intX, intY)
　　'最小値をランクに戻します
　　If intMin = intX Then
　　　　fncMinRank = strX
　　ElseIf intMin = intY Then
　　　　fncMinRank = strY
　　Else
　　　　　fncMinRank = ""
　　End If
End Function
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Function fncRankNum(strrank As String) As Integer
　　'ランクを数値に置き換えた結果を返します
　　Select Case strrank
　　 Case "A"
　　　　fncRankNum = 26
　　 Case "B"
　　　　fncRankNum = 25
　　 Case "C"
　　　　fncRankNum = 24
　　 Case "D"
　　　　fncRankNum = 23
　　 Case Else
　　　　fncRankNum = 0
　　 End Select
End Function

1 hits

▼

【16278】ランク koshimizu 04/7/23(金) 8:12

≪