דניאל19700
New member
שאלה ב VBA
יש לי את הקוד הבא שהקלטתי כמאקרו
Sub test()
'
' test Macro
'
'
Range("D4
11").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("D4"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("D411")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
איך אני הופך אותו לפונקציה שקוראת כל טווח תאים ומבצעת את הפעולה?
יש לי את הקוד הבא שהקלטתי כמאקרו
Sub test()
'
' test Macro
'
'
Range("D4
11").SelectActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("D4"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("D4
11").Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
איך אני הופך אותו לפונקציה שקוראת כל טווח תאים ומבצעת את הפעולה?