Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5184 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【52304】任意の空白のセルをマクロに書き込むには？ 海川豊大 07/11/7(水) 11:40 質問[未読]
【52305】Re:任意の空白のセルをマクロに書き込むに... Jaka 07/11/7(水) 11:49 発言[未読]
【52306】Re:任意の空白のセルをマクロに書き込むに... 海川豊大 07/11/7(水) 13:34 お礼[未読]
【52308】Re:任意の空白のセルをマクロに書き込むに... Jaka 07/11/7(水) 14:30 発言[未読]
【52309】Re:任意の空白のセルをマクロに書き込むに... 海川豊大 07/11/7(水) 14:50 お礼[未読]
【52304】任意の空白のセルをマクロに書き込むには...
質問  海川豊大  - 07/11/7(水) 11:40 -
引用なし
パスワード
   読み込みシートのA1:E1までコピーしたものを、１１月のシートの空白セルの最上段に記入したい場合の選択方法がわかりません。
１１月のシートにはA5:E5〜A2000:E2000までデータが記入されており、マクロにて順々に2001→2002と記入していきたいです。
現在色々調べているのですが、VBA素人の為調べるのにも苦労しております。
ご回答よろしくお願いします。


Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2007/11/7　ユーザー名 : CHD-090924
'

'
　　Sheets("読み込み").Select
　　Range("A1:E1").Select
　　Selection.Copy
　　Sheets("１１月").Select
　　Range("？？？").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
End Sub
【52305】Re:任意の空白のセルをマクロに書き込む...
発言  Jaka  - 07/11/7(水) 11:49 -
引用なし
パスワード
   A1セルを選択して、Ctrl + ↓（キー）を押したものをマクロ記録してみてください。

注）Ａ１セルが空白の時、Ａ２セルが空白の時などで思うような結果が得られないと思いますから、その辺は考慮してコードを組んでください。
【52306】Re:任意の空白のセルをマクロに書き込む...
お礼  海川豊大  - 07/11/7(水) 13:34 -
引用なし
パスワード
   回答ありがとうございます。やってみたのですが、貼り付けるシートのセルが固定されてしまい、マクロを実行するたびに空白のセルに移動していきません。
何か細工が必要だと思いますので、考えているところです。
知恵があればお貸し願えないでしょうか？
【52308】Re:任意の空白のセルをマクロに書き込む...
発言  Jaka  - 07/11/7(水) 14:30 -
引用なし
パスワード
   マクロ記録だとこんな感じになっていると思います。
↓このままでは、アクティブシートが対象になってしまいます。

Sub Macro1()
　　Range("A1").Select
　　Selection.End(xlDown).Select
End Sub

だから、明確にシートを指定してやればいいんです。↓

（空白セルの１個手前のセルから下に１個づらしたセル。）
Sheets("貼り付けシート").Range("A1").End(xlDown).Offset(1).PasteSpecial


予断
Range("A1").Select　　　　　　　セルＡ１を選択しなさい
Selection.End(xlDown).Select　 選択セルから下に向かって空白セルの１個前セルを選択しなさい。

「セルＡ１を選択しなさい」命令後の、
選択したセルって同じじゃん。
Select
Selection
は省いてつなげてかけるかも？
と、速く気づいて自分で試せるようになってください。
【52309】Re:任意の空白のセルをマクロに書き込む...
お礼  海川豊大  - 07/11/7(水) 14:50 -
引用なし
パスワード
   ありがとうございます。
文字列の意味をしっかり理解していないと、自分で色々作れないですね。
参考書等で基礎を学んでいきたいと思います。
取り急ぎこれで解決しました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5184 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free