エクセルについて教えて下さい！

Question

SHEET1のA1~A31まで、1月1日～1月31日と日付を入力しています。
SHEET2のA1~下にも日付が入力されているのですが、例えばA1～A10まで1月1日、A11~A13まで1月2日、引き続きA１４～A２０まで1月3日、、、、以下同じように同日付の数が一定でないような入力がされているとき、SHEET１のA1の1月1日をクリックすればSHEET２のA1へ、SHEET１のA2の2月1日をクリックすればSHEET２のA11へと頭出しのようなジャンプ方法はないでしょうか？

相変わらず説明が下手で申し訳ありませんがよろしくお願いします。

GooUserラック · Accepted Answer

「1」の所は「3」か「9」にして下さい（選択するほうの列番号です）
「Sheet1」と「Sheet2」は実際のシート名に変えてください。

GooUserラック · Answer

どちらが元だかかれていないので、赤のところを「9」か「3」にして下さい（クリックするほうの列番号です）

GooUserラック · Answer

コードを書き入れるところは合っていますが「Sheet1」や「Sheet2」は実際の変更後の名前に変えてください。
「I行なので９　C行なので３」について、行は縦方向です。アルファベットになっているのは列です。間違えでは？
「Sheet1」や「Sheet2」のどちらが I列で、どちらが C列なんでしょうか？

GooUserラック · Answer

「うまくいきません」とは？具体的に説明していただくと対応可能かもしれません。
よく見えませんが次のような事はありませんか？
・シート名が実は「Sheet1」や「Sheet2」ではない？

ママチャリ · Answer

横から失礼します。
データ量にもよるのですが、ループ処理で検索するより、Findメソッドで検索した方が、安定したパフォーマンスが得られると思います。
こんな感じです。

ちなみに、標準モジュールは最初からあるものではなく、「挿入」メニューから「標準モジュール」で作成する必要があります。

以下、Findメソッドでの実装例です。Sheet1のBeforeDoubleClickベントプロシジャに記述してください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Columns("A")) Is Nothing Then Exit Sub
    Cancel = True
    If Target.Value = "" Then Exit Sub
    On Error Resume Next
    Application.Goto Reference:=Sheets("Sheet2") _
        .Columns("A").Find(Target.Text, LookIn:=xlValues, LookAt:=xlWhole)
End Sub

GooUserラック · Answer

補足コメントについて

大変申し訳ございません。
下図のように「挿入」「標準モジュール」で作成できます。

GooUserラック · Answer

No.3 の補足

「Sheet1」の日付の列がA列でない場合は次の２行の「1」（同じものが有るので合計4箇所）を適当に変更して下さい。
「If Target.Column <> 1 Then Exit Sub」
「With Cells(行, 1)」

「Sheet2」の日付の列がA列でない場合は次の２行の「1」（合計３箇所）を適当に変更して下さい。
「For 行 = 1 To Cells(Rows.Count, 1).End(xlUp).Row」
「With Cells(行, 1)」

※ 雰囲気で判ると思いますが、B列なら「2」C列なら「3」…となります。

GooUserラック · Answer

☆ 標準モジュールへ

-------------------------------------------------------------------------------
Sub 日付選択(日付 As Date)
Dim 行 As Long
Dim 有 As Boolean
Sheets("Sheet2").Select
For 行 = 1 To Cells(Rows.Count, 1).End(xlUp).Row
With Cells(行, 1)
If .Value = 日付 Then
.Select
有 = True
Exit For
End If
End With
Next
If 有 = False Then
Sheets("Sheet1").Select
MsgBox ("対象が見つかりませんでした")
End If
End Sub
-------------------------------------------------------------------------------

☆ Sheet1 のシートモジュールへ
-------------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Then Exit Sub
If Target.Row > Cells(Rows.Count, 1).End(xlUp).Row Then Exit Sub
Cancel = True
If IsDate(Target.Value) = False Then
MsgBox ("日付を指定して下さい")
Exit Sub
End If
Call 日付選択(Target.Value)
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Then Exit Sub
If Target.Row > Cells(Rows.Count, 1).End(xlUp).Row Then Exit Sub
Cancel = True
If IsDate(Target.Value) = False Then
MsgBox ("日付を指定して下さい")
Exit Sub
End If
Call 日付選択(Target.Value)
End Sub
-------------------------------------------------------------------------------
※ シートモジュールにコードを記入するときは下図の赤枠で囲んだ部分をクリックして開いた所に記入して下さい。
※「Private Sub Worksheet_BeforeDoubleClick …」～「End Sub」がダブルクリックで反応させるためのコードです。
※「Private Sub Worksheet_BeforeRightClick …」～「End Sub」が右クリックで反応させるためのコードです。

GooUserラック · Answer

「セルに入っている日付はシリアル値でしょうか？」ですが、書式設定とはあまり関係ありません。たとえば「1月1日」と入力されているセルを選択したときに数値バーに「2017/1/1」と表示されればシリアル値です。

GooUserラック · Answer

マクロ（ＶＢＡ）ならば可能です。以下回答いただけますか？
・ セルに入っている日付はシリアル値でしょうか？
・「クリックすれば」とは、左シングルクリックでしょうか？左ダブルクリックや右シングルクリックではダメでしょうか？（左シングルクリックのイベントが無い為）
・「SHEET1」の入力後にセルを移動する方向はどちらでしょうか？
・ シートイベントへのコードの記入方法は判りますか？

エクセルについて教えて下さい！

「1」の所は「3」か「9」にして下さい（選択するほうの列番号です）

どちらが元だかかれていないので、赤のところを「9」か「3」にして下さい（クリックするほうの列番号です）

コードを書き入れるところは合っていますが「Sheet1」や「Sheet2」は実際の変更後の名前に変えてください。

「うまくいきません」とは？具体的に説明していただくと対応可能かもしれません。

横から失礼します。

補足コメントについて

No.3 の補足

☆ 標準モジュールへ

「セルに入っている日付はシリアル値でしょうか？」ですが、書式設定とはあまり関係ありません。

マクロ（ＶＢＡ）ならば可能です。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング