Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 61 След.
как подставить значение с транспортированием
 
1. Скопировать блок ячеек F2:E17 листа Лист2
2. Встать в яч.А4 на Лист1, ПКМ, Параметры вставки-"Транспонировать (А)"
Запуск макроса при добавлении, обновлении или изменении файла в папке
 
Цитата
BeatCrusher написал:
сначала файл с исходными данными, создаётся или обновляется/изменяется или заменяется новым
1. файл не может сам создаваться или обновляться/изменяться или заменяться новым. Это с файлом делает кто-то (или что-то).
2. макрос Excel срабатывает только на события Excel.
3. отсюда следует, что если этот кто-то (что-то) - не Excel (или не другая программа, в которой предусмотрено программирование с использованием объектной модели Excel), то ничего не получится.
Изменено: Михаил Лебедев - 11 Сен 2018 13:17:26
Оценка в зависимости от успевемости,
 
Цитата
Pechuro написал:
ОТЛИЧНО-"отл" и "хор" - 70 и более %; причем "отл" не менее 50%; "неуд" - до 10%;
А если отл 50%, хор 40%, уд. 0% и неуд 10% - это какая оценка будет?
"ОТЛИЧНО", т.к.  отл. >=50% и отл + хор > 70% ?
или
"ХОРОШО", т.к. отл.+хор. = 90%, т.е. > 60%. а неуд. =10%, т.е. <15% ?
или
"УДОВЛ.", т..к.  отл.+хор+уд. = 90%, т.е. >80% ?
как изменить расположение гипперсылок если произошел сбой?, изменение расположения гипперсылок
 
Цитата
denya83 написал:
если оставлять "%20" то открываться не будет
тогда добавьте еще строку
Код
str3 = VBA.Replace(str3, "%20", " ") 

после строки "9" кода
как изменить расположение гипперсылок если произошел сбой?, изменение расположения гипперсылок
 
Ваши 2 последних - у меня отображаются в виде абракадабры.
Вот макрос ▼
Код
Sub hl()
    Dim str1 As String, str2 As String, str3 As String
    Dim rng As Range
    Dim rng1 As Range
    Set rng = Application.InputBox("Выделите блок ячеек для поиска-замены", "ГДЕ ИЩЕМ?", , , , , , 8 )
    str1 = InputBox("Введите искомый текст", "ЧТО ИЩЕМ?")
    str2 = InputBox("Введите текст на замену", "НА ЧТО МЕНЯЕМ?")
    For Each rng1 In rng
        str3 = rng.Hyperlinks(1).Address
        rng.Hyperlinks(1).Address = VBA.Replace(str3, str1, str2)
    Next
End Sub
Скопируйте в модуль книги и запустите, находясь на листе, где надо сделать замену.
как изменить расположение гипперсылок если произошел сбой?, изменение расположения гипперсылок
 
Цитата
denya83 написал:
если убрать знаки " %" (пример : Жовтнева%20СР)
1. Ппо-моему, %20 можно и не убирать, это аналог пробела. Но если есть необходимость - можно просто подставновкой.
2. Если я правильно понял, - Вам нужно везде поменять
.\..\AppData\Roaming\AppData\Roaming\AppData\Roaming\AppData\Roa­­­ming\Microsoft\Excel\
на
C:\Users\Derek\Desktop\ВРОЖАЙ 2018

Это можно сделать с пом. небольшого макроса.
Макрос для внесения данных на разные листы и в разные таблицы, Помощь в составлении правильного макроса
 
Понятно. Тогда Вам надо менять диапазон поиска в зависимости от выбранной модели.
Например - так (изменения - с 22 строки кода).
Код
Private Sub CommandButton1_Click()
If Me.ComboBox1.Text = "" Then
    MsgBox "Заполните поле <Год выпуска>", vbExclamation, "Ошибка"
    Me.ComboBox1.SetFocus
    Exit Sub
End If
If Me.ComboBox2.Text = "" Then
    MsgBox "Заполните поле <Месяц выпуска>", vbExclamation, "Ошибка"
    Me.ComboBox2.SetFocus
    Exit Sub
