あなたは何にトキメキますか?

下記のマクロは先日教えて頂いたマクロです。
指定シートの指定セル範囲指定数式をコピーできます。
コードの
str2 = "=IFERROR(ROUNDDOWN(($O$" & i & "+$P$" & i & "),3),"""")"
部分を
=IFERROR(ROUNDDOWN(MIN(6*($O$4/$Q$4)-1.4,3),3),"3")
に変更する方法を教えてください。
尚、($O$4/$Q$4)の部分はO4及びQ4から4行づつで121まで
以上になります。
よろしくお願いいたします。

質問者からの補足コメント

  • 回答ありがとうございます。
    申し訳ありません。
    最終行は、120行でよいでしょうか。
    はい、私の間違えです。
    2.元のマクロは、str2をZ列に格納しています。今回もZ列へ格納で良いですか。
    はい、宜しくお願い致します。
    3.シート名は"Table 2"でまちがいないですか。
    はい、宜しくお願い致します。

    No.1の回答に寄せられた補足コメントです。 補足日時:2024/09/09 17:16

A 回答 (2件)

不明点です。


1.($O$4/$Q$4)の部分はO4及びQ4から4行づつで121まで ・・・ということですが
そうすると
O4/Q4
O8/Q8
・・・
O120/Q120

となります。
最終行は、120行でよいでしょうか。121行にはなりません。

2.元のマクロは、str2をZ列に格納しています。今回もZ列へ格納で良いですか。

3.シート名は"Table 2"でまちがいないですか。
この回答への補足あり
    • good
    • 0

以下のようにしてください。



Sub 水平距離を改造したもの()
Dim i As Long
Dim str1 As String
Dim str2 As String
Sheets("Table 2").Select
For i = 4 To 120 Step 4
str1 = "$Z$" & i
str2 = "=IFERROR(ROUNDDOWN(MIN(6*($O$" & i & "/$Q$" & i & ")-1.4,3),3),""3"")"
Range(str1).Formula = str2
Next
End Sub
    • good
    • 0
この回答へのお礼

回答ありがとうございました。
早速試してみます。

お礼日時:2024/09/09 17:33

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


おすすめ情報

このQ&Aを見た人がよく見るQ&A