下記のマクロコードをもう少し簡素化できる方法があれば教えてください。
指定シート名「Table 2」で指定セルに指定計算式をコピーできます。
現状のマクロ
Sub 水平距離()
Sheets("Table 2").Select
Range("$Z$4").Formula = "=IFERROR(ROUNDDOWN(($O$4+$P$4),3),"""")"
Range("$Z$5").Formula = "=IFERROR(ROUNDDOWN(($O$5+$P$5),3),"""")"
Range("$Z$6").Formula = "=IFERROR(ROUNDDOWN(($O$6+$P$6),3),"""")"
Range("$Z$7").Formula = "=IFERROR(ROUNDDOWN(($O$7+$P$7),3),"""")"
Range("$Z$10").Formula = "=IFERROR(ROUNDDOWN(($O$10+$P$10),3),"""")"
Range("$Z$11").Formula = "=IFERROR(ROUNDDOWN(($O$11+$P$11),3),"""")"
Range("$Z$12").Formula = "=IFERROR(ROUNDDOWN(($O$12+$P$12),3),"""")"
Range("$Z$13").Formula = "=IFERROR(ROUNDDOWN(($O$13+$P$13),3),"""")"
Range("$Z$16").Formula = "=IFERROR(ROUNDDOWN(($O$16+$P$16),3),"""")"
Range("$Z$17").Formula = "=IFERROR(ROUNDDOWN(($O$17+$P$17),3),"""")"
Range("$Z$18").Formula = "=IFERROR(ROUNDDOWN(($O$18+$P$18),3),"""")"
Range("$Z$19").Formula = "=IFERROR(ROUNDDOWN(($O$19+$P$19),3),"""")"
Range("$Z$22").Formula = "=IFERROR(ROUNDDOWN(($O$22+$P$22),3),"""")"
Range("$Z$23").Formula = "=IFERROR(ROUNDDOWN(($O$23+$P$23),3),"""")"
Range("$Z$24").Formula = "=IFERROR(ROUNDDOWN(($O$24+$P$24),3),"""")"
Range("$Z$25").Formula = "=IFERROR(ROUNDDOWN(($O$25+$P$25),3),"""")"
文字数の関係上途中省略
Range("$Z$118").Formula = "=IFERROR(ROUNDDOWN(($O$118$+P$118),3),"""")"
Range("$Z$119").Formula = "=IFERROR(ROUNDDOWN(($O$119+$P$119),3),"""")"
Range("$Z$120").Formula = "=IFERROR(ROUNDDOWN(($O$120+$P$120),3),"""")"
Range("$Z$121").Formula = "=IFERROR(ROUNDDOWN(($O$121+$P$121),3),"""")"
End Sub
以上となります。よろしくお願いいたします。
No.3
- 回答日時:
No.2 です。
すみません、ちょっと違いました。Range("$Z$" & GYO).Formula = "=IFERROR(ROUNDDOWN(($O$" & GYO & "+$P$" & GYO & "),3),"""")"
で、たぶんOK。(未検証)
No.2ベストアンサー
- 回答日時:
以下のようにしてください。
Sub 水平距離()
Dim i As Long
Dim str1 As String
Dim str2 As String
Sheets("Table 2").Select
For i = 4 To 121
str1 = "$Z$" & i
str2 = "=IFERROR(ROUNDDOWN(($O$" & i & "+$P$" & i & "),3),"""")"
Range(str1).Formula = str2
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Excel(エクセル) Formulaプロパティーを使ってセルに数式を組んだのですが簡潔にしたい。 3 2022/08/21 20:51
- Excel(エクセル) マクロを簡潔にしたい 6 2022/09/16 10:37
- Excel(エクセル) 【マクロ】 IFERROR関数をマクロを利用し、エクセルへ入力しようとすると構文エラーとなる 1 2024/06/09 07:55
- Visual Basic(VBA) エクセルのマクロとシートの保護について教えてください。 1 2022/10/18 08:36
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- Visual Basic(VBA) 関数を最終行までコピー 3 2022/09/04 11:05
- Excel(エクセル) 【マクロ】セルに関数を入れる場合、列を追加した後に実行すると【文字列】になってしまう 1 2024/06/09 16:41
- Excel(エクセル) vbaで列幅について 1 2022/11/15 08:31
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでCOPYを繰り返すと、処理が...
-
【マクロ】並び替えの範囲が、...
-
【マクロ】オートフィルター を...
-
Vba Array関数について教えてく...
-
Vba 型が一致しません(エラー1...
-
【ExcelVBA】値を変更しながら...
-
vbsでのwebフォームへの入力制限?
-
エクセルのマクロについて教え...
-
【ExcelVBA】5万行以上のデー...
-
VBAでセルの書式を変えずに文字...
-
【マクロ】開いているブックの...
-
Vba セルの4辺について罫線が有...
-
vb.net(vs2022)のtextboxのデザ...
-
Excel VBA 選択範囲の罫線色の...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
エクセルの改行について
-
VBAで特定の文字が入った行をコ...
-
WindowsのOutlook を VBA から...
-
Excel 範囲指定スクショについ...
-
【マクロ】シートの変数へ入れ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba セルの4辺について罫線が有...
-
vbsでのwebフォームへの入力制限?
-
【ExcelVBA】5万行以上のデー...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
【マクロ】開いているブックの...
-
【マクロ】並び替えの範囲が、...
-
エクセルの改行について
-
エクセルのマクロについて教え...
-
vb.net(vs2022)のtextboxのデザ...
-
VBAでCOPYを繰り返すと、処理が...
-
VBA ユーザーフォーム ボタンク...
-
エクセルのVBAコードと数式につ...
-
エクセルのVBAコードについて教...
-
[VB.net] ボタン(Flat)のEnable...
-
【マクロ】変数を使った、文字...
-
改行文字「vbCrLf」とは
-
質問58753 このコードでうまく...
-
【マクロ】シートの変数へ入れ...
-
ワードの図形にマクロを登録で...
-
算術演算子「¥」の意味について
おすすめ情報

