Excel VBA質問箱 IV

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

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


54302 / 76738 ←次へ | 前へ→

【27232】Re:値の振り分けです。どうかよろしくお願い...
発言  ichinose  - 05/8/3(水) 0:36 -

引用なし
パスワード
   ▼℃素人 さん:
こんばんは。


>初の投稿にも関わらず質問させて頂きます事をお許しください。
>
>質問の内容でございますが,
>文章では表しにくい感がございましたので,
>下のようにまとめさせていただきました。
>
>
>試行 項目1  項目2   試行 項目1  項目2
>1   400    A     10   400    A
>2   350    A     9   500    B
>3   300    B     8   450    A
>4   400    A     7   550    A
>5   600    B     6   500    A
>6   500    A   ⇒ 5   600    B
>7   550    A     4   400    A
>8   450    A     3   300    B
>9   500    B     2   350    A
>10   400    A     1   400    A
>・   ・    ・     
>・   ・    ・              
>・   ・    ・
>
>まず,左から右のように変換したのですが,
ここまではOKということなので
この先から・・・。
    

>試行 項目1  項目2 same different 
>10   400    A  
>9   500    B 
>8   450    A 
>7   550    A 
>6   500    A 
>5   600    B      
>4   400    A 
>3   300    B 
>2   350    A 
>1   400    A 

アクティブシートのA列から上記のデータが入力されているとして
(1行目が項目名、データは2行目以降)

'======================================================
Sub main()
  Dim comptry As Variant
  Dim rng As Range
  comptry = Application.InputBox("比較する試行前入力", , , , , , , 1)
  'ここで、1とか2とかを指定します。

  If TypeName(comptry) <> "Boolean" Then
    Set rng = Range("a2", Cells(Rows.Count, 1).End(xlUp))
    If rng.Row > 1 Then
     With rng.Offset(0, 3).Resize(, 2)
       .Formula = Array( _
         "=if(a2<=" & comptry & ",""***"",IF(C2=C" & 2 + comptry & ",B2,""""))", _
         "=if(a2<=" & comptry & ",""***"",IF(C2=C" & 2 + comptry & ","""",b2))")
       End With
     End If
    End If
End Sub

上記のコードを実行して見てください。
入力要求がありますから、1試行前と比較なら、1
2試行前と比較なら、2
と指定して下さい。

0 hits

【27225】値の振り分けです。どうかよろしくお願い... ℃素人 05/8/2(火) 19:51 質問
【27231】Re:値の振り分けです。どうかよろしくお願... ponpon 05/8/3(水) 0:13 発言
【27232】Re:値の振り分けです。どうかよろしくお願... ichinose 05/8/3(水) 0:36 発言
【27233】Re:値の振り分けです。どうかよろしくお願... ponpon 05/8/3(水) 1:02 発言
【27234】どうもありがとうございました!! ℃素人 05/8/3(水) 2:34 お礼

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