Translate

次の方法で共有

VBAをExcelのほかのシートにも適用させたい

Anonymous
2022-11-19T04:31:32+00:00

はじめまして。

ネットを頼りにVBAを作成しているマクロ初心者です。

会社から依頼があり（暇に見えた？）データを作成するように依頼されました。

”データ保管シート”にデータを蓄積していきたいのですが、ある特定のシートにしか適用されません（シート名を指定しているからなのですが）

これを指定せずに他のシートにも適用するには、どのように書けばいいのでしょうか。

よろしくお願いいたします。

Sub データ保存() 

Sheets("357").Select 　　➡357というシートだけで動くのですが、それ以外にも358~370くらいまであります。

Range("E4").Select 

Selection.Copy 

Sheets("データ保存シート").Select 

If Range("A8") = "" Then 

    Range("A8").Select 

    ActiveSheet.Paste
```とりあえず、357のシートの項目をデータ保存シートの規定の場所に写していくというものを作成しています。
開発者テクノロジ | Visual Basic for Applications

ロックされた質問。 この質問は、Microsoft サポート コミュニティから移行されました。 役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。 プライバシーを保護するために、移行された質問のユーザー プロファイルは匿名化されます。

0 件のコメント

2 件の回答

並べ替え方法: 最も役に立つ
最も役に立つ 新しい順 古い順
  1. Anonymous
    2022-11-20T02:48:52+00:00
    0 件のコメント
  2. Anonymous
    2022-11-22T00:19:02+00:00

    留博上橋様

    ご回答ありがとうございます。

    同じブック内でなのですが、、、頂いたリンク内ではちょっと解決できませんでした。

    私の能力がなく、申し訳ありません。

    ありがとうございます。

    0 件のコメント