Excel VBA質問箱 IV

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

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


22531 / 76733 ←次へ | 前へ→

【59582】Re:最新データを表示させるには?
回答  ひろりん  - 08/12/23(火) 22:56 -

引用なし
パスワード
   かみちゃん さん回答ありがとうございます。

自分の質問が分かりにくかったために誤解があったようです。

再度教えてください。

>>>質問に具体性がないので、以下のようなシートイメージでしたいことをサンプルデータを交えて説明していただけませんか?
>>
>>  A  B  C  D  E
>>1 12 12 
>>2 15  9  20 15
>>3 12 25  12
>>4  9 22  36 25 9
>
>>>たとえば、Excel2003まででしたら、IV列から左方向に値が入っているセルを取得
>>>して、
>>>A列に転記するという感じになるのではないでしょうか?

IV列からではなく、B2列から順次C2・・E2と入力され、常にA2列に最新データが表示されているという具合です。

>それでは、たとえば、A2セルの値を手動で取得してみることを考えてみてください。
>Excel2003までの環境を前提に書きます。
>
>・IV2セルをアクティブにする
>・Ctrlキーを押しながら、←キーを押す
>・上記の例では、D2セルがアクティブになる
>・アクティブになったセルをコピーする
>・A2セルをアクティブにする
>・A2セルに貼り付ける
>
>以上でしたいことができませんか?
>
>これをマクロでしたいならば、この操作を「マクロの記録」で記録してみてください。
>そして、記録したコードを他の行の場合だとどのようにして修正するのかを考えます。
>
>考え方がわからない場合は、記録できたコード(自分でできた範囲)を提示してみませんか?

上記内容についてマクロを組んでみましたが動作しません。
どうしたら良いのでしょうか?(初心者には難しいが少しずつ覚えていきます。)

Sub SelectCase_Test()
    Dim x As Integer
    x = B2

    Select Case x
      Case C2 > 1
        x = C2 '1.
      Case C2 > 1 And D2 > 1
        x = D2 '2.
      Case C2 > 1 And D2 > 1 And E2 > 1
        x = E2 '3.
      Case C2 > 1 And D2 > 1 And E2 > 1 And F2 > 1
        x = F2 '4.
      Case Else
        x = 0 '5.
    End Select
End Sub
3 hits

【59573】最新データを表示させるには? ひろりん 08/12/22(月) 23:41 質問
【59575】Re:最新データを表示させるには? かみちゃん 08/12/23(火) 9:42 発言
【59576】Re:最新データを表示させるには? ひろりん 08/12/23(火) 12:56 回答
【59577】Re:最新データを表示させるには? かみちゃん 08/12/23(火) 14:41 発言
【59582】Re:最新データを表示させるには? ひろりん 08/12/23(火) 22:56 回答
【59583】Re:最新データを表示させるには? かみちゃん 08/12/23(火) 23:05 発言
【59606】Re:最新データを表示させるには? ひろりん 08/12/24(水) 21:48 回答
【59607】Re:最新データを表示させるには? かみちゃん 08/12/24(水) 22:07 発言
【59608】Re:最新データを表示させるには? ひろりん 08/12/24(水) 23:53 回答
【59622】Re:最新データを表示させるには? かみちゃん 08/12/26(金) 1:44 発言

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