エクセルのマクロの手直し

2023/07/26 19:22

このQ&Aのポイント

エクセルのマクロの手直しについて教えてください。
(1)シートの保護を解除し、(2)E42～H42までを選択しコピー、(3)E18をクリックして形式名を選択して貼り付け（その中の値のみ）、(4)E42～H42までを選択し数式と値のクリア、(5)シートの保護を行いたいです。
(3)のE18というセルをE列で、行番号はI42のセルに７を足した数字にしたいです。I42のセルには条件により0以上35以下の整数が入ります。修正すべき部分を教えてください。

ベストアンサー

エクセルのマクロの手直し

2002/05/27 19:29

お世話になります。エクセルのマクロに教えてください。 (1)シートの保護を解除 (2)E42～H42までを選択し[コピー] (3)E18をクリックして[形式名を選択して貼り付け]（その中の値のみ） (4)E42～H42までを選択し[数式と値のクリア] (5)シートの保護　→　OK ここで (3)のE18というセルの所を　E列で、行番号は　I42　のセルに７を足した数字　というようにしたい。（I42の値が15だったらE22という具合）ちなみに　I42　のセルは条件により変化し０以上３５以下の整数が入る。以下は(1)から(5)の作業をマクロの新規作成で「マクロ」という名前で記録したものです。どの部分を修正すればいいのか教えてください。 Sub マクロ() ' ' マクロ Macro ' マクロ記録日 : 2002/5/27 ユーザー名 : ' ' ActiveSheet.Unprotect Range("E42:H42").Select Selection.Copy ActiveWindow.ScrollRow = 10 Range("E18").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False ActiveWindow.SmallScroll Down:=6 Application.CutCopyMode = False Range("E42:H42").Select Selection.ClearContents Range("I37").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub

HGK
お礼率69% (138/199)

オフィス系ソフト
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

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

ベストアンサー

tamagawa49
ベストアンサー率46% (123/265)

2002/05/27 20:53 回答No.1

Range("E18").Select の部分をRange("E" & Cells(42, 9) + 7).Selectに書き換えればできると思います。 Sub マクロ() ActiveSheet.Unprotect Range("E42:H42").Copy Range("E" & Cells(42, 9) + 7).Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Range("E42:H42").Select Selection.ClearContents Range("I37").Select ActiveSheet.Protect End Sub のような感じでいいはずです。ちょっと変なところで改行してあって読みづらくてすみません。では、頑張って下さい。

質問者

お礼 2002/05/27 22:10

ありがとうございました。ばっちりでした。

関連するQ&A

