Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10198 / 76734

←次へ　｜　前へ→


	【72086】間違いを教えてください

本山中 - 12/5/28(月) 7:01 -


	引用なし

	パスワード

A2、B2に値を入力すると
1.C2=A2-B2　を出力させる。
D2～D8にはあらかじめ値を入力させてあります。
2.E2～E8に順次
　E2＝C2＊D2
　E3＝C2＊D3
　E4＝C2＊D4
　……………
　E8＝C2＊D8
を出力させようと思い、次のようにしました。
Sub 押目を探る()
　Dim takane As Integer
　Dim yasune As Integer
　Dim lastgyou As Integer
　Dim i As Integer
　Range("A2") = takane
　Range("B2") = yasune
　Range("C2") = Range("A2") - Range("B2")
　lastgyou = Cells(Rows.Count, 4).End(xlUp).Row
　　For i = 2 To lastgyou
　　　Cells(i, 5) = Range("C2") * Cells(i, 4)
　　Next i
　
End Sub
考えていたような結果にはなりません。
どのようにすれば宜しいのでしょうか。
宜しくお願いいたします。

5 hits

▼

【72086】間違いを教えてください 本山中 12/5/28(月) 7:01

≪