VBAで自動で全体と分析以外のシートを全体に転記| OKWAVE

Excelのマクロで自動で一つのシートに転記したい

お詳しい方宜しくお願い致します。 Excelで"全体"シート以外のシート(ここでは”A”とB”)を"全体"シートに転記したいです。以下のコードをマクロで実行すると"全体"シートに集計はちゃんとされていますが、エラーが出ます。実行時エラー'1004': 'Select' メソッドは失敗しました '_Worksheet'オブジェクトデバッグをするとシート.Selectの部分が間違えていると表記されます。どのようにコードを変えればエラーが出なくなるでしょうか？ -------------------------------------------------------------------- Sub 複数シートのデータを1枚のシートにまとめる_シートオプションあり() '複数シートを１枚 '全体シートがあるか調べる Dim 貼付シート As Worksheet, あり As Boolean For Each 貼付シート In Worksheets If 貼付シート.Name = "全体" Then あり = True Exit For End If Next 貼付シート ' "全体"が存在しなければメッセージを表示して処理を終了 If あり = False Then MsgBox "貼り付けシートがありません。終了します。", vbInformation, "エラー" Exit Sub End If 'シートの内容クリア Worksheets("全体").Select Range("A1").CurrentRegion.Clear '各シートで処理をする Dim 枚数 as Long, シート As Worksheet 枚数 = 0 Dim 除外辞書 As Object, 対象辞書 As Object, 配列 As Variant Dim 除外配列 As Variant, 対象配列 As Variant, 数 As long Set 除外辞書 = CreateObject("Scripting.Dictionary") Set 対象辞書 = CreateObject("Scripting.Dictionary") '除外配列に、除外対象を代入配列 = Split("(全体, 分析)のシートを、除いて実行", ",") 除外配列 = 配列 For 数 = 0 To UBound(除外配列) 除外辞書.Add 除外配列( 数 ), "除外" Next 数 'シート名が除外辞書になければ、対象辞書に加える For Each シート In Worksheets If Not 除外辞書.Exists(シート.Name) Then 対象辞書.Add シート.Name, "対象" End If Next シート '対象のキーを、配列に入れる対象配列 = 対象辞書.keys '配列に入れた対象に、順次処理をする For Each シート In Worksheets(対象配列) Call 複数シートのデータを1枚のシートにまとめる(シート,枚数) Next End Sub Sub 複数シートのデータを1枚のシートにまとめる(シート As Worksheet, 枚数 As Long) '複数シートを１枚 Application.ScreenUpdating = False ' 画面描画を停止 Application.DisplayAlerts = False ' 警告表示を停止 Dim 右下セル As String, セル範囲 As String, 貼り付け先範囲 as Range, 貼り付け先セル As String 'シートが"全体"ではない場合、"全体"にデータを貼り付ける If シート.Name <> "全体" Then 枚数 = 枚数 + 1 'コピーする範囲を取得シート.Select Dim 最終行 As Long '表の最終行を決定最終行 = Cells(Rows.Count, Range("G5").Column).End(xlUp).Row セル範囲 = "A5" & ":" & Cells(最終行, Range("P5").Column).Address(False, False) If 枚数 = 1 Then シート.Range(セル範囲).Copy Worksheets("全体").Range("A1").PasteSpecial Paste:=xlPasteAll Worksheets("全体").Range("A1").PasteSpecial Paste:=xlPasteValues Else '表全体の末端を右下セルとして取得 Worksheets("全体").Select Range("A1").CurrentRegion.Select 右下セル = Cells(Selection.Row + Selection.Rows.Count - 1, Range("A1").Column).Address(False, False) 貼り付け先セル = Worksheets("全体").Range(右下セル).Offset(1, 0).Address(False, False) シート.Range(セル範囲).Offset(1, 0).Resize(Range(セル範囲).Rows.Count - 1).Copy Worksheets("全体").Range(貼り付け先セル).PasteSpecial Paste:=xlPasteAll Worksheets("全体").Range(貼り付け先セル).PasteSpecial Paste:=xlPasteValues End If End If Worksheets("全体").activate Application.DisplayAlerts = true ' 警告表示を再開 Application.ScreenUpdating = True ' 画面描画を再開 End sub

