|
かみちゃん さん回答ありがとうございます。
自分の質問が分かりにくかったために誤解があったようです。
再度教えてください。
>>>質問に具体性がないので、以下のようなシートイメージでしたいことをサンプルデータを交えて説明していただけませんか?
>>
>> 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
|
|