Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #16822 Kobe veterán
    Új Válasz #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

Hirdetés