• 締切済み

エクセルVBAでセルの値を1分毎にコピーしたい

エクセルでA1にスピンボタンでカウントした値を1分毎に順次他のセルにコピーしたいのですがVBAで可能でしょうか。またそのA1の値も30分あるいは1時間毎にリセット(ゼロからスタート)したいのですがVBAで可能でしょうか。 よろしくお願いします。VBA初心者です。

みんなの回答

  • keithin
  • ベストアンサー率66% (5278/7940)
回答No.1

「記録開始」ボタンを用意し,次の作業開始マクロを登録しておきます。 いわずもがなですが,これらのマクロは標準モジュールに記録します。 sub 作業開始() macro2 macro1 end sub sub macro1() with thisworkbook.worksheets("Sheet1") .range("A65536").end(xlup).offset(1).value = .range("A1").value end with application.ontime now + timeserial(0, 1, 0), "macro1" end sub sub macro2() thisworkbook.worksheets("Sheet1").range("A1").value = 0 application.ontime now + timeserial(0, 30, 0), "macro2" end sub

kirakira3jp
質問者

お礼

早速の回答ありがとうございました。 質問に対する的確な回答で感謝しています。ありがとうございました。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • エクセルVBAでセル選択

    エクセル2000でリストを作成し、VBAで編集しようとしています。 A列に入力されているコードの先頭に「’」をつけて文字列とするための関数をB2のセルからA列のデータが入力されている最後のセルの隣までコピーしたいと思っています。 A列の最終セルを取得するVBAは分かったのですが、その値をB列の選択範囲として使用する方法がわかりません。 エクセルVBAは全くの初心者です。 どなたか教えてください!

  • VBA セルの値を別セルにコピーするには

    VBAでPastespecialでセルの値を別セルにコピーするマクロを組みたいです。 以下は参考にしたソースコードです。 Worksheets("Sheet1").Range("A1:B10").Copy Worksheets("Sheet2").Range("A1").PasteSpecial _                  Paste:=xlPasteValues, _                  Operation:=xlNone, _                  SkipBlanks:=False, _                  Transpose:=False あるExcelマクロの入力フォームSheetに、製品リストと使用している場所のマスタデータをクエリで読み込んで、製品IDと場所のコードを入力したらINDEX関数で抽出し、マクロ実行ボタンを押すと抽出結果を入力フォームの入力欄に貼り付けします。 上記のマクロだと貼り付けする元セルを移動させたら内容がずれた値がそのまま貼り付けされてしまうと思われますが、地道にコードのコピー元のセルを書き直さないといけないのでしょうか。 Excelの関数だと参照範囲を固定したら掴んで移動させてもセル番地が連動して移動してくれますが、マクロの場合どのようにすれば良いでしょうか。 また、複数個所のセルをコピーするので Paste:=xlPasteValues, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=False をコピーするセルの箇所に毎回入れていますが、コピー元のセル・コピー先のセル番地を一括して実行する方法はありますでしょうか。 VBAはソースコードを参考に当てはめているだけで、自力でコードを書くスキルは皆無です。 Excelは2016です。 詳しい方いましたらご教授ください。よろしくお願い致します。

  • エクセルVBAで設定したセルの値

    エクセルVBAについての質問です。 例えば、A1とB1のセルの値を参照している数式がC1セルに設定してあるとします。 さらに、D1のセルにはC1の値を参照している数式が設定してあるとします。 VBAでA1、B1のセルの値を変更したとします。 次のステップのVBAでC1、D1のセルを参照すれば、A1、B1の変更が反映された後の正しい値である C1、D1の値が取得できるのでしょうか? できて当たり前だと思うのですが、セルに設定してある数式が大変複雑であったりすると、ちゃんとA1、B1の変更が反映された正しいC1、D1セルの値がVBAで取得できるのかちょっと不安です。 ばかな質問かもしれませんが、回答をよろしくお願い致します。

  • ExcelからWordに、値のみコピー

    セルA1に「aaa」 セルB1に「bbb」 セルA2に「ccc」があるとします。 そして、セルA3に「=A1 & B1 & char(10) & A2」と記入します。 このセルA3の値(aaabbb改行ccc)のみを、Wordにコピーしたいと思っています。 (タブやスペースなども無い状態で) そこでWordにセルA3の値をコピーし、「テキストのみ保持」を指定したのですが、「"」が勝手に入ってしまいます。 どのようにすればセルA3の値のみを、Wordにコピーできますか? できれば、Excelの関数やVBAのみを使って、値をきれいにコピーしたいと思っています。 (タブ、スペース、「"」等、勝手に挿入しないで) わかりにくい質問になってしまいましたが、 わかる方教えてください。 よろしくお願いします。

  • エクセルのスピンボタンのコピーについて

    エクセルのスピンボタンのコピーについて いろいろ検索し、試しましたがうまくいきません。 A2セルに氏名(A3,A4と下に1000人程います) B1セルに日付(C1,D1と右に1ヶ月分) B2セルにスピンボタンを設定し、そのスピンボタンを縦1000行、横30列にコピーしたいのですが うまくいきません。。。 佐藤さんが12/1に3回⇒セルB2へ「3」 山田さんが12/2に5回⇒セルC3へ「5」 という感じで表示させたくて、B2へスピンボタンを設定しコピーしたのですがうまくいきません。 どうしたらできるでしょうか。 スピンボタンはフォームコントロールのものを使用しています。 Windows 7 Excel2007を使用しています。

  • EXCEL VBA シートの名前を指定してコピー

    EXCEL VBA 初心者です。 とても困っています。 助けてください。 excel2010を使っています。 今,「原本」というシートがあり,それをマクロを使って同じブック内にコピーしたいと思っています。 コピーして新しく作られたシートの名前は「A1」のセルに入力されている値にしたいです。 コピーされた後のシートにはマクロボタンは削除したいと考えています。 また,コピーした後のアクティブシートは「原本」のシートにしたいのですが これを全部いれたコマンドはどのようになるのでしょうか。 似たような質問だったり,回答があるのですが, どのように組み合わせたらいいのかよく分かりません。 どなたかお助けいただけないでしょうか。 よろしくお願いします。

  • ExcelからWordに、値のみコピー

    セルA1に「aaa」 セルB1に「bbb」 セルA2に「ccc」があるとします。 そして、セルA3に「=A1 & B1 & char(10) & A2」と記入します。 このセルA3の値(aaabbb改行ccc)のみを、Wordもしくはメモ帳にコピーしたいと思っています。 (タブやスペースなども無い状態で) そこでWordにセルA3の値をコピーし、「テキストのみ保持」を指定したのですが、「"」が勝手に入ってしまいます。 どのようにすればセルA3の値のみを、Wordもしくはメモ帳にコピーできますか? できれば、Excelの関数やVBAのみを使って、値をきれいにコピーしたいと思っています。 (タブ、スペース、「"」等、勝手に挿入しないで) わかりにくい質問になってしまいましたが、 わかる方教えてください。 よろしくお願いします。

  • セルに入力した値をコピーして他のセルにジャンプ

    VBAで、セルに入力されている値をコピーして他のセルにジャンプする事はできるでしょうか? 例えば、「A1」に「465」と入っていたら「A465」に移動     「A1」に「388」と入っていたら「A388」に移動 というふうに、値をコピーするのではなく、コピー&ペーストの動作事態をマクロに組みたいと思っているのですが、どうでしょうか? 変な質問で申し訳ありません。 よろしくお願いします。

  • エクセルVBAでブック間のコピーをしたい。

    エクセルVBAでブック間のコピーをしたい。 エクセルのVBA初心者です。 複数のブックが開いている時(ブックA,B,C...)に、今選択しているブックAのあるセルを、直前に選んでいたブックBやC(そのつど変わります)にコピーする方法は有りますでしょうか? どなたか教えて下さい。

  • Excel VBAでセルの色塗りについて

    VBAの初心者です。 Excel2003であるセル範囲のセルが色Aに塗られています。 今、このセル範囲でセルの値により5つの条件でセルの色を塗り分け て、条件に合致しないものは元の色のままにしたのですが、For Each とCASEステートメントを使ったVBAプログラムを教えて下さい。

専門家に質問してみよう