Sub ParseFormula() ' ' ParseFormula Makro ' Zmení časť vzorca na hodnotu ' Dim cc As Range, c As Range, x As String Dim zac As Byte, kolko As Byte, stl_A As String, cely_vzorec As String zac = 10 Set cc = Selection For Each c In cc 'Set c = Range("I2") cely_vzorec = c.Formula 'c.Formula = "=VLOOKUP(A2,vzorec!$A$2:$C$3691,3,FALSE)" kolko = InStr(1, cely_vzorec, ",") - zac 'pozicie stlpca A vo vzorci stl_A = Mid(c.Formula, zac, kolko) x = Chr(34) & Range(stl_A).Text & Chr(34) c.Offset(0, 2).Formula = Replace(cely_vzorec, stl_A, x, 1, -1, 1) Next c End Sub
Užitočné (1) | Kabaka123 |
Potreboval by som pomôcť so vzorcom.