||||제가 첨부한 화일을 보시고 답변 부탁드릴께요
첨부파일에서 처럼 여러번을 치지 않고도
간단하게 반복실행문을 실행시켜서 할 수 있는 방법이 있다고 하던데..
아시는 분 꼭 좀 알려 주세요..
귀찮게 해 드렸다면 죄송해요..
처음 접해보는 거라 책을 봐도 잘 이해가 되질 않네요..
꼭 좀 답변 부탁 드립니다..

그런데 엑셀하고 워드 파일은 안올라가 지네요 ㅠㅠ
어떻게 올려야 할지...

일단 이런 내용인데..


Sub ss4()

   Dim Q1 As Integer, Q2 As Integer  
    Range("D10").Select
    Q1 = InputBox("Enter the first budget.")
    Range("D11").Select
    Q2 = InputBox("Enter the second budget.")
    
    Worksheets("sheet2").Range("D10").Value = Q1
    Worksheets("sheet2").Range("D11").Value = Q2
    
    SolverOK SetCell:="$B$7", MaxMinVal:=1, ValueOf:="0", ByChange:="$B$2:$J$2"
    SolverAdd CellRef:="$B$10:$B$11", Relation:=1, FormulaText:="$D$10:$D$11"
    SolverAdd CellRef:="$B$2:$J$2", Relation:=3, FormulaText:="0"
    SolverAdd CellRef:="$B$2:$J$2", Relation:=1, FormulaText:="1"
    SolverAdd CellRef:="$B$2:$J$2", Relation:=4, FormulaText:="정수"
    SolverOK SetCell:="$B$7", MaxMinVal:=1, ValueOf:="0", ByChange:="$B$2:$J$2"
    SolverSolve
    With Range("E8")
        .Offset(0, 1) = Q1
        .Offset(0, 2) = Q2
        .Offset(0, 3) = Range("B7")
        .Offset(0, 4) = Range("B2")
        .Offset(0, 5) = Range("C2")
        .Offset(0, 6) = Range("D2")
        .Offset(0, 7) = Range("E2")
        .Offset(0, 8) = Range("F2")
        .Offset(0, 9) = Range("G2")
        .Offset(0, 10) = Range("H2")
        .Offset(0, 11) = Range("I2")
        .Offset(0, 12) = Range("J2")
        End With

   Dim Q1 As Integer, Q2 As Integer  
    Range("D10").Select
    Q1 = InputBox("Enter the first budget.")
    Range("D11").Select
    Q2 = InputBox("Enter the second budget.")
    
    Worksheets("sheet2").Range("D10").Value = Q1
    Worksheets("sheet2").Range("D11").Value = Q2
    
    SolverOK SetCell:="$B$7", MaxMinVal:=1, ValueOf:="0", ByChange:="$B$2:$J$2"
    SolverAdd CellRef:="$B$10:$B$11", Relation:=1, FormulaText:="$D$10:$D$11"
    SolverAdd CellRef:="$B$2:$J$2", Relation:=3, FormulaText:="0"
    SolverAdd CellRef:="$B$2:$J$2", Relation:=1, FormulaText:="1"
    SolverAdd CellRef:="$B$2:$J$2", Relation:=4, FormulaText:="정수"
    SolverOK SetCell:="$B$7", MaxMinVal:=1, ValueOf:="0", ByChange:="$B$2:$J$2"
    SolverSolve
    With Range("E9")
        .Offset(0, 1) = Q1
        .Offset(0, 2) = Q2
        .Offset(0, 3) = Range("B7")
        .Offset(0, 4) = Range("B2")
        .Offset(0, 5) = Range("C2")
        .Offset(0, 6) = Range("D2")
        .Offset(0, 7) = Range("E2")
        .Offset(0, 8) = Range("F2")
        .Offset(0, 9) = Range("G2")
        .Offset(0, 10) = Range("H2")
        .Offset(0, 11) = Range("I2")
        .Offset(0, 12) = Range("J2")
        End With


   Dim Q1 As Integer, Q2 As Integer  
    Range("D10").Select
    Q1 = InputBox("Enter the first budget.")
    Range("D11").Select
    Q2 = InputBox("Enter the second budget.")
    
    Worksheets("sheet2").Range("D10").Value = Q1
    Worksheets("sheet2").Range("D11").Value = Q2
    
    SolverOK SetCell:="$B$7", MaxMinVal:=1, ValueOf:="0", ByChange:="$B$2:$J$2"
    SolverAdd CellRef:="$B$10:$B$11", Relation:=1, FormulaText:="$D$10:$D$11"
    SolverAdd CellRef:="$B$2:$J$2", Relation:=3, FormulaText:="0"
    SolverAdd CellRef:="$B$2:$J$2", Relation:=1, FormulaText:="1"
    SolverAdd CellRef:="$B$2:$J$2", Relation:=4, FormulaText:="정수"
    SolverOK SetCell:="$B$7", MaxMinVal:=1, ValueOf:="0", ByChange:="$B$2:$J$2"
    SolverSolve
    With Range("E10")
        .Offset(0, 1) = Q1
        .Offset(0, 2) = Q2
        .Offset(0, 3) = Range("B7")
        .Offset(0, 4) = Range("B2")
        .Offset(0, 5) = Range("C2")
        .Offset(0, 6) = Range("D2")
        .Offset(0, 7) = Range("E2")
        .Offset(0, 8) = Range("F2")
        .Offset(0, 9) = Range("G2")
        .Offset(0, 10) = Range("H2")
        .Offset(0, 11) = Range("I2")
        .Offset(0, 12) = Range("J2")
        End With

end sub