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

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

[[20200531145425]]: #score: 3407; @digest: aff57942b49fb1dd8792564cafbb4267; @id: 83823; @mdate: 2020-05-31T11:20:17Z; @size: 3131; @type: text/plain; #keywords: 329215 (15241), 問() (14536), retu (7232), 号57 (7005), ） 57 (6721), 形) (5971), gyou (5041), ル質 (4942), 行途 (4348), 長方 (4041), 図形 (3293), shp (3233), 方形 (3025), 言di (1435), 合2 (1316), 貼付 (1266), 日) (1197), プ実 (996), に図 (888), 数宣 (814), テッ (803), マナ (714), 2020 (681), 形が (649), ピー (604), コピ (586), activesheet (516), 実行 (483), 形を (468), 飛ば (462), ステ (459), 、貼 (443); 『VBAで複数図形をコピーし、1つの行に貼り付けがしたい』（ゆきちゃん）
現在、図形のコピーのVBAが上手くいかず困っています。内容は、セル（Topが96.6〜264）に作図された背景色赤(色番号329215)の図形を下の行番号57へコピー、貼り付けて横に並べたいのですが思うようになりません。作ったVBAは、以下です。ご教授のほど、よろしくお願い致します。 Sub エクセル質問() Dim shp As Shape Dim retu, gyou As Long Dim iro As String For Each shp In ActiveSheet.shapes iro = "329215" '赤（長方形) If ((shp.Fill.ForeColor = iro) And (96.6 <= shp.Top <= 264)) Then retu = shp.TopLeftCell.Column shp.Select Selection.COPY gyou = 57 Cells(gyou, retu).Select ActiveSheet.Paste Else End If Next shp End Sub ＜使用 Excel:Excel2016、使用 OS:Windows10 ＞ ---- > Cells(gyou, retu).Select > ActiveSheet.Paste Cells(gyou, retu).PasteSpecial ってやったらどうですかね? 2007なので、図形類のマクロ記録が出来ないので良く解ってないですが。それと、 >iro = "329215" '赤（長方形) は、ループの外に出した方が・・・・。 > shp.Select > Selection.COPY 図形選択、選択した物をコピーの意味なので、選択が不要だと思いませんかね? （BJ） 2020/05/31(日) 15:20 ---- 早速のご返事をありがとうございます。 VBAの書き方、勉強になりました。コピーに関して追記しますと、ず図形4つをおいてVBAを実行すると以下の2通りの結果となってしまいます。 1）57行目に図形が1つも貼付けされない場合 2）57行目に図形が1つだ貼付けされ、3つのコピー、貼付けされず終了する場合どこかVBAの書き方に間違いがあるのでしょうか?引き続き、教えて下さい。よろしくお願いいたします。（ゆきちゃん） 2020/05/31(日) 17:10 ---- > (96.6 <= shp.Top <= 264)) ここまで見なかった。他言語では通るかも知れませんが、VBAでは通りません。数式と同じように、1回1回?1個1個?指定して書かないとダメです。 2016以降で変わった? （BJ） 2020/05/31(日) 17:21 ---- 何度もお手数をお掛けします。 (96.6 <= shp.Top <= 264)) ⇒ （shp.Top <= 264）に変更して実行しましたが、残念ながら結果は、以前と同じの2通りの結果がランダムに出てきます。 Far each shp...で繰り返し4つの図形のshpをコピーするところが飛ばされてしまっているようです。なかなか難しいです。。。（ゆきちゃん） 2020/05/31(日) 18:21 ---- ＞コピーするところが飛ばされてしまっているようです。「ようです」、ではなくて、ステップ実行でどうなっているか確認してはどうでしょうか。（マナ） 2020/05/31(日) 18:47 ---- 変数宣言 Dim shp As Shape Dim retu As Long, gyou As Long Dim iro As Long （マナ） 2020/05/31(日) 18:53 ---- マナさん、ありがとうございます! 教えて頂いたステップ実行で確認しました所、実行途中で先に作っておいた「Private Sub Worksheet...（）」に飛んで行くことがわかりました。何故飛ぶのかは、不明ですが、この「Private Sub Worksheet...（）」を無くしてみたら問題無く57行目に全図形をコピー、貼付けすることが出来ました。「Private Sub Worksheet...（）」と「Sub エクセル質問()」の両立させ方が、今後の課題となりますが原因がわかり、お陰様でこの問題は解決しました。本当に、ありがとうございました。（ゆきちゃん） 2020/05/31(日) 20:20 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202005/20200531145425.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