|
▼ひげくま さん:
ご提示いただいたマクロを実行して、予定の変換ができました。
ありがとうございます。
>この書き方は相対座標の書き方なのは解っていますか?
初心者で解っていません。
>そして、座標をマイナスにすることは出来ないはずです。
新しいマクロの記録で手順を追って、作成したところR[-50]C[1]
から、順に数値が変化していたので、繰り返しの演算式になるの
ではと思った次第です。
素早く、適切な回答ありがとうございます。
今後とも、よろしくお願いいたします。
三浦(照)
>▼三浦(照) さん:
>こんにちは。
>
>>R[k]C[j]の部分は j=1の時 R[-50]C[1]
>
>この書き方は相対座標の書き方なのは解っていますか?
>そして、座標をマイナスにすることは出来ないはずです。
>そもそも、なぜ-50なのかも私には理解できません。
>
>Sheet3のセルに書き込みたいのは、
>(1) Sheet2のセルの値
>(2) Sheet2のセルの値を参照する数式
>のどちらなのでしょうか?
>
>> ActiveCell.FormulaR1C1 = "=Sheet2!R[k]C[j]"
>
>これだと、(2)ということになります。
>
>(1)で良いのであれば、
>
> Dim cc As Long
>
> Dim Sh2 As Worksheet
> Dim Sh3 As Worksheet
>
> Set Sh2 = Sheets("Sheet2")
> Set Sh3 = Sheets("Sheet3")
>
> For cc = 1 To 150
> Sh3.Cells((cc - 1) * 50 + 1, 1).Resize(50, 1).Value = _
> Sh2.Cells(1, cc).Resize(50, 1).Value
> Next cc
>
>これで出来ますけど、どうでしょうか?
|
|