Excel VBA質問箱 IV

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

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


4423 / 13644 ツリー ←次へ | 前へ→

【56713】順位表示-2 トキノハジメ 08/7/1(火) 19:46 質問[未読]
【56715】Re:順位表示-2 ponpon 08/7/1(火) 20:05 発言[未読]
【56718】Re:順位表示-2 トキノハジメ 08/7/1(火) 21:16 質問[未読]
【56719】Re:順位表示-2 もふもふ 08/7/1(火) 21:41 発言[未読]
【56721】Re:順位表示-2 もふもふ 08/7/1(火) 22:23 発言[未読]
【56750】Re:順位表示-2 トキノハジメ 08/7/3(木) 14:14 お礼[未読]
【56753】Re:順位表示-2 もふもふ 08/7/3(木) 15:42 発言[未読]
【56760】Re:順位表示-2 トキノハジメ 08/7/3(木) 17:26 お礼[未読]
【56720】Re:順位表示-2 ponpon 08/7/1(火) 21:47 発言[未読]
【56716】Re:順位表示-2 もふもふ 08/7/1(火) 20:35 発言[未読]
【56717】Re:順位表示-2 ponpon 08/7/1(火) 20:49 発言[未読]

【56713】順位表示-2
質問  トキノハジメ  - 08/7/1(火) 19:46 -

引用なし
パスワード
      B    C  D  E  F  G  H  I  J  K  L  M  N  O
14      5  2  1  4  6  11 8  12 9  8  10 3  7 
15 3→数字
16 8→数字
17 2→数字
18        3                2    1   ←結果  
上記の表でB-15の3が1位、B-16の8が2位、B-17の2が3位のとき、結果の様に
D2の下D-18に3 Lの下L8-18に2 Nの下N-18に表示したいのですが。
B-15の3が1位、B-16の8が2位、B-17の2が3位と云う表示です。
何かヒントを教えて下さい。お願い致します。

【56715】Re:順位表示-2
発言  ponpon  - 08/7/1(火) 20:05 -

引用なし
パスワード
   ▼トキノハジメ さん:
>   B    C  D  E  F  G  H  I  J  K  L  M  N  O
>14      5  2  1  4  6  11 8  12 9  8  10 3  7 
>15 3→数字
>16 8→数字
>17 2→数字
>18        3                2    1   ←結果  
>上記の表でB-15の3が1位、B-16の8が2位、B-17の2が3位のとき、結果の様に
>D2の下D-18に3 Lの下L8-18に2 Nの下N-18に表示したいのですが。
>B-15の3が1位、B-16の8が2位、B-17の2が3位と云う表示です。
>何かヒントを教えて下さい。お願い致します。

必ず、3が一位で、8が二位で、2が三位なら(どういう基準かわかりませんが)
14行目を左から順に見ていって、
 そのセルの値が、3なら下に4つずらしたセルに「1」
         8なら下に4つずらしたセルに「2」
         2なら下に4つずらしたセルに「3」
 と、入力する。

【56716】Re:順位表示-2
発言  もふもふ  - 08/7/1(火) 20:35 -

引用なし
パスワード
   ▼トキノハジメ さん:
>   B    C  D  E  F  G  H  I  J  K  L  M  N  O
>14      5  2  1  4  6  11 8  12 9  8  10 3  7 
>15 3→数字
>16 8→数字
>17 2→数字
>18        3                2    1   ←結果  
>上記の表でB-15の3が1位、B-16の8が2位、B-17の2が3位のとき、結果の様に
>D2の下D-18に3 Lの下L8-18に2 Nの下N-18に表示したいのですが。
>B-15の3が1位、B-16の8が2位、B-17の2が3位と云う表示です。
>何かヒントを教えて下さい。お願い致します。

 
【56654】順位表示 の表示する位置が変わっただけなのでは?

【56717】Re:順位表示-2
発言  ponpon  - 08/7/1(火) 20:49 -

引用なし
パスワード
   本当だ!!
同じ質問ですね。

【56718】Re:順位表示-2
質問  トキノハジメ  - 08/7/1(火) 21:16 -

引用なし
パスワード
   ponpon さん、もふもふさん 有難うございます。
