□ 戻る　 □一般操作のサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
簡単な繰り返し操作を実現したいです。

    [196209] 簡単な繰り返し操作を実現したいです。-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ midri -(2024/05/08(15:19))
    □U R L/

      こんにちは。私はExcelVBA初心者です。
      環境は、Windows10のExcel2016です。

      目的は、キーボード操作の一連の流れを自動化することです。
      その流れを下記に記しますと、

      1.Sheet1のA1セルでF9を1回押す。（乱数の更新のため）
      2.Sheet1のA1セルをコピーする（中身は数式が入っています）
      3.Sheet2のA1セルに移動。
      4.Sheet2のA1セルに値のみ貼り付け。
      5.Sheet2のA2セルに移動。（順次下の行に移動します）
      6.Sheet1のA1セルに移動（元の位置に戻ります）

      これを実行したいのですが、
      どうも、F9で更新する仕様が上手くいかない様子です。

      補足ですが2.のところは、CONCATENATE()関数が入っています。
      キー操作を自動化するツールも探したのですが、使い方よく分からず、
      どうか、ご教示のほど宜しくお願い致します。


      ++++++++++++++++++++
      OS      ⇒Windows XP
      Version⇒Excel 2007
      ++++++++++++++++++++



    [196210] Re[1]: 簡単な繰り返し操作を実現したいです。-

    ■記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2024/05/08(19:30))
    □U R L/ 
      こんな事なのかなぁ‥

Sub Macro1()
    Dim Target
    
    Sheets("Sheet1").Calculate
    
    Target = Sheets("Sheet1").Range("A1").Value
    With Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp)
        If .Value = "" Then
            .Value = Target
        Else
            .Offset(1) = Target
        End If
    End With
    
End Sub


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [196214] Re[2]: 簡単な繰り返し操作を実現したいです。-

    ■解決！！ありがとうございました！ / 記事引用/メール受信=OFF■

    □投稿者/ midri -(2024/05/12(10:11))
    □U R L/

      ありがとうございます。
      返信遅くなりまして申し訳ございません。

      ExcelのVBA画面を開いて、
      書いて頂いたコードを貼り付けて実行したら出来ました！
      ありがとうございました。



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->　 図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決！！ありがとうございました！ 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜！ Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内)　

- Child Forum -
Edit:ゆう-Ｇ