엑셀

Question

에서 매크로를 사용하여 선택한 셀에 수식이있는 모든 행 번호를 변경/I 간단한 sum 기능을 사용하여 다른 시트에서 정보를 복용 도우미 많은 수의 행이 오프셋 :

=SUM('HIS-WOT'!J36,'HIS-WOT'!J82,'HIS-WOT'!J128) 

을 매크로 있습니까 이 (즉 221)는 화학식 같은 얻는 저/변경 동일한 양에 의해 선택된 다수의 셀의 모든 행 번호를 상쇄 할 수있는 것이다 : I가 필요로되는

=SUM('HIS-WOT'!J257,'HIS-WOT'!J333,'HIS-WOT'!J349) 

금액 변화 다양한 행 번호가 달라 지므로 매크로에는 대화 상자가 있어야 사용자가 행 번호를 늘리거나 줄이려는 양을 선택할 수 있습니다.

감사합니다.

Answer 1

이 코드는 수식을 복사 할 더미 시트를 만들 것입니다. 나는 당신의 질문을 좋아했습니다!

Sub test() 

    Dim nbr As Long, cel As Range, cels As Range, sh As Worksheet 
    Set cels = Selection 

    nbr = CLng(InputBox("Enter offset:")) 

    Set sh = Worksheets.Add 

    For Each cel In cels 

     If cel.HasFormula Then 

      sh.Cells(cel.Row + nbr, cel.Column).FormulaR1C1 = cel.FormulaR1C1 
      cel.Formula = sh.Cells(cel.Row + nbr, cel.Column).Formula 

     End If 

    Next 

    Application.DisplayAlerts = False 
     sh.Delete 
    Application.DisplayAlerts = True 

End Sub