Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » axill_3d
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Найти и перенести из Word в Excel фрагмент текста, который находится между известными словами
 
#
30.07.2021 10:47:20
Уважаемые друзья - нужна Ваша помощь в решение одной нетривиальной задачки.

Суть такова :
Есть документ Word в нём около 200 листов . Мне необходимо сделать следующее :
1. Открыть документ
2. Найти 10 - 14 строчку на каждой из 200-т страниц
3. Скопировать имеющееся там значение и перенести в столбец А листа БА4 книги Excel

Не знаю , возможно-ли такое в принципе ?  Но если возможно
Очень прошу помогите.  
Изменено: vikttur - 01.08.2021 08:07:16
 
Перейти    
Привязать Progressbar к таймеру, как привязать импровизированный Progressbar к таймеру
 
#
05.04.2021 23:27:44
Уважаемые друзья , помогите реализовать такую задачку

Суть такова , есть форма (UserForm2) на форме нарисован окрашенный цветом (Lable1) . И вот я хочу этот  (Lable1) вернее его параметр Widh (максимальное его значение 200 ) привязать к таймеру (время 1 минута) и запустить параллельно с выполнением основного макроса, отобразив таким образом условную визуализацию работы основного скрипта.

Очень прошу помочь, так как сам не могу справиться.
 
Перейти    
Нарастающий итог в Excel, Условие на изменение в ячейке
 
#
09.04.2020 21:00:13
         Уважаемые коллеги прошу Вашей помощи. Очень хочу реализовать такую штуку , правда не знаю возможно-ли ,в Екселе , это сделать.
Итак суть проблемы.

Есть лист zz1 , на листе занято три ячейки A2 (количество) B2 (приход) C2 (расход). В ячейке А2 вписано некое начальное количество товара  которое
меняется с нарастающим итогом по дням в зависимости от значения в ячейке В2 и С2 .

Пример .

Начальное значение ячейки А2 например 500 . Если поставить в ячейку В2  300 то значение ячейки А2 автоматически становится 800 , при этом ячейка
В2 обнуляется но результат А2 по прежнему остается 800 и когда в теперь уже пустую ячейку В2 я опять вношу например цифру 100 то А2 соответственно
становится 900 , ну и так далее . Аналогично и с ячейкой С2 только в минусовую сторону .  

Так- то задача проста как две копейки. Но как это реализовать используя только три ячейки ? Предполагаю может быть на VBA ?

Очень прошу помогите . У самого никак не получается !
 
 
Перейти    
Макрос для копирования каждой 14-й ячейки в колонке
 
#
17.08.2019 17:21:26
Уважаемые коллеги, помогите решить задачку..

Нужно написать макрос для копирования каждой 14-й ячейки в колонке А листа "List" и вставить на лист "Worksheet"

Путем редактирования записаного макроса удалось получить такой результат
Код
Sheets("List").Select
 Range("A2,A16,A30,A44,A58,A72,A86,A100,A114,A128,A142,A156,A170,A184,A198,A212,A226,A240,A254,A268,A282,A296,A310,A324,   A338,A352,A366,A380,A394,A408,A422,A436,A450,A464,A478,A492,A506,A520,A534,A548,A562,A576").Select
    Range("A576").Activate
    Selection.Copy
    Sheets("Worksheet").Select
    Range("A2").Select
    ActiveSheet.Paste
Оно то работает , но мне нужно скопировать гораздо больше ячеек, а писать в ручную долго .  Может быть есть другой подход ?
 
 
Перейти    
Данные с другого листа по условию для выпадающего списка2
 
#
12.03.2019 17:05:54
Дорогие друзья


Помогите решить задачку

Суть такая .  На листе " РЕЗУЛЬТАТ" есть некая результирующая таблица с диапазоном ячеек D7:G37 и выпадающий список

Также есть целая куча таблиц на листе "ТЕРАПЕВТ" (таблицы однотипные)

Примерная схема работы такая
На листе " РЕЗУЛЬТАТ" выбираем строку из списка - например "січень"  и в диапазон  D7:G7 вносятся данные из диапазона B3:E3 листа "ТЕРАПЕВТ" ну и т.д.

по аналогии

также есть такая формула
=ДВССЫЛ("Лист" & $D$2+1 &"!"&АДРЕС(СТРОКА(B3);СТОЛБЕЦ(B3)))

