[[20200506125854]] 『Rangeの使い方』(玉子) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『Rangeの使い方』(玉子)

これサイトで見つけました
まだ始めたばかりです
A1:A10000でなくとするとCells(Rows.Count, 1).End(xlUp)としたら
何にもおきなくなりました
どこがおかしいか教えてくれないですか

Sub Test()

    Dim c As Range
  Dim i As Range

    Set i = Cells(Rows.Count, 1).End(xlUp)
    For Each c In Range("A1",i)
        c = 100
    Next c

< 使用 Excel:Office365、使用 OS:Windows10 >


>何にもおきなくなりました
おかしいなとおもったらまずは、ステップ実行して思う通りに動いているか、自分でチェックしてみてください。
https://www.239-programing.com/excel-vba/basic/basic023.html
http://plus1excel.web.fc2.com/learning/l301/t405.html
https://screwandsilver.com/stepwise_execution_in_vba/

そのうえで、「i」には何が入っていますか?

(もこな2) 2020/05/06(水) 13:11


 >Cells(Rows.Count, 1).End(xlUp)

 これ意味解って使ってます?
 A列のどこかに何か入れれば動きますよ。
(BJ) 2020/05/06(水) 13:20

追加で。

「Sub 〇〇 〜 End Sub」が一つのプロシージャと呼ばれるかたまりなので、1行くらい横着せずに書いた(提示した)方がお互い誤解がなくてよいとおもいます。

また、提示されたコードが正しかったとして、ループ処理は要らないと思います。

   Sub 実験01()
      Range("A1", Cells(Rows.Count, 1).End(xlUp)).Value = 100
   End Sub

> A列のどこかに何か入れれば動きますよ。
何も入ってない場合でも、A1セルが返るから動きますね。

(もこな2) 2020/05/06(水) 13:25


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.