【VBA】　超初心者です　複数のシートに転記したい

Sub べんきょう() Worksheets(Array(1, 3)).Select Range("A1").value = 20 End Sub もしくは Sub べんきょう() Worksheets("sheet1").Select Worksheets("sheet3").Select False Range("A1").value = 20 End Sub でやってもsheet1にしか転記されないんです！！ご指導よろしくお願いします！

Excelでシート名と最終更新日を自動表示したい

Excelを使って（１）セルA1に入れた名目をシート名にし（２）セルH1には、最終更新日を自動で入れたいです。調べた結果、シート名を右クリックして「コードの表示」から（１）は Private Sub Worksheet_Change(ByVal Target As Range) Sheets(1).Name = Range("B1") End Sub を入れてうまくいきましたが、（２）は Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 　If ThisWorkbook.Saved = False Then 　　Worksheets("Sheet1").Range("H1").Value = Date 　End If End Sub を入れてみましたが（←調べましたもの）うまくいきませんでした。単純に、 Private Sub Worksheet_Change(ByVal Target As Range) Sheets(1).Name = Range("B1") End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 　If ThisWorkbook.Saved = False Then 　　Worksheets("Sheet1").Range("H1").Value = Date 　End If End Sub とつなげて入れるのではだめなんでしょうか？それとも、（２）の何かが間違っていますか？ご教授願います。

VBA マクロ　シート　転記

はじめまして。VBA初心者です。今シート１のA列1行目セルにA社、A列2行目にB社、A列3行目にC社と・・ざっと1000行程あり、それぞれB列には値があります。この値をシート２のＢ列に転記したいと思っています。ただ、毎月シートを追加していきますので、左隣のシートから転記しなければなりません。シート２の項目は同じA列とB列で構成されています。A列の値が多少前後するので、FINDを使って以下のようなプログラムを作りました。ただ、左隣のシートから転記とう内容をどうやって追加したら良いのかがわかりません。Previous　をどこかに使えばできるのかなとも思うのですが、その方法がわかりません。 Sub 転記() Dim ws As Worksheet, ws1 As Worksheet, r As Range, r1 As Range Dim LastRow As Long, i As Long, er As Long, wkey As String Set ws = Worksheets("Sheet1") Set ws1 = Worksheets("Sheet2") LastRow = ws.Range("A1").End(xlDown).Row er = ws1.Range("A1").End(xlDown).Row Set r = ws.Range("A1:A" & LastRow) For i = 1 To er wkey = ws1.Range("A" & i) Set r1 = r.Find(What:=wkey, LookIn:=xlValues, LookAt:=xlWhole) If Not r1 Is Nothing Then ws1.Range("B" & i) = r1.Offset(, 1) End If Next Set r1 = Nothing Set r = Nothing Set ws = Nothing Set ws1 = Nothing End Sub どなたか詳しいお方いらっしゃいましたら、初心者の私に教えて頂けませんでしょうか？宜しくお願いします。

EXCEL　VBA 複数シート選択の方法

エクセルVBAのシート選択方法について教えてください。選択対象シート数は4つで、シート名は、「101」「102」「103追加工」「104」とします。シート名「表紙」のセルは A1：101　A2：102　A3：103追加工　A4：104となっており、使用者はB1～B4セルに「○」「×」を入力し、「○」となっているシートのみ選択出来るようにしたい。下記マクロの場合、シート名が全角文字だと使えるのですが、シート名が「101」のように半角数字だけの場合コピーできません。どこを修正すればよいのでしょうか？ Sub TestSample2() Dim c As Range Dim flg As Boolean On Error Resume Next flg = True ThisWorkbook.Activate　 With Worksheets("表紙") 　For Each c In .Range("B1:B4") 　　If c.Value Like "○*" Then 　　　 Worksheets(c.Offset(, -1).Value).Select flg 　　　 flg = False 　　End If 　Next c End With 　With ActiveWindow.SelectedSheets 　If .Count > 0 Then 　　 .Copy 　End If 　End With 　'元のシートに戻る場合　'Application.Goto ThisWorkbook.Worksheets("表紙").Range("A1") End Sub

