1行目の内容をコピーして、他の場所に指定数分だけ
挿入するマクロを作りました。

そのマクロ自体は、正しく動いたのですが、コピー元の1行目に
他のシートを参照する関数が入っていた場合、想定どおりの
結果を得ることができません。

[SHEET1:データのみを記載]
省略

[SHEET2]
A1セル:   =SHEET1!$A1 ←コピー元の行

[マクロ:一部抜粋]
myR = Application.InputBox("挿入する行数を入れてください", , "1")

For i = 1 To myR
  Rows("1:1").Copy
  Cells(ActiveCell.Row, 1).Select
  Selection.Insert Shift:=xlDown
  Selection.EntireRow.Hidden = False
Next i

どういう結果を求めたいかというと、たとえば、
SHEET2のA10セル上で、このマクロを実行し、 "挿入行 = 3" と指定したら

A10:   =SHEET1!$A10
A11:   =SHEET1!$A11
A12:   =SHEET1!$A12

となってほしかったのですが、結果は、

A10:   =SHEET1!$A10
A11:   =SHEET1!$A10
A12:   =SHEET1!$A10

となってしまいました。

どうにか、求める結果を得られるようにできないでしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (2件)

Active.Cellが同一の位置なのだから相対変位しません。



一例です。(ループは不要なので削除しました)
myR = Application.InputBox("挿入する行数を入れてください", , "1")
Rows("1:1").Copy
Rows(ActiveCell.Row & ":" & ActiveCell.Row + myR - 1).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
    • good
    • 2
この回答へのお礼

ありがとうございます。うまくいきました。

お礼日時:2011/09/30 22:52

下記をやって、その際マクロの記録を採って、これで良いかチェックして。


例データ 例示の書き方も勉強して。
Sheet1 A列
a
b
aa
s
d
f
g
A3の式は =Sheet2!A3
他は手で直接入力。
Sheet2 A1:A9
xx
yy
aa
bb
cc
dd
ee
ff
gg
ーーー
Sheet1で
A3をコピー
A6の「f」の行から3行選択
挿入ーコピーしたセルー下方向にシフト
結果 Sheet1
a
b
aa
s
d
dd
ee
ff
f
g
A6:A8は数式は
=Sheet2!A6
=Sheet2!A7
=Sheet2!A8
---
コードは
Sub Macro4()
Range("A3").Select
Selection.Copy
Range("A6:A8").Select
Selection.Insert Shift:=xlDown
End Sub
これをセル指定の点で一般化するコードに改変する。
もしこれで正しいなら、質問者は
(1)エクセルの操作そのものを十分知らないで(やってみないで)VBAをやっている。
VBAはエクセルの操作でやれることをやれるだけ、なので、エクセルを知らないでVBAをやるのは本末転倒。
(2)マクロの記録の有効性を認識してない
ということになる。
    • good
    • 0
この回答へのお礼

残念ですが、なにを回答したかったのかわかりません。

お礼日時:2011/09/30 22:53

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qphotoshopを使ってA4→B5へ

photoshopを使用して、A4サイズをB5サイズに縮小したいです。
試しに300dpiでA4、B5のキャンバスを作り、A4をB5に合わせて
縮小したところ、7~9px程のずれが出ました。
A4とB5は等倍と思っていましたが違うのでしょうか?
ぴったりのサイズに縦横等倍で縮小する事は不可能でしょうか。
よろしくお願いします。

Aベストアンサー

画像解像度にもよりますが7~9ピクセルのズレだったら気にしなくてもいいと思います。

それでもキリを良くしたいのなら添付画像の赤丸の部分のチェックを全て外して
黄丸の箇所にB5の数値を入れればいいです。※単位を間違えないように。
A4をB5にするくらい(つまり、縮小する)だったら元絵を大きく崩さずに変形させられます。

ただそれでも、本来ピクセルはインチ計算ですから「mm」に置き換えた時点で小数点が出ます。
つまりはどうやってキリが良くはなりません。数ピクセルの誤差と同じです。
「ぴったりのサイズ」にはなりません。

---

