エクセル マクロ関係

質問

セルに入っている数字分セルを動かしたい
例）
セルがＢ５にある状態からＣ３に２０を入力したらマクロボタンでＢ２５に動くようにしたい
もしくはセルがＢ５にある状態からＣ３に２０に入力したらＣ２６のセルのセルがクリアになるようにしたいのですが
宜しくお願いします

回答No.1

imogasi · ベストアンサー

Sheet1でやるとして、Sheet1のシートモジュールに
Public x
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
Range(x).Offset(0, Target).Select
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$C$3" Then
x = Target.Address
End If
End Sub
といれます。
いまセルがB5にあるとします。
セルC3をクリックし、５を入れるとB5の第５行目で、５列右に移動して、G５に行きました。
これでよいでしょうか。

お礼

質問早々のご回答ありがとうございました
シートモジュールに入れましたら思いどおりに動くようになりました
ありがとうございました

回答No.4

Wendy02

こんにちは。

私には、ご質問の意味がほとんど分りません。

＞セルがＢ５にある状態から
＞Ｃ３に２０を入力したら
セルがB5にあるというのは、どういう意味ですか？セルポインタですか？それとも、マウスポインタですか？（おそらく、マウスポインタ側は不可能です）

B5以外の場所から、C3 にセルポインタを移動した場合は、不可とするのでしょうか？
つまり、時系列の記録が必要ですから、B5 にセルポインタを移動した時に、時系列の記録が始まり、C3 の入力待ちか、次のステップがC3 以外の場合には、記録を中止ということになりますね。

＞マクロボタンでＢ２５に動くようにしたい
マクロボタンって何を指すのですか？コマンドボタンですか？

そのボタンの種類はなんですか？ そのボタンはB25 に移動させるということでしょうか？
すでに、B25 に移動してしまったらどうするのですか？一度きりのマクロになってしまいます。

お礼

ご回答ありがとうございました
質問が的確でありませんでした
今後の参考にさせてもらいます

回答No.3

banker_U

うーんマクロでやりますか？
イベント駆動型になるんでどうかなと思います。
言い換えると、シート上のどのセルに値を入力しても、一応そのマクロが起動する形となるので、頻繁に書き換えるシートであれば、あまりとるべき手段とも思えません。
要するに目次チックな使い方が目的であれば、以下を参考にしてみてください。

前半部分だけの解決ですが、ハイパーリンクを使うというのはどうでしょう。

例えば、C4セルに以下の内容を入力します。
=HYPERLINK("[Book1]Sheet1!B"&C3,"B"&C3)
(ブック名，シート名は適当に変えてください)
こうすると、C3セルに20を入力すると、
C4セルが、B20セルに飛ぶハイパーリンクとなります。

ちょっと目的がわからないので、はずしているかもしれません。目的をはっきりさせると、別の解決方法があるような気がします。

お礼

ご回答ありがとうございました
質問が的確でありませんでした
今後の参考にさせてもらいます

回答No.2

i_september

シートに対して下記を追加します。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$3" Then
Cells(5 + Target.Value, 2) = Cells(5, 2)
Cells(5, 2).ClearContents
Cells(5 + Target.Value,Target.Column).Clear
End If

End Sub

マクロの場合はIF文を除いて記述。

お礼

ご回答ありがとうございました

動き方の勉強になりました
ありがとうございました