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

Страницы: 1 2 След.
VBA. Минимальное, но не пустое значение массива
 
#
07.03.2023 16:31:52
А как добавить в условие >0?
 
Перейти    
VBA. Минимальное, но не пустое значение массива
 
#
07.03.2023 16:26:01
Так оно работает. Но как переменной задать это значение?
 
Перейти    
VBA. Минимальное, но не пустое значение массива
 
#
07.03.2023 14:53:21
Есть массив, в который занесены числа. Как с помощью кода VBA найти минимальное, но не пустое значение этого массива?
 
Перейти    
if с использованием условия, которое записано в самой переменной
 
#
07.05.2020 12:00:16
Здравствуйте. В ходе выполнения исходного кода в строковой переменной прописываются условия:
условие1=значение and условие2=значение and условие3=значение
Есть ли способ внедрения в конструкцию if then?
if строковая_переменная_со_всеми_условиями then
действия
end if
 
Перейти    
Перебор всех элементов коллекции в условии if
 
#
13.04.2020 14:31:19
Цитата
Hugo написал:
что нужно сделать
Нужно в условный оператор if записать все значения коллекции
коллекция динамическая
if myCollection(1)=Worksheets.Cells(2,1) and myCollection(2)=Worksheets.Cells(2,2) and myCollection(3)=Worksheets.Cells(2,3) then
или
if myCollection(1)=Worksheets.Cells(2,1) and myCollection(2)=Worksheets.Cells(2,2) and myCollection(3)=Worksheets.Cells(2,3) and myCollection(4)=Worksheets.Cells(2,4) and myCollection(5)=Worksheets.Cells(2,5) and myCollection(6)=Worksheets.Cells(2,6)
и так далее
 
Перейти    
Перебор всех элементов коллекции в условии if
 
#
13.04.2020 14:14:12
Как поместить в условие if все элементы коллекции?
Количество элементов коллекции постоянно разное.
к примеру if myCollection(1)=n and myCollection(2)=m and myCollection(3) = r
 
Перейти    
Обработка запроса с вариаций условий
 
#
12.04.2020 11:33:52
В данном примере желаемым результатом будет добавление строчки
ПетровНиколай3а5544555
 
Перейти    
Обработка запроса с вариаций условий
 
#
12.04.2020 11:28:48
Не первый день уже думаю как реализовать выполнение запроса:
Для запроса может использоваться как всего одна оценка, так и несколько
соответственно при введении нескольких оценок необходимо, чтобы запрос выдавал список учеников, у которых стоят заданные оценки по заданным предметам

Но мне никак не придет в голову как прописывать запрос через if ведь вариаций этих запросов по 10 и более предметам может быть множество. Каждый вариант прописывать - сам запутаешься.

Если в запросе стоит оценка 5 по русскому языку и 4 по математике, то нужно искать по списку именно такую строчку и выводить её в ответ (оценки остальных предметов при этом не важны, они в таком случае не заполняются в запросе)
Если в запросе стоят определенные оценки по каждому предмету, то нужно вывести всех учеников, у которых стоят именно эти оценки именно по этим предметам...
Я не ищу готового решения, можете просто подсказать какая конструкция используется в данном случае?

я прописываю так
if not rus = "" and not mat = ""
If Worksheets("Список").Cells(i, 2).Value = rus And Worksheets("Список").Cells(i, 3).Value = mat Then...
Но это должно быть строгое заполнение этих ячеек
А необходимо выполнение с множествами вариаций
Возможно, сумбурно описал проблему... голова забита
 
Перейти    
Перенос файлов из одной папки в другую с изменением имён
 
#
24.01.2020 11:10:15
Эти примеры написаны для работы с 1-м файлом.  
 
Перейти    
Перенос файлов из одной папки в другую с изменением имён
 
#
24.01.2020 10:34:20
Чтоб без геморроя - по имени из файла. «Ивановой»
 
Перейти    
Перенос файлов из одной папки в другую с изменением имён
 
