いつもお世話になっております
下記のコードを書きました。
エラーでないのですが、なにも表示されません。
添付ファイルも添付しました。
間違っているところおしえてくれませんでしょうか
遣りたいこと
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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/11 08:33
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) VBA横データを縦にしたいです 2 2023/08/08 19:38
- Visual Basic(VBA) 形式を選択して貼り付け 以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ 5 2022/11/11 07:30
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelのハイパーリンクにマクロ...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
DataGridViewのセル編集完了後...
-
【Excel VBA】指定行以降をクリ...
-
EXCELで変数をペーストしたい
-
Excel vbaで特定の文字以外が入...
-
【VBA】指定したセルと同じ値で...
-
特定行の色を変えたい(FlexGrid)
-
VBAでセルをクリックする回...
-
EXCELのVBA-フィルタ抽出後の...
-
スプレッドシートの数値列に対...
-
VBAの計算で@が出てしまう件
-
セル色なしの行一括削除
-
3桁または4桁の数値を時刻に...
-
”戻り値”が変化したときに、マ...
-
TODAY()で設定したセルの日付...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
特定の文字を条件に行挿入とそ...
-
Excel VBA、 別ブックの最終行...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
DataGridViewの各セル幅を自由...
-
Sub 要具ライフ() ActiveSheet....
-
【EXCEL VBA】Range("A:A").Fi...
-
VBAを使用した時間管理
-
VBAでセルをクリックする回...
-
セル色なしの行一括削除
-
エクセルVBAでコピーして順...
おすすめ情報
できれば、提示して条件で
やりたいです。
お願いします。
恐らくもう少しなんだと思います。
それが、一時間ぐらい経ちますが、
答えがでません。