Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

46089 / 76732

←次へ　｜　前へ→


	【35622】Re:ボタン一つで表のコピー貼付

mayumi - 06/3/8(水) 17:09 -


	引用なし

	パスワード

▼Kein さん：
>仮に Photo という値が A1 に入力されているとして、その位置(表の左上端)を
>そのままにしてコピーしていく。表は一行の空白をあけて下へコピーしていく。
>という条件で。
>
>Sub Copy_Table()
>　 Dim RCnt As Long
>
>　 With ThisWorkbook
>　　　If .Comments = "" Then
>　　　　 RCnt = 53
>　　　Else
>　　　　 RCnt = Val(.Comments) + 52
>　　　End If
>　　　.Comments = RCnt
>　 End With
>　 Range("A1:G51").Copy Range("A" & RCnt)
>　 Range("A" & RCnt).Resize(51, 7).ClearContents
>　 Range("A" & RCnt).Value = "Photo"
>End Sub
>
>で、出来ると思います。
>ちなみにWithステートメントで括ったコードは、次回に実行した際の貼り付け先
>行番号を保存しておく、というものです。常識的に65536行を超える範囲までコピぺ
>することは無い、という前提でエラー処理はしていませんが、値の保存先は
>ワークシートメニューの「ファイル」「プロパティ」「ファイルの概要」タブにある
>"コメント"欄ですから、適当なタイミングでよく考えて消去して下さい。　

Keinさんありがとうございました。
参考に今あるものをもう少し考えて見ます。
これからもアドバイスの程宜しくお願いします。

12 hits

▼

【35524】ボタン一つで表のコピー貼付 mayumi 06/3/7(火) 13:19