同じ質問では有りません。
前にもふもふさんに教えていただいたのは表の中で数字と云うところの大小で順位
を取っておりましたが今回の質問はB-15の→の前の3番が1位、同じく8番が2位
、2番が3位と云う事です。この数字は都度変わります。
その都度→の前に出た数字(14)の下に1,2,3と表示をしたいのて゛す。
必ずB-15が1位表示、B-16に2位表示、B-17に3位表示、これは固定て゛す。
何時も説明がまずくてすみません。

【56719】Re:順位表示-2
発言  もふもふ  - 08/7/1(火) 21:41 -

引用なし
パスワード
   ▼トキノハジメ さん:
>ponpon さん、もふもふさん 有難うございます。
>同じ質問では有りません。
>前にもふもふさんに教えていただいたのは表の中で数字と云うところの大小で順位
>を取っておりましたが今回の質問はB-15の→の前の3番が1位、同じく8番が2位
>、2番が3位と云う事です。この数字は都度変わります。
>その都度→の前に出た数字(14)の下に1,2,3と表示をしたいのて゛す。
>必ずB-15が1位表示、B-16に2位表示、B-17に3位表示、これは固定て゛す。
>何時も説明がまずくてすみません。

>B-15の→の前の3番が1位、同じく8番が2位、2番が3位と云う事です。
ここの理屈がわかりません。

前回は
> 8→62
> 10→65
> 12→69
のように”→”の右側を小さい順に順位をつけています。
今回の順位のつけ方を、もう少しわかりやすくお願いします。
それとも単純に上から順位が決まっているのですか?

【56720】Re:順位表示-2
発言  ponpon  - 08/7/1(火) 21:47 -

引用なし
パスワード
   ▼トキノハジメ さん:
>必ずB-15が1位表示、B-16に2位表示、B-17に3位表示、これは固定て゛す。

なら、頭の数字は

Sub test()
  Dim 一位 As Long, 二位 As Long, 三位 As Long
  
  一位 = Split(Range("B15").Value, "→")(0)
   MsgBox 一位
  二位 = Split(Range("B16").Value, "→")(0)
   MsgBox 二位
  三位 = Split(Range("B17").Value, "→")(0)
   MsgBox 三位
End Sub

で取得できるので後は14行目を探すだけですか?

【56721】Re:順位表示-2
発言  もふもふ  - 08/7/1(火) 22:23 -

引用なし
パスワード
   それとも単純に上から順位が決まっているのなら、
Sub test2()
Dim v As Variant
Dim vv As Variant
Dim w() As Long
Dim j As Long
Dim r As Range

Set r = Range("C14", Cells(14, 3).End(xlToRight))
vv = Range("B15", Cells(Rows.Count, 2).End(xlUp)).Value
ReDim w(1 To UBound(vv, 1))

For j = 1 To UBound(vv, 1)
  w(j) = Split(vv(j, 1), "→")(0)
  With WorksheetFunction
     Range("B15").Offset(UBound(vv, 1), .Match(w(j), r, 0)).Value = j
  End With
Next
End Sub
こんな感じの事でしょうか?

【56750】Re:順位表示-2
お礼  トキノハジメ  - 08/7/3(木) 14:14 -

引用なし
パスワード
   もふもふ さん ponponさん 有難うございます。

もふもふさんのアドバイスで単独テストでは、問題なく目的は達せられたのですが
プログラムに組み込んだところ答えはて゛ているのですが下記のところで
  w(j) = Split(vv(j, 1), "→")(0)
型が一致しません。とエラーでとまります。いろいろプログラムを見回して見ても特に問題は見つかりません。何か考えられるところがあれば教えてください。
まずは有難う御座いました。

【56753】Re:順位表示-2
発言  もふもふ  - 08/7/3(木) 15:42 -

引用なし
パスワード
   ▼トキノハジメ さん:
>もふもふ さん ponponさん 有難うございます。

>プログラムに組み込んだところ
それ全体を見ないと何とも言えないですよ。
・1つには”→”がその列にないところがあるとか。(空白セルとか、他の文字列とか)
ぐらいしか思いつきません。

【56760】Re:順位表示-2
お礼  トキノハジメ  - 08/7/3(木) 17:26 -

引用なし
パスワード
   ▼もふもふ さん:
>▼トキノハジメ さん:
>>もふもふ さん ponponさん 有難うございます。
>
>>プログラムに組み込んだところ
>それ全体を見ないと何とも言えないですよ。
>・1つには”→”がその列にないところがあるとか。(空白セルとか、他の文字列とか)
>ぐらいしか思いつきません。

再度、有難う御座います。種々調べてみます。

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