- ベストアンサー
セルのコピーでオブジェクトが必要です。
- ACCESSからインポートしたデータをシートに展開するため、年ごとにシートを追加する処理を考えています。
- ロジックの一部でセルのコピーを行なっている箇所で「オブジェクトが必要です。」というエラーが発生します。
- 原因として、コピー元のセルが正しく指定されていない可能性があります。
- nozomi300k
- お礼率60% (55/91)
- Visual Basic
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- zap35
- ベストアンサー率44% (1383/3079)
時間がなくゆっくり読んでいられないのですが（１）は値を代入するところですね。ならば Worksheets(Wrk_Year & "年").Cells(Cell_Day, Cell_Month) = Rng.Value で良いのではないでしょうか。 Copyメソッドを使いたいのであれば Rng.Copy をして、（Value.Copyではない） Worksheets(Wrk_Year & "年").Cells(Cell_Day, Cell_Month) をSelectしてから、Activesheet.Paste で貼り付けます
お礼
確かにできました。ありがとうございます。 しかし、いったい何が悪かったのでしょうか？ （わたしもまだ基本的なところが理解できていないのかも知れません。）
関連するQ&A
- マクロで質問します。
初心者です。 下記のようなマクロの式があるのですが、条件を一つ増やしたいのですが、 イロイロ試してみたのですが、うまくゆきませんので教えてください！ Sub 給与支払一覧() Application.ScreenUpdating = False Dim Sh As Worksheet For Each Sh In Worksheets If Sh.Name <> "給与支払一覧" And Sh.Name Like "Sheet*" Then With Worksheets("給与支払一覧") If Sh.Range("D14").Value > 0 Then With .Cells(.Rows.Count, 1).End(xlUp).Offset(1) Sh.Range("O2:X14").Copy .Cells(1) .Resize(13, 10).Value = Sh.Range("O2:X14").Value End With End If End With End If Next Sh Set Sh = Nothing End Sub この中で If Sh.Range("D14").Value > 0 Then とありますが、 同じ条件で I14も ０より大きいな時としたいのですが、 うまくゆきませんでした。 たぶん基本できな簡単な事と思いますが 分かりません。 If Sh.Range("D14").Value > 0 Then If Sh.Range("I14").Value > 0 Then 並べてみたり If Sh.Range("D14、I14").Value > 0 Then こんなのや If Sh.Range("D14、I14").).Value > 0 Then このような事も 他にも笑われるようなことも・・・・・ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロの質問です。下記の式があるのですが、コピーしたい、セルには、文字
マクロの質問です。下記の式があるのですが、コピーしたい、セルには、文字や計算式、又は他のセルから参照させてる物もあるので、張り付けたものに、エラーが数多く表示されるのですが、 コピー元の表示されてる文字を 張り付けることは、できるのでしょうか、 よろしくお願いします。 Sub 給与支払一覧() Application.ScreenUpdating = False Dim Sh As Worksheet For Each Sh In Worksheets If Sh.Name <> "給与支払一覧" And Sh.Name Like "Sheet*" Then With Worksheets("給与支払一覧") If Sh.Range("I14").Value > 0 Then With .Cells(.Rows.Count, 1).End(xlUp).Offset(1) Sh.Range("O2:X14").Copy .Cells(1) .Resize(6, 10).Value = Sh.Range("O2:X14").Value End With End If End With End If Next Sh Set Sh = Nothing End Sub
- ベストアンサー
- オフィス系ソフト
- エクセル マクロ：チェックボックス コピー３
前回、質問した件で、追加で質問させていただきます。 前回の質問は、sheet2のチェックボックスによって、sheet1の列をコピーして、sheet3にペーストするという内容でした。 keithin様からご回答いただき問題は解決しましたが、修正を加えなくてはならなくなりました。 sheet2のチェックボックスによってsheet1の列とsheet4の列をコピーして、sheet3にペーストしようと頑張りましたが、解決できそうにありません。 尚、sheet1とsheet4の行数は同じで、sheet1とsheet4のA列は同じ内容なので必要ありません。 下記が前回のベストアンサーです。 private sub CommandButton1_Click() dim res as range dim rmax as long dim i as integer dim flg as boolean rmax = worksheets("Sheet1").range("B1").end(xldown).row set res = worksheets("Sheet1").range("A1:A" & rmax) for i = 1 to 20 if worksheets("Sheet2").oleobjects("CheckBox" & i).object.value then set res = union(res, worksheets("Sheet1").range("A1:A" & rmax).offset(0, i)) flg = true end if next i if not flg then msgbox "NO CHECK" exit sub end if res.copy worksheets("Sheet3").range("A1").pastespecial paste:=xlpastevalues worksheets("Sheet3").select end sub keithin様 無断で借用させていただきました。申し訳ございません。
- ベストアンサー
- オフィス系ソフト
- エクセル２０１０を使用しています。
前回VBAについてご教授頂きました。 Private Sub Workbook_Open() 'この行から With Worksheets("Sheet1") If .Range("I20") <> Date Then .Range("H20") = .Range("H20") + 4000000 * ((Year(Date) - Year(.Range("I20"))) * 12 + Month(Date) - Month(.Range("I20"))) .Range("I20") = Date End If End With End Sub 'この行まで ここまで教えて頂きました。 一つ出来ると、別の欲が沸いてくるもので、次は、特定の月（４月、７月、１０月、１月）に１００００００ずつ増やしていきたいです。 度々申し訳ございませんが、ご教授頂きたいです。
- ベストアンサー
- その他（学問・教育）
- オブジェクトが必要です
またまた困ってます、、 このコードを実行したとき .Range("H" & i).Copy.wsDetail.Range ("D24") ここでエラーが起きて 「オブジェクトが必要です」 と言われてしまいます(・・;) だれかよろしくお願いします<m(__)m> ※シートの宣言は上でやってます Private Sub 社会保険() Dim i Dim endrow As Long Dim kihon As Long Set wshoken = Worksheets("各種保険料表") Set wsDetail = Worksheets("給与明細") Set wsData = Worksheets("データ入力") kihon = WorksheetFunction.Round(wsData.Range("C5"), -4) endrow = Cells(Rows.Count, 3).End(xlUp).Row With wshoken For i = 2 To endrow If kihon = .Range("C" & i) Then .Range("H" & i).Copy.wsDetail.Range ("D24") .Range("L" & i).Copy.wsDetail.Range ("H24") .Range("N" & i).Copy.wsDetail.Range ("L24") Application.CutCopyMode = False End If Next i End With End Sub
- ベストアンサー
- Visual Basic
- ＶＢＡ 検索して一致したセルへジャンプさせたい
Excelにて、シート１のＡ列とシート２のＡ列のデータにＮｏを入れます。 シート１のＡ列のＮｏをクリックすると、シート２のＡ列の同じＮｏにジャンプするマクロを組みたいです。 現在組んでいるマクロは、 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Sht As Worksheet Dim Rng1 As Range Dim Rng2 As Range Dim FindCell As Range Set Sht = Worksheets("シート2") Set Rng1 = Range("A2:A100") Set Rng2 = Sht.Range("A2:A100")If Intersect(Target, Rng1) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Set FindCell = Rng2.Find(Target.Value) If Not FindCell Is Nothing Then Application.Goto Reference:=FindCell, Scroll:=False End If End Sub です。 一応マクロは実行されますが、そうすると、シート１のＡ列の編集（Ｎｏを追加したり変更したり・・・）できません。 編集や変更もできて、検索マクロも実行できるというマクロの組み方はありますでしょうか？
- 締切済み
- その他（プログラミング・開発）
- エクセル 最終行からの連続コピー
エクセルで最終行から上に連続する１０行（最終行含む）をコピーしたいです。 途中、空白行が含まれている場合でも、最終行を特定し、コピーできるようにするには、下記のコードにどう手を加えたらよいでしょうか？ どなたかアドバイスをお願いします。 Sub Test() Dim i As Long Dim j As Integer Dim rng As Range With ActiveSheet 'フィルタ .Range("A1").CurrentRegion.AutoFilter Field:=1 '行選択 With .AutoFilter.Range For i = .Cells(.Cells.Count).Row To 2 Step -1 If .Rows(i).Hidden = False Then If rng Is Nothing Then Set rng = .Rows(i) Else Set rng = Union(rng, .Rows(i)) End If j = j + 1 End If If j >= 10 Then Exit For Next i 'コピー If Not rng Is Nothing Then rng.Copy Worksheets("Sheet2").Range("A1") Beep Else MsgBox "該当行は存在しません。", 48 End If End With End With Set rng = Nothing なお、コードはこちらを参考にさせていただきました。 http://okwave.jp/qa3552420.html?ans_count_asc=1
- 締切済み
- その他MS Office製品
- マクロに手を加えたいのですが・・・・・
マクロに手を加えたいのですが・・・・・ 下記のマクロの式があるのですが、全シートの ＡＫ８にデーターが０以上だったら 指定の範囲のデーター週払い一覧にコピーしなさいと、 書いてあるのだと おもうのですが・・・ （素人なので、分かりませんが） これだと １件だけ要らないデーターを読みこんでしまいます。 色んなシート名が有りますが、 欲しいデータのあるシート名は、 必ずSheet番号となっているので、 Sheet１～Sheet５０までのデーターから （シートNOは、増えたりします） Sheetの名前から 始まる等の指定をしたいのですが、 どのように 書き換えればよろしいでしょうか、 Sub test() Application.ScreenUpdating = False Dim Sh As Worksheet For Each Sh In Worksheets If Sh.Name <> "週払一覧" Then With Worksheets("週払一覧") If Sh.Range("AJ８").Value > 0 Then With .Cells(.Rows.Count, 1).End(xlUp).Offset(1) Sh.Range("AB3:AK8").Copy .Cells(1) .Resize(6, 10).Value = Sh.Range("AB3:AK8").Value End With End If End With End If Next Sh Set Sh = Nothing End Sub 私の勘ですが(笑) If Sh.Range("AJ８").Value > 0 Thenの IF Sｈを If ｓｈ"" とか Sh（" "） とか Sh（i）とか＠とか やりましたが 、できませんでした、 初歩的な事でしょうが、 教えてください お願いします。
- ベストアンサー
- オフィス系ソフト
- セルの選択ができません。
windws7 Excel2007でマクロ作成中の初心者です。 B列に８月21日から９月20日まで入力されてます。 以下のコードでセルＢＷ28の数値によりセル選択範囲が異なります。 すべて８月２１日の行から開始します。 28のときは、８月２１日の行から２８番目の行まで選択 29のときは、８月２１日の行から２９番目の行まで選択 30のときは、８月２１日の行から３０番目の行まで選択 以上正常にセルの選択が出来ます。 しかし３１のとき ８月２１日の行ただ１行しか選択してくれません。 上の例のように ８月２１日の行から３１番目の行、つまり９月２０日までの行まで 選択したいのですが、どうしたらよいでしょうか。 Sub sersu sentaku() If Range("BW28") = 28 Then Range("B30").Resize(Day(DateSerial(Year(Date), Month(Date), 28)), 66).Select ElseIf Range("BW28") = 29 Then Range("B30").Resize(Day(DateSerial(Year(Date), Month(Date), 29)), 66).Select ElseIf Range("BW28") = 30 Then Range("B30").Resize(Day(DateSerial(Year(Date), Month(Date), 30)), 66).Select ElseIf Range("BW28") = 31 Then Range("B30").Resize(Day(DateSerial(Year(Date), Month(Date), 31)), 66).Select End If End Sub
- ベストアンサー
- Visual Basic
- VBA 範囲選択時エラー
Private Sub Worksheet_SelectionChangeのVBAでA列B列C列でワンクリックで文字が入力できるように設定致しました。 その後、A列からC列を範囲選択してDeleteするとデバック 「実行時エラー 型が一致しません」と出てしまいます。業務上、そのセルのデータは一気に消したいので困っております。どなたか分かる方よろしくお願い致します。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range, rng_1 As Range, rng_2 As Range Application.EnableEvents = False Set rng_1 = Range("H17:H100") Set rng_2 = Range("I17:I100") Set rng_3 = Range("J17:J100") Set rng_4 = Range("K17:K100") Application.EnableEvents = True Set rng = Intersect(Target, rng_1) If Not rng Is Nothing Then Cancel = True If Target.Value = "" Then Target.Value = "(1)" Else Target.Value = "(1)" End If Else Set rng = Intersect(Target, rng_2) If Not rng Is Nothing Then Cancel = True If Target.Value = "(2)" Then Target.Value = Empty Else Target.Value = "(2)" End If Else Set rng = Intersect(Target, rng_3) If Not rng Is Nothing Then Cancel = True If Target.Value = "(3)" Then Target.Value = Empty Else Target.Value = "(3)" End If Else Set rng = Intersect(Target, rng_4) If Not rng Is Nothing Then Cancel = True If Target.Value = "(4)" Then Target.Value = Empty Else Target.Value = "(4)" End If End If End If End If End If End Sub
- 締切済み
- Visual Basic
- 刺繍PRO11の鉛筆ツールをペンタブで使用すると画面がスクロールしてしまい、描くことができません。
- 以前同じ問題に悩んだ方の解決方法を試しましたが、解決できませんでした。
- 液タブを使用しないとフリーハンドで絵を描くことができないのでしょうか？
お礼
ご回答ありがとうございます。 勉強になりました。たいへんよくわかりました。