選択範囲望みどおりCopyメソッド
たくさんあるデータに対して同じグラフを書くばあい、2個目からは簡単にえがく方法はありませんか? おしえてください。エクセルのマクロしごとのつごうで早急にしあげなければならないことがありこまっています。）１以上のすうちがA1セルにひょうじされたばあいのみその数値をB1セルに抜き出し、こうしん毎にB1セルで合計し続ける。その場合、系列がたくさんあるため、1こづつグラフをかくのがたいへんです。エクセルでふくすうのグラフをえがくには？エクセルでおれせんグラフを描いてますが、１シートにたくさんデータ表が有り、それぞれおなじグラフをかきます。A1にひょうじされる数値もこうしんじかんも完全にランダムです。そこで、グラフをコピー・はりつけで、データ範囲を変更したのですが、けいれつの名前とこうもくじくラベルのひょうじがエラーとなります。（たとえばA1に１０と表示されるとB1に１０とひょうじしその後A1に１００と表示されるとB1に１１０とひょうじその後A1に３００とひょうじされるとB1に４１０と表示）というマクロを作りたいのですがかんぜんに手詰まりになってしまっています・・・どなたかくわしいほういらっしゃいましたら申し訳ございませんが知恵を貸していただけないでしょうか？よろしくおねがいいたします。ないようとしてはエクセルのA1セルに０～無限までのすうちがランダムに繰り返しひょうじされるとした場合で（たとえばA1セルに０とひょうじされた後、数秒たつと１００００と表示されて、また数秒たつと３０００とひょうじされて、またすうびょうたつと０になったりをA1セルはくりかえします。
異なる行を参照の数式を含む表の並び替えについて例えば、A1+B2をC2にとして下方へコピーした表があるとして、C列を基準に並び替えをしょうとすると意図する結果にはなりませんが、どうやってもコレはムリなのでしょうか？並び替え後でも元々のセルを参照するような指定方法はないのでしょうか？そもそも表作成の時点で考慮せず、日付なども一日おきの場合は、すぐ上のセル+2としていたり、前週の終値を今週の始めに自動表示されるように、などを設定してあり、やっと表が完成して並び替えをしてみて気づいたのですが・・。この表が500
異なるぎょうをさんしょうのすうしきをふくむ表の並び替えについて例えば、A1+B2をC2にとしてしもがたへコピーしたひょうがあるとして、Cれつをきじゅんにならびかえをしょうとするといとするけっかにはなりませんが、どうやってもコレはムリなのでしょうか？並び替えあとでももともとのセルを参照するようなしていほうほうはないのでしょうか？そもそもひょう作成のじてんでこうりょせず、ひづけなどもいちにちおきのばあいは、すぐ上のセル+2としていたり、ぜんしゅうのおわりねをこんしゅうの始めにじどうひょうじされるように、などを設定してあり、やっと表がかんせいして並び替えをしてみてきづいたのですが・・。ごきょうじゅおねがいいたします。この表が5000行である場合、ベスト5000をしていしてしょうじゅんに並び替えしてみるしか手がないでしようか。【げんじょうのそうしんフォーム】Bれつ：そうしんさきメールアドレスCれつ：メールけんめいD列：ほんぶん1Eれつ：ほんぶん2Fれつ：ほんぶん2Gれつ：てんぷコマンドボタンでいっかつ配信となっております。 ' 送信範囲せってい LastRow = Worksheets("send").Range("B7").End(xlDown).Rowで出来そうなきもしていろいろ、試したのですがきほんがわからずかんせいに至りませんでした。EXCEL VBA メール送信 こべつ送信せんたくげんざい、使用しているVBAをりようした社内案内メールはいしんで、げんざいのVBAの設定で一括そうしん＆添付できるまでは作られているのですが、こべつにそうしんを選べるようにしたいのですが、どなたかマクロにくわしい方ご教授頂けませんでしょうか?【質問】かきのフォームのAれつにたとえば…・フラグを立てているものだけをそうしん。【いかきじゅつ】Sub Excel_Mail_Send() ' 変数せってい Dim iMsg As Object Dim iConf As Object Dim strbody As String Dim Flds As Variant Dim i, LastRow As Integer ' CDOオブジェクトしょきせってい Set iConf = CreateObject("CDO.Configuration") iConf.Load -1 ' CDO Source Defaults Set Flds = iConf.Fields With Flds .Item(" = 2 .Item(" = Worksheets("send").Range("C2").Value .Item(" = Worksheets("send").Range("C3").Value' .Item(" = 1' .Item(" = "あなたのユーザーID"' .Item(" = "あなたのパスワード" .Update End With ' 送信範囲せってい LastRow = Worksheets("send").Range("B7").End(xlDown).Row ' メール送信ループ For i = 8 To LastRow Set iMsg = CreateObject("CDO.Message") ' そうしんじょうきょうメッセージクリア Worksheets("send").Range("F2").Value = "" ' メールほんぶんさくせい strbody = Worksheets("send").Range("D" & i).Value & vbCrLf & "" & _ Worksheets("send").Range("E" & i).Value & "" & vbCrLf & vbCrLf & _ Worksheets("send").Range("F" & i).Value ' かいぎょうへんかん tmpstrbody = Replace(strbody, vbLf, vbCrLf) strbody = Replace(tmpstrbody, vbCr & vbCrLf, vbCrLf) ' メールそうしん With iMsg Set .Configuration = iConf .From = Worksheets("send").Range("C4").Value .CC = Worksheets("send").Range("B" & i).Value .TO = Worksheets("send").Range("C5").Value .Subject = Worksheets("send").Range("C" & i).Value .TextBody = strbody .AddAttachment Worksheets("send").Range("G" & i).Value .Send Set iMsg = Nothing End With ' そうしんじょうきょうメッセージこうしん Worksheets("send").Range("F2").Value = Worksheets("send").Range("B" & i).Value & " までそうしんせいこう！" ' ３びょうていし Application.Wait [ NOW() + "0:00:03" ] Next iEnd Sub。・通し番号をいれて番号のはいっているものだけをそうしん。