Excel VBA質問箱 IV

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

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


35499 / 76732 ←次へ | 前へ→

【46432】Re:数式の列データ最後までのオートフィル
発言  かみちゃん  - 07/2/3(土) 10:59 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>としていますが、エラーがでます。(オブジェクトはサポートしていません。)

どこのコードでエラーが出ていますか?
エラーメッセージが表示されると、「デバッグ」ボタンがクリックできるようで
あれば、それをクリックすると、原因となっているコードが反転表示されますの
で、それも明示するようにしましょう。

ActiveCell.xlLastCell
は、どのようなお考えで記述されたのでしょうか?
詳しくは、以下にも載っているので確認していただきたいのですが、
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_030_100.html
(先頭4文字は、全角文字になっているので、半角にしてください)
列の値の入っている最終行は、Endプロパティで取得できます。
End(xlToLeft)は、行方向なので、同じ要領です。

そこで、以下のようにします。

Sub Sample1()
 '価格自動入力
 Dim i As Integer
 Application.ScreenUpdating = False
 '3行目で検索
 For i = Range("IV3").End(xlToLeft).Column To 1 Step -1
  If InStr(Cells(3, i).Value, "価格") > 0 Then
   Cells(4, i).FormulaR1C1 = "=Sheet1!R[-1]C[-5]"
   If Range(Cells(4, i), Cells(Rows.Count, i).End(xlUp)).Count > 1 Then
    Cells(4, i).AutoFill Destination:=Range(Cells(4, i), Cells(Rows.Count, i).End(xlUp)), Type:=xlFillValues
'   Selection.AutoFill Destination:=Range(Selection, ActiveCell.xlLastCell), Type:=xlFillValues
   End If
  End If
 Next i
 Application.ScreenUpdating = False
End Sub

オートフィルをしなくても、以下のような記述の仕方でもできます。
数式設定範囲のセル指定のコードが複雑かもしれませんが・・・

Sub Sample1_1()
 '価格自動入力
 Dim i As Integer
 Application.ScreenUpdating = False
 '3行目で検索
 For i = Range("IV3").End(xlToLeft).Column To 1 Step -1
  With Cells(3, i)
   If InStr(.Value, "価格") > 0 Then
    .Offset(1).Resize(.Offset(Rows.Count - .Row).End(xlUp).Row - .Row) _
     .FormulaR1C1 = "=Sheet1!R[-1]C[-5]"
   End If
  End With
 Next i
 Application.ScreenUpdating = False
End Sub
0 hits

【46431】数式の列データ最後までのオートフィル acochaco 07/2/3(土) 9:42 質問
【46432】Re:数式の列データ最後までのオートフィル かみちゃん 07/2/3(土) 10:59 発言
【46434】Re:数式の列データ最後までのオートフィル acochaco 07/2/3(土) 12:44 質問
【46435】Re:数式の列データ最後までのオートフィル かみちゃん 07/2/3(土) 12:54 発言
【46436】Re:数式の列データ最後までのオートフィル acochaco 07/2/3(土) 13:26 質問
【46437】Re:数式の列データ最後までのオートフィル かみちゃん 07/2/3(土) 13:43 発言

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