エクセルVBAで別シートにコピー貼り付け

VBA初心者です。下記のようにプログラムしましたがうまくいかなくて困ってます。どなたかお力をお貸しください。内容としましては輸入Partsのシートからコピーして商品内容確認のシートのセルB17に貼り付けたいです。輸入Partsシートで3列目の空白を探し同じ行の1列目をコピーします。商品内容確認のシートのセルB17にはカーソルは動いているようですが貼りつきません。 Private Sub 商品内容確認2_Click() If MsgBox("商品内容確認へ移動しますか？", 33, "移動の確認") = 2 Then MsgBox "処理を中止します。" Range("A2").Select Exit Sub End If Dim Line As String Dim Maxrow As String Worksheets("輸入Parts").Select Line = 2 Do Until Cells(Line, 1).Value = "" On Error Resume Next If Cells(Line, 3).Value = "" Then Cells(Line, 1).Copy 'コピーする Maxrow = Worksheets("商品内容確認").Range("B17").End(xlDown).Row + 1 Worksheets("商品内容確認").Range("B" & Maxrow).PasteSpecial Paste:=xlPasteValues '値を貼り付け End If On Error GoTo 0 '次の行に移り最後の行まで検索 Line = Line + 1 Loop Worksheets("商品内容確認").Visible = True Worksheets("商品内容確認").Select Worksheets("商品内容確認").Range("B6").Select Worksheets("商品内容確認").輸入Partsシート2.Visible = True Worksheets("商品内容確認").輸出Partsシート2.Visible = False Worksheets("輸入Parts").Visible = False End Sub

シート番号追加VBA

watabe007さま大変お世話になりました前にシートのセルにページ番号を追加するVBAをこちらで教えて頂きまして、本当に有難うございます前回に下記の内容を教えて頂き、大変有難く使わせていただいております Sub pageA() 　　Dim i As Long 　　For i = 1 To Worksheets.Count　　　　　If Worksheets(i).Name = "Sheet3" Then 　　　　　　Worksheets(i).Range("G2") = "'" & i & "/" & Worksheets.Count 　　　　ElseIf Worksheets(i).Name = "Sheet4" Then 　　　　　　Worksheets(i).Range("G3") = "'" & i & "/" & Worksheets.Count 　　　　Else 　　　　　　Worksheets(i).Range("G1") = "'" & i & "/" & Worksheets.Count 　　　　End If 　　Next End Sub それで、今回はどのシート名にも属さないシートはページカウントとしてカウントしない、という方法がありましたらお教え頂きたいのですが、方法はありますでしょうか？お忙しいかと思いますが、アドバイス頂けますますと嬉しいです

Excel2007　VBA　転記について

ご指導のほどお願いします。見積書からボタン300をクリックするとＦＡＸ送付状（テンプレート）.xlsに下記内容が転記するように書いたのですが、質問させてください。 ("見積書").Range("c6")→("Sheet1").Range("e14")に貼り付けはうまく行きますが本当は("見積書").Range("c6")＆("見積書").Range("c8")=&"の件"を("Sheet1").Range("e14")に貼り付けしたいのです。 C6セル「○○○工場」 C8セル「○○○作業」の件 ↑をE14セルに「○○○工場　○○○作業の件」として貼り付けたいです。 Sub ボタン300_Click() Workbooks.Open "\FAX送付状\ＦＡＸ送付状（テンプレート）.xls" ThisWorkbook.Worksheets("見積書").Range("a4").Copy Workbooks("ＦＡＸ送付状（テンプレート）.xls").Worksheets("Sheet1").Range("f6").PasteSpecial Paste:=xlPasteValues ThisWorkbook.Worksheets("見積書").Range("i8").Copy Workbooks("ＦＡＸ送付状（テンプレート）.xls").Worksheets("Sheet1").Range("AD9").PasteSpecial Paste:=xlPasteValues ThisWorkbook.Worksheets("見積書").Range("c6").Copy Workbooks("ＦＡＸ送付状（テンプレート）.xls").Worksheets("Sheet1").Range("e14").PasteSpecial Paste:=xlPasteValues　 ActiveSheet.Range("F9").Value = Date End Sub ご指導のほどお願いします。

