A döntés, hogy minden számjegyet töröljen a dokumentumból
Üdvözlünk! Az ötödik oszlop 431-es sorában az 1. lapon az idézőjelben szereplő szó szerepel - "Fehér" Az idézőjeleket ki kell törölnöm, egy string változót írok be, és inicializálom a cella adataival. str = Vágás (Munkalapok (1) .Cells (431, 5) .Value) Megmutatja a str = "White" változót: If (str Like "*" Chr (34) "*" Chr (34) "*") Akkor str = Cserélje ki (str, Chr (34), "") De az idézőjeleket nem távolítják el ((Ebben az esetben érdeklődésre ezt írtam újra: str1 = Chr (34) „Fehér” Chr (34) Ismét ebben az esetben az If konstrukciókat és az idézőjeleket eltávolítjuk. Tehát mi a baj az első opcióval, amikor a változót inicializálja a cellaadatok? Ördög, de nem tudom megkerülni (Segítség, kérem, köszönöm.
Futok le az oldalt az „L1” sorról sorra működik, de azt kell hogy tele oszlopok, kezdve oszlop c1. Nem tudok rájönni, hogyan kell csinálni. PureBasic1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub FullDate () Dim vItem, avArr, li As Long ReDim avArr (1 To Rows.Count, 1-től 1) A New Collection On Error Resume Next For Each vItem A tartomány ( "B2", Cells (Rows.Count, 2) .End (xlUp)) Érték Adjunk hozzá vItem, CStr (vItem) ha Err = 0, akkor li = li + 1 :. avArr (li, 1) = vItem mást: Err.Clear End If Next End With Ha li Ezután munkalapok ( "L3") [c1] .Resize (li) .value = avArr végén sub.
Megpróbálom a szöveg egy részét a vord cellájából másolni. az összes tartalom átmásolódik. Nem tudom másolni a szöveg egy részét. "1. AA - Ivanov Osztály vezetője 2. A VV - Petrov Osztály vezetője." Az "AA osztályt" a cellába kell helyezni, legjobb esetben a "BB Control" következő sorához.
Üdvözlünk! Jelentés készítése Excel-ben az Access adatai alapján. Van egy űrlap, szükség van rá, hogy jelentést készítsen rajta Excel-ben. A probléma az alárendelt formát (az űrlap alól). Ezt a hurkot csináltam, de csak az épületasztal első sorát nyomtatja ki (301 sor):