но она работает только если каждая из 30-ти таблиц находится на отдельном листе

Подскажите как мне переделать формулу чтобы она работала с переименованными листами?
 
Перейти    
Данные с другого листа по условию для выпадающего списка
 
#
11.03.2019 16:28:42
Дорогие друзья . Столкнулся на днях с такой задачкой Прошу Вашей помощи.

Суть такая
Есть несколько листов Лист1 , Лист2, Лист3
На Листе2 и Листе3  находятся данные в диапазоне  F8 : J32
На Листе1 есть выпадающий список  ( Список_1 )

И в зависимости от того какое значение выбрано в выпадающем списке ( Список_1 )
Данные из Листа2 диапазона F8 : J32 переносятся в B6:F29 Листа1

Примерно
В Список_1 выбрано значение " 1 "  тогда данные из диапазона F8 : J32 Листа 2  переносятся в ячейки  B6:F29 на Листе1
а если выбрано " 2 " тогда в ячейки B6:F29 на Листе1 переносятся данные из диапазона F8 : J32 Листа 3..

Подскажите пожалуйста как это сделать?
 
Перейти    
поиск в Listbox по введённому в Texbox значению
 
#
20.10.2018 18:00:56
Уважаемые друзья !
Появилась такая задача . Необходимо реализовать поиск в Listbox при помощи введённой в Textbox информации

Ситуация такая
Есть форма Userform1, на ней Listbox и 2-а Textbox, на форме также есть кнопка , по нажатию на которую происходит заполнение полей Listboxа
данными из листа  
Хочется сделать так чтобы при событии Change Textbox , записи которые были добавлены через кнопку в Listbox очищались и текст добавленый в Textbox (если такое слово есть в списке) появлялся в Listbox . Другими словами реализовать поиск значений.

файл прикрепляю
 
Перейти    
при выборе из Listbox заполнять Page2 Multipage
 
#
19.10.2018 19:28:21
Уважаемые форумчане
Прошу Вашей помощи так как сам справится не могу
К сожалению файл примера приложить не могу , он превышает допустимый размер , поэтому постараюсь объяснить
проблему на пальцах.

Суть такова есть форми
- Userform1 на ней элемент Multipage1 который имеет две вкладки Page1, Page2 на каждой из них
располагаются свои независимые элементы .
- Userform2 на которой находится элемент ListBox_FIND
при помощи кода
Код
Private Sub ListBox_FIND_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

UserForm1.DTPicker1.Value = UserForm_FIND.ListBox_FIND.List(ListBox_FIND.ListIndex, 0)
UserForm1.Text_FIO_doctor.Value = UserForm_FIND.ListBox_FIND.List(ListBox_FIND.ListIndex, 1)      
UserForm1.Show

End Sub

данные должны грузится в Userform1 в те контролы которые находятся в Multipage1 вкладка Page2

Однако вылетает связаная с DTPicker1  ошибка и код останавливается.

(кстати пока была привязана только вкладка Page1 всё работало идеально). Я так понимаю проблема

где-то в активации нужной вкладки Multipage1 , но вот как это решить не знаю.

 
Перейти    
Редактирование выбранного значения ListBox через дополнительную форму
 
#
13.08.2018 12:42:15
Добрый день!
Подскажите, пожалуйста, в чем ошибка
Суть такова - на форме есть .listbox , с помощью кнопки на форме туда записываются данные
Затем по двойному клику на записи значения попадают в дополнительную форму где после
редактирования и нажатия на кнопку должны (в обновлённом виде) попадать в ячейки листа .
Но вот тут как раз и проблема , в ячейки из формы ничего не добавляется.
Всю голову сломал. Помогите.
файл во вложении
 
Перейти    
Обновление записи в таблице из формы
 
#
24.07.2018 21:04:11
Уважаемые друзья .
Помогите решить проблему

Есть умная таблица туда добавляются записи
По кнопке ПОИСК записи передаются в Листбокс оттуда в ТекстБоксы формы.
Но когда делаю изменение каких либо данных , в форме, и нажимаю кнопку Update
обновляется не одна а сразу все строчки .

Как заставить редактироваться не все а только одну строку  ?
код на кнопку
Код
Private Sub cmd_btn_Update_Click() 

