Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4433 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【56654】順位表示 ﾄｷﾉﾊｼﾞﾒ 08/6/27(金) 17:33 質問[未読]
【56657】Re:順位表示 もふもふ 08/6/27(金) 21:06 発言[未読]
【56660】Re:順位表示 ﾄｷﾉﾊｼﾞﾒ 08/6/27(金) 22:40 質問[未読]
【56661】Re:順位表示 もふもふ 08/6/28(土) 6:45 発言[未読]
【56662】Re:順位表示 ﾄｷﾉﾊｼﾞﾒ 08/6/28(土) 13:15 質問[未読]
【56664】Re:順位表示 もふもふ 08/6/28(土) 16:13 発言[未読]
【56668】Re:順位表示 ﾄｷﾉﾊｼﾞﾒ 08/6/29(日) 11:11 質問[未読]
【56669】Re:順位表示 もふもふ 08/6/29(日) 11:44 発言[未読]
【56693】Re:順位表示 ﾄｷﾉﾊｼﾞﾒ 08/6/30(月) 20:36 お礼[未読]
【56654】順位表示
質問  ﾄｷﾉﾊｼﾞﾒ  - 08/6/27(金) 17:33 -
引用なし
パスワード
   　　B　　 C　D　E　F　G　H　I　J　K　L　 M　 N　
1　　　　 1　2　3　4　5　6　7　8　9　10　11　12
2　　　　　　　　　　　　　　　1.　　2.　　　3.
3 8→62
4 10→65
5 12→69

上記の表に1.,2.,3.の印を付けたいのですが如何すればいいのでしょうか。
教えてください。宜しくお願い致します。
【56657】Re:順位表示
発言  もふもふ  - 08/6/27(金) 21:06 -
引用なし
パスワード
   ▼ﾄｷﾉﾊｼﾞﾒ さん：
>　　B　　 C　D　E　F　G　H　I　J　K　L　 M　 N　
>1　　　　 1　2　3　4　5　6　7　8　9　10　11　12
>2　　　　　　　　　　　　　　　1.　　2.　　　3.
>3 8→62
>4 10→65
>5 12→69
>
>上記の表に1.,2.,3.の印を付けたいのですが如何すればいいのでしょうか。
>教えてください。宜しくお願い致します。

>3 8→62
>4 10→65
>5 12→69
はどのセルに、どのように表示されているのでしょうか？
【56660】Re:順位表示
質問  ﾄｷﾉﾊｼﾞﾒ  - 08/6/27(金) 22:40 -
引用なし
パスワード
   もふもふ さん 御質問の件有難う御座います。
8→62　はそれぞれ　B3,B4,B5　に入っております。
それと、1.2.3.は囲み英数字/アラビア数字です。1.2.3.はそれぞれJ8の下、L10の下、N12の下にもって来たいのです。8が1位で1を8の下に、同じく10が2位で2を10の下と云う表現のつもりです。説明がまずくてすみません。
【56661】Re:順位表示
発言  もふもふ  - 08/6/28(土) 6:45 -
引用なし
パスワード
   ▼ﾄｷﾉﾊｼﾞﾒ さん：
>もふもふ さん 御質問の件有難う御座います。
>8→62　はそれぞれ　B3,B4,B5　に入っております。
>それと、1.2.3.は囲み英数字/アラビア数字です。1.2.3.はそれぞれJ8の下、L10の下、N12の下にもって来たいのです。8が1位で1を8の下に、同じく10が2位で2を10の下と云う表現のつもりです。説明がまずくてすみません。

>8→62　はそれぞれ　B3,B4,B5　に入っております。
と言う事は、データは同じセルに”8→62”と入っているわけですね？
【56662】Re:順位表示
質問  ﾄｷﾉﾊｼﾞﾒ  - 08/6/28(土) 13:15 -
引用なし
パスワード
   もふもふ さん 御質問の件有難う御座います。
8→62はB3,　　10→65はB4,12→69はB5　に入っております。
説明がまずくてすみません。
【56664】Re:順位表示
発言  もふもふ  - 08/6/28(土) 16:13 -
引用なし
パスワード
   Sub test()
Dim v As Variant
Dim vv As Variant
Dim w() As Long, x() As Long
Dim j As Long, k As Variant

vv = Range("B3", Cells(Rows.Count, 2).End(xlUp)).Value
ReDim w(1 To UBound(vv, 1)), x(1 To UBound(vv, 1))

For j = 1 To UBound(vv, 1)
　　 v = Split(vv(j, 1), "→")
　　 w(j) = v(0): x(j) = v(1)
Next

For j = 1 To UBound(vv, 1)
　　 With WorksheetFunction
　　　　　k = .Small(x, j)
　　　　　Range("B2").Offset(0, w(.Match(k, x, 0))).Value = j
　　 End With
Next
End Sub
こんな感じのことでしょうか？
かなり荒っぽいですが。
【56668】Re:順位表示
質問  ﾄｷﾉﾊｼﾞﾒ  - 08/6/29(日) 11:11 -
引用なし
パスワード
   もふもふ さん 有難う御座います。

目的は達せられましたが、甘えついででもう一つ教えてください。
Ｂ列に出た1、2、3　を囲み数字の1,2,3　にするのは如何したらよいのでしょうか。
【56669】Re:順位表示
発言  もふもふ  - 08/6/29(日) 11:44 -
引用なし
パスワード
   ▼ﾄｷﾉﾊｼﾞﾒ さん：
>もふもふ さん 有難う御座います。
>
>目的は達せられましたが、甘えついででもう一つ教えてください。
>Ｂ列に出た1、2、3　を囲み数字の1,2,3　にするのは如何したらよいのでしょうか。

囲み文字とは、○に数字と言う事ですか？
その場合、１〜２０までが普通あるのかな？文字コードを調べて、
変数jから導き出していくか・・・
でも、機種によりコードが違うかもしれないので、何とも。。。

あとはArray 関数を使って準備しておくとか？（数によりますが）
【56693】Re:順位表示
お礼  ﾄｷﾉﾊｼﾞﾒ  - 08/6/30(月) 20:36 -
引用なし
パスワード
   もふもふ さん 有難う御座いました。
色いろ勉強になりました。
又、頑張ります。
これからも宜しくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4433 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free