Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2016)
シートを超えてSheet1へ戻る
投稿日時: 19/04/02 18:25:29
投稿者: はじめて

お世話になります。
 
1行目は日付、2行目にデータを入力し終わればSheet1へ戻ります。日にちごとに処理をします。
次のマクロは、Sheet1のAA列の2行目へ戻るようにしたものです。
 
Sub ジャンプ()
    Application.Goto Reference:=Worksheets("Sheet1").Cells(2, 27)
End Sub
 
ただ、これは戻るセルが固定になっていますので、Cells(2,●●●)の部分を変えられるようにしたいのです。
よろしくお願いします。
 
 

回答
投稿日時: 19/04/02 18:50:03
投稿者: 半平太

・・で、どの列にすればいいんですか?

投稿日時: 19/04/02 19:25:31
投稿者: はじめて

半平太 さん
早速ありがとうございます。
 
列は日別に入力しますので右のセルへ移動します。
例えば、C列から始めた場合は、日ごとにD列、E列、F列、G列 ・・・・と変化します。
固定された列ではありません。

回答
投稿日時: 19/04/02 19:28:47
投稿者: WinArrow
投稿者のウェブサイトに移動

●●●
をどのような形で指定するのか?
具体的な説明が不足しているので、
一つの提案
 
Sub ジャンプ(ByVal 列 As String)
     Application.Goto Reference:=Worksheets("Sheet1").Cells(2, 列)
 End Sub
 
呼び出し例
Call ジャンプ(列:="Z")

投稿日時: 19/04/02 19:42:52
投稿者: はじめて

WinArrow さん
いつも大変お世話になります。
●●の部分は、例えば今日の入力データがZ列だとしますと、Sheet1から最後のSheetまでZ列に入力します。
終了すると明日の入力準備のためSheet1へ戻りたいのです。そこで、戻り先を今日入力したセルへ戻ることを考えています。結果とした今日はZ列に入力したのでSheet1のZ列に戻ることになります。

回答
投稿日時: 19/04/02 20:26:31
投稿者: WinArrow
投稿者のウェブサイトに移動

はじめて さんの引用:
WinArrow さん
いつも大変お世話になります。
●●の部分は、例えば今日の入力データがZ列だとしますと、Sheet1から最後のSheetまでZ列に入力します。
終了すると明日の入力準備のためSheet1へ戻りたいのです。そこで、戻り先を今日入力したセルへ戻ることを考えています。結果とした今日はZ列に入力したのでSheet1のZ列に戻ることになります。

 
説明がよくわかりません。
 
この入力操作は、どのようなときに、誰がするのですか?
 
※今日のデータを複数のシートに入力するって、
なんとなくですが、非効率ではないかと思います。
若し、人手で、こんな操作を・・と考えているならば、オペレータからクレームが付きそう・・・

回答
投稿日時: 19/04/02 20:43:24
投稿者: WinArrow
投稿者のウェブサイトに移動

人手操作をマクロ化する
ってことは、VBAコードだけツ作ればできるわけではありません。
 
作ったマクロを、どのようなときに、どのような方法で
起動するか?(実行させる)
を考えたうえでマクロを作成しないと、二の足を踏むよ!

投稿日時: 19/04/02 21:40:26
投稿者: はじめて

次のマクロを組み込むことによりセルの位置を確認できます。
このアドレスを使ってSheet1へ戻れませんか〜〜。
 
Dim l As Long
l = ActiveCell.Row
l = ActiveCell.Column
 
Dim s As String
s = ActiveCell.Address

投稿日時: 19/04/02 22:38:23
投稿者: はじめて

半平太 さん
WinArrow さん
 
ご支援ありがとうございました。
私なりに考えてみます。