#
24.01.2020 10:00:22
Здравствуйте. Столкнулся с такой проблемой: необходимо перенести файлы из папки с удалением в именах пробелов, запятых и слова «new», которое находится приблизительно в середине имени. Искал в интернете, но там все примеры связаны с заполнением листа Excel. Можно ли это как-то реализовать без заполнения Excel?
Пример: d:\docs\инструкция 20.01.2020, new от Иванова.doc
переместить в другую папку с удалением пробелов, запятой и слова “new”
d:\docs\Инструкции\Иванов\инструкция20.01.2020отИванова.doc
 
Перейти    
Распределение нагрузки по ставкам
 
#
17.07.2018 10:55:08
Здравствуйте. Помогаю супруге с автоматизацией подсчета нагрузки медперсонала. Практически все закончил, но остался один штрих: в приведенном файле примера в зеленых графах указано время начала работы / время окончания работы. В желтых - количество отработанных часов. В ячейках с синим цветом написаны исходные данные (также время начала и время окончания работы). Из этих данных мы должны раскидать часы в соответствии с нормами (нормы указаны слева). Причем раскидать так, чтобы вся таблица была равномерно заполнена (такие требования бухгалтерии). То есть не так, что работник сначала наработал часы на ставку, а потом на полставки, а фактически он одновременно нарабатывает и на ставку и на полставки. Из файла будет более понятно.
Получается, что мы заполняем по нормам ставок так, чтобы количество часов соответствовало норме, а оставшиеся смены или часы переносим в ту строку, где норма не указана.
У самого голова кругом.
Дополнение: из синих ячеек мы раскидываем в зеленые время начала работы / время окончания работы
в желтых проводим подсчет количества отработанных часов
и нормы не всегда равняются целыми часами, иногда там написаны часы с минутами
Изменено: serwales - 17.07.2018 23:45:24
 
Перейти    
из Interbase в Excel через SQL запрос
 
#
17.05.2018 13:23:34
Дмитрий Тарковский, огромное вам спасибо, остальных тоже благодарю. Тему можно закрывать.
 
Перейти    
из Interbase в Excel через SQL запрос
 
#
16.05.2018 17:12:20
спасибо. Я все внимание направлял на первую
Изменено: serwales - 16.05.2018 17:13:14
 
Перейти    
из Interbase в Excel через SQL запрос
 
#
16.05.2018 17:04:14
Я долго смеялся когда пытался открыть ссылки на бесплатных провайдеров, сайты которых уже не функционируют. Сарказм ваш явно не уместен.  
 
Перейти    
из Interbase в Excel через SQL запрос
 
#
16.05.2018 13:37:04
Осталось найти бесплатного провайдера для excel.  
 
Перейти    
из Interbase в Excel через SQL запрос
 
#
13.05.2018 19:51:40
Непонятно, какого провайдера указывать.  
 
Перейти    
из Interbase в Excel через SQL запрос
 
#
13.05.2018 13:38:17
Здравствуйте. Подскажите, пожалуйста, можно ли как-то, используя SQL запрос с помощью макроса Excel, выгрузить данные из Inrebase  в книгу Excel? В книгах по VBA, что-то не нашел такого.
Изменено: serwales - 13.05.2018 13:38:47
 
Перейти    
Like и проверка количества символа «.» в ячейке
 
#
04.05.2018 10:47:53
Точно. Что-то я затупил
 
Перейти    
Like и проверка количества символа «.» в ячейке
 
#
04.05.2018 09:58:22
Здравствуйте, уважаемые знатоки. Подскажите можно ли как-то компактно записать условие:
If like (количество «.» в ячейке больше 2)
 
Перейти    
Неправильно суммируется время
 
#
25.04.2018 16:25:51
Спасибо mtts54 и огромное спасибо Казанский
 
Перейти    
Неправильно суммируется время
 
#
25.04.2018 15:33:40
у меня далее переведено это все в формат времени. Если бы это было текстом, то формулы с подсчетами не исполнялись бы.
 
Перейти    
Неправильно суммируется время
 
