Excel VBA質問箱 IV

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

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


23059 / 76738 ←次へ | 前へ→

【59050】Re:数値を大きい順に順位を割り当てる方法について
発言  かみちゃん E-MAIL  - 08/11/24(月) 22:33 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>ユーザー定義関数でA,B,C,Dの変数に収めてある数値を、大きい順に A & B & C & D と言う風に出力する定義関数を作りたい

以下のような感じのことがしたいのでしょうか?

定義関数の名前がいいのが思いつきませんでしたので、func1という名前にしています(^^;

Sub Sample()
 Dim intA As Integer
 Dim intB As Integer
 Dim intC As Integer
 Dim intD As Integer
 
 intA = 4
 intB = 3
 intC = 2
 intD = 1
 
 MsgBox func1(Array(intA, intB, intC, intD))

End Sub

Function func1(vntData As Variant) As String
 Dim i As Integer
 Dim strData As String
 
 For i = 1 To UBound(vntData) + 1
  If strData <> "" Then
   strData = strData & "&"
  End If
  strData = strData & Application.WorksheetFunction.Large(vntData, i)
 Next
 
 func1 = strData
End Function

0 hits

【59047】数値を大きい順に順位を割り当てる方法について まさる 08/11/24(月) 21:06 質問
【59050】Re:数値を大きい順に順位を割り当てる方法... かみちゃん 08/11/24(月) 22:33 発言
【59051】Re:数値を大きい順に順位を割り当てる方法... ponpon 08/11/24(月) 22:39 発言
【59052】Re:数値を大きい順に順位を割り当てる方法... aaa 08/11/24(月) 22:40 発言
【59061】Re:数値を大きい順に順位を割り当てる方法... Hirofumi 08/11/25(火) 19:55 発言
【59064】Re:数値を大きい順に順位を割り当てる方法... Hirofumi 08/11/25(火) 21:21 発言
【59065】Re:数値を大きい順に順位を割り当てる方法... まさる 08/11/26(水) 1:46 お礼
【59077】Re:数値を大きい順に順位を割り当てる方法... まさる 08/11/26(水) 22:04 質問
【59078】Re:数値を大きい順に順位を割り当てる方法... かみちゃん 08/11/26(水) 22:28 発言
【59079】Re:数値を大きい順に順位を割り当てる方法... Hirofumi 08/11/26(水) 22:43 回答
【59080】Re:数値を大きい順に順位を割り当てる方法... まさる 08/11/26(水) 23:08 お礼

23059 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free