[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『VBAで永遠にデータを残したい』（むずむず）
はじめまして、初めてこの掲示板にて質問させていただきます。
ＶＢＡのプログラミングのことなのですが、 エクセルの指定セルＢ４３のところに日付と時間がありまして、その他の情報がＣ４３～Ｉ４３まであります。 そのＢ４３の時間が変更になった時点で、今までの情報を残しつつ、 新たに、下の行に移動してＢ４４に日付、また、Ｃ４４～Ｉ４４にデータ、 次に、Ｂ４４の時間が変更になった時点で、今までの情報を残して、 新たに、下の行に移動してＢ４５に日付、また、Ｃ４５～Ｉ４５にデータ、、、 そのデータを使って折れ線グラフを同時に、同シート、もしくは、別シート、もしくは、オブジェクトでもに製作したいです。 この作業を何らかのキーを押すまで永遠と続ける作業をしたいのですが、 文字では簡単なのに、それを、ＰＣに命令させるとなると。 なかなか手段が浮かびません。 勉強させていただいておりますが、HTML言語とは、最初から最後まで、違うので困り果てました。
HTML文法ならそこそこ判るのに、VBAは、全然と言って良いほど判りません。 フローチャート式に、IFとかを使うのかなくらいしか判りません。 でも、その前の始まりの形式から、最後の形式すら判りません。 すみません。 お力添え頂ければ幸いです。 よろしくお願いいたします。
[エクセルのバージョン]
Excel2003
[OSのバージョン]
WindowsXP
どうか、どうにかよろしくお願いいたします。
> Ｂ４３の時間が変更になった時点で というのは、具体的に何時ですか？ 数式で変化させているのなら、元のセルはどこですか？ (seiya)
シート１の セル番号B44の場所に 2009/1/16/ 12:47 とあります。 2009/1/16/ 12:48になった時点で
横並びのデータを残したまま その下に移行
2009/1/16 12:49になった時点で
横並びのデータを残したまま その下に移行
の繰り返し作業です。
追記ですみません。
前の時間も残しておきながらです。
このようなことですか？
Private myCurrentTime As Date
Sub Update()
Range("b43:i43").Copy
With Range("b" & Rows.Count).End(xlUp)(2)
.PasteSpecial
.Value = Now
End With
End Sub
Sub myStart()
myCurrentTime = Now + TimeValue("00:01:00")
Application.Run myCurrentTime, "Update"
End Sub
Sub myStop
Application.Run myCurrentTime, "Update",, False
End Sub
(seiya)
もう一度説明させていただきます。
B43 C43 D43 E43 F43 G43 H43 I43 2009/1/20 4:44 55 60 70 44 34 32 23
このC43～I43は時間と共に変化します。 それを、最終データを残して
B44 C44 D44 E44 F44 G44 H44 I44 2009/1/20 4:45 25 50 75 23 12 21 50 （45行） 2009/1/20 4:46 34 23 56 34 56 23 12 （46行) 2009/1/20 4:47 45 23 44 67 34 34 23 （47行）
以後継続
となるようにです。 実行してみたところ。最上段がコピー状態の点滅になり
後、すみません、今の日本時間ではなく、サイト上の海外時間のため、 NOWではなく、このようになっておりました。 ですので、4:45が、4:46のように数字が変わったらという設定に出来ないでしょうか?
何度もすみません。 どうかよろしくお願いいたします。
またまた追記です。 コピーですと、計算式が入っているために、 落ちた行の数字も変動していました。
セルの情報コピーではなく、数字として改行したいです。
お願いいたします。
もしくは、1分ごとに 下に転記すべて、セルの情報はいらなくて 数値としてです。
当然最上部が更新中のデータにしたいです。 困り度１００％です。
どうかどうか、よろしくお願いいたします。
データはウェッブクエリで更新しているのですか？ (seiya)
いえ、他の人からいただいた、エクセルのプログラムで、 ＦＸのレート表を、ＭＴ４という為替レートをＤＤＥ通信して得ている情報です。 それも、ＷＥＢクエリなのかな?それさえも、判りません。
先ほどにも記入したのですが、静止しているデータではないので、 定期的（1分おきに）セルの情報コピーではなく、数字として情報を半永久に蓄積したいのです。
遠まわしな説明ですみません。
シートモジュールへ
Private Sub Worksheet_Calculate()
Range("b43:i43").Copy
With Range("b" & Rows.Count).End(xlUp)(2)
.PasteSpecial
.Value = Now
End With
Range("b43:i43").ClearContents
End Sub
(seiya)
またまたすみません。 同じ時間だけを下に1秒ごとくらいに繰り返してコピーしていてデータは無しの状態で 繰り返し始めてしまいました。
それでしたら前出のコードを試してください。 (seiya)
試してみましたが、どうも、
Sub myStart()
myCurrentTime = Now + TimeValue("00:01:00")
Application.Run myCurrentTime, "Update"
End Sub
ここで、エラーが出てしまいます。 後、画面に貼り付ける場所を指定して、エンターを要求してきたので、 エンターを押したら、その、下の段にコピーは出来たのですがやはり、 数式までつれてきてしまってそこでも変動してしまいます。
どうでしょうか？
時間はそれほど気にしないので、セル番号Ｂ４３に、＝ＮＯＷ（）で日本時間にしました。 それならば、どうでしょうか？1分ごとで良いので。 すみません。
いけね... これで試してください。
Private myCurrentTime As Date
Sub Update()
Range("b43:i43").Copy
With Range("b" & Rows.Count).End(xlUp)(2)
.PasteSpecial xlPasteValues
.Value = Now
End With
End Sub
Sub myStart()
myCurrentTime = Now + TimeValue("00:01:00")
Application.OnTime myCurrentTime, "Update"
End Sub
Sub myStop
Application.OnTime myCurrentTime, "Update",, False
End Sub
(seiya)
またまたすみません。 1行変動しない行が出来たのですが その次の行が 今度は、時間で、下に下がらずに、そこで、更新されてしまいます。
myStart から走らせていますか？ (seiya)
ごめんなさい。 myStartってなんですか？
すみません。本当に何もわからない者で、 ツールのマクロのVisual Basicの シート表にコピペして 上から順番に、 上部の再生ボタンみたいなものを押して実行していました。
違うようならば、詳しく教えていただけると助かります。
すみません。
1) 今までのコード（私の提示したコード）を全て削除 2) 新規標準モジュール ([挿入] - [標準モジュール]) に下記コードを貼り付ける 3) シートに戻って、Alt + F8 - myStart を選択 - [実行]
Private myCurrentTime As Date
Private Sub Update()
Range("b43:i43").Copy
With Range("b" & Rows.Count).End(xlUp)(2)
.PasteSpecial xlPasteValues
.Value = Now
End With
End Sub
Sub myStart()
myCurrentTime = Now + TimeValue("00:01:00")
Application.OnTime myCurrentTime, "Update"
End Sub
Sub myStop
Application.OnTime myCurrentTime, "Update",, False
End Sub
(seiya)
確かめてみます。 ちなみに、
先ほどの状態で、 またまたすみません。 今度は、先ほどのコード
Private myCurrentTime As Date
Sub Update()
Range("b43:i43").Copy
With Range("b" & Rows.Count).End(xlUp)(2)
.PasteSpecial xlPasteValues
.Value = Now
End With
End Sub
Sub myStart()
myCurrentTime = Now + TimeValue("00:01:00")
Application.OnTime myCurrentTime, "Update"
End Sub
Sub myStop
Application.OnTime myCurrentTime, "Update",, False
End Sub
の一番上に
Sub myStart()を記入したところ、 コンパイルエラー 名前が適切ではありませんmyStartと出ました。
前記のコード中の 時間変更の時のところのSub myStartがグレーのマーカーで塗りつぶした状態になりました。
Sub myStart()＊＊＊＊【ここです】＊＊＊＊
myCurrentTime = Now + TimeValue("00:01:00")
Application.OnTime myCurrentTime, "Update"
End Sub
長々とお手数掛けます。
結果、やはり、
1行は下に前の数字で下げることが出来たのですが、
それからは、最上部の所がコピー選択状態のまま点滅して、その中で刻々と時間が過ぎています。
やはり、下のほうにコピー先を選択してエンターキーを押すか、貼り付けを選択します。の 表示が繰り返し出ています。
う～ん困りました。
なぜだかわかりません...
Sub Update を下記と差し替えてみてください。
Sub Update()
With Range("b" & Rows.Count).End(xlUp)(2)
.Resize(, 8).Value = Range("b43:i43").Value
.Value = Now
End With
End Sub
(seiya)
先ほどよりも良いみたいです。が、 コピー選択がなくなったのですが、 一段は下がるのですが、 やはり、その先の、ループがつづかずに、最上部で時間だけが過ぎています。 どうしたらよろしいでしょうか？
どんどん下に落としていって貰いたいです。
私は最初のデータからコードを書いています。 一分毎に実行ではないのですか？ (seiya)
またまたすみません。 言葉不足で、
1度スタートしたら 1分ごとに自動で永遠（止めるまで）書き込み続けて欲しいのです。
このプログラムだと、1分ごとに先ほどのalt+F8 myStart実行を自分でしなければいけないのですか?
だとしたら、私の言葉不足でした、すみません。
もし、別シートに、上部左上のＡ１～Ａ８まで から 最下部という方が簡単であるなら、別シートに記入でも良いです。
本当に本当に申し訳ありません。
実行するプロシジャを間違っているだけのような気が・・・(ROUGE)
すみません。
なにから、なにまで、判らなくて、、
実行するプロシジャを間違っているだけのような気が・・・ この言葉さえ何だか判りません。
すみません。
追記、 やはりalt+F8 myStart実行で1分後にデータが1回だけ落ちます。
なぜでしょうね... どこか他のシートへ移動したりしていませんか？
シート名を入れてみてください。
Sub Update()
With Sheets("ここにシート名を記述") '<------
With .Range("b" & Rows.Count).End(xlUp)(2)
.Resize(, 8).Value = .Range("b43:i43").Value
.Value = Now
End With
End With
End Sub
With Sheets("ここにシート名を記述") '<------
これは、書き込んでいませんでした。
このシート名とは、標準の番号Sheet1とかですか？ それとも、自分でつけた漢字のSheet1に（基本）と付けた名称どちらなのでしょうか？
Private myCurrentTime As Date
Sub Update()
Range("b43:i43").Copy
With Range("b" & Rows.Count).End(xlUp)(2)
.PasteSpecial xlPasteValues
.Value = Now
End With
myStart' ←追加
End Sub
Sub myStart()
myCurrentTime = Now + TimeValue("00:01:00")
Application.OnTime myCurrentTime, "Update"
End Sub
Sub myStop()
Application.OnTime myCurrentTime, "Update", , False
End Sub
もしかして、こうでは？
(みやほりん)(-_∂)b
うわっ、 大変失礼しました。 みやほりんさんご指摘のとおりです。 (seiya)
出来ました！！上記の(seiya)さんのプログラムに(みやほりん)(-_∂)bさんの 合体で1分後とに記録し始めました！！
おっと最新データが1番上 2番目のデータが1番下に行ってしまうのですね、、 これで、折れ線グラフを作ろうと思うとおかしなグラフになってしまいますね？ どうにかならないでしょうか？
希望は、 2009/1/20/19:23 （最新データ変動中） 2009/1/20/19:24 2009/1/20/19:25 2009/1/20/19:26
現在は 2009/1/20/19:23 （最新データ変動中） 2009/1/20/19:26 2009/1/20/19:25 2009/1/20/19:24
これだと、折れ線グラフおかしくなりますよね？ なんとか希望どおりの形にならないでしょうか？ もし、ならば上からじゃなくても下からでも最新と順番が入れ替わらないように出来ないでしょうか？
Private myCurrentTime As Date
Private Sub Update()
Range("b43:i43").Copy
With Range("b" & Rows.Count).End(xlUp)(2)
.PasteSpecial xlPasteValues
.Value = Now
End With
myStart'
End Sub
Sub myStart()
myCurrentTime = Now + TimeValue("00:01:00")
Application.OnTime myCurrentTime, "Update"
End Sub
Sub myStop
Application.OnTime myCurrentTime, "Update",, False
End Sub
良かったです。
後、このキーを押したら全部データ消し また、このキーを押したら下から３０００データ消し など、 ちなみに、このＤＡＴＡの上から６０～１００行とか指定して、 別シートなりオブジェクトなりで折れ線データを作るという作業は組み込めるのでしょうか？ わがままついでなのですが、、 ご教授お願いいたします。
質問者氏は株かなんかのデータ自動取得をしているのでしょうか？ 回答者の先生方、そんなのにいつまでも付き合っている必要ないのじゃありません？ 質問者さん、お金払ってプロに頼んだらどうですか？ (トオリスガリ)
(seiya)さん(みやほりん)(-_∂)bさん 長々とご質問にお答えいただいてありがとうございました。 気持ちよく、終われたならば、もっと良かったのですが。 ここまでの形から色々ためして希望どおりに出来るようにもっともっと勉強してみたいと思います。 本当にありがとうございました。
エクセルの学校の運営方針は、 https://www.excel.studio-kazu.jp/wiki/excelboard/index2.html 「マルチポストで何であれ、自由に質問して、自由に答えて、みんなで学んで解決してゆこう」 です。 そのためにも建設的・生産的な気持ちで参加したいですね。 相談者さんはご覧にならないかもしれませんが、 ＞ 2番目のデータが1番下に行ってしまうのですね、、 私のほうでは、「希望は・・・」のようになっているんですけれどもね。 （下の行になるほど新しい時間が記録されている状態） これがおかしい、というのなら、文字だけでのやり取りですから、 相談者さんの思っていることと、回答者の受け取り方のすれ違いが 発生している可能性があります。 （もしくは回答者の知りえない情報が何かある） 追加質問の部分については、基礎技術さえ身につければ、 記録マクロなどを参考にして、 カスタマイズなどしていけばそれほど高度なコーディングでもないはず。 前向きにやってください。 (みやほりん)(-_∂)b
エクセルの学校の運営方針は、建設的・生産的な気持ちで参加したいですね。？
だから、勉強のために質問しているのですよね？
質問者氏は株かなんかのデータ自動取得をしているのでしょうか？ 回答者の先生方、そんなのにいつまでも付き合っている必要ないのじゃありません？ 質問者さん、お金払ってプロに頼んだらどうですか？ (トオリスガリ) この発言も？建設的・生産的な気持ちで発言？
追加質問の部分については、基礎技術さえ身につければ、 記録マクロなどを参考にして、 カスタマイズなどしていけばそれほど高度なコーディングでもないはず。 前向きにやってください。が、 自由に質問して、自由に答えて、みんなで学んで解決してゆこう？ この発言も？知識がある人だから言える発言ですよね？
私のような、素人は、出来なきゃヤメロ！！的な発言にしか聞こえません！！ かなり、後ろ向きになりました。
説教に聞こえてしまいましたか？ 困りました。勉強の定義が違うのでしょうか。 [全部データ消し] Sub AllDataClear() Cells.ClearContents End Sub [下から３０００データ消し] Sub Clear3000() Dim myRow As Long myRow = Cells(Rows.Count , 2).End(xlUp).Row Range(myRow - 2999 & ":" & myRow).ClearContents End Sub [６０～１００行とか指定して別シートなりオブジェクトなりで折れ線データを作る] データの仕様が良く分からないけれど、 データ範囲を指定して折れ線グラフを描画するのはマクロの記録でも出来る。 オートフィルタでグラフ表示したいデータ範囲を抽出すれば、 抽出した範囲だけのグラフが出来る。 (みやほりん)(-_∂)b
一言...
提示されたコードで「勉強」をして理解を深める
これが無いとただのおねだりなんですよ。 根本的なところで勘違いしていませんか？
質問者の立場になればいろいろあるでしょう、 回答者も出来るだけそれに添うような形でコードを提示している にもかかわらず、このようなやり取りになるのはなぜか？ 、 質問者はもっとしっかり質問しろ！ と言いたい。
自分の説明不足を棚に上げて、なぜ回答者の言葉尻だけを捕まえて あーだこーだ言うことが出来るのか不思議でならない。
それと、心無い「部外者」は誰も歓迎しない。 (seiya)
「Private Sub Update」のコード内の
With Range("b" & Rows.Count).End(xlUp)(2)
.PasteSpecial xlPasteValues
.Value = Now
End With
部分で、B列の最後の行にデータを貼り付けています。
毎回44行目に貼り付けて行くなら、
Range("b" & Rows.Count).End(xlUp)(2)ではなく
Rgnge("b44")
とします。
これで、B44のセルに貼り付きますが
このままで貼付前に44行目に入っているデータは消えてしまいます。
44行目以降に入っているデータも一つずつ下に移動させる必要が有るので
コードの流れとしては
１．44行目を挿入
２．43行目をコピー
３．B44から値貼り付け＆B44に日時を入力
と言う形にしてみるのはどうでしょう。
44行目を挿入は
Range("B44").Insert Shift:=xlDown
のコードで実行出来そうに思います。
また、グラフに関して マクロが難しいとお考えなら 数式等を利用しても作成出来ると思います。
(HANA)
ありがとうございます。 今、そう思い、実験中です。
以前のコードにこんな形で入力してみたのですが、
Private myCurrentTime As Date
Private Sub Update()
Range("b43:i43").Copy
With Range("b44:i44")
.PasteSpecial xlPasteValues
.Value = Now
End With
myStart'
End Sub
Sub InsertRow()
Application.Cut.CopyMode = False
Range("B44").Insert Shift:=xlDown
End Sub
Sub myStart()
myCurrentTime = Now + TimeValue("00:00:59")
Application.OnTime myCurrentTime, "InsertRow"
myCurrentTime = Now + TimeValue("00:01:00")
Application.OnTime myCurrentTime, "Update"
End Sub
Sub myStop
Application.OnTime myCurrentTime, "Update",, False
End Sub
人のプログラムを見よう見まねで、こんな風にしましたが、 実行時エラー”１００４” データの損失を防ぐため、空白でないセルをワークシートの外にシフトすることは出来ません。と出ました。 コピー開始1秒前にセル挿入を考えたのですが、プログラム的な順番？ 何も、判らないので、まねて、作ってみたのですが、 全文見ていただけないでしょうか？
やはり、セル挿入時にエラーがでます。
行の挿入はあまり好きではないので...
Private myCurrentTime As Date
Sub Update()
Dim LastR As Range
Set LastR = Range("b44")
If Not IsEmpty(LastR) Then
Set LastR = Range("b" & Rows.Count).End(xlUp)(2)
End If
Range("b43:i43").Copy
With LastR
.PasteSpecial xlPasteValues
.Value = Now
End With
myStart
End Sub
Sub myStart()
myCurrentTime = Now + TimeValue("00:01:00")
Application.OnTime myCurrentTime, "Update"
End Sub
Sub myStop()
Application.OnTime myCurrentTime, "Update", , False
End Sub
(seiya)
(seiya)さん のプログラムですと、やはり以前と変わらないで、
このようになってしまいます。 2009/1/20/19:23 （最新データ変動中） 2009/1/20/19:26 2009/1/20/19:25 2009/1/20/19:24
どうしても 2009/1/20/19:23 （最新データ変動中） 2009/1/20/19:24 2009/1/20/19:25 2009/1/20/19:26 この形にするには、セルＢは日付、Ｃ～Ｉは数字指定で、Ｂ行改行そこにコピーしか私には、思いつかないのですが、上記のプログラムは、条件などおかしいでしょうか？ 各セルの条件指定はしていないですが、気持ち的には、Ｂ４４行挿入、Ｂ４４にコピー、Ｂ４４行挿入、Ｂ４４にコピーとしたいのですが、、 すみません。
他にコードが書かれてない限り、私の提示したコードでそのような結果には ならないと思いますよ？
シート見出しを右クリックして[コードの表示] 出てきた画面になにか書かれていませんか？ (seiya)
書いてありました。 人からもらった物だったので気がつきませんでした。 消しても大丈夫なのか？も、分かりませんが転記します。 見ていただけないでしょうか？ よろしくお願いいたします。
Private Sub CommandButton1_Click()
UserForm1.Show CommandButton1.Caption = "CLOSE= D_CLICK"
End Sub Private Sub CommandButton1_DBLClick(ByVal CANCEL As MSForms.ReturnBoolean)
Unload UserForm1 CommandButton1.Caption = "OPEN= CLICK"
End Sub
Private Sub CommandButton2_Click() Call Fデータ取得 End Sub
です。お手数かけます。
Call Fデータ取得 が何をしているかですね... 標準モジュールに Fデータ取得 があるはずですので、見つけてアップして下さい。 (seiya)
エクセルファイル自体全貌が見えないようになっているような気がします。 今、扱っているシート番号が３０番なので、、 他にも、その、ＭＴ４と言うチャートソフトとＤＤＥ連携してＤＡＴＡを貰い受けているようなのに、そのプログラム自体何も見えないので、、 もし、他の手段として、このシートの指定セルを他のシートに転記してから、もう一度、初めから組みなおすと言う方法のほうが簡単なのでしょうか? ちなみに、自分がシート３０に作った標準モジュール以外は、他には何もありません？（見えませんなのでしょうか？）
Sub Update() を下記のようにに変更してください
Sub Update()
Dim LastR As Range
With Sheets("貼り付け先シート名") '<- 要変更
Set LastR = .Range("b1") '<- 貼り付け開始セルアドレス
If Not IsEmpty(LastR) Then
Set LastR = .Range("b" & Rows.Count).End(xlUp)(2)
End If
End With
With Sheets("データ更新シート名") '<- 要変更
.Range("b43:i43").Copy
End With
With LastR
.PasteSpecial xlPasteValues
.Value = Now
End With
myStart
End Sub
(seiya)
とりあえず質問者の方は下記でも質問をなさって回答をもらっています。 このままでは情報の錯誤などもおきかねませんので参考にどうぞ。
http://excelfactory.net/excelboard/excelvba/excel.cgi?mode=all&namber=119305&rev=0
(独覚)
使用方法が分からないので、全く意に添わない事かもしれませんが 現在の問題点は、取得済みのデータが一番下に追加される事ですよね。 それで、何が問題かと言うと グラフを作成する際に 最新データが離れた場所に有ることですよね。
一つの範囲でグラフを描こうと思った時に 最新のデータだけが別の場所に有るのは 喜ばしいこととは思えませんが グラフ作成用のデータをどこかに作成し その範囲を使用してグラフを作成する事にすれば 元データがどの並びであっても そんなに気にすることは無くなりそうに思います。
データ範囲が一分ごとに下がっていくと言う問題も 気にしなくて良くなりそうに思います。
B列には重複無く、日時が入っているのですから 大きい方（新しいデータ）から引用したい場合は、LARGE関数を 小さい方（古いデータ）から引用したい場合は、SMALL関数を使用し 一度日時を取り出したあと、それをキーにして その他の情報を取り出せば良いのではないでしょうか。
(HANA)
皆様のおかげで、試行錯誤、調べながら、なんとか、思いの形になりました。 ありがとうございました。 ちなみに、こんな感じになりました。無駄が多いと思いますけど初心者なので許してください。ちょっと、よくばってデータを増やしました。
あと、マクロで
Sub myStop()
Application.OnTime myCurrentTime, "Update", , False
End Sub
を実行しても、"Update"はすぐに止まるのですが、"InsertRow"が1行下りて止まります。
気にはならないですが、、
この、長くなりすぎてみづらくなってしまったのでスレッドはこれにておわりにさせていただきます。
そこで、この最後に、もうひとつ質門なのですが、
今のワークシートに他のプログラム（グラフ作成）なのですが、始めるとしたら、標準モジュールを別に作るのでしょうか？
実は、始まりの決まり文句みたいな、前のプログラムで言う、
Private myCurrentTime As Date
Private Sub Update()
のような言葉は自分で好きにつけていい言葉なのでしょうか？
HTMLの<TITLE>自分の好き</TITLE>のような形なのでしょうか？
初歩的な質問ですみません。
グラフ作り等はがんばってみて分からなくなったらまた、別に質問させていただきます。
よろしくお願いいたします。
Private myCurrentTime As Date
Private Sub Update()
Range("c56:i56").Copy
With Range("c57:i57")
.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
Range("k56:o56").Copy
With Range("k57:o57")
.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
Range("q56:u56").Copy
With Range("q57:u57")
.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
Range("w56:aa56").Copy
With Range("w57:aa57")
.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With myStart ' End Sub
Sub InsertRow()
Range("c57:i57").Insert Shift:=xlDown
Range("k57:o57").Insert Shift:=xlDown
Range("q57:u57").Insert Shift:=xlDown
Range("w57:aa57").Insert Shift:=xlDown
End Sub
Sub myStart()
myCurrentTime = Now + TimeValue("00:00:59")
Application.OnTime myCurrentTime, "InsertRow"
myCurrentTime = Now + TimeValue("00:01:00")
Application.OnTime myCurrentTime, "Update"
End Sub
Sub myStop()
Application.OnTime myCurrentTime, "Update", , False
End Sub
ありがとうございます。
> を実行しても、"Update"はすぐに止まるのですが、"InsertRow"が1行下りて止まります。
myCurrentTime = Now + TimeValue("00:01:00")
でその２行前の myCurrentTime とは違ってきます。(Now 自体も既に進む）
Sub myStart()
myCurrentTime = Now + TimeValue("00:01:00")
Application.OnTime myCurrentTime, "Update"
End Sub
Private Sub Update()
Rows(57).Insert
Range("c56:i56").Copy
Range("c57").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Range("k57").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Range("q57").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Range("w57").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
myStart '
End Sub
(seiya)
コメントしなくてすみませんでした。 1分間空白が出来てしまうので思っていた回答ではありませんでした。 以上、このスレ終了。
これじゃ、キャッチボールもくそも無いよな。 私もあなたへの今後の返信はこれにて一切終了！ (seiya)
これじゃ、キャッチボールもくそも無いよな。 私もあなたへの今後の返信はこれにて一切終了！ (むずむず)
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.