ついでに、A列とB列は比率は同じです。
ただ、サイズ表に書かれている寸法数字は端数を切り捨ててたものです。
例えば「257mm」は「実際には257.5mm」です。
そうやって端数を切り捨てて小さなサイズを作ってきましたから
どこかで細かく比率が変わっているのは当然です。
が、それで今まで何十年も過ぎてきたのですから、それくらいは無視していいものです。
そう考えると300dpiの書類で7~9ピクセルのズレも問題にはならないと思います。
もともとがそれくらいアバウトなんですから。

画像解像度にもよりますが7~9ピクセルのズレだったら気にしなくてもいいと思います。

それでもキリを良くしたいのなら添付画像の赤丸の部分のチェックを全て外して
黄丸の箇所にB5の数値を入れればいいです。※単位を間違えないように。
A4をB5にするくらい(つまり、縮小する)だったら元絵を大きく崩さずに変形させられます。

ただそれでも、本来ピクセルはインチ計算ですから「mm」に置き換えた時点で小数点が出ます。
つまりはどうやってキリが良くはなりません。数ピクセルの誤差と同じです。
「ぴ...続きを読む

Q2台のPCを接続し、A4のモニタを使い、B5のキーボードを使うのは可能?

現在ノートPCを2台持っています。
1台はA4.もう1台はB5です。
A4の方はキーボードが壊れていますので、普段はB5を使っています。でも画面が小さいのでA4を使いたいです。

そこで思ったのが、B5とA4をつないで、キーボードはB5を使って、モニタはA4を使えないのでしょうか?

そこまで可能なら、キーボードも外付けを買おうかと思っています。

まず可能なのでしょうか?

宜しくお願いします

Aベストアンサー

MAXIVISTAというソフトがあります。
これを使えばLAN経由で可能です。
私は,ノートPCのモニターをデスクトップPCのセカンダリーディスプレイとして使っています。
パソコンのリモートコントロールモードもありますので,お持ちの2台のパソコンは同時に使えるようになると思いますよ。

参考URL:http://www.maxivista.com/

QA4からB5へ

Word2003を使って書いたA4サイズの文章を、B5の用紙に印刷したいのです。
けれども、ページ設定でB5を選択して印刷すると、文章がA4サイズのままでB5用紙に印刷され、文字が足りなくったりして、きちんと印刷できません。
なんとかしたいのですが。

Aベストアンサー

特に変更しないのなら、#1さんもおっしゃるように印刷時にA4→B5に縮小するのが簡単です。
まあ、A4で印刷したものを縮小コピーするようなものです。
http://kokoro.kir.jp/word/sprint.html

今後も継続的に利用したり、内容を更新するなら、B5に合わせてレイアウトを変更し直さなければなりません。

参考URL:http://kokoro.kir.jp/word/sprint.html

Qワード文書 B5→A4変換

B5で作成したMS Wordの資料を A4に一括で変換する方法はありますでしょうか?
文字と図が含まれておりますので自動的に、大きくしてくれる仕組みを想像してます。
もともとB5サイズで作成した資料が多数あるのですが、毎回B5用紙を用意するのが煩わしいので一括でA4にサイズ変更したい次第です。

Aベストアンサー

> B5で作成したMS Wordの資料を A4に一括で変換
基本的にできないことだと思ってください。

Wordでは指定した用紙サイズに配置するものであって、配置したものを
自動でサイズ変更するようなものではないからです。文字サイズから、
図のサイズおよび配置などは、Wordの基準であるページ(段落の位置)
の左上の位置からの距離で指定されているといえるからです。

A4用紙に変更するということは、拡大率に応じたフォントサイズの拡大
及び、図などの位置の修正が必要になります。
個々に修正することになるので、大変な作業になります。
マクロで処理するにしても、様々な要素があるWord文書は複雑であり、
無茶な処理といえるからです。

資料が印刷を目的にするだけなら、印刷用マクロを用意するか、PDFに
変換しておいて、そのPDFファイルを印刷するほうが効率的です。
https://msdn.microsoft.com/ja-jp/library/office/ff837331.aspx

マクロの例:

Sub PrintZoomPaper_A4()
'
' A4サイズに拡大して印刷
'
  ActiveDocument.PrintOut _
  PrintZoomPaperWidth:=11907, _
  PrintZoomPaperHeight:=16839

End Sub

> B5で作成したMS Wordの資料を A4に一括で変換
基本的にできないことだと思ってください。

