No.3
- 回答日時:
こんにちは。
私には、何をしたいのか、コードからは読み取れませんが、分岐なのでしょうか?
Sub TestSample1()
Dim n As Integer
n = InputBox("数字を入れてください")
If n > 0 And n < 27 Then
ActiveSheet.Cells(1, n).Resize(, 27 - n).FormulaLocal = "=Average(R[1]C:R[4]C)"
End If
End Sub
nの値をInputBoxなどで取得し、その値に応じてAverageの範囲を設定したいと思いました。質問が分かり難く、すみませんでした。おかげさまで、すっきりと記述することができました。ありがとうございました。
No.1
- 回答日時:
モデル例
Sub test01()
For j = 1 To 3
d = ActiveSheet.Cells(9, j).End(xlUp).Row
' MsgBox d
avg = WorksheetFunction.Average(Range(Cells(2, j), Cells(d, j)))
Cells(10, j) = avg
Next j
End Sub
質問者の場合への修正。
For j = 1 To 3の3は26(列)に変える。
Cells(10, j) = avgの10は合計行の行番号に変える。
d = ActiveSheet.Cells(9, j).End(xlUp).Rowの9は合計行の直上の行番号に変える。
なにぶん初心者なもので、一読しただけでは理解できない箇所がありますので、ゆっくり調べてみたいと思います。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) Formulaプロパティーを使ってセルに数式を組んだのですが簡潔にしたい。 2 2022/03/28 17:38
- Excel(エクセル) AVERAGE関数とINDIRECT関数を使ってのオートフィル 3 2023/01/12 12:00
- Visual Basic(VBA) ローマ字、ハイフン付きの並び替え ローマ字抽出方法 Excelマクロ 4 2022/04/01 14:10
- Excel(エクセル) マクロを簡潔にしたい 6 2022/09/16 10:37
- Excel(エクセル) Formulaプロパティーを使ってセルに数式を組んだのですが簡潔にしたい。 3 2022/08/21 20:51
- Visual Basic(VBA) 関数を最終行までコピー 3 2022/09/04 11:05
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
☆Excel VBAでAVERAGE関数を使うとき・・・
その他(Microsoft Office)
-
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
VBAで特定範囲のセルの平均値を順次出力したい
Excel(エクセル)
-
-
4
VBAでセル入力の数式に変数を用いたい
Excel(エクセル)
-
5
マクロの「Rangeメソッドは失敗しました’Globalオブジェクト」エラーの解決方法について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAで、Averageの範囲を...
-
エクセルVBAでSUM関数の位置を...
-
SQL 外部結合についての質問
-
Access 結合条件設定方法
-
GROUP BYを行った後に結合した...
-
SQL文で右から1文字だけ削除す...
-
ファイル書込みで一行もしくは...
-
Oracleでの文字列連結サイズの上限
-
Accessで別テーブルの値をフォ...
-
select句副問い合わせ 値の個...
-
ADO VBA 実行時エラー3021
-
SELECTで1件のみ取得するには?
-
アクセスでレポートの1印刷内...
-
select insertで複数テーブルか...
-
JSPのNULLレコード表示について...
-
Excel VBA読み込みで文字化けが
-
ACCESS VBA レコードセットの参...
-
SQL文で素早くNULLを除外する方法
-
ACCESSのクエリで同じSQL文だが...
-
他のテーブルを参照した値はupd...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SQL 外部結合についての質問
-
自己相関サブクエリと自己結合...
-
エラー2「無効な識別子です」
-
2つのSQL(Access)の結果[時刻,...
-
関係演算子が無効です。
-
同じテーブルをLEFT JOIN
-
SQLで後方の文字列を置換する方法
-
エラー「無効な識別子です」
-
LEFT JOINの条件式で=’’を使用...
-
Excel VBAで、Averageの範囲を...
-
エクセルVBAでSUM関数の位置を...
-
GROUP BYを行った後に結合した...
-
Accessで別テーブルの値をフォ...
-
Oracleでの文字列連結サイズの上限
-
SELECTで1件のみ取得するには?
-
SQL文で右から1文字だけ削除す...
-
GROUP BYを使ったSELECT文の総...
-
select句副問い合わせ 値の個...
-
レコードが存在しなかった場合
-
ADO VBA 実行時エラー3021
おすすめ情報