VBA転記について教えて下さい

200件位のデータがあるとします。顧客情報AB・商品C～AY 氏名　性　　青森りんご　長野りんご　みかん　バナナ　送料 AA　男　　　1　　　　　　　　　　　　 2　　　　　　100 BB　女　　　　　　　　　　1　　　　　　　　　　　　100 CC　男　　　　　　　　　　　　　　　　　　 3　　　　 0 このデータを別シートAにはりんごと送料　別シートBにはそれ以外のデータに分けたいのです。シートA 氏名　性　　青森りんご　長野りんご　　送料 AA　　男　　　1　　　　　　　　　　　100 BB　　女　　　　　　　　1　　　　100 CC　　男シートB 氏名　性　　みかん　バナナ AA　　男　　　 2 BB　　女 CC　　男　　　　　　 3 こんな感じです。色々参考にして作成しましたがうまくいきませんでしたので教えて欲しいです。よろしくお願いします。エクセルは2002です。１、項目名の転記でデータは200位ですが変動があるので最終行で作成したらうまくいきませんでした。２、データ域の転記が動きません。 Sub サンプル() Dim i As Long Dim lastRow As Long Dim lastcolumns As Long Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet Dim myColumns As Long Dim myKey As String Set S1 = Worksheets("データ") Set S2 = Worksheets("りんご") Set S3 = Worksheets("その他") ' Sheet1の最終行を取得 lastRow = S1.Range("A" & Rows.Count).End(xlUp).Row ' Sheet1の最終列を取得 lastcolumns = S1.Cells(1, Columns.Count).End(xlToLeft).Column ' 項目名の転記 S2.Range("A1:B200").Value = _ S1.Range("A1:B200").Value S3.Range("A1:B200").Value = _ S1.Range("A1:B200").Value 'データ域の転記 For i = 2 To lastcolumns myKey = S1.Cells(1 & i).Value If myKey <> "" Then myColumns = Worksheets(myKey).Cells(1, Columns.Count).End(xlUp).Columns + 1 S1.Range(S1.Cells(1, i), S1.Cells(lastRow, i)).Copy _ Worksheets(myKey).Range(Cells(1, myColumns), Cells(lastRow, myColumns)) End If Next i End Sub

エクセルVBA　１つのシートで出来ますか？

説明が下手で申し訳ございませんが、宜しくお願い致します。 sheet(1)に20個のボタンがあります。ボタンをクリックすると、別のシートが開きます。開いたシートにも複数のボタンがあり、そのうちの任意のボタンをクリックすると、そのボタンの値がsheet(1)のそれぞれのボタンに対応したセルに入力される、という動作を実現したいと思っています。現状、下記のようなコードで目的の動作は実現できてはいるのですが、各ボタンそれぞれにシートを作っているような状況です。(データ自体は全く同じ内容のものが、計20シート) たぶん、もの凄く頭の悪い事をやっているんだろうと思います。 sheet(1)を除いた各シートの入力データ自体は全く同じなので、シート一枚で出来るんじゃないのかなと思い、ネットや本で調べながら色々試してみたのですが、どうも上手く行きません。データが同じでも、sheet(1)のクリックしたボタンによって入力するセルを変えなければならないのが問題です。 sheet(1)のボタンとセルの関連付けや、sheet(1)のどのボタンを押したのかの判別ができればいいのかなと思って調べてみても、初心者にはよく理解できず、もう何週間もチャレンジしているのですがお手上げです。上級者の方の知恵をお借りできれば幸いです。 Sub sheet2を開く() Worksheets(2).Select End Sub Sub 入力1() Worksheets(1).Range("F8") = "データ1" Worksheets(1).Select End Sub Sub 入力2() Worksheets(1).Range("F8") = "データ2" Worksheets(1).Select End Sub Sub 入力3() Worksheets(1).Range("F8") = "データ3" Worksheets(1).Select End Sub Sub sheet3を開く() Worksheets(3).Select End Sub Sub 入力1() Worksheets(1).Range("H8") = "データ1" Worksheets(1).Select End Sub Sub 入力2() Worksheets(1).Range("H8") = "データ2" Worksheets(1).Select End Sub Sub 入力3() Worksheets(1).Range("H8") = "データ3" Worksheets(1).Select End Sub Sub sheet4を開く() Worksheets(3).Select End Sub Sub 入力1() Worksheets(1).Range("M8") = "データ1" Worksheets(1).Select End Sub Sub 入力2() Worksheets(1).Range("M8") = "データ2" Worksheets(1).Select End Sub Sub 入力3() Worksheets(1).Range("M8") = "データ3" Worksheets(1).Select End Sub 　　　・　　　・　　　・　　　・　　　・

