Új hozzászólás Aktív témák

• #16822 Kobe veterán

  Új Válasz 2013-02-20 19:20:12 #16822

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Kobe

  veterán

  helló

  még egy syntax erroros problémám lenne Van egy makróm amit egy másik, accesses makróból szeretnék futtatni. Ehhez az kell, hogy a makrót sorrol sorra be tudjam másolni az Excel Visual Vasic ablakába. 98% ban megy, de sajnos 2 helyen syntax errorra fut a "" jelek miatt

  Az eredeti, exceles makró egy részlete - ha ilyen formában futtatom excelből, tökéletesen fut, tehát nekem szóról szóra ezt kellene visszakapnom a beillesztés után

  Range("P2").Select
  ActiveCell.FormulaR1C1 = _
  "=IF(RC[-11]=""YES"",RC[-8]-RC[-10],RC[-9]-RC[-10])"
  Selection.AutoFill destination:=Range("P2:P" & lngLastRow)Range("P2").Select

  2 módszert ismerek amivel be lehet illeszteni Excel VBA ba:

  .InsertLines

  vagy változóként definiálva

  .InsertLines LineNum, "Range("P2").Select"
  LineNum = LineNum + 1
  
  .InsertLines LineNum, "ActiveCell.FormulaR1C1 = _"
  LineNum = LineNum + 1
  
  .InsertLines LineNum, ""=IF(RC[-11]="""YES""",RC[-8]-RC[-10],RC[-9]-RC[-10])""
  LineNum = LineNum + 1

  vagy

  Code = "Range("P2").Select" &vbNewLine
  Code = Code & "ActiveCell.FormulaR1C1 = _" &vbNewLine
  Code = Code & ""=IF(RC[-11]="""YES""",RC[-8]-RC[-10],RC[-9]-RC[-10])"" & vbNewLine

  A gondom az, hogy az Excelben a makró csak akkor fut le, ha az If feltételben megadott értéket 2 db idézőjellel írja vissza a modulba a program, pl ""YES"", mivel szöveges érték.

  Akármelyik metódust választom a fentiek közül, mindig "levágja" 1 "" ra, és "YES" t csinált belőle és elakad a makró annál a sornál.

  Próbáltam módosítani, de ha átírom accessben pl """YES""" re, akkor a sor többi részébe is be kell szúrnom plusz "" jeleket, mert nem fut le - Syntax Error - Expected End of Statement hibaüzit dob az accesses makró. Ha hozzáigazítom a többit, hogy jó legyen, akkor meg oda is felesleges "" jeleket rak be, ahova nem kéne, és így excelben akad el.

  Van valami ötletetek, hogyan kellene a "=IF(RC[-11]=""YES"",RC[-8]-RC[-10],RC[-9]-RC[-10])" sort átrni, hogy a fent említett 2 megoldással is működőképes amradjon ?

Új hozzászólás Aktív témák