| |
▼ひげくま さん：
早速の回答ありがとうございます。
ご指摘の部分を変更したところ、うまく動作する様になりました。
本当にありがとうございました。
>もっと解りやすい説明をしましょう。
申し訳ありませんでした。今後、気を付けます。
>> 1.A1〜A10のｾﾙに1〜10の数字を入力。
>> 2.ｾﾙB〜D、E〜G、H〜Jは"横方向に結合"されており、
>> 3.例えばB1のｾﾙを選択すると、そのｾﾙには｢1｣が入力され、E4のｾﾙを選択すると、
>> そのｾﾙには｢4｣が入力されます。
>> 4.更にH4のｾﾙを選択すると、E4のｾﾙに入力されていた｢4｣がH4のｾﾙに移動する。
>>
>> …という感じの処理をさせようとしています。
>
>1〜2は、マクロでの処理ではなくて、マクロを実行する段階でのシートの状態ですよね。
>
>3で、 いきなり「例えば」と言われても、B1とE4を選択したときの処理しか解りません。それ以外のセルを選択したときはどういう処理をしたいのかが全然解りません。
>入力される値が定数なのであれば、わざわざマクロで処理する必要はないと思いますけど。
>
>もっと解りやすい説明をしましょう。
>
>ということで、何をしたいのかがよく解っていない状態ですが、
>
>> □例えばE2:E5(ｾﾙが結合されているので実際にはE2:G5?)のｾﾙを選択した時、
>> 選択ｾﾙの全てに｢2｣が入力されてしまいます。
>
>に対しての回答をします。
>
>> .Value = Cells(i, 1).Value: End
>
>の部分で2を入力しているわけですが、.Value は Target.Value で、選択範囲すべてのセルの値のことになります。
>それに対し、Cells(i, 1).Valueは、1つのセルの値＝1つの値になります。
>ということで、複数のセルに同じ1つの値が入って当然、というわけですね。
>
>やりたいことを実現するためには、
>.Value = Cells(i, 1).Resize(.Count).Value
>とすれば良いです。
|
|
ＶＢＡ初心者
- 08/5/9(金) 9:52 -
