Jelenleg megpróbálom átadni egy felhasználó által definiált függvénynek az Excelben egy cella tartalmát argumentumként.
Ugyanis kiszámolom az engem érdekelt tartományt egy cellában, ahol valami ilyesmit kapok: "sheet1!X17:X37".
Most ezt a cellát (pl. A1) szeretném átadni egy udf-nek. Például azt szeretném, hogy a B1-ben a "=myfunction(A1)" legyen a "=myfunction(sheet1!X17:X37" helyett.
Bármilyen ötletet?
A funkcióm a következő:
Public Function ConcatItNoDuplicities(ByVal cellsToConcat As Range) As String
ConcatItNoDuplicities = ""
If cellsToConcat Is Nothing Then Exit Function
Dim oneCell As Range
Dim result As String
For Each oneCell In cellsToConcat.Cells
Dim cellValue As String
cellValue = Trim(oneCell.Value)
If cellValue <> "" Then
If InStr(1, result, cellValue, vbTextCompare) = 0 Then _
result = result & cellValue & ","
End If
Next oneCell
If Len(result) > 0 Then _
result = Left(result, Len(result) - 1)
ConcatItNoDuplicities = result
End Function
Legjobb T
