Excel VBA質問箱 IV

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

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


5165 / 13646 ツリー ←次へ | 前へ→

【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までコピーしたものを、11月のシートの空白セルの最上段に記入したい場合の選択方法がわかりません。
11月のシートには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("11月").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 + ↓(キー)を押したものをマクロ記録してみてください。

注)A1セルが空白の時、A2セルが空白の時などで思うような結果が得られないと思いますから、その辺は考慮してコードを組んでください。

【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

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

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


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

「セルA1を選択しなさい」命令後の、
選択したセルって同じじゃん。
Select
Selection
は省いてつなげてかけるかも?
と、速く気づいて自分で試せるようになってください。

【52309】Re:任意の空白のセルをマクロに書き込む...
お礼  海川豊大  - 07/11/7(水) 14:50 -

引用なし
パスワード
   ありがとうございます。
文字列の意味をしっかり理解していないと、自分で色々作れないですね。
参考書等で基礎を学んでいきたいと思います。
取り急ぎこれで解決しました。

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