/ / Ierakstiet formulas vērtību šūnā ar VBA - excel, vba, excel-vba

Rakstīt formulas vērtību šūnā ar VBA - excel, vba, excel-vba

Ja es vēlos vērtību no Excel formulas uz šūnu un tikai vērtību "Formula"

Es esmu mēģinājis ar šo kodu, bet tas dod man ne tikai vērtību.

Dim ZmAntal As Long

Dim CountryRange As Range, C As Range

Dim Res As Variant

ZmAntal = Worksheets("Maskinerum").Cells(8, 4).value

Set CountryRange = Sheets("Zmbistad").Range(Cells(2, 1), Cells(ZmAntal, 1))

For Each C In CountryRange

Res = "=CONCATENATE(RC[1],RC[14])"

If Not IsError(Res) Then

C.Offset(0, 0).value = Res

End If

Next C

End Sub

Atbildes:

1 atbilde Nr. 1

jūs to varētu izmantot:

Dim ZmAntal As Long

ZmAntal = Worksheets("Maskinerum").Cells(8, 4).Value
With Sheets("Zmbistad").Range(Cells(2, 1), Cells(ZmAntal, 1)) " reference relevant range
.FormulaR1C1 = "=CONCATENATE(RC[1],RC[14])" " write formula in referenced range
.Value = .Value " get rid of formulas and leave values only in referenced range
.SpecialCells(xlCellTypeConstants, xlErrors).ClearContents " clear any cell with an "error" value n referenced range
End With

0 atbildei Nr. 2

Tu vari izmantot Evaluate:

"...
With CountryRange
.Value = Evaluate("=IF(ROW()," & _
"CONCATENATE(" & .Offset(0, 1).Address & "," & _
"" & .Offset(0, 14).Address & "))")
End With
"...

Saistītie jautājumi


Komentāri (0)

Pievieno komentāru