EXCEL VBAコミュの行をコピーして貼り付けたいのですが･･･

ログインして参加する

行をコピーして貼り付けたいのですが･･･

mixiユーザー 2007年02月15日 11:20

A列に日付を入れたら
その下の行をコピーして、又その下の行に貼り付け
という作業をしたいのですが、
たぶん下のコードだと、延々繰り返す様に思うんです。
一回限りにしたいときは、何を足せばよいのでしょうか？
宜しくお願いします。

Private Sub Worksheet_Change(ByVal Target As Range)
'' A列の入力かどうかを判断
If Target.Column = 1 Then
ActiveCell.Offset(1).EntireRow.Copy ActiveCell.Offset(2).EntireRow
End If
End Sub

コメント(7)

最初
全て
最新の40件

1

[1] mixiユーザー 02月15日 13:23

条件式が成り立っている限り処理を繰り返すという制御は

While　条件式
　繰り返したい処理
Wend

です。

指定した回数だけ処理を繰り返したい場合は

For 変数名＝初期値　To 最終値
　繰り返す処理
Next　変数名

です。

[2] mixiユーザー 02月15日 15:42

早々にレスありがとうございます。
VBAマクロ初心者で、まだまだ壁に突き当たると
そこから脱出できず、お恥ずかしいです。

マクロの構文って難しいですね。
･････私だけかぁ･･･

早々試してみます。

[3] mixiユーザー 02月15日 20:24

まず

>> たぶん下のコードだと、延々繰り返す様に思うんです。

「たぶん」とか「だと思う」とか悩む前に試しちゃったほうが早いです。
間違ってても爆発はしませんから。

[4] mixiユーザー 02月15日 20:27

ofさんの意見に賛成です。
動きを見てからソースを見直してもいいし、
問題点がはっきりすることも多いです。

[5] mixiユーザー 02月15日 21:00

僕もそう思います。

動作を見れば、「お前の仕業か！！」っていう感じで
どこが悪さしてるかわかったりしますし。

[6] mixiユーザー 02月15日 21:27

見当違いなお答えにお茶を濁すから変な方向に行ってますよ。
EnableEventsの話ですから。

ログインすると、みんなのコメントがもっと見れるよ

最初
全て
最新の40件

1

mixiユーザー: ログインしてコメントしよう！

EXCEL VBA 更新情報

EXCEL VBAのメンバーはこんなコミュニティにも参加しています

星印の数は、共通して参加しているメンバーが多いほど増えます。

人気コミュニティランキング

困ったときには

関連ワード

mixiで趣味の話をしよう: 新規登録（無料）; ログイン

このページの上部へ