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 質問
【35564】Re:ボタン一つで表のコピー貼付 ponpon 06/3/7(火) 20:34 発言
【35583】Re:ボタン一つで表のコピー貼付 mayumi 06/3/8(水) 8:01 質問
【35585】Re:ボタン一つで表のコピー貼付 Blue 06/3/8(水) 8:54 質問
【35586】Re:ボタン一つで表のコピー貼付 mayumi 06/3/8(水) 9:26 回答
【35597】Re:ボタン一つで表のコピー貼付 ponpon 06/3/8(水) 13:06 発言
【35621】Re:ボタン一つで表のコピー貼付 mayumi 06/3/8(水) 16:58 質問
【35607】Re:ボタン一つで表のコピー貼付 Kein 06/3/8(水) 14:34 回答
【35622】Re:ボタン一つで表のコピー貼付 mayumi 06/3/8(水) 17:09 お礼

46089 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free