ホーム>source

2つの別々の行から列に番号を追加するコードを書きたいです。行4と行6に入力番号の配列を格納し、それらの間の合計結果を行7でそれぞれ列BからFに返します。入力する行の内容を指定する際に問題があります。追加するため、エラーが発生します。行(1行のみ)の人為的なループを作成することから始め、次に列をループすることを考えていました。入力番号の行、つまり行4と6の値を定義するとエラーが発生します。

Sub SumCol()
Dim StartRow As Integer, EndRow As Integer, answer As Integer, FirstInput As Integer, FirstInputRow As Integer, SecondInput As Integer, SecondInputRow As Integer
Dim ColumnNo As Integer, TargetRow As Integer
Const COLUMNSTART As Integer = 2
Const COLUMNEND As Integer = 6
TargetRow = 7
EndRow = 7
FirstInputRow = 3
SecondInputRow = 6
FirstInput = Cells(FirstInputRow, ColumnNo)
SecondInput = Cells(SecondInputRow, ColumnNo)
For StartRow = TargetRow To EndRow
    For ColumnNo = COLUMNSTART To COLUMNEND
    answer = FirstInput + SecondInput
    Cells(TargetRow, ColumnNo).Value = answer
    Next ColumnNo
    TargetRow = TargetRow + 1
Next StartRow
End Sub

誰でも助けることができますか?

あなたの答え
  • 前へ java - JPAクエリ:サブクエリをグループ化条件に結合する
  • 次へ Excelの特定の列をJavaプログラムに読み込む