
excelシートに
こんな感じです。
A1 B1 C1
A2 B2 C2
A3 B2 C3
A5 B5 C5
A1,B2,C3に500,000 / 600,000 / 700,000と数字がはいっています。
A5 B5 C5に A1,B2,C3の数字に×1.05した結果を表示させたいのです。
VBAで書くにはどうしたらよいでしょうか?
Cells( , )*1.05
Cells( , )←このセルの指定を=ExcelのA1→B2→C3をというように変化させたいのです。
offsetなどを使ってみてもうまくいきません。
よろしくお願い致します。
next
No.4ベストアンサー
- 回答日時:
>For j=1 To i-1
>Cells(i+1,j).value = cells(j,j).value*1.05
>Next j
例えば、ご質問のケースでは3行×3列なのでi=4です。
5行目に結果を表示させたいとのことなので、行の指定をi+1(=5)とし、1列から3列まで入力するためにjを1から3(=i-1)まで回しました。
順を追っていくと、
Cells(5,1)にCells(1,1)×1.05の結果を書く。
Cells(5,2)にCells(2,2)×1.05の結果を書く。
Cells(5,3)にCells(3,3)×1.05の結果を書く。
です。
この記述だと、斜めの入力セル数が3個に限らず、99個まで対応できます。どのような状況で利用されるのか、ご質問では推測できませんでしたので、汎用性が高いほうで記述しました。やっていることはNo.1の回答の方と同じです。
No.3
- 回答日時:
上記のケースですと、
For i = 1 To 100
If Cells(i, i).Text = "" Then Exit For
Next i
と書いて、行数(または列数)をカウントします。この場合はi-1です。
そのあと、
For j=1 To i-1
Cells(i+1,j).value = cells(j,j).value*1.05
Next j
でOKです。
さっそく EXCELに移してみると ちゃんと結果がでました!!ありがとうございます。
For i = 1 To 100
If Cells(i, i).Text = "" Then Exit For
Next i
これは、A1 B2と 空欄になるまでセルを移動しなさいという意味ですよね?
For j=1 To i-1
Cells(i+1,j).value = cells(j,j).value*1.05
Next j
これは、、あまり意味がわかりませんでした。でも ちゃんと結果がでますし、、
たとえば、 iが1の時は、jは 1から0までと言う意味ですか?
cells(2,1)にcells(1,1)に1.05をかけた結果を表示せよという意味ですか?
No.2
- 回答日時:
こんなかんじではないでしょうか?
ココで使っている ConvertFormula はR1C1形式の参照⇔A1形式の参照のように変換してくれます。なので、ここでは通常 Cells(cnt, cnt) になるところをRange("A1")のような形式に変換しています。
Dim cnt As Integer
For cnt = 1 To 3
Range(Application.ConvertFormula( _
Formula:="R5C" & cnt, _
fromReferenceStyle:=xlR1C1, _
toReferenceStyle:=xlA1, _
toabsolute:=xlRelative)).Value = Range(Application.ConvertFormula( _
Formula:="R" & cnt & "C" & cnt, _
fromReferenceStyle:=xlR1C1, _
toReferenceStyle:=xlA1, _
toabsolute:=xlRelative)).Value * 1.05
Next cnt
pesoさんありがとうございます。以前 インプットボックスでの範囲指定で、A1からB3というように 指定したいといった質問をしたのを覚えてくださっていてくれたのでしょうか?
今回は、そんな配慮が感じられる回答と推察いたしました。でもちょっと わたしには難しくてよくわかりませんでした。残念です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで指定した日付から過去の...
-
DataGridViewの各セル幅を自由...
-
エクセルvbaで、別シートの最下...
-
VBA初心者です。結合セルを保持...
-
Excelのハイパーリンクにマクロ...
-
VBA実行後に元のセルに戻りたい
-
ExcelのVBAで数字と文字列をマ...
-
エクセルvba:自己セルの情報取...
-
vba 隣のセルに値がある行だけ...
-
特定行の色を変えたい(FlexGrid)
-
”戻り値”が変化したときに、マ...
-
Excel2003 複数セル1列の入力済...
-
DataGridViewで列、行、セルの選択
-
【VBA】シート上の複数のチェッ...
-
DataGridViewでコードで値を入...
-
値の入っているセルをカウント...
-
HTMLでVLOOKUP関数のようなこと...
-
連続する複数のセル値がすべて0...
-
【EXCEL VBA】Range("A:A").Fi...
-
RC表示に変数を入れる
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
Excelで指定した日付から過去の...
-
i=cells(Rows.Count, 1)とi=cel...
-
エクセルvbaで、別シートの最下...
-
任意フォルダから画像をすべて...
-
VBA実行後に元のセルに戻りたい
-
Application.Matchで特定行の検索
-
Excel vbaで特定の文字以外が入...
-
【Excel VBA】指定行以降をクリ...
-
”戻り値”が変化したときに、マ...
-
【Excel】指定したセルの名前で...
-
VBAでセル同士を比較して色付け
-
Excelのプルダウンで2列分の情...
-
VBAでセルをクリックする回...
-
Excel VBAで、 ヘッダーへのセ...
-
VBA初心者です。結合セルを保持...
-
DataGridViewのセル編集完了後...
-
【VBA】シート上の複数のチェッ...
-
ExcelのVBAで数字と文字列をマ...
おすすめ情報