エクセルマクロで別のシートでセルを移動する方法
- エクセルのマクロを使用して、別のシートでセルを移動したい場合、一部のコードを変更する必要があります。
- Sheet2でセルを移動するには、Sheet2をアクティブなシートにするために、Sheets("Sheet2").Selectというコードを追加します。
- また、Sheet1に戻る前に、ScreenUpdatingプロパティをTrueに戻す必要があります。Application.ScreenUpdating = Trueというコードを追加してください。
- ベストアンサー
別なシートを開いている状態で、セル移動を移動したい
エクセルのマクロについて sheet1を開いている状態で、sheet2でセルの移動がしたいのですが。 現在下記コードを入れいています。 ----------------------------------------- Private Sub CommandButton1_Click() Application.ScreenUpdating = False Sheets("Sheet2").Select Cells(ActiveCell.Row + 1, "a").Select Sheets("Sheet1").Select Application.ScreenUpdating = True End Sub ----------------------------------------- Sheet2を開いている状態だと、思った通りセルを移動してくれますが、 Sheet1を開いている状態ですと、Sheet1上で動いているのですが。 このような事はマクロでは無理でしょうか？ どなたか、教えて頂けますか？
- usakonoheya
- お礼率57% (4/7)
- Excel（エクセル）
- 回答数1
- ありがとう数9
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
Sheets("Sheet2").Select worksheets("Sheet2").Cells(ActiveCell.Row + 1, "a").Select のようにしなければいけません。 初心者さんが大概最初にひっかかるポイントですが、コマンドボタンのマクロ＝シートモジュールに書いてるマクロだと、「修飾されていない」cellsとかは「そのシートの」セルになります。アクティブシートのセルではありません。 シートモジュールじゃなく標準モジュールにマクロを書いてあれば、ご質問で書かれた文言によって「アクティブシートのセル」が操作できました。
関連するQ&A
- エクセルVBA 他シート選択・セルへ入力
下記コード内で、シートを選択する際、マクロ呼出前は意図したとおり になるのですが、セル入力前だと上手くいきません。Activateにして もダメでした。根本的に理解していないようなので、教えてください。 よろしくお願いします。 シートAの実行ボタンをクリック Private Sub ButtonA_Click() Application.ScreenUpdating = False tempA = TextBox1 If ButtonB = True Then tempB = "10" End If Sheets("B").Select Call XYZ1 ' ----------------- （問題あり ここから）-------------- Sheets("B").Select Cells(1, 2) = 100 For i = 2 To 200 Cells(i, 2) = Range("B" & i - 1) - Range("A" & i) Next ' ----------------- （問題あり ここまで）-------------- Sheets("A").Select Call XYZ5 Application.ScreenUpdating = True End Sub
- ベストアンサー
- オフィス系ソフト
- VBAでコマンドボタン操作で他のシートにコピーする方法を教えてください。
エクセルのVBAでコマンドボタン操作でセルの値を他のシートのセルへコピーしたいのですが、やり方がわかりません。 自分なりに作ってみたのですが何が悪いのか教えてください。 Private Sub CommandButton1_Click() ' Range("A1").Select Selection.Copy Sheets("Sheet2").Select Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select ActiveCell.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Sub Private Sub が怪しいのですが対処もわかりません。 ちなみにsheets2のA1には値がはいっています。 よろしくおねがいします。
- 締切済み
- Visual Basic
- Excxl セル移動マクロ
マクロの初心者です。 Excxl のマクロで、ActiveCell を選択されている"行"の左端からｎ番目にセル移動する場合 Cells(ActiveCell.Row, n).Select で目標のセルが選択されますが、選択されている"列"の上端からｎ番目にセル移動する場合は、どう記述するのでしょうか、ヘルプの文は難しいのでよくわかりません。 教えて下さい。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAの質問 開いているもう一つのブックのシート名をすべて取得する方法
おはようございます。 現在マクロを実行しているブックのシート名を下のようなコードで取得していますが、これを 開いているもうひとつのブックのシート名を マクロ実行しているシート“しーと1”のJ3セル以降に並べる というように変更したいのですが、下のコードを少し変更して 対応できるでしょうか？教えていただけたら助かります。 Sub シート名() Dim i As Integer Dim mySheetCnt As Integer Dim mySheetNam As String Application.ScreenUpdating = False Columns("J:J").Select Selection.ClearContents Range("J2").Select ActiveCell.FormulaR1C1 = "項目名" mySheetCnt = ThisWorkbook.Sheets.Count For i = 2 To mySheetCnt mySheetNam = Sheets(i).Name Sheets("しーと1").Cells(i, 10) = mySheetNam Next i Application.ScreenUpdating = True MsgBox "シート名更新しました。" End Sub
- ベストアンサー
- オフィス系ソフト
- VBA チェンジイベント 別シートにデータ転記
お世話になります。チェンジイベント初心者です。 同一BOOK内の特定のコラムのセルを選択した場合に、自動的に他のシートの特定のセルにデータを転記させたいのですが、どう書けばよいのか分かりません。添付の画像と下記マクロをご覧になって下さい。 -マクロ- Private Sub Worksheet_SelectionChange(ByVal Target As Range) If 1 = ActiveCell.Column Then Worksheets("01").Cells(ActiveCell.Row, 3) = Cells(ActiveCell.Row, 1) Worksheets("01").Cells(ActiveCell.Row, 4) = Cells(ActiveCell.Row, 2) End If End Sub メインのシートは[01]です。このシートのC4を選択し、次に[02]のA列にあるセルを選択すると、[02]のA列・B列のデータがC4・D5に転記されるようにしたいのですが、画像にあります通り[02]のA5を選択してしまうと、[01]のC5・D5に転記されてしまいます。 どのようにすれば、[01]でアクティブにしておいた行の3列目、4列目に転記が行われるのでしょうか？ よろしくご指南くださいませ。
- 締切済み
- その他MS Office製品
- セルの選択
よろしくお願いします。 AE1：AI15の中のあるセル（6桁の値が入っています）を選択している状態から始まりまり、セルAA3に貼り付け、別のマクロ（検索）を実行後、また元のセルにマクロで戻りたいのですが、 どなたか詳しい方教えて下さい、よろしくお願いします。 Private Sub CommandButton2_Click() '検索ボタン Application.ScreenUpdating = False Selection.Copy Range("AA3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False 検索 End Sub
- ベストアンサー
- オフィス系ソフト
- 同じブックに存在するシ－ト（X）の指定セル（A1:C10）を別のシート
同じブックに存在するシ－ト（X）の指定セル（A1:C10）を別のシート（Z）のA2セルへコピーしたいのですが、マクロの記録で入手したコードをコマンドボタンで実行するとエラーになってしまい、先へ進めません。 Private Sub CommandButton1_Click() Sheets("X").Select Range("A1:C10").Select ← この部分が黄色！ Selection.Copy Sheets("Z").Select Range("A2").Select ActiveSheet.Paste End Sub 正しく動作させる方法を教えて下さい。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- Excel： シートの一括クリア
チャートを複数を含む５つのシート（シートの名前： CHT１～CHT5）のVBAで一括にクリアーにしたいです。 マクロの自動記録を使って出来たコードを参考に以下のコードを作りましたが、Cells.Selectのところでエラーになります。 Cells.Selectを消して、コードを走らせる前に、自分で各シートの左上のところをクリックして、シート全域をアクティブ状態にしたら動く様なのです。 VBAではマクロで出てくる Cells.Select は使えないのでしょうか。 何か方法があれば御教示下さい。 Private Sub CommandButton2_Click() Dim i As Integer Dim Name As String For i = 1 To 5 Name = "CHT" + CStr(i) Sheets(Name).Select Cells.Select Selection.Delete Shift:=xlUp Next i End Sub
- ベストアンサー
- オフィス系ソフト
- セル変更2回目以降マクロが走らない
office2010 セル値変更でマクロ実行の件で質問です。 macroというシートのA11セルがプルダウンリストになっていて、その値を変更したらマクロ実行という構成を作成しました。 下記はmacroというシートに記載したマクロ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$11" Then Exit Sub Calculate Macro4 End Sub 下記は標準モジュールに記載したマクロ Sub Macro4() ' 'macroシートB11に表示されるNo.で抽出 Application.EnableEvents = False Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Sheets("Sheet1").Visible = True Sheets("Sheet2").Visible = True Sheets("Sheet3").Visible = True Sheets("Sheet4").Visible = True Sheets("work").Visible = True Sheets("Sheet3").Select Cells.Select Selection.ClearContents Selection.ClearContents Sheets("Sheet2").Select Cells.Select Selection.ClearContents Selection.ClearContents Sheets("Sheet1").Select Cells.Select Selection.AutoFilter Selection.AutoFilter ActiveSheet.Range("$A:$BA").AutoFilter Field:=3, Criteria1:=Sheets("macro").Range("B11") Sheets("kisyu_work").Select Cells.Select Selection.ClearContents Sheets("Sheet1").Select Columns("F:F").Select Selection.SpecialCells(xlCellTypeVisible).Select Application.CutCopyMode = False Selection.Copy ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets("kisyu_work").Select Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False Sheets.Add ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "kisyu_work!R1C1:R1048576C1", Version:=xlPivotTableVersion14). _ CreatePivotTable TableDestination:="", TableName:= _ "ActiveSheet.Name", DefaultVersion:=xlPivotTableVersion14 Cells(1, 1).Select With ActiveSheet.PivotTables("ActiveSheet.Name").PivotFields("V_KISYU_CD") .Orientation = xlRowField .Position = 1 End With Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row - 2).Select ' Selection.Copy ActiveWindow.ScrollWorkbookTabs Position:=xlLast Sheets("kisyu_work").Select Range("B1").Select ActiveSheet.Paste ' Range("C1:C" & Range("B" & Rows.Count).End(xlUp).Row).Value = "=INDEX(M_KISYU!C[5],MATCH(RC[-1],M_KISYU!C,0))" Sheets("macro").Select End Sub A11セルの値を変更するとMacro4は実行されます。 しかしながら、２回以上続けてA11の値を変更するとMacro4が動作しません。 なぜなのでしょうか？ なお、プルダウンリストの構成をやめると、連続してA11セル値変更しても動作します。
- ベストアンサー
- Excel（エクセル）
- excel 2003でCSVファイルを読み込むVBA
現在CSVファイルを読み込むマクロを作成してますが、レベルが低く下記載のコードで作業を行ってます。 皆様の技術をお借りしたいので、ご教授宜しくお願い致します。 ※現在のコードです。 CommandButton1でフォルダーを開いてcsvファイルを選択し、toolをsheetに追加してます。それから、CommandButton3で追加されたtoolからB14:C14）を選択し最終行までコピーしSheet1の（B12）に数値のみを貼り付けています。 結構手間が係り作業に時間がかかってしまいます。 そこで、改良をしたいと思いますのでご教授お願い致します。 ※改良したいポイント (1)同じフォルダー内のTOOL.CSVをフォルダーを開かず直接commandButton1でSheetに追加する。 (2)Sheet2にコピーされたデーターから（B14:C14）を選択し最終行までコピーしSheet1の（B12）に数値のみを貼り付ける。 (commandButton3はなくしたいと思ってます） 以上です。 宜しくお願い致します。 --------------------------------------------------------- Private Sub CommandButton1_Click() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Myname = ActiveWorkbook.Name CSV_Filename = Application.GetOpenFilename("CSVファイル(*.CSV;*.prn),*.CSV;*.prn", , "CSVファイルを開く") If CSV_Filename = False Then Exit Sub Workbooks.Open CSV_Filename CSV_SheetName = Worksheets(1).Name Sheets(CSV_SheetName).Move after:=Workbooks(Myname).Sheets(Sheets.Count + 1) Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub ---------------------------------------------------------------- Private Sub CommandButton3_Click() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Sheets("(TOOL)").Select Sheets("(TOOL)").Range("B14:C14").Select Sheets("(TOOL)").Range(Selection, Selection.End(xlDown)).Select Selection.copy Sheets("CSV Road").Select Sheets("CSV Road").Range("B12").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub -------------------------------------------------------------
- 締切済み
- オフィス系ソフト
お礼
ありがとうございます。無事できました。 シートモジュールと標準モジュールの違いもなんとなくしか理解していませんでしが、ご説明を読み理解しました。 本当にありがとうございます。