- ベストアンサー
ExcelVBAで改行方法2
- ExcelVBAを使用して、点線のないExcelシート（行数が少ない）で改行処理を行う方法を教えてください。
- 以前質問した方法では、プレビューページで点線が存在しないと改行処理ができませんでした。
- ActiveWindow.View = xlPageBreakPreview、ActiveWindow.SmallScroll Down:=9、Set ActiveSheet.HPageBreaks(1).Location = Range("A34")、ActiveWindow.View = xlNormalView の方法を使用して改行処理を行っているのですが、点線がない場合は動作しません。
- takataka111
- お礼率52% (72/136)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- ExcelVBAで改行方法
お世話になります。 以下のように改行を行うマクロをマクロの記録で作成しました。 ActiveWindow.View = xlPageBreakPreview ActiveWindow.SmallScroll Down:=9 Set ActiveSheet.HPageBreaks(1).Location = Range("A34") ActiveWindow.View = xlNormalView 1行目は改ページプレビューに移動する 3行目は改行位置をA34に設定する 4行目は標準ページにもどす この2行目は何をやっているのでしょうか？ また、一般的に改ページの操作方法(2ページ目はここから) というような制御はどのように行うのが普通なのでしょうか？ よろしくお願いします。
- 締切済み
- オフィス系ソフト
- ＶＢＡがうまくうごきません。
以下のプログラムを書きました。 以下のプログラムではA1～C108を１ページ、Ａ１０９～Ｃ２１６を２ページ目、Ａ２１７～Ｃ３２５を３ページ目として印刷するようにページ設定したいのですが、うまく動きません。 どうしてでしょうか？ わかるかたがいたら教えていただけないでしょうか？ よろしくお願いします。 Sub 改ページ設定() ActiveWindow.View = xlPageBreakPreview '改ページプレビュー Set ActiveSheet.HPageBreaks(1).Location = Range("C109") '水平改ページ位置1を変更 Set ActiveSheet.HPageBreaks(2).Location = Range("C217") '水平改ページ位置2を変更 Set ActiveSheet.HPageBreaks(3).Location = Range("C326") '水平改ページ位置2を変更 End Sub
- ベストアンサー
- Visual Basic
- エクセル ＶＢＡ 水平改ページ位置の変更方法について教えてください。
おはようございます。いつも大変お世話になっています。 エクセルで、ある元のシートから、ある条件で抽出して新しいシートを作りました。 その新しいシートの印刷指定方法について教えてください。 最初だけ５３行、その後５０行づつ区切って印刷したいため、以下のようなＶＢＡを書いてみました。 ActiveWindow.View = xlPageBreakPreview Set ActiveSheet.HPageBreaks(1).Location = Range("a53") Set ActiveSheet.HPageBreaks(2).Location = Range("a103") Set ActiveSheet.HPageBreaks(3).Location = Range("a153") Set ActiveSheet.HPageBreaks(4).Location = Range("a203") Set ActiveSheet.HPageBreaks(5).Location = Range("a253") ・・・・・・ が、元のシートのデータが、日によって変動するため、新しいシートのデータが全部で１２０行位で終わってしまう場合があります。 その場合、１００以上の指定していた部分から、 「インデックスが有効範囲にありません」と、止まってしまうのです。 日によってデータの行数は変わりますが、多い場合も同じように５０行区切りで印刷したい場合には、どのようにしたら良いでしょうか？ どうぞよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 保護の解除・設定
いつもありがとうございます。 現在シートの保護がパスワード入りでかかっています。 マクロで保護を解除するときに、 パスワードを入力不要で解除できませんか？ また、引続きシートを保護するときに、 パスワードを入力しないで、元の、パスワードで、 保護が出来るでしょうか？ 現在は、下記のようになっています。 （マクロの記録でしか作れませんので・・、） ActiveSheet.Unprotect ActiveWindow.SmallScroll Down:=24 Range("B50:X69").Select Selection.Copy ActiveWindow.LargeScroll Down:=-2 ActiveWindow.LargeScroll ToRight:=-3 ActiveWindow.SmallScroll Down:=-9 Range("B1").Select ActiveSheet.Paste Range("B2").Select Application.CutCopyMode = False ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 以上、よろしくお願い致します。
- ベストアンサー
- Visual Basic
- Excel2007のマクロでマクロを実行したところ、エラーが出てしまい
Excel2007のマクロでマクロを実行したところ、エラーが出てしまいました。どうすればよいでしょうか？ 実行時エラー'1004'「RangeクラスのSelectメソッドが失敗しました」 Range("テーブル1[#All]").Selectでエラーになります。 マクロの記録を使っただけなので、どう直せばよいのかさっぱりわかりません。 どうかよろしくお願いします。 Range("A5").Select ActiveWindow.SmallScroll Down:=12 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 5 ActiveWindow.SmallScroll Down:=-12 Columns("L:P").Select Selection.Delete Shift:=xlToLeft ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("A5").Select ActiveWindow.SmallScroll Down:=30 Range("A5:L55").Select ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$5:$L$55"), , xlYes).Name = _ "テーブル1" Range("テーブル1[#All]").Select ActiveWindow.SmallScroll Down:=-36 Range("テーブル1[[#Headers],[列5]]").Select ActiveWorkbook.Worksheets("ID.01").ListObjects("テーブル1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("ID.01").ListObjects("テーブル1").Sort.SortFields.Add _ Key:=Range("テーブル1[[#All],[列5]]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("ID.01").ListObjects("テーブル1").Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With ActiveSheet.ListObjects("テーブル1").Range.AutoFilter Field:=12, Criteria1:= _ Array("condition", "congruent", "control", "experiment", "="), Operator:= _ xlFilterValues ActiveWindow.SmallScroll Down:=-6 End Sub
- ベストアンサー
- その他MS Office製品
- 同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
EXCELVBAであるシートに作業をさせるVBAを作成しました。 同じ作業を複数のシートに 実行させるにはどうしたらいいのでしょうか。 宜しくお願い致します。 **************作成したVBA********** Sheets("sheet1").Select ActiveWindow.SmallScroll Down:=66 Range("D2:D101").Select Selection.Cut …50行ほどあります… *********************************** ↓ sheet1とsheet2に同じ作業をさせたい 以下のやりかただと長くなるためまとめたい **************作成したVBA********** Sheets("sheet1").Select ActiveWindow.SmallScroll Down:=66 Range("D2:D101").Select Selection.Cut …50行ほどあります… Sheets("sheet2").Select ActiveWindow.SmallScroll Down:=66 Range("D2:D101").Select Selection.Cut …50行ほどあります… Sheets("sheet3").Select ActiveWindow.SmallScroll Down:=66 Range("D2:D101").Select Selection.Cut …50行ほどあります… ***********************************
- ベストアンサー
- Visual Basic
- 記録したマクロを他のシートにも同時に実行する方法
いつもお世話になります。 下記のように選んだセルのデータを削除するマクロを「マクロの記録」で作成しました。 Sub Macro2() ' ' Macro2 Macro ' ' Range("E5:R12").Select ActiveWindow.SmallScroll Down:=6 Range("E5:R12,E14:R22").Select Range("E14").Activate ActiveWindow.SmallScroll Down:=12 Range("E5:R12,E14:R22,E24:R28").Select Range("E24").Activate ActiveWindow.SmallScroll Down:=6 Range("E5:R12,E14:R22,E24:R28,E30:R34").Select Range("E30").Activate Selection.ClearContents End Sub 「Macro2」の実行ボタンを作り、シート名「１」～「３１」の同じセルのデータをボタンをクリックして、一括で削除したいのですが、この記述をどのように変更したらよいのか、マクロを始めたばかりの初心者の私にご教授して頂けませんでしょうか？ 「マクロの記録」で各シートを選び、セルを選んでｄｅｌｅｔｅして行く方法はありますが、今後のためにも記述の編集で出来る方法をお教え下さい。 よろしくお願いいたします。 当方、エクセル２０１０で作成していますが、エクセル２００２の環境で使います。
- ベストアンサー
- その他MS Office製品
- マクロの実行について 質問です。
マクロ勉強中です！ 何時間も調べておりますが、 どうしても分からないので お教え下さい（；＿；） 別シートの都道府県が混在するデータの中から、 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
- エクセル VBA 画像操作
VBAについて質問です。 画像を何枚かを重ねて、シート上に置いてあります。 VLOOKUPにて、画像番号を獲得して、その番号の画像を最上面へ移動させたいのですが ActiveSheet.Shapes.Range(Array("Picture 201")).Select ActiveWindow.SmallScroll ToRight:=-342 Selection.ShapeRange.ZOrder msoBringToFront ActiveSheet.Shapes.Range(Array("Picture 221")).Select ActiveWindow.SmallScroll ToRight:=-342 Selection.ShapeRange.ZOrder msoBringToFront ActiveSheet.Shapes.Range(Array("Picture 215")).Select ActiveWindow.SmallScroll ToRight:=-342 Selection.ShapeRange.ZOrder msoBringToFront ("Picture 215")の部分を、セルの値で変更したいのですが どうか、お力お貸しください。 よろしくお願いします。
- 締切済み
- Excel（エクセル）
- マクロの実行とコマンドボタン
office2000、WIN98SEです。 マクロの記録でマクロを作成しました。 これをコマンドボタンにコピペして実行するとエラーになります。マクロの実行から動かすとなんの問題もありません。なにがいけないんでしょう。教えてください。 ちなみにやりたいことは、複数のシートの同じセルを一気にクリアにしたいです。 記録したマクロは以下の通りです。宜しくお願いします。 Sheets(Array("用紙(1)", "用紙(2)", "用紙(3)", "用紙(4)")).Select Sheets("用紙(1)").Activate Range("B9").Select ActiveWindow.SmallScroll Down:=36 Range("B9:C58").Select Selection.ClearContents Range("F9").Select ActiveWindow.SmallScroll Down:=36 Range("F9:G58").Select Selection.ClearContents Range("I9").Select ActiveWindow.SmallScroll Down:=36 Range("I9:I58").Select Selection.ClearContents Sheets("用紙(1)").Select Range("B9").Select End Sub
- ベストアンサー
- オフィス系ソフト
お礼
お世話になります。 そうです、改ページ方法です。 ご指摘感謝しますm(_ _)m 以下の方法で実現してみたのですがどうでしょうか？ まず改ページの境目の行が115行目なので 115行目以下の帳票なら以下のマクロを起動して 無理やり115行目までプリント範囲を下にずらします。 それで2ページ目ができるので(点線が現れる)ので 改ページを指定行まで上げる。 Sub Macro1() ActiveWindow.View = xlPageBreakPreview ActiveSheet.PageSetup.PrintArea = "$A$15:$AG$115" ActiveSheet.ResetAllPageBreaks Set ActiveSheet.HPageBreaks(1).Location = Range("A51") End Sub