いつもお世話になっております
下記のコードを書きました。
エラーでないのですが、なにも表示されません。
添付ファイルも添付しました。
間違っているところおしえてくれませんでしょうか
遣りたいこと
C列/D列
Dim i As Long
Dim r As Range
Set r = Range("E151")
For i = 151 To Range("C1").Row
r = Cells(i, "C") / Cells(i, "D")
Set r = r.Offset(1)
Next
Set r = Nothing
No.2ベストアンサー
- 回答日時:
元のコードの問題点は以下の通りです。
Dim i As Long
Dim r As Range
Set r = Range("E151")
For i = 151 To Range("C1").Row <=※1
r = Cells(i, "C") / Cells(i, "D") <=※2
Set r = r.Offset(1) <=※3
Next
Set r = Nothing
※1 Range("C1").Rowだと1になり、160行目までループしません。っというより、Forの中に入りません。
※2 Cellsは行・列共に数字で指定します。
また、割り算の結果を変数に格納されたいようですが、rはRangeオブジェクトのため格納されません。
※3 おそらくE列の右の一つ隣のセルにということでしょうが、指定が一つ下のセルになっています。
上記を踏まえると
Dim i As Long
Dim r As Range
Dim ans as long
Set r = Range("E151")
For i = 151 To Range("C160").Row
ans = Cells(i, 3) / Cells(i, 4)
r.Offset(0, i -151).value = ans
Next
Set r = Nothing
となります。
有難うございます。
r.Offset(0, i -151).value = ans
r.offset(i151,0).value
にしてようやく完成しました。
お忙しいところありがとうございます。
No.3
- 回答日時:
To Range("C1").Row
って1ですよね?
そのセルの値を使いたいのなら
To Range("C1").Value
では?
いつもお世話になっております
For i = 151 To Range("C1").Valueで対応で
やりましたが、わたしのやり方わるいのか、
動作いたしませんでした。
結果をもとめるとき、いろんなやりかたで
おぼいたいです。
有難うございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
i=cells(Rows.Count, 1)とi=cel...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
指定した条件で行セルを非表示...
-
Application.Matchで特定行の検索
-
EXCELで変数をペーストしたい
-
ExcelのVBAで数字と文字列をマ...
-
エクセルVBAでコピーして順...
-
Excelのプルダウンで2列分の情...
-
vba 隣のセルに値がある行だけ...
-
エクセルVBAで結合セルの真ん中...
-
EXCELのVBA-フィルタ抽出後の...
-
Excelで指定した日付から過去の...
-
screenupdatingが機能しなくて...
-
ExcelVBA データを消去すると罫...
-
VBAでセル同士を比較して色付け
-
VBAでセルをクリックする回...
-
【EXCEL VBA】Range("A:A").Fi...
-
特定の文字を条件に行挿入とそ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
i=cells(Rows.Count, 1)とi=cel...
-
ExcelVBAを使って、値...
-
【Excel VBA】指定行以降をクリ...
-
特定のセルが空白だったら、そ...
-
EXCELで変数をペーストしたい
-
Excelで指定した日付から過去の...
-
VBAの間違い教えて下さい
-
【Excel】指定したセルの名前で...
-
Excelのプルダウンで2列分の情...
-
エクセルVBAでコピーして順...
-
Excel vbaで特定の文字以外が入...
-
Excel VBA、 別ブックの最終行...
-
【VBA】指定したセルと同じ値で...
-
特定の文字を条件に行挿入とそ...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
VBA初心者です。次のVBAコード...
-
指定した条件で行セルを非表示...
-
VBAでセルをクリックする回...
-
DataGridViewの各セル幅を自由...
おすすめ情報
できれば、提示して条件で
やりたいです。
お願いします。
恐らくもう少しなんだと思います。
それが、一時間ぐらい経ちますが、
答えがでません。