Call excel Модуль VBA с переменным изменением

Question

Я хотел бы использовать код ниже в нескольких областях в пределах моего excel VBA, однако для изменения его значений в коде должны быть внесены некоторые изменения, чтобы сделать его конкретным для этой области. Например,

Dim XXXcountcurrent As Long 

' Delete the items containing the word XXX in Material current 
    Sheets("Materials Current").Select 
    Range("A2:C" & Cells(Rows.count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select 
    If XXXcountcurrent <> 0 Then 
    Selection.Rows.Delete 
    End If 
    ActiveSheet.Range("$A:$C").AutoFilter Field:=2 

'Paste XXX total in workings sheet 
    Sheets("Workings").Select 
    rcell.Offset(?) = XXXcountcurrent 

Код выше представляет собой небольшой разрез, сделанный из VBA. Указанный XXX относится к различным сценариям, например, он может относиться к "knife", "handle" и т. Д. Кроме того, я хотел бы, чтобы ячейка смещения была скорректирована в коде, обозначенном? (Я слишком скромный, это тоже должно быть переменным).

Я не хочу повторять код, когда есть только небольшие изменения. Может ли кто-нибудь помочь?

Answer 1

У вас есть множество опций, у меня, скорее всего, будет этот повторяемый код в подпрограмме с переменными, которые будут заполнены при вызове.

Вот пример того, как сделать это в очень простом формате:

Sub TestCallingSubs() 
    CallingSubs "Hello" 
    CallingSubs "World" 
    CallingSubs "!!!!!" 
End Sub 

Sub CallingSubs(MyString As String) 
    MsgBox MyString 
End Sub 

Answer 2

Поместить свой код в подпрограмме, таких как:

Sub DoSomething(ByVal xxx As String, ByVal myOffset As Long) 
    'here's your code 
End Sub 

Затем вызовите его таким образом:

Sub Whatever 
    DoSomething "John Doe", 0 
End Sub