End If
If Me.ComboBox3.Text = "" Then
    MsgBox "Заполните поле <Причина поломки>", vbExclamation, "Ошибка"
    Me.ComboBox3.SetFocus
    Exit Sub
End If
If Me.TextBox1 = "" Then
    MsgBox "Заполните поле <Количество>", vbExclamation, "Ошибка"
    Me.TextBox1.SetFocus
    Exit Sub
End If
Dim rng As String
Dim FR As Range, cl%, rw%
With Sheets(ComboBox1.Text)
Select Case VBA.Left(Me.ComboBox4.Text, 1)
Case "1"
    rng = "A1:CC23"
Case "2"
    rng = "A24:CC45"
Case "3"
    rng = "A46:CC67"
Case "4"
    rng = "A68:CC88"
End Select
Set FR = .Range(rng).Find(ComboBox1.Text)
If FR Is Nothing Then MsgBox "Заполните все поля": Exit Sub
Set FR = .Range(rng).Find(ComboBox2.Text)
If FR Is Nothing Then MsgBox "Месяц не найден": Exit Sub
cl = FR.Column
Set FR = .Range(rng).Find(ComboBox3.Text)
If FR Is Nothing Then MsgBox "Причина поломки не найдена": Exit Sub
rw = FR.Row
.Cells(rw, cl) = .Cells(rw, cl) + TextBox1.Value
End With
   Unload UserForm1
   ActiveWorkbook.Save
   MsgBox "Информация добавлена!", vbInformation, "Отлично!"
End Sub
Изменено: Михаил Лебедев - 10 Сен 2018 11:59:59 (внес пояснение)
Макрос для внесения данных на разные листы и в разные таблицы, Помощь в составлении правильного макроса
 
Цитата
Павел Ершов написал:
Не получается заставить код вписать значения в нужную таблицу
А какая из 4-х таблиц - нужная? С ходу сложно понять, подскажите, пожалуйста.
Деление 2х динамических массивов и получение суммы
 
Доброго времени суток.
Можно формулу массива ввести.
{=СУММПРОИЗВ(A10:D10/ЕСЛИ(A11:D11=0;1;A11:D11))}
как изменить расположение гипперсылок если произошел сбой?, изменение расположения гипперсылок
 
Здравствуйте.
Если названия исходных папок сохранились (в Вашем примере - это куски "...\фото\Жовтнева%20СР\IMG_20180716_142739.jpg"), то можно макросом, поиск-замена.
Т.е. заменить ненужный кусок пути к папкам на нужный (старый).
Если не сохранились, то откуда узнать, что на что менять?
Изменено: Михаил Лебедев - 10 Сен 2018 11:00:29
Как заставить макрос работать с разными ячейками на одном листе?
 
Цитата
Sanja написал:
1.
2.
3.
4. Показать макрос и файл в расчете на альтруистов.
Подсчет ячеек, у корых в начале "ВР-"
 
ПРИВЕТ всем старожилам! Ох и давно же я здесь не был ☺

Формула =СЧЁТЕСЛИ($C$5:$C$16;G19) в столбец "Количество шт."
И столбец "временный номер ПАГЕ" - не нужен
Блокировка кнопки "очистить" на защищённом листе
 
Ну, пусть живет, долго и счастливо :)
Блокировка кнопки "очистить" на защищённом листе
 
Цитата
sokol92 написал:
Можно. В Excel все можно...
И не объединенные можно? :)

PS С объединенными - интересный трюк. Не знал, даже в голову не приходило... Спасибо.
Изменено: Михаил Лебедев - 2 Май 2018 18:59:59
Блокировка кнопки "очистить" на защищённом листе
 
Добрый день!
Нет, но можно воспользоваться "Полем со списком".
Разбивка данных по разделителю
 
Здравствуйте! В примере - много таблиц и нет ни одного ";"
Преобразовать текс в дату через DAX
 
2/13/2018 - это 13 фев. 2018. А 2/12/2018 - это 12 фев. 2018 или 2 дек. 2018 ?
Преобразовать текс в дату через DAX
 