Wordでは指定した用紙サイズに配置するものであって、配置したものを
自動でサイズ変更するようなものではないからです。文字サイズから、
図のサイズおよび配置などは、Wordの基準であるページ(段落の位置)
の左上の位置からの距離で指定されているといえるからです。

A4用紙に変更するということは、拡大率に応じたフォントサイズの拡大
及び、図などの位置の修正が必要になります。
個々に修正することになるので...続きを読む

QCanon LBP3970のB5サイズのプリント速度がA4サイズに比べて落ちることについて

 キヤノンのLBP3970(A4サイズのプリント速度:35枚/分)の購入を検討しているのですが、B5サイズにプリントするとA4サイズと比べて、紙がA4に比べて小さいので熱による故障を防ぐためにスピードを落とすようになっていると聞いたのですが、どなたか持っている方、B5サイズの10枚以上連続印刷したときにA4に比べてどのように変わるか知っている方、または試していただける方、教えてください。

 B5の印刷を多く行うのでA4の速度が速いだけでB5の速度が落ちるようであれば高速なプリンタを買っても意味がありません。どなたか協力していただける方、回答をお願いします。

Aベストアンサー

プリンタの修理屋です。

この辺りは詳細には伝えられていませんし、機械内部の温度状況によって対応していますので、一概にどのくらい落ちるかは分かりません。

取説によると、最終的には1.9枚/分程度まで落ちることになっています。

このプリンタに限らず、キヤノンのレーザープリンタでは特殊なフィルムを使った定着方法を使っています。大昔はSURF方式、最近はオンデマンド定着と呼んでいます。

普通の定着器ではアルミのパイプ(ローラー)の中にガラス管ヒーターを仕込んで、それを発熱させてアルミローラーの表面温度を上げ定着しています。
しかしながら、ヒーターと定着するローラーの表面の間に1cm+αの空間ができ、そこは輻射で伝わります。結果的にヒートアップに時間がかかる、大きな容量のヒーターが必要となったわけです。

そこでキヤノンは薄い特殊なフィルムのチューブの中にセラミックヒーターを仕込み、フィルム越しにほぼ直接紙を加熱するようにしました。
その結果、ヒーターの容量も小さくでき、立ち上がりの時間もゼロと言う機種が出来ました。

欠点もあります。
昔はフィルムのチューブを回転させると軸方向にずれてきて、フチが破れることがありました。このため高速化では少し遅れました。
もう一つは、紙に接することでヒーターの熱が奪われるため、ヒーターの温度変化が大きいこと。
特に幅の狭い厚紙を印刷すると、両端は浮いた形になり、熱が逃げないのですが、中央部分は用紙に接しているので温度が下がります。
温度ムラが出来て、伸縮差もでき、紙にある程度の圧力で押し付けられているので、セラミックヒーターが折れてしまうことがあります。

高速化し始めた頃の機種では時々発生していました。

速度を上げると、表面温度を上げるためにヒーターには大きな電流を通す必要があり、ヒーターの温度も上がります。
速度を下げると表面温度が低くても定着ができるようになります。
また、印刷の間にインターバルを取ってヒーターを均一に冷却することも出来ます。

その辺りの温度ムラをセンサで感知して速度を落としますので、実際は分からないというのが真実です。

ただ、昔の機種(LBP-1820)ではいきなり半分くらいの速度になりましたが、LBP3970では35→30→25→20・・・・と段階的に落としていきますので、10枚くらいでは大きな落ち込みも無いとは思います。


「そんな面倒なシステムを・・・・」と思われるかも知れませんが、省エネ効果と待ち時間が少なくなることは大きな要素ですし、役所を中心にA4、A3に統一する動きも定着してきたので、社会的に受け入れられているわけです。

プリンタの修理屋です。

この辺りは詳細には伝えられていませんし、機械内部の温度状況によって対応していますので、一概にどのくらい落ちるかは分かりません。

取説によると、最終的には1.9枚/分程度まで落ちることになっています。

このプリンタに限らず、キヤノンのレーザープリンタでは特殊なフィルムを使った定着方法を使っています。大昔はSURF方式、最近はオンデマンド定着と呼んでいます。

普通の定着器ではアルミのパイプ(ローラー)の中にガラス管ヒーターを仕込んで、それを発熱...続きを読む