Dim rov As Integer
Dim x As Integer

rov = Application.WorksheetFunction.CountA(Worksheets("test").Range("A:A"))
For x = 2 To rov

Worksheets("test").Cells(x, 1).Value = UserForm1.TextBox_1.Value
Worksheets("test").Cells(x, 2).Value = UserForm1.TextBox_2.Value
Worksheets("test").Cells(x, 3).Value = UserForm1.TextBox_3.Value

Next
TextBox_1 = ""
TextBox_2 = ""
TextBox_3 = ""

End Sub

 
Перейти    
Как посчитать количество лет формулой
 
#
20.07.2018 08:44:55
Всем привет .

Появился такой вопрос.Суть такова
Необходимо посчитать возраст пациента
Код
ListRow.Range(5) = MyForm.DT_rozhd.Value
ListRow.Range(9) = MyForm.DT_data_priyom.Value
Первая строка - дата рождения
Вторая  - текущая дата
при помощи такой конструкции
Код
Function Vozrast$(dtRogd$, dtTekush$)
  Vozrast = Evaluate("=DATEDIF(""" & dtRogd & """,""" & dtTekush & """,""y"")")
End Function
пытаюсь вывести в таблицу
Код
ListRow.Range(10) = Vozrast(MyForm.DT_rozhd.Value, MyForm.DT_data_priyom.Value)
точное количество лет
Однако вылетает ошибка

Подскажите , где чего не так делаю.
 
Перейти    
Как добавить формулу в таблицу
 
#
17.07.2018 19:14:05
Господа знатоки , прошу помощи
Суть вопроса такова. Есть умная таблица, Данные в таблицу добавляю через форму.
Код
  Sub WorkSmart()
    Dim ShGeneral As Worksheet
    Dim ListObg As ListObject
    Dim ListRow As ListRow
    
    Set ShGeneral = ThisWorkbook.Worksheets("база")
    Set ListObg = ShGeneral.ListObjects("MyTable_tb")
 
    Set ListRow = ListObg.ListRows.Add
    ListRow.Range(1) = MyForm.Txt_likar.Value
    ListRow.Range(2) = MyForm.Txt_F.Value
    ListRow.Range(3) = MyForm.Txt_I.Value
    ListRow.Range(4) = MyForm.Txt_O.Value
    ListRow.Range(5) = MyForm.DT_rozhd.Value
    ListRow.Range(6) = MyForm.ComboBox_mkx.Value
    ListRow.Range(7) = MyForm.ChBox_zaxvor.Value
    ListRow.Range( =

Как сделать так чтобы  ListRow.Range(8) добавлял в таблицу результат из формулы =ЕСЛИ
Очень прошу помочь. Третий день голову ломаю.
Изменено: axill_3d - 18.07.2018 14:52:52
 
Перейти    
Добавление логических формул в умную таблицу через UserForm
 
#
17.07.2018 11:57:32
Господа знатоки , прошу помощи
Суть вопроса такова. Есть умная таблица, Данные в таблицу добавляю через форму.
Код
Sub WorkSmart()
    Dim ShGeneral As Worksheet
    Dim ListObg As ListObject
    Dim ListRow As ListRow
    
    Set ShGeneral = ThisWorkbook.Worksheets("база")
    Set ListObg = ShGeneral.ListObjects("MyTable_tb")
 
    Set ListRow = ListObg.ListRows.Add
    ListRow.Range(1) = MyForm.Txt_likar.Value
    ListRow.Range(2) = MyForm.Txt_F.Value
    ListRow.Range(3) = MyForm.Txt_I.Value
    ListRow.Range(4) = MyForm.Txt_O.Value
    ListRow.Range(5) = MyForm.DT_rozhd.Value
    ListRow.Range(6) = MyForm.ComboBox_mkx.Value
    ListRow.Range(7) = MyForm.ChBox_zaxvor.Value
    ListRow.Range( =

Как сделать так чтобы ListRow.Range(8) добавлял в таблицу пол человека , (который высчитывается по формуле =ЕСЛИ(ПРАВСИМВ(ListRow.Range(4))="ч";"м";,,, и так далее.
Очень прошу помочь. Третий день голову ломаю.
Изменено: axill_3d - 19.07.2018 13:07:53
 
Перейти    
Страницы: 1
Наверх