[[20100526142825]]　『あるセルに年月日を入力し、その後他の月別シート』（ＨＳ）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『あるセルに年月日を入力し、その後他の月別シートを自動選択させて貼り付けをしたい。教えてください。』（ＨＳ）

Excel2003　WindowsXP

Sheets("Sheet1").Select

    Selection.EntireRow.Insert
    Sheets("運搬伝票").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B2").Select
    Sheets("運搬伝票").Select
    Range("W1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("運搬伝票").Select
    Range("N3").Select　　　　　　　（Ｎ３は年月日を入力をするのですが年月日に
    Application.CutCopyMode = False　　よって別のシートを選択してすべてのデータ
    Selection.Copy　　　　　　　　　　を貼り付けしたい。）
    Sheets("Sheet1").Select
    Range("C2").Select
    ActiveSheet.Paste
    Sheets("運搬伝票").Select
    Range("O3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("D2").Select
    ActiveSheet.Paste
    Sheets("運搬伝票").Select
    Range("N6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("E2").Select
    ActiveSheet.Paste
    Sheets("運搬伝票").Select
    Range("N4:O4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("F2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("F2").Select
    Sheets("運搬伝票").Select
    Range("N5:O5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    ActiveWindow.SmallScroll ToRight:=6
    Range("G2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G2").Select
    Sheets("運搬伝票").Select
    Range("N7:O7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("H2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H2").Select
    Sheets("運搬伝票").Select
    Range("P3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("I2").Select
    ActiveSheet.Paste
    Sheets("運搬伝票").Select
    Range("P4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("J2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("運搬伝票").Select
    Range("P5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("K2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("運搬伝票").Select
    Range("P6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("L2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("運搬伝票").Select
    Range("O10:R10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("M2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("M2").Select
    Sheets("運搬伝票").Select
    Range("T10:W10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("N2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("N2").Select
    ActiveWindow.SmallScroll ToRight:=7
    Sheets("運搬伝票").Select
    Range("T3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("O2").Select
    ActiveSheet.Paste
    Sheets("運搬伝票").Select
    Range("U3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("P2").Select
    ActiveSheet.Paste
    Sheets("運搬伝票").Select
    Range("T6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("Q2").Select
    ActiveSheet.Paste
    Sheets("運搬伝票").Select
    Range("T4:U4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("R2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("R2").Select
    ActiveWindow.SmallScroll ToRight:=5
    Sheets("運搬伝票").Select
    Range("T5:U5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("S2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("S2").Select
    Sheets("運搬伝票").Select
    Range("T7:U7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("T2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("T2").Select
    Sheets("運搬伝票").Select
    Range("V3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("U2").Select
    ActiveSheet.Paste
    Sheets("運搬伝票").Select
    Range("V4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("V2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("運搬伝票").Select
    Range("V5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("W2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("運搬伝票").Select
    Range("V6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("X2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("運搬伝票").Select
    Range("M12:R12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("Y2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("Y2").Select
    Sheets("運搬伝票").Select
    Range("U12:W12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("Z2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("Z2").Select
    ActiveWindow.SmallScroll ToRight:=7
    Sheets("運搬伝票").Select
    ActiveWindow.SmallScroll Down:=6
    Range("M13:R13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("AA2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AA2").Select
    Sheets("運搬伝票").Select
    Range("U13:W13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("AB2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AB2").Select
    Sheets("運搬伝票").Select
    Range("M14:R14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("AC2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AC2").Select
    Sheets("運搬伝票").Select
    Range("U14:W14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("AD2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AD2").Select
    Sheets("運搬伝票").Select
    Range("M15:R15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("AE2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AE2").Select
    ActiveWindow.SmallScroll ToRight:=6
    Sheets("運搬伝票").Select
    Range("U15:W15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("AF2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AF2").Select
    Sheets("運搬伝票").Select
    Range("M16:R16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("AG2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AG2").Select
    Sheets("運搬伝票").Select
    Range("U16:W16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("AH2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AH2").Select
    Sheets("運搬伝票").Select
    Range("M17:R17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("AI2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AI2").Select
    Sheets("運搬伝票").Select
    Range("U17:W17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("AJ2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AJ2").Select
    Sheets("運搬伝票").Select
    Range("U18:W18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("AK2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AK2").Select
    Sheets("運搬伝票").Select
    Range("U21:W21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("AL2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AL2").Select
    Sheets("運搬伝票").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("U1:V1").Select
    Application.CutCopyMode = False
    ActiveWindow.SmallScroll Down:=-9
    Sheets("Sheet1").Select
    ActiveWindow.SmallScroll ToRight:=-31
    Range("A1:AL2").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range("A2").Select
    Sheets("運搬伝票").Select
    ActiveWorkbook.Save
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub Macro3()
'
' Macro3 Macro
' マクロ記録日 : 2010/5/20  ユーザー名 : hideaki-sato
'

'

    Range( _
        "U1:V1,N3,O3,N4:O4,N5:O5,N6,N7:O7,N8:O8,P3,P3:P8,O10:R10,T10:W10,T3:U3,T4:U4,T5:U5,T6,T7:U7,T8:U8,V3:V8" _
        ).Select
    Range("V3").Activate
    ActiveWindow.SmallScroll Down:=6
    Union(Range( _
        "M18:S21,U1:V1,N3,O3,N4:O4,N5:O5,N6,N7:O7,N8:O8,P3,P3:P8,O10:R10,T10:W10,T3:U3,T4:U4,T5:U5,T6,T7:U7,T8:U8,V3:V8,M12:R12,S12,M13:R13,S13,M14:R14,S14,M15:R15,S15,M16:R16,S16,M17:R17,S17" _
        ), Range("U18:W18")).Select
    Range("M18").Activate
    ActiveWindow.SmallScroll Down:=-18
    Union(Range( _
        "M18:S21,U1:V1,U1:V1,N3,O3,N4:O4,N5:O5,N6,N7:O7,N8:O8,P3,P3:P8,O10:R10,T10:W10,T3:U3,T4:U4,T5:U5,T6,T7:U7,T8:U8,V3:V8,M12:R12,S12,M13:R13,S13,M14:R14,S14,M15:R15,S15,M16:R16,S16,M17:R17" _
        ), Range("S17,U18:W18")).Select
    Selection.ClearContents
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.