エクセルの学校：全文検索：Hyper Estraier： VBA��

Results of 1 - 1 of about 14729 for VBA�� (0.003 sec.)

[[20081006141639]]: #score: 3408; @digest: f9178420a307c234cc661d3ad47c3d2a; @id: 40296; @mdate: 2008-10-08T13:50:17Z; @size: 7548; @type: text/plain; #keywords: 入行 (20081), 記vb (11221), 行追 (8297), ーra (7824), myrow (7784), 入ra (6953), 目14 (6620), 目20 (6008), 式コ (5479), xlpasteformats (5419), 力技 (4894), 行上 (3440), 授宜 (2966), 挿入 (2856), operation (2712), skipblanks (2673), 動計 (2629), 行挿 (2453), pastespecial (1918), 追加 (1557), insert (1468), cutcopymode (1434), 白セ (1289), transpose (1266), xldown (1263), a65536 (1215), xlnone (1197), entirerow (1168), 列」 (1157), ピー (1141), コピ (1107), 算出 (1039); 『マクロによる行追加と書式コピーについて』（クララ）
こんにちは。 VBA初心者で初めて質問書込みさせて頂きます。 Excelで以下のようなデータがあります。 A B C 1行目 100 30 70 2行目 200 120 80 3行目 145 45 100 ・・・マクロで1行追加を何行か行って、追加した行にデータ入力後、さらに行追加のマクロを作ってみたところ、 3行目と4行目の間に追加したデータが挿入されてしまうのを、追加した行の直後に挿入するマクロは以下のVBAで行けましたが、 ------ Sub マクロ行追加() Range("A1").Select Selection.End(xlDown).Select Selection.Offset(1, 0).Select Selection.EntireRow.Insert End Sub ------ マクロで1行追加後、書式もコピーするには上記VBAをどう変えれば良いのか分からなくて、詰まってしまったので、どなたかご教授下さい。宜しくお願いいたします。因みに書式コピーのVBAは以下のような構文になっていると思いますが、それを上記のどの部分に追加した上で、どう変えれば良いのか分からなくて困っています。 Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False ----- ご本人以外のレスが付いて無いようなので PasteSpecial はInsert後にコピーを宣言した後に入れれば良いかとご参考までに Sub TestMacro() Dim myRow As Long '------------------------------------------------ '挿入行の取得 'セル結合・A列の空白セルを避ける為に↓がお勧め myRow = Range("A65536").End(xlUp).Row + 1 '------------------------------------------------ '行挿入 Range("A" & myRow).EntireRow.Insert Shift:=xlDown '------------------------------------------------ '挿入行の1行上の行をコピー Range(myRow - 1 & ":" & myRow - 1).Copy '------------------------------------------------ '挿入行に貼り付け '（「貼り付け」で「数式」、「演算」を「しない」で貼り付け） Range("A" & myRow).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone ' SkipBlanks:=False, Transpose:=False ' ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾ ' ↑の2個（「空白セルを無視する」・「行列を入れ替える」）は ' 初期値が「False」の為、今回は未指定 '------------------------------------------------ 'コピーモードの解除 Application.CutCopyMode = False End Sub ただし A B C 1 100 30 =A1-B1 2 200 120 =A2-B2 3 145 45 =A3-B3 ・・・ 45 ○△□商社 46 ◎▽事業部 47 X◇さま等の別グループのデータ等が有るという場合は 'セル結合・A列の空白セルを避ける為に↓がお勧め myRow = Range("A65536").End(xlUp).Row + 1 を 'シートの途中に別データブロックが有るなら↓ myRow = Range("A1").End(xlDown).Row + 1 にして下さい（力技） ----- おはようございます、クララです。上記VBAを以下のように少し改造した後にマクロ実行してみたところ、期待通りの結果が得られました。 '挿入行の1行上の行をコピー Range(myRow - 1 & ":" & myRow - 1).Copy '------------------------------------------------ '挿入行に貼り付け '（「貼り付け」で「数式」、「演算」を「しない」で貼り付け） Range("A" & myRow).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ' ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾ ' ↑の2個（「空白セルを無視する」・「行列を入れ替える」）は ' 初期値が「False」の為、今回は未指定 '------------------------------------------------ 本当、どうもありがとうございました!助かりました。 VBAプログラミングは初心者ですが、コツコツ頑張って行きたいと思います! ---- たびたびすみません。 Excelで以下のようなデータがあって、「C列」は「A列」から「B列」を引いたものを表示しています。 A B C 1行目 100 30 70 2行目 200 120 80 3行目 145 45 100 ・・・ 20行目 200 50 150 ・・・入力データが大量にある為に「C列」の所だけを自動計算出力させるようにしたく、以下のようなVBAだと、 ----- Sub 引き算() ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]" Range("C2").Select Selection.AutoFill Destination:=Range("C2:C20"), Type:=xlFillDefault Range("C2:C20").Select End Sub ----- 「C2」（2行）から「C20」（20行）までの「C列」しか、自動計算出力出来ません。昨日、上記で、ご教授頂いた「マクロによる行追加と書式コピー」（コマンドボタン）において、「C20」（20行）の下に新たに1行挿入し、その行の「A列」「B列」にデータを入力して、「C20」下の「C21」のセルでも自動計算出力させるようなマクロを作成したいのですが、上記VBAをどう変えたら良いのか分からないので、どなたかご教授宜しくお願いいたします。マクロによる行追加と書式コピーでも、自動計算機能が備わったままにしたいです。 ---- よく分かっていませんが・・・・上をコピーした物を普通に貼り付けて、定数部分（myRowのA:B列）だけDelete では駄目なのですかね? それとも、新しい行は挿入した時点では数式が無く A:B列を入力した時に数式を入れたいと言う事なのですかね? (HANA) ----- 1行挿入時後のコピーの際に数式もコピーしてませんか? 挿入時に新たに数式を入れたいとかならですか? >'------------------------------------------------ >'コピーモードの解除 >Application.CutCopyMode = False の次に '------------------------------------------------ '挿入行に関数の設定 Range("C" & myRow).FormulaR1C1 = "=RC[-2]-RC[-1]" を追加して下さい。ただHANA先生のおっしゃる方法がスマートかと思います Range(Cells(myRow, 1), Cells(myRow, 2)).ClearContents （力技）力技さんとHANAさん、ご教授どうもありがとうございます! 以下のVBAで行けましたが、 ----- Sub 行追加ボタン() Dim myRow As Long '挿入行の取得 myRow = Range("A65536").End(xlUp).Row + 1 '行挿入 Range("A" & myRow).EntireRow.Insert Shift:=xlDown '挿入行の1行上の行をコピー Range(myRow - 1 & ":" & myRow - 1).Copy '挿入行に貼り付け Range("A" & myRow).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End Sub ----- ひとつ問題があります。上記VBAをコマンドボタンに登録して、マクロを実行してみた所、行追加が完了するのに（マウスポインタが砂時計から矢印に戻るのに）時間がかかります。（4秒ぐらい）多分、上記VBAの挿入行の取得の所で、65535行目までを検索している為にマクロ実行に時間がかかっていると思われます。せめて、1〜2秒ぐらいで完了したいのですが、どうしたらいいのか分からないので、どなたかご教授宜しくお願いいたします。(T_T) また、他に色々な作業に追われていて、ドタバタしていた為、返事が遅くなってすみませんでした。 ----- お疲れ様です＞時間がかかります。（4秒ぐらい）あれ?そんなに掛かりますか＞＜ん〜画面の更新を止めてみるとどうでしょう '画面更新の停止 Application.ScreenUpdating = False ここにマクロを記入 '画面更新の開始 Application.ScreenUpdating = True で多少は早くなりましたか? （力技） ---- ＞以下のVBAで行けましたが、これって何ができるコードですか? 結局数式のコピーは行われていない様ですが・・・。時間がかかるのは、再計算が行われるためかもしれませんね。計算を手動に切り替えてやってみたときにどのくらいかかるか調べてみるのが良いかもしれません。またどうせ上からコピーしてきて貼り付けるなら行の挿入コピーでも良い様に思います。コードは記録マクロで得られるのでそちらが参考にできると思います。ちなみに、半角マイナスを4つつなげると水平線になってしまいます。本文部分とコード部分を分けるだけの目的であれば半角マイナスの前に半角スペースを一つ入れてもらうのが良いと思います。 (HANA) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200810/20081006141639.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