Помогите себе сами, почитайте правила форума
Форматирование изменяемого значения
 
Цитата
violettki написал:
Цитата
То есть вчерашнее значение физически не отражается нигде
... значит, скорее всего, имеем дело с оборотнем...
присоединяюсь к идее Сергея
Цитата
Сергей написал:
...вокруг костра попрыгаем с бубнами попросим высшие силы вас защитить...
ГИПЕРССЫЛКА - на место в документе, Нужн работчая формула, а в помощи майкрософт ошибка в подсказках
 
У Вас кавычек - нечетное число. Либо одной не хватает, либо одна лишняя. И скобок - 2 открывающих и 1 закрывающая.
Перенос данных из столбцов с разных листов в один столбец
 
У Вас данные организованы очень нехорошо, по моему мнению. Вам проще будет сделать лист Уведомление в виде шаблона с кол-вом строк 12 х 6, чтобы в эти строки с листов "Данные..." подтягивалась формулами нужная информация. А пустые строки - просто скрывать автофильтром. Выложенный Вами пример - слишком мало информации содержит для понимания задачию
Изменено: Михаил Лебедев - 3 Апр 2018 12:08:14
Суммирование диапазона со смещением
 
Добрый день!
Не совсем понятно, что Вы хотите. М.б. Вам просто нужно посчитать сумму значений в столбце К2 при условии, что даты в К1 напротив этих значений попадают в заданный ПЕРИОД?
Тогда можно формулой =СУММПРОИЗВ(($A$3:$A$59>=D3)*($A$3:$A$59<=E3)*($B$3:$B$59))   (для яч. Н3)
Но можно и с функцией =СМЕЩ():  =СУММ(СМЕЩ($B$2;ПОИСКПОЗ(D4;$A$3:$A$59;0);0;7;1)) (для яч. Н4)

А даты ПЕРИОДА лучше оставить в отдельных столбцах, а столбцы - скрыть.  
Макрос для создания итоговой таблицы, Макрос для создания итоговой таблицы в Excel 2016
 
Здравствуйте.
Боюсь предположить, что Вам не сюда, а в раздел "Работа".
Как при выборе продукта из списка продуктов, настроить в соседней ячейке выбор свойств этого продукта?
 
Цитата
Bovtenok написал:
Почему-то работает неправильно.
Добрый день. А Ваш файл-пример работает?
Изменено: Михаил Лебедев - 26 Фев 2018 12:43:50 (файл не захотел грузиться)
Формула для поиска в эксель, Никак не могу найти или составить формулу
 
...
Автоматический перенос значения
 
Привет!
Произвольное значение появится только с помощью макроса.
Не понятно, что Вы подразумеваете под "создаю новую строку в таблице". У Вас "Умная таблица" или простая? В Excel нет события "новая строка", как в access,, например.
Открытие сроки защищенного листа для редактирования по условию.
 
Цитата
Серёжа написал:
активировалась ячейка следующая за заполненной(то есть первая пустая)?
Так всё-таки, следующая или первая пустая?
Если следующая, то
Код
ActiveCell.Offset(1, 0).Select
Запрет редактирования документа одним пользователям, но разрешение пользоваться другим
 
Цитата
БМВ написал:
При сохранении указать пароль для записи и не разглашать его остальным.
И еще чтобы другие не могли сохранить у себя копию файла, стереть файл-оригинал, а потом на его место положить файл-копию :) .
Формирование заказа на основе выделенных позиций в прайсе
 
Цитата
kehrypy написал:
Михаил, дополнительных столбцов уже не надо в этом документе
Ну, скройте лишний столбец. Или итог можно еще сделать сверху (как на листе Прайс), Тогда можно без лишнего столбца.
А по другому (с перламутровыми пуговицами или без крыльев) с пом. Сводной - не получится.
Формирование заказа на основе выделенных позиций в прайсе
 
Цитата
kehrypy написал:
С помощью сводной таблицы у Вас сумма по цене не сходится
тогда с пом. доп. столбца на листе Прайс
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 61 След.
Наверх