ExcelのVBAについてです。シート1と2を作成

ExcelのVBAについてです。シート1と2を作成し、シート1にバーコードまたはキーボードで入力します。シート1は入力専用かつ入力した分の早見表で、実際にはシート2に転記仕訳して、シート3以降に表を作成したいです。使い方はシート1に入力またはシート2をタップまたはクリックすると入力(画面)になります。以前の質問の回答を参考に必要最低限に改良しています。パッと見で構いません、何か不具合は見付からないでしょうか？ '///Sheet1/// Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim time7 As Range For Each time7 In Target If time7.Column = 1 Then time7.Offset(0, 4).Value = Format(Now, "Short Time") & vbCrLf & _ Format(Now, "yyyy/mm/dd hh:nn:ss AM/PM") End If Application.EnableEvents = False Application.EnableEvents = True Next time7 '(1)シートを変数にセット Dim ws1 As Worksheet Dim ws2 As Worksheet Set ws1 = Worksheets("Sheet1") Set ws2 = Worksheets("Sheet2") '(2)シートを指定してデータを転記 ws2.Range("A3:H3").Value = ws1.Range("A3:H3 ").Value End Sub Private Sub Worksheet_Activate() ' ' 新規行挿入 ' ' Worksheets("Sheet2").Range("3:3").Insert Sheets("Sheet1").Range("H3").Select ActiveCell.FormulaR1C1 = "5" Sheets("Sheet1").Range("E3").Select Selection.ClearContents Dim str_Left As String 'セルE4に文字列、セルH4に数字を予め入れておくこと。 str_Left = Left(Cells(4, 5), Cells(4, 8)) MsgBox str_Left & vbCrLf & " " & "OKボタンを押してください!" Sheets("Sheet1").Range("A3").Select Dim se_r As String se_r = Application.InputBox("バーコードを入力してください") Select Case se_r Case "False" MsgBox "キャンセルされました" Case "" MsgBox "空欄が入力されました" Case Else Range("A3").Value = se_r End Select End Sub ' ///Sheet2/// Private Sub Worksheet_Activate() Dim Emp(1 To 300) As String Dim msg As String Dim i, i2, Cnt As Integer Dim N_In As Variant For i = 3 To 3 If IsEmpty(Cells(i, 1).Value) = False Then 'ここで空欄判定 Worksheets("Sheet1").Range("3:3").Insert '対象セルアドレスを改行処理 End If '(1)シートを変数にセット Dim ws1 As Worksheet Dim ws2 As Worksheet Dim st1, s, i3 As Long Dim Bst As Range Set ws1 = Worksheets("Sheet1") Set ws2 = Worksheets("Sheet2") '(2)シートを指定してデータを転記 st1 = ws1.Cells(Rows.Count, "E").End(xlUp).Row 'A列の最終行を設定する s = 3 For i3 = 3 To st1 Set Bst = ws2.Columns("E").Find(What:=ws1.Cells(i3, "E"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) シート間のE列を比較 If Bst Is Nothing Then '比較して無い場合は、下記を実行 ws1.Cells(s, "A") = ws1.Cells(i3, "A") '追加する文字を転記する。（コード） s = s + 1 End If Next i3 Next i '(1)シートを変数にセット Dim ws1_ As Worksheet Set ws1_ = Worksheets("Sheet1") ws1_.Activate End Sub

excel　ユーザーフォームでシートごとに転記2

先日ユーザーフォームへの転記について質問させていただきました。ご回答いただき、ありがとうございました。今度はオプションボタンで選択したときに、シートごとに転記する方法を教えていただけますでしょうか。ユーザフォーム上で、オプションボタンを選択。 OptionButton1・・・シート１へ転記 OptionButton2・・・シート２へ転記これをOKボタンを押したときに転記するようにしたいと思っています。 Private Sub OK_Click() Dim CLrow As Long Dim KYrow As Long CLrow = Worksheets("Sheet1").Range("A65536").End(xlUp).Row KYrow = Worksheets("Sheet2").Range("A65536").End(xlUp).Row If OptionButton1.Value = True Then Worksheets("Sheet1").Range("A" & CLrow).Value = .TextBox1.Value ElseIf OptionButton2.Value = True Then Worksheets("Sheet2").Range("A" & KYrow).Value = .TextBox1.Value End With End Sub ここまでやってみたのですが「参照が不正または不完全です」と出てしまいます。どなたかご教示願います。よろしくお願いします。

エクセルVBA　フォルダ内のどんなシート名であっても読み込みたい

フォルダ内の別ブック(D3で指定)の「情報」シートを読み込んで対象年月日に該当するデータを抽出して別ブックに貼り付けるものなんですが、下のコードではSet ws = wb.Worksheets("情報")と、なっていて、限定しているのですが、これをD3のファイルのどんなシート名であっても読み込みたいのですが、どのようにコードにしたらいいでしょうか？D3で指定するブックには必ずひとつのシートしかありません。よろしくお願いします。 Sub test_1() Dim wb As Workbook Dim ws As Worksheet Dim ms As Worksheet Dim nb As Workbook Dim r As Long Set ms = ThisWorkbook.Worksheets("メニュー") Set wb = Workbooks.Open(ms.Parent.Path & "\" & ms.Range("D3").Value) Set ws = wb.Worksheets("情報") Set nb = Workbooks.Add With ws .Range("Q1").AutoFilter _ Field:=17, _ Criteria1:=">=" & ms.Range("D5").Text, _ Operator:=xlAnd, _ Criteria2:="<=" & ms.Range("F5").Text With .AutoFilter.Range r = .Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count If r = 1 Then MsgBox "抽出対象データ無し。" wb.Close False nb.Close False Set wb = Nothing: Set ws = Nothing Set ms = Nothing: Set nb = Nothing Exit Sub End If .Copy End With End With With nb.Worksheets(1) .Paste With .Range("A1:AG1") .Interior.ColorIndex = 6 .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With End sub

VBA　シート上の転記について

If 入力シート.Range("A4").Value = "会社" Then Dim 会社シート最終行 As Long 会社シート最終行 = 会社シート.Range("AA65536").End(xlUp).Row + 1 会社シート.Range("A" & 会社シート最終行).Value = 入力シート.Range("A4").Value 会社シート.Range("A" & 会社シート最終行).Value = 入力シート.Range("B4").Value VBAで上記のように入力していて、これに会社シートのA行を別のシートに転記したい場合どういう入力方法になるのでしょうか。同じ公式で会社シートの所をsheet1、入力シートの所を会社シートと入力したのですがまったく反映されませんでした。 VBAを始めたばかりなので試行錯誤しながらしています。

可視セルから結合セルへの貼り付けについて

お世話になります。ユーザーフォームに期間を入力し、オートフィルタから可視セルをコピペしようと試みたのですが、貼り付け先が結合セルのためうまく出来ません。可視セルをひとつずつ貼り付けるしかないのでしょうか？仮にセルを一つずつ貼り付ける場合はどのようにコードを書いたらよいでしょうか？以下コード Private Sub CommandButton1_Click() Dim 開始日 As Date Dim 終了日 As Date 条件 = Worksheets("sheet2").Range("C6") 場所 = Worksheets("sheet2").Range("A21") 開始日 = TextBox1 終了日 = TextBox2 If Worksheets("sheet1").AutoFilterMode Then Worksheets("sheet1").AutoFilterMode = False End If ScreenUpdating = False With Sheets("sheet1") .Range("A5").AutoFilter Field:=2, Criteria1:=">=" & TextBox1, Operator:=xlAnd, _ Criteria2:="<=" & TextBox2 '条件日付 .Range("A5").AutoFilter Field:=13, Criteria1:="=" & 条件, Operator:=xlAnd '条件 End With Range("A5").Select Range("A5:X1000").Sort Key1:=Range("A5"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ SortMethod:=xlPinYin, DataOption1:=xlSortNormal Worksheets("sheet1").Range("A5").CurrentRegion.SpecialCells (xlCellTypeVisible) .Copy Worksheets("sheet2").Range("A21").Offset(-1.1).PasteSpecial , Paste:=xlPasteValues Range("C6").Select Application.CutCopyMode = False Worksheets("sheet1").AutoFilterMode = False ScreenUpdating = True End Sub

シートを増やすVBA

フィルタで隠れている場合もある列の値をシート名として増やしていくVBAで以下のようなものをつくりました（値は重複している場合もある）雛型シートがありそれをシート名だけ増やしていくというものです Sub シートを増やす() Dim target As Range Dim h As Range On Error Resume Next Set target = Worksheets("一覧シート").Range("E10:E" & Worksheets("一覧シート").Range("E65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible) If target Is Nothing Then Exit Sub 'シートを増やしていく For Each h In target On Error GoTo errhandle Worksheets(h.Value).Select On Error GoTo 0 Next Sheets("一覧シート").Select Exit Sub errhandle: Worksheets("雛型").Copy after:=Worksheets(Worksheets.Count) ActiveSheet.Name = h.Value Resume End Sub そうすると、実行エラー1004 ”シートの名前をほかのシート、Visual　Basicで参照されるオブジェクトライブラリまたはワークシートと同じ名前に変更することはできません。” というエラーがたまにおきます（シート名が数字の場合におきるようです）解決方法及び理由をご教授ください

シートのイベント　ＶＢＡ

シートをクリックしたらシートをクリアしたいのですがクリックするセルがＡ１の場合は、マクロを実行させたくないのですが下記のコードだとエラーになってしまいます。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Target.Range = Range("a1") Then Cells.Clear End If End Sub ”Range("a1")でなければ、Cells.Clearする” にはどうすればいいですか？

VBA 選択したセルが空白であったらシートを削除

こんばんは！いつもお世話になっています。選択したシート1のセル（C9)が空白であったら、選択したシートを削除するマクロ（VBA)を作りましたが、上手く作動しなくて困っています。どうしたらよいのかよろしくお願い致します。 'シート1のセルC9を選択し、空白か判断する Sub セルの選択() 　　Worksheets("Sheet1").Activate 　　Range("C9").Select 　If Len(Application.Trim(ActiveCell))　= 0 Then 　　MsgBox("空白セル") 　End If End Sub '現在アクティブなシートを削除する Sub DeleteWorksheet() Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True End Sub

マクロ初心者(；◔ิд◔ิ)オーバーフロー！！

異なるシートで一致するデータがあった場合、そのセルを選択して値貼り付けするというマクロを作りました。作ったとはいえ、教えてもらったマクロを試行錯誤して使えるようにアレンジしただけなので、なにがなんだかよくわかっていません。下記の記述でマクロを使用していましたが、突然エラーになって使用できなくなりました。。。。中身を見ると If Worksheets("master sheet").Cells(i, "BL").Value = Worksheets("請求書フォーム").Range("J1").Value Then この部分が黄色に塗りつぶされてるのですが、どこをどう直したらいいのか全くわかりません。ちなみに、ほかのファイルでも同じようなマクロを使用していますが、そちらは問題なく使用できています。なんとか教えていただけないでしょうか。よろしくお願いします！！！！ Sub こぴぺ() ' ' こぴぺ Macro Dim sheet1 As Worksheet Set sheet1 = Worksheets("請求書フォーム") sheet1.Activate Dim target As Range Dim i As Long Worksheets("請求書フォーム").Range("J1").Select For i = 1 To Worksheets("master sheet").Range("BL65536").End(xlUp).Row If Worksheets("master sheet").Cells(i, "BL").Value = Worksheets("請求書フォーム").Range("J1").Value Then If target Is Nothing Then Set target = Worksheets("master sheet").Range("BL" & i) Else Set target = Union(target, Worksheets("master sheet").Range("BL" & i)) End If End If Next i Set sheet1 = Worksheets("master sheet") sheet1.Activate If Not target Is Nothing Then target.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False 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列目に転記が行われるのでしょうか？よろしくご指南くださいませ。

VBAで自動で全体と分析以外のシートを全体に転記

質問者が選んだベストアンサー

お礼 2024/04/01 23:33

その他の回答 (2)

お礼 2024/04/01 23:37

お礼 2024/04/01 23:00

補足 2024/04/01 23:20

関連するQ&A

Excelのマクロで自動で一つのシートに転記したい

【VBA】　超初心者です　複数のシートに転記したい

Excelでシート名と最終更新日を自動表示したい

ネットワークエンジニアとは？技術職の未来を考える

VBA マクロ　シート　転記

EXCEL　VBA 複数シート選択の方法

エクセルVBAで別シートにコピー貼り付け

シート番号追加VBA

Excel2007　VBA　転記について

VBA転記について教えて下さい

エクセルVBA　１つのシートで出来ますか？

ExcelのVBAについてです。シート1と2を作成

excel　ユーザーフォームでシートごとに転記2

AIは使う人の年齢や市場にも影響する？人工知能の可能性

エクセルVBA　フォルダ内のどんなシート名であっても読み込みたい

VBA　シート上の転記について

可視セルから結合セルへの貼り付けについて

シートを増やすVBA

シートのイベント　ＶＢＡ

VBA 選択したセルが空白であったらシートを削除

マクロ初心者(；◔ิд◔ิ)オーバーフロー！！

VBA チェンジイベント別シートにデータ転記

注目のQ&A

カテゴリ

OKWAVE コラム

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

VBAで自動で全体と分析以外のシートを全体に転記

質問者が選んだベストアンサー

お礼 2024/04/01 23:33

その他の回答 (2)

お礼 2024/04/01 23:37

お礼 2024/04/01 23:00

補足 2024/04/01 23:20

関連するQ&A

Excelのマクロで自動で一つのシートに転記したい

【VBA】 超初心者です 複数のシートに転記したい

Excelでシート名と最終更新日を自動表示したい

ネットワークエンジニアとは？技術職の未来を考える

VBA マクロ シート 転記

EXCEL VBA 複数シート選択の方法

エクセルVBAで別シートにコピー貼り付け

シート番号追加VBA

Excel2007 VBA 転記について

VBA転記について教えて下さい

エクセルVBA １つのシートで出来ますか？

ExcelのVBAについてです。シート1と2を作成

excel ユーザーフォームでシートごとに転記2

AIは使う人の年齢や市場にも影響する？人工知能の可能性

エクセルVBA フォルダ内のどんなシート名であっても読み込みたい

VBA シート上の転記について

可視セルから結合セルへの貼り付けについて

シートを増やすVBA

シートのイベント ＶＢＡ

VBA 選択したセルが空白であったらシートを削除

マクロ初心者(；◔ิд◔ิ)オーバーフロー！！

VBA チェンジイベント 別シートにデータ転記

注目のQ&A

カテゴリ

OKWAVE コラム

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

【VBA】　超初心者です　複数のシートに転記したい

VBA マクロ　シート　転記

EXCEL　VBA 複数シート選択の方法

Excel2007　VBA　転記について

エクセルVBA　１つのシートで出来ますか？

excel　ユーザーフォームでシートごとに転記2

エクセルVBA　フォルダ内のどんなシート名であっても読み込みたい

VBA　シート上の転記について

シートのイベント　ＶＢＡ

VBA チェンジイベント別シートにデータ転記