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
この回答へのお礼
お礼日時:2005/10/26 13:49
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は合計行の直上の行番号に変える。
この回答へのお礼
お礼日時:2005/10/26 13:16
なにぶん初心者なもので、一読しただけでは理解できない箇所がありますので、ゆっくり調べてみたいと思います。ありがとうございました。
お探しの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も見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
関係演算子が無効です。
-
9iのSQL:1999構文を使用した外...
-
GROUP BYを行った後に結合した...
-
SELECTで1件のみ取得するには?
-
Excelで、改行がある場合の条件...
-
Oracleでの文字列連結サイズの上限
-
SQL文で右から1文字だけ削除す...
-
Accessで別テーブルの値をフォ...
-
ADO VBA 実行時エラー3021
-
SQLの書き方(チェックボックス)
-
実績累計の求め方と意味を教え...
-
OracleのSQL*PLUSで、デー...
-
アクセスでレポートの1印刷内...
-
Accessでのレコード存在チェック
-
CREATE テーブルでの複数外部...
-
oracleのinsert select性能
-
チェックボックスの項目をDBにi...
-
Access終了時の最適化が失敗?
-
キーが同じを複数行を1行にま...
-
select insertで複数テーブルか...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
関係演算子が無効です。
-
SQL 外部結合についての質問
-
Excel VBAで、Averageの範囲を...
-
TO_CHAR関数における外部結合に...
-
同じテーブルをLEFT JOIN
-
自己相関サブクエリと自己結合...
-
LEFT JOINの条件式で=’’を使用...
-
Informixで文字列を数値型に
-
内部結合する時の結合条件と制...
-
Access 結合条件設定方法
-
T-SQL 動的に優先順ごとにデー...
-
WHERE句の書き方
-
エラー「無効な識別子です」
-
エクセルVBAでSUM関数の位置を...
-
Pro*CでVARCHAR2項目の検索
-
エラー2「無効な識別子です」
-
Oracle SQL 結合の手法について
-
【修正希望】【マクロ】元デー...
-
SQLで後方の文字列を置換する方法
-
range表記をcells表記にしたい
おすすめ情報