Добридень! Потрібна допомога. Є 1000 файлів Ексель * .xls в кожному з 9 вкладок (в деяких певна вкладка може бути відсутнім) і на кожній стоїть фільтр. У мене є Add-on RDBMerge який об'єднує за певною вкладці, але справа в тому, що фільтр він не чіпає і половина інформації не копіюється. Чи можна зробити макро який просто пройдеться по всіх файлів і просто зніме фільтри, зберігаючи файл? Заздалегідь дякую!!
Доброго вам дня. Зіткнувся з наступною проблемою. Є робочий лист (в коді це змінна ws) На аркуші є таблиця яка в залежності від даних в книзі розширюється право і вниз. Кордон "незмінною шапки" таблиці визначена іменованих діапазоном StartData. Є код видалення всіх старих даних в таблиці
Вітаю! На лісте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
Привіт, знавці програмування макросів. Допоможіть розібратись. На аркуші знаходиться MediaPlayer - з програванням медіафайлу. Як змусити його при натисканні на кнопку - стати невидимим і програти файл. (Під невидимістю - я розумію - просто відсутність видимості об'єкта MediaPlayer або ж просто стиснення його - до розмірів точки.)