Вітаю! На лісте1 в рядку 431 п'ятої колонки знаходиться слово в лапках - "Біла" Мені потрібно прибрати лапки Я ввожу стрінговую змінну і не започатковано її даними з осередку. str = Trim (Worksheets (1) .Cells (431, 5) .Value) Виходить змінна str = "Біла" Пишу: If (str Like "*" Chr (34) "*" Chr (34) "*") Then str = Replace (str, Chr (34), "") Але лапки не прибираються (((При цьому для інтересу написала ще ось так: str1 = Chr (34) "Біла" Chr (34) І в цьому випадку конструкція If спрацьовує і лапки прибираються. Так що ж не так з першим варіантом, коли змінна ініціалізується даними осередку? Дрібниця, але ніяк не можу обійти (Допоможіть, будь ласка. Дякую.
Запускаю з листа "l1" через підрядник працює, але мені потрібно, щоб заповнювалися стовпці, починаючи з стовпця з1. Не можу зрозуміти, як це зробити. 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 to 1) With New Collection On Error Resume Next For Each vItem In Range ( "B2", Cells (Rows.Count, 2) .End (xlUp)). Value .Add vItem, CStr (vItem) if Err = 0 Then li = li + 1: avArr (li, 1) = vItem else: Err.Clear End If Next End With If li Then Worksheets ( "l3"). [c1] .Resize (li) .value = avArr end sub
Намагаюся скопіювати частину тексту з осередку Ворда. весь вміст копіюється. не виходить скопіювати частину тексту. "1. Керівник Департаменту АА - Іванов 2. Керівник Управління ВВ - Петров". Потрібно в клітинку поставити "Департаменту АА", в кращому випадку на наступний рядок ще "Управління ВВ".
Вітаю! Створюю звіт в Excel на основі даних з Access. Є форма, треба на її основі побудувати звіт в Excel. Проблема з висновком підпорядкованої форми (знизу форми). Зробив такий цикл, але він виводить тільки перший рядок таблиці будівель (рядок 301):