Q企業に履歴書を送るのですが、A4でわなくB5に書いてしまいました。 A4の方がやはりよかったのでしょ

企業に履歴書を送るのですが、A4でわなくB5に書いてしまいました。
A4の方がやはりよかったのでしょうか?

Aベストアンサー

企業側から履歴書のサイズについて指定がないのであれば、どちらでも構わないと思います。A4サイズと指定があるのなら、A4サイズで書き直しましょう。

QA4 B4、A5 B5 の縦横サイズを教えて下さい

題の通りですが、A4 B4、A5 B5 の縦横サイズを教えて下さい。出来れば正確な数値を知りたいです。宜しくお願いします。

Aベストアンサー

A4 210mm×297mm
B4 257mm×364mm
A5 148mm×210mm
B5 182mm×257mm

Q【急いでいます】紙のサイズ(A4だとかB5…etc)について。

紙って、ここで良いんですかね…?
いまいち良く分からないけど、まぁいいか。
えっと、質問内容はタイトル通り「紙のサイズ」についてです。
紙のサイズってA4やらB5…etc.がありますよね。
これってめちゃくちゃアレな質問なのですが、
「A3(297mm×420mm)以内」と書かれている場合、A4・A5…etc.も良いという事なのでしょうか?
流石にBになるとダメだとは思いますが、何か良く分からないので…;;大きさも微妙に分からないし…。
それに、B5と書かれている自由帳等もちょっとずつ大きさが違ったりとどれが本当のサイズなのか分からなくなった事があるので。
あと、出来れば定規(さし)で測る方法(以前やったら全然違う大きさになった…)等も教えて下さると大変助かります。
いったいどう測ったらあんな違う事になるんだ…;;
そういえば、何処かで聞いた事なのですが「A3を半分にすればA4、B4を半分にすればB5…」これって本当に紙の半分がそのサイズになるんですか?
長くなりましたが、回答よろしくお願い致します。

Aベストアンサー

一般に、コピー用紙やノートのサイズでよくある
紙の大きさは、A3が一番大きいとすると

A3 B4 A4 B5 A5 B6 の順で小さくなります

「A3以内」という言葉どおりなら、A3を含めて
上にあげた紙どれでもあてはまります。

定規ではかる方法?
(質問の意味がよくわからないのですが)

自由帳とかだと、定規をあてにくいので、
コンビニのコピー機に
A3、B4、A4、B5の四種類ぐらいあると思うので
これを一枚ずつ手に入れれば
ほぼ間違いなく正確な用紙の大きさがわかると思います。

>「A3を半分にすればA4、B4を半分にすればB5…」

これはそのとおりです。

QA4版かB5版か、アドバイス下さい

ノートパソコンの購入を検討しており、A4かB5のどちらのサイズが使い勝手がいいのでしょうか。
 ・使用環境:2つの部屋、年に6回ほど講習会で外に持ち出す
 ・使用目的:本を読んでまとめる(ワープロ)が主
 ・他のパソコン:2年前にデスクトップPC(P(3)700M、382MB、14G+外付け80G、その他かなりパワーアップあり)

 ・B5の方が小さくて見やすい?
 ・B5のキーボードは打ちやすい?(ブラインドタッチします)
 ・A4の方が面積が多少増えるが、液晶も大きいしいい?

使い勝手についての評価をお願いします。またお勧めがあれば、是非とも機種も一緒に。

Aベストアンサー

ご予算は?すべてがここで決まりますが・・

・B5の方が小さくて見やすい?
見ずらいです。

・B5のキーボードは打ちやすい?
打ちづらい

・A4の方が面積が多少増えるが、液晶も大きいしいい?
解像度も大きくとれるので、絶対にA4の薄いタイプがお勧めです。

価格は下記をご参考に。

参考URL:http://www.kakaku.com/sku/pricemenu/winn.htm

Q履歴書 A4 B5

最近の履歴書にはA4サイズもあるみたいなのですが、
A4・B5 どちらを使った方がいいのでしょうか?
もちろん、中身がいいのが一番なのだろうけども
なんだか迷ってしまいいます。

Aベストアンサー

一般企業はA系で官公庁はB系って感じがしますよね。
A4ばっかりの中でB5が混ざってたりすると
逆に目立ってよかったりして・・なんて思ったり。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報