#
25.04.2018 15:27:43
Помогите разобраться. Делаю учет времени работы на безвозмездной основе и столкнулся с проблемой: при суммировании времени пишет какую-то билибирду. Форматы пробовал менять - ничего не меняется. Может дело в самом офисе?

В первой строке в ячейках со слешами указано время работы с / время работы по
Изменено: serwales - 25.04.2018 15:32:51
 
Перейти    
Результаты вычисления формулы массива в переменной
 
#
19.12.2017 17:23:10
Казанский,огромное спасибо.  
 
Перейти    
Результаты вычисления формулы массива в переменной
 
#
19.12.2017 17:08:22
Как занести результат подсчета формулы напрямую в переменную? То есть формула не должна находиться в какой-нибудь ячейке, а должна считаться и результат должен присваиваться переменной. То есть она типа висит в памяти.
формула такая
{=наибольший(если((b:b=e2);a:a;””);1)}
Результатом идет дата
Изменено: serwales - 19.12.2017 17:09:32
 
Перейти    
Поиск последнего вбитого числа по имени
 
#
15.12.2017 10:29:01
Здравствуйте. Имеется таблица типа
фио задолженность
иванов нет
петров нет
сидоров нет
иванов 1
иванов 2
иванов 1
необходимо найти последнее занесенное числовое значение в столбце академических задолженностей по конкретной фамилии
как это можно реализовать?
 
Перейти    
Как изменить код, чтобы в массив переносилось только первое слово (до пробела)
 
#
14.06.2017 10:45:37
The_Prist, большое спасибо.  
 
Перейти    
Как изменить код, чтобы в массив переносилось только первое слово (до пробела)
 
#
14.06.2017 10:40:44
Мой код работает
 
Перейти    
Как изменить код, чтобы в массив переносилось только первое слово (до пробела)
 
#
14.06.2017 10:32:54
На листе "l1" в столбце G имеются следующие данные:
Василий Петров
Василий Иванов
Василий Сидоров
...
есть код, но он переносит уникальный текст целиком, а необходимо, чтобы он переносил на лист "l4" только первое слово текста ячеек
Не могу понять: что необходимо поменять в коде...
Код
Sub name()
Dim vItem, avArr, li, a As Long
ReDim avArr(1 To 1, 1 To Columns.Count)
With New Collection
On Error Resume Next
For Each vItem In Range("G2", Cells(Rows.Count,7).End(xlUp)).Value
.Add vItem, CStr(vItem)
If Err = 0 Then
li = li + 1:
avArr(1, (li - 1) + i) = vItem
Else: Err.Clear
End If
Next
End With
If li Then
Worksheets("l4").[B1].Resize(1, li).Value = avArr
a = Worksheets("l4").Cells.Find(What := "*", SearchOrder := xlByColumns, SearchDirection := xlPrevious).Column
End If
End Sub
 
Перейти    
Определение адреса последней ячейки с помощью vba
 
#
30.05.2017 09:35:31
нашел код, но почему-то он отображает у меня $A$2
хотя таблица заполнена так:

№                Описание                  Комментарий
1                  один                          первый комментарий
2                  два                            второй комментарий
3                  три                            третий комментарий
4                  четыре                      четвертый комментарий
5                  пять                           пятый комментарий

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

Код
Dim rF As Range
    Dim lLastRow As Long, lLastCol As Long
    'ищем последнюю ячейку на листе, в которой хранится хоть какое-то значение
    Set rF = ActiveSheet.UsedRange.Find("*", , xlValues, xlWhole, xlPrevious)
    If Not rF Is Nothing Then
        lLastRow = rF.Row    'последняя заполненная строка
        lLastCol = rF.Column 'последний заполненный столбец
        MsgBox rF.Address 'показываем сообщение с адресом последней ячейки
    Else
        'если ничего не нашлось - значит лист пустой
        'и можно назначить в качестве последних первую строку и столбец
        lLastRow = 1
        lLastCol = 1
    End If
 
Перейти    
Страницы: 1 2 След.
Loading...