Excel マクロ任意のセルから実行したい
こんにちは、Excel2003を使用しています。 ExcelでK55からE55までのセルの値を削除して（空白にして）それぞれに「---を引いた透明のダイアローグボックス」をコピーしていくマクロを作成したことがあります。このときは開始するセルがK55と決まっていたのですが今度は任意のセルから（たとえば選択したセルの右隣とか）実行したいのですがどのようにマクロを作ればよいでしょうかご存じの方お教えください。なお参考に上記のマクロを記載します。 Range("E55:J55").Select Selection.ClearContents Range("H55").Select ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 672#, 729#, _ 81#, 13.5).Select Selection.Characters.Text = "" With Selection.Font .Name = "ＭＳＰゴシック" .FontStyle = "標準" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Selection.ShapeRange.Fill.Visible = msoFalse 'Selection.ShapeRange.Fill.Solid 'Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoFalse ActiveSheet.Shapes("Text Box 12").Select Selection.Characters.Text = "---" With Selection.Characters(Start:=1, Length:=3).Font .Name = "ＭＳＰゴシック" .FontStyle = "標準" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Selection.HorizontalAlignment = xlCenter Range("K55").Select ActiveSheet.Shapes("Text Box 12").Select Selection.Copy Range("I55").Select ActiveSheet.Paste Range("H55").Select ActiveSheet.Paste Range("G55").Select ActiveSheet.Paste Range("F55").Select ActiveSheet.Paste Range("E55").Select ActiveSheet.Paste Range("E56").Select Selection.Copy Range("F56:J56").Select ActiveSheet.Paste Application.CutCopyMode = False Range("E56:J56").Select Selection.Copy Range("E57:E59").Select ActiveSheet.Paste Application.CutCopyMode = False Range("K59").Select End Sub
- ベストアンサー
- その他MS Office製品
エクセルでマクロを組み始めたばかりの者です。下記の
エクセルでマクロを組み始めたばかりの者です。下記のようなマクロを組んでみましたが、27行目もしくは41行目のActiveSheet.Pasteで「実行時エラー‘1004‘：変更しようとしているセルまたはグラフは保護されているため読み取り専用となっています…」というエラーメッセージが出て止まってしまいます。しようとしている内容は、転送ボタンを押し各シートの指定セルへ一括転送（コピー）をしたいのです。その際、転送先はシート保護をしておきたいのです。エラーはエクセル2010で確認しましたが、職場のＰＣを使用するため2007や2003等他のバージョンを利用する可能性もあります。また、仕事で使用するため早急に使わなければならず焦っています。 Option Explicit Private Sub CommandButton2_Click() Call Macro2 End Sub Sub Macro2() Workbook.Open Filename:=”K:¥共有¥○○○.xlsm” ActiveSheet.Unprotect ThisWorkbook.Activate Range(”D4:G20”).Select Selection.Copy Windows(”○○○.xlsm”).Activate Range(”E7”).Select ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveWorkbook.Save ActiveWindow.Close Application.CutCopyMode = False Workbook.Open Filename:=”C:¥Users¥Desktop¥×××.xlsm” ActiveSheet.Unprotect ThisWorkbook.Activate Range(”D4:G20”).Select Selection.Copy Windows(”×××.xlsm”).Activate Sheet(”△△△”).Select Range(”AF18:AI34”).Select ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveWorkbook.Save ActiveWindow.Close Application.CutCopyMode = False Workbook.Open Filename:=”K:¥共有¥□□□.xlsm” ActiveSheet.Unprotect ThisWorkbook.Activate Range(”D4:G20”).Select Selection.Copy Windows(”□□□.xlsm”).Activate Sheet(”▽▽▽”).Select Range(”AF18:AI34”).Select ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveWorkbook.Save ActiveWindow.Close Application.CutCopyMode = False MsgBox " 『○○○』と" & vbCrLf & "『×××』と" & vbCrLf & "『□□□』の" & vbCrLf & "規格を変更しました。" End Sub どの様に修正すれば良いのでしょうか？マクロが原因でしょうか？または他の原因があるのでしょうか？マクロ初心者のため、修正方法など具体的な詳細をお教えいただけないでしょうか。お手数をおかけして申し訳ございませんが、よろしくお願いします。
- ベストアンサー
- Visual Basic
Excelマクロを削除するマクロについての質問です。
Excelマクロを削除するマクロについての質問です。現在Excel2003で、記入に便利なようにマクロを使って「パソコンボランティア活動報告書」（以下"活動報告書"）を作っています。この活動報告書をセキュリティ警告（マクロを有効にする等）が出ないようにしてホームページに載せたいので、私なりに「新しいマクロの記録」を使って、「マクロ削除」のマクロを作ってみました。しかしこれでは今までのマクロは削除されますが、「マクロ削除」マクロが残ってしまいます。今までのマクロはもちろんのこと、「マクロ削除」マクロを消すためにはどうすればいいのでしょうか？ Sub マクロ削除() ' ' マクロ削除 Macro ' ' ActiveSheet.Unprotect ActiveWindow.SmallScroll Down:=9 Range("Q27:R27").Select Selection.ClearContents ActiveWindow.SmallScroll Down:=-21 Sheets("リスト項目").Visible = True Application.DisplayAlerts = False Sheets("リスト項目").Delete Cells.Select With Selection.Validation .Delete .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ :=xlBetween .IgnoreBlank = True .InCellDropdown = True .IMEMode = xlIMEModeNoControl .ShowInput = True .ShowError = True End With Range("E4:P4,J5:AG5,E6:N6,R6:AG6,F7:J7,O7:AG7,C15:AG17").Select Range("C15").Activate ActiveWindow.SmallScroll Down:=9 Range("E4:P4,J5:AG5,E6:N6,R6:AG6,F7:J7,O7:AG7,C15:AG17,I27:O27,C28:AG41"). _ Select Range("C28").Activate ActiveWindow.SmallScroll Down:=15 Range( _ "E4:P4,J5:AG5,E6:N6,R6:AG6,F7:J7,O7:AG7,C15:AG17,I27:O27,C28:AG41,C42:AG44"). _ Select Range("C42").Activate Selection.ClearComments ActiveWindow.SmallScroll Down:=-36 Range("AC4:AE4,F5:I5,J5:AG5,E6:N6,R6:AG6,F7:J7,O7:AG7").Select Range("O7").Activate Selection.ClearContents Range("E4:P4").Select ChDir "C:\work" ActiveWorkbook.SaveAs Filename:="C:\work\yyyymmddパソコンボランティア活動申請及び報告書.xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False Range("E4:P4").Select End Sub
- ベストアンサー
- その他MS Office製品
エクセルマクロ
お世話になります。下記の記述でどこがおかしいのでしょうか上手く印刷できません。 Sub Macro13() ' ' 'Dim i As Long For i = 1 To 4 Range("Ai:Ei").Select Selection.Copy Sheets("カード").Select Range("G1:K1").Select Selection.Paste Range("A1:F21").Select Application.CutCopyMode = False ActiveSheet.PageSetup.PrintArea = "$A$1:$F$21" ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True Next i End Sub
- ベストアンサー
- オフィス系ソフト
マクロの実行について　質問です。
マクロ勉強中です！何時間も調べておりますが、どうしても分からないので　お教え下さい（；＿；）別シートの都道府県が混在するデータの中から、 3列の付属語が『下関』のものだけをコピーして、シート1に貼り付けるマクロをマクロの記録で　『下関』　というタイトル？にして作りました。（下記）これを実行するときに、マクロ名からではなく、下の表の　R3C8セルの、『下関』　というハイパーリンクをクリックで　実行される・・・・そんなふうにするには、どうしたらいいのでしょうか？ご回答を　おまちしております。よろしくお願いします！ Sub 下関() ' ' 下関 Macro ' ' Keyboard Shortcut: Ctrl+a ' ActiveWindow.SmallScroll Down:=-9 Range("B3").Select ActiveWindow.SmallScroll Down:=117 Range("B3:F137").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp ActiveWindow.SmallScroll Down:=-9 Range("H3").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Selection.Copy Sheets("Sheet1").Select Range("B3").Select ActiveSheet.Paste Range("C3").Select End Sub
- ベストアンサー
- Windows Vista
エクセルのマクロで行選択
現在、エクセルでマクロを組んでいます。行いたい内容としては 1.行６～１７６５までを選択 2. 1.で選択した行を非表示 3. 行６～"セルH2の値"までをを選択 4. 3.で選択した行を再表示 3の段階で失敗してしまいます。 Rangeメソッドに失敗しました、と出ますソースは以下のとおりです ----- Private Sub CommandButton2_Click() Dim x As Integer Range("6:1765").EntireRow.Select Selection.EntireRow.Hidden = True x = Range("H2").Value Range("6:x").EntireRow.Select Selection.EntireRow.Hidden = False End Sub ---- 解決法がわかる方、教えてくださいよろしくお願いします。
- 締切済み
- オフィス系ソフト
エクセル・マクロでグラフを最背面に移動させたい
エクセルのグラフを3つピッタリと重ねて表示しています後ろのグラフを選択する時「最背面に移動」させてますがこれをマクロにしたいですとりあえずマクロの記録でしてみたら Sub Macro1() ActiveSheet.ChartObjects("グラフ 7").Activate ActiveChart.ChartArea.Select Selection.ShapeRange.ZOrder msoSendToBack ActiveWindow.Visible = False Windows("Book1.xls").Activate Range("A1").Select ActiveSheet.ChartObjects("グラフ 5").Activate ActiveChart.ChartArea.Select Selection.ShapeRange.ZOrder msoSendToBack ActiveWindow.Visible = False Windows("Book1.xls").Activate Range("A1").Select ActiveSheet.ChartObjects("グラフ 2").Activate ActiveChart.ChartArea.Select Selection.ShapeRange.ZOrder msoSendToBack ActiveWindow.Visible = False Windows("Book1.xls").Activate Range("A1").Select End Sub と出来たのですが、マクロの実行そしてみると３列目の Selection.ShapeRange.ZOrder msoSendToBack の所で、「実行時エラー438　オブジェクトはこのプロパティまたはメソッドをサポートしてません」となってしまいます、どうすればよいのでしょうボタンを押したら最前面のグラフが最背面に移動するようにしたいのですが難しいのでしょうか
- ベストアンサー
- オフィス系ソフト
エクセルのマクロについて
エクセルのマクロについて領域の範囲選択→貼り付けの繰り返し処理をループで考えています。領域の範囲選択し、貼り付け処理をマクロの自動記録で、出してみました。 Sub Macro1() Range("E6:G12").Select Selection.Copy Range("E17").Select ActiveSheet.Paste Application.CommandBars("Stop Recording").Visible = False End Sub この時に、「Range("E17").Select」の命令は「Cells」関数に置き換えられるのですが、「Range("E6:G12").Select」のように複数のセルの領域選択をする際に、「Cells」関数ではできないのでしょうか。「Cells」関数を使えば、行列を数値にし、変数を使えば、LoopかFor命令で繰り返し処理ができるのですが、わかる方、解答ください。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
エクセルのマクロ
Sub test() x = Selection.Row y = Selection.Column z = Selection.Columns.count Range(Cells(x, y), Cells(x, y + z - 2)).Select Selection.ClearContents End Sub 上記マクロは、同一行の連続するセルを二つ以上選択状態にして実行すると、範囲内の最も右にあるセルの値のみが残って他のセルの値は全て消去されます。上記マクロを、複数のセレクションに対して対応できるようにするには、どうすればいいでしょうか？例えば、c1～f1、d3～h3、e10～g10を選択して実行すると、f1とh3とg10の値のみ残って他の値は消えるということです。
- ベストアンサー
- オフィス系ソフト
エクセルのマクロ　選択したセルを指定した範囲へ値貼
お世話になります。自動記録したものをどのように修正したら、実行時に選択しているセルの値を、3行下、1つ左のセルから8行目までに貼り付けることができるよう書き変えられますでしょうか。初心者で何に手を付けて良いのか分からず。どなたかご教示いただけませんでしょうか。どうぞよろしくお願い致します。 Sub 選択したセルを指定した範囲へ値貼り付け() ' ' Macro1 Macro ' ' Range("I9").Select Selection.Copy Range("H12:H19").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
- ベストアンサー
- Excel（エクセル）