下記マクロを短いコード(一つのコード)に変更する方法を教えてください。
Sub 採光面積()
Sheets("Table 2").Select
Range("$AC$8").Formula = "=IFERROR(ROUNDUP($Y$8*数式! $C$1,2),"""")"
Range("$AC$14").Formula = "=IFERROR(round($Y$14*数式! $C$2,2),"""")"
Range("$AC$20").Formula = "=IFERROR(round($Y$20*数式! $C$3,2),"""")"
Range("$AC$26").Formula = "=IFERROR(round($Y$26*数式! $C$4,2),"""")"
Range("$AC$32").Formula = "=IFERROR(round($Y$32*数式! $C$5,2),"""")"
Range("$AC$38").Formula = "=IFERROR(round($Y$38*数式! $C$6,2),"""")"
Range("$AC$44").Formula = "=IFERROR(round($Y$44*数式! $C$7,2),"""")"
Range("$AC$50").Formula = "=IFERROR(round($Y$50*数式! $C$8,2),"""")"
Range("$AC$56").Formula = "=IFERROR(round($Y$56*数式! $C$9,2),"""")"
Range("$AC$62").Formula = "=IFERROR(round($Y$62*数式! $C$10,2),"""")"
Range("$AC$68").Formula = "=IFERROR(round($Y$68*数式! $C$11,2),"""")"
Range("$AC$74").Formula = "=IFERROR(round($Y$74*数式! $C$12,2),"""")"
Range("$AC$80").Formula = "=IFERROR(round($Y$80*数式! $C$13,2),"""")"
Range("$AC$86").Formula = "=IFERROR(round($Y$86*数式! $C$14,2),"""")"
Range("$AC$92").Formula = "=IFERROR(round($Y$92*数式! $C$15,2),"""")"
Range("$AC$98").Formula = "=IFERROR(round($Y$98*数式! $C$16,2),"""")"
Range("$AC$104").Formula = "=IFERROR(round($Y$104*数式! $C$17,2),"""")"
Range("$AC$110").Formula = "=IFERROR(round($Y$110*数式! $C$18,2),"""")"
Range("$AC$116").Formula = "=IFERROR(round($Y$116*数式! $C$19,2),"""")"
Range("$AC$122").Formula = "=IFERROR(round($Y$122*数式! $C$20,2),"""")"
Sheets("Table 2").Select
Range("X2").Select
End Sub
以上となります。
宜しくお願い致します。
No.4ベストアンサー
- 回答日時:
以下のようにしてください。
Sub 採光面積()
Dim i As Long
Dim r As Long
Dim str1 As String
Dim str2 As String
Sheets("Table 2").Select
For i = 1 To 20
r = i * 6 + 2
str1 = "$AC$" & r
str2 = "=IFERROR(ROUNDUP($Y$" & r & "*数式! $C$" & i & ",2),"""")"
Range(str1) = str2
Next
Range("X2").Select
End Sub
No.3
- 回答日時:
$AC$8 のみがROUNDUPした結果を格納しています。
$AC$8以外の行は、roundになっています。
これで、間違いないでしょうか。
それとも、どちらかが誤っているのでしょうか。
No.2
- 回答日時:
数式を入れる20行は、最初の
Range("$AC$8").Formula = "=IFERROR(ROUNDUP($Y$8*数式! $C$1,2),"""")"
の $8 と $1 を変化させているだけですから、No.1のForループで回せば、For~Nextの間は1行で済むことになります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
最近、いつ泣きましたか?
泣いてストレス発散! なんて言いますよね。 あなたは最近いつ、どんなシチュエーションで泣きましたか?
-
家・車以外で、人生で一番奮発した買い物
どんなものにお金をかけるかは人それぞれの価値観ですが、 誰もが一度は清水の舞台から飛び降りる覚悟で、ちょっと贅沢な買い物をしたことがあるはず。
-
メモのコツを教えてください!
メモを取るのが苦手です。 急いでメモすると内容がごちゃごちゃになってしまったり、ひどいときには全く読めない時もあります。
-
【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
【お題】 ・世界最古のコンビニについて知ってる事を教えてください
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
-
4
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
5
VBAコードのインデント表示
Visual Basic(VBA)
-
6
VBA初心者です。次のVBAコードで、17行目を削除したいのですがうまく動きません 改善策を教えてく
Visual Basic(VBA)
-
7
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
8
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
9
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
10
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
11
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
12
エクセルVBA
Visual Basic(VBA)
-
13
現在のブックを閉じないで、マクロ抜きの(現在のブックの)コピーを作成したい
Visual Basic(VBA)
-
14
VBAなくなるの?
Visual Basic(VBA)
-
15
エクセルを使っていて2024/5/15と入力したのに令和元年とかででるのでしょうか?何か設定分かる方
Excel(エクセル)
-
16
Excel VBA 選択範囲の罫線色の変更プロージャの動作速度の改善について
Visual Basic(VBA)
-
17
【ExcelVBA】値を変更しながら連続でPDFを作成し,ファイル名を自動で付して出力するコード
Visual Basic(VBA)
-
18
VBAコードについて教えてください。
Visual Basic(VBA)
-
19
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
20
時間短縮のために、テキストファイルの入出力をメモリを使って出来ないですか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAのブックを開く方法...
-
【ExcelVBA】5万行以上のデー...
-
エクセルVBAで特定のセルの値を...
-
【ExcelVBA】dictionaryの重複...
-
エクセルでCDOを使ったメール送...
-
[Excel VBA]特定の条件で文字を...
-
Excel 範囲指定スクショについ...
-
【VBA】 結合セルに複数画像と...
-
【VBA】スペースが入っていない...
-
【VBA】値を変更しながら連続で...
-
エクセル タブの下のメニューを...
-
Web画面の文字をVB6で取得したい
-
VBA 入力箇所指定方法
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
EXCEL vbaでシート上に配置した...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA 別ブックからコピペしたい...
-
VBA 別ブックから条件に合うも...
-
vba 別ブックに転記
-
【ExcelVBA】インデックスが有...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセル タブの下のメニューを...
-
配列のペースト出力結果の書式...
-
Web画面の文字をVB6で取得したい
-
エクセルのマクロについて教え...
-
エクセルのマクロついて教えて...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
[Excel VBA]特定の条件で文字を...
-
エクセルのマクロについて教え...
-
VBA 入力箇所指定方法
-
EXCEL vbaでシート上に配置した...
-
エクセルのマクロについて教え...
おすすめ情報
回答ありがとうございました。
もう少し詳しく教えて頂けますでしょうか。
よろしくお願いいたします。
回答ありがとうございます。
申し訳ございません。
全てが「ROUNDUP」の間違えです。
よろしくお願いいたします。