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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 128 След.
[ Закрыто] Чтобы не округлялась сумма
 
Добрый. Слово ОКРУГЛ в составе формулы как бэ намекает... :)
Кому решение нужно - тот пример и рисует.
Cобрать отчет на основе базы, критерием сортировки является последний столбец
 
Запишите макрорекордером действия, повесьте на кнопку. :)
Кому решение нужно - тот пример и рисует.
Cобрать отчет на основе базы, критерием сортировки является последний столбец
 
Навскидку, можно предложить такое:
1. Выделить таблицу с данными, п.меню Данные - сортировка - сортировать по столбцу F
2. выделение не снимать,  п.меню данные - промежуточный итог. Задать при каждом изменении в статусе (временный, постоянный и т.д.) выводить сумму для значений количество и сумма.
Кому решение нужно - тот пример и рисует.
Копирование данных в новую строку по условию, При условии сегодняшней даты обновить данные, если дата другая, то добавить строку
 
Хорошего показателя часового пояса!
Если я правильно понял, надо вот как-то так:
Код
Sub CopyFromHiddenRow()
    Dim objR As Range
    If Range("A4") = "" Then
        MsgBox "Сборные данные отсутствуют"
        Exit Sub
    End If
    Set objR = Range("A5:A" & Cells(Rows.Count, 1).End(xlUp).Row).Find(Range("A4"))
    If Not objR Is Nothing Then
        Range("A4:O4").Copy
        objR.Resize(1, 15).PasteSpecial (xlPasteValues)
    Else
        Set objR = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        Range("A4:O4").Copy
        objR.Resize(1, 15).PasteSpecial (xlPasteValues)
    End If
    Application.CutCopyMode = False
End Sub

Пробуйте.
Кому решение нужно - тот пример и рисует.
Пропорционально распределить потребность по товарам с определенным условием
 
Может, там проще? В F2 вставить и растянуть:
Код
=C2/СУММ($D$2:$D$4)*D2-E2

Логика формулы - считаем потребность по производителю в пропорции от продаж, потом тупо отнимаем остаток по этому производителю.
Кому решение нужно - тот пример и рисует.
Как включить выполнение макроса при переходе из одной открытой книги в другую
 
Добрый день.
Можно в модуле объекта ThisWorkbook повесить инструкцию на событие Deactivate
Код
Private Sub Workbook_Deactivate()
Application.Calculation = xlCalculationAutomatic 
End Sub

а на событие Асtivate повесить xlCalculationManual
Изменено: Пытливый - 16 Май 2019 15:39:24
Кому решение нужно - тот пример и рисует.
Скрыты пустые строки при фильтре, сбита/скрыта нумерация пустых строк при фильтре
 
Можно поудалять пустые строки.
Кому решение нужно - тот пример и рисует.
Вычленить из текста числа
 
Можно как-то так, макросом:
Скрытый текст
Кому решение нужно - тот пример и рисует.
Вычленить из текста числа
 
Добрый. Покажите в файле-примере - вот как есть (в каких ячейках этот текст), вот как нужно (в какие ячейки, в каком виде надо выдернуть числа. А то в текстовом режиме помогать очень долго. :)
Кому решение нужно - тот пример и рисует.
копирование диапазона с помощью VBA
 
Если вы четко знаете размер и адрес диапазона, который хотите скопировать, то прямо его и указывайте:
Код
Range("B2:B14").Copy
Range("D2").PasteSpecial (xlPasteValues)
Application.CutCopyMode=False

Если вы диапазон для копирования не знаете (как я предположил в примере), то его надо сначала определить. Я его в коде определял от текущего диапазона относительно ячейки В1 (поскольку в примере данные для копирования были отделены пустыми строками/столбцами от остального, то этот метод сработал). Если у вас данные как-то по-другому располагаются, то хорошо бы в примере показывать как именно, чтоб не переделывать потом код по десять раз. :)
Кому решение нужно - тот пример и рисует.
копирование диапазона с помощью VBA
 
Добрый день. Можно как-то так, макросом:
Код
Sub CopyRange()
Range("B1").CurrentRegion.Offset(1,0).Copy Range("D2")
End Sub

Если же требуется только значения копировать, и принципиально важно, чтобы в точке назначения формат ячеек не менялся, то так:
Код
Sub CopyRange()
Range("B1").CurrentRegion.Offset(1, 0).Copy
Range("D2").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End Sub
Изменено: Пытливый - 15 Май 2019 13:32:00
Кому решение нужно - тот пример и рисует.
Макрос для нахождения значений в меняющемся массиве
 
Добавил описание в текст макроса (см.сообщение выше).
По основам VBA известно где можно шикарную книгу раздобыть:
Дж.Уокенбах "Excel 2010.Профессиональное программирование на VBA". Оч.советую для начала - читать, повторять прилагаемые примеры для лучшего усвоения и внедрять, пробовать, спрашивать, подсматривать чужие решения, разбирать их по костям пока не поймешь, как работает... как-то так. :)
Кому решение нужно - тот пример и рисует.
Добавить имя юзера в макрос...
 
Здравствуйте. Если правильно понял, надо как-то так:
Код
'сразу после For Each Rng in WorkRng
Rng.Offset(0,-1)=application.username
Кому решение нужно - тот пример и рисует.
Макрос для нахождения значений в меняющемся массиве
 
На случай, если данные разбросаны так, как в примере (с промежутками между ними):
Код
Sub FromDataToResult_FindAndPaste()
'объявляем переменные для диапазонов, рабочих листов 
    Dim objR As Range, objSC As Range, objC As Range, whR As Worksheet, whIn As Worksheet 
'пишем в переменные значения конкретных листов из книги (чисто для сокращения букв кода)
    Set whR = Worksheets("Result"): Set whIn = Worksheets("Data")
    Set objR = whIn.UsedRange 'пишем в переменную используемый диапазон с листа Data
'для каждой ячейки в текущем диапазоне, определяемый от В2 с листа Result
'(текущий диапазон - это заполненные чем либо ячейки, ограниченные пустыми строками/столбцами)
    For Each objC In whR.Range("B2").CurrentRegion 
'пишем в переменную ячейку, которую находим с помощью метода Find в диапазоне objR. Что искать = objC
        Set objSC = objR.Find(objC)
'от найденной ячейки определяем заполненный диапазон и копируем его (диапазона) вторую ячейку на лист Result под
'ячейку, сидящей в переменной objC. Именно поэтому важно, чтоб данные были отделены друг от друга строками/столбцами
'и левее/выше находился буквенный код, а правее/ниже - числа. Текущий диапазон получается из двух ячеек, вот вторую
'(которая содержит число) мы и копируем.
        objSC.CurrentRegion.Cells(2).Copy objC.Offset(1, 0)
    Next objC 'переходим к следующей ячейке
End Sub


З.Ы. не увидел ответ. Покажите в примере возможное расположение данных (желательно, все возможные варианты взаимного расположения данных).
Изменено: Пытливый - 15 Май 2019 12:43:22
Кому решение нужно - тот пример и рисует.
Макрос для нахождения значений в меняющемся массиве
 
И еще вопрос - всегда ли данные отделены друг от друга пустыми строками/столбцами?
Кому решение нужно - тот пример и рисует.
Суммировать значения в ячейке с жирным шрифтом исключая текст
 
Добрый день. По-моему, можно добавить в первое условие проверку содержимого ячейки - если там число. И только если там число - тогда проводить суммирование.
Код
Sub BoldSum()
Dim BoldSum As Double
Dim NoBoldSum As Double
Dim i As Long
Dim iLastRow As Long
  iLastRow = Cells(Rows.Count, 5).End(xlUp).Row
  BoldSum = 0
  NoBoldSum = 0
  For i = 5 To iLastRow
    If Cells(i, 5).Font.Bold = True And IsNumeric(Cells(I, 5)) = True Then
      BoldSum = BoldSum + Cells(i, 5)
    Else
      NoBoldSum = NoBoldSum + Cells(i, 5)
    End If
  Next
    Cells(i, 6) = BoldSum
    
    Cells(i, 6).NumberFormat = "#,##0.00"
End Sub

Не очень понятно, зачем в коде ветка Else, если ее результат не используется никак, но не суть. :)
Изменено: Пытливый - 15 Май 2019 09:57:42
Кому решение нужно - тот пример и рисует.
Нужно убрать дублирующее слово/слова
 
Можно решить макросом через использование коллекции и их неприятия дубликатов. :)
Скрытый текст

На листе - кнопка с побуждающей надписью.
Изменено: Пытливый - 15 Май 2019 11:02:13
Кому решение нужно - тот пример и рисует.
Нужно убрать дублирующее слово/слова
 
Добрый день.
Можно макросом, например. Только в картинке макросы не сохраняются.
Кому решение нужно - тот пример и рисует.
Выделение англ текста из ячейки с русским и цифрами
 
Еще вариант через регулярные выражения.
Скрытый текст
Изменено: Пытливый - 14 Май 2019 09:58:27
Кому решение нужно - тот пример и рисует.
Построчная сцепка всех ячеек строки с первой, Желательно макросом на Visual Basic
 
Код
Sub SetOfChairs()
    Dim arrIn, arrOut, lngI As Long, lngJ As Long, lngK As Long
    Dim whIn As Worksheet, whOut As Worksheet
    Set whIn = Worksheets("Лист1"): Set whOut = Worksheets("Результат")
    arrIn = whIn.Range("A1").CurrentRegion.Value
    ReDim arrOut(1 To UBound(arrIn, 1) * (UBound(arrIn, 2) - 1), 1 To 1)
    For lngI = 1 To UBound(arrIn, 1)
        For lngJ = 2 To UBound(arrIn, 2)
            lngK = lngK + 1
            arrOut(lngK, 1) = arrIn(lngI, 1) & ":" & arrIn(lngI, lngJ)
        Next lngJ
    Next lngI
    whOut.Range("A1").Resize(lngK, 1) = arrOut
End Sub


З.Ы. Здравствуйте.
Изменено: Пытливый - 13 Май 2019 15:48:36
Кому решение нужно - тот пример и рисует.
Как вставить примечание, через TextBox, примечание для ячейки
 
Подождите, сейчас я протру свой третий глаз и обязательно определю, что за ошибку, на какой строке в каком файле и на каком наборе данных выдает скрипт который "непоймукаквнедрили" в код.
Я недолго.

UPD. Надо написать код обработки элементов формы, например, изменения TextBox. Что, мол, при изменении значения элемента надо его значение пихать в примечание определенной ячейки.
Формула тут не поможет, надо код писать. :)
Изменено: Пытливый - 13 Май 2019 15:37:10
Кому решение нужно - тот пример и рисует.
Генерация заданного текстового списка в случайном порядке (VBA)
 
Добрый день. Попробуйте, может для F2 вот такую формулу:
Код
=ИНДЕКС($A$2:$A$10;СЛУЧМЕЖДУ(1;9))

а потом растянуть вниз. Формула будет пересчитываться при изменении листа, обратите на это внимание.
Кому решение нужно - тот пример и рисует.
Поиск определенной даты между двумя значениями дат и возвращение соответствующего значения
 
Добрый день.
Если командированный в данный период в данный город уникальный (как в примере), можно такой формулой массива в Н2:
Код
=ИНДЕКС($A$2:$A$7;ПОИСКПОЗ(1;($B$2:$B$7=F2)*($C$2:$C$7<=G2)*($D$2:$D$7>=G2);0);1)


З.Ы. формулой МАССИВА!
Изменено: Пытливый - 13 Май 2019 12:56:18
Кому решение нужно - тот пример и рисует.
Копирование слова, найденного по его части в Excel
 
Добрый день. Можно еще макросом:
Скрытый текст
Кому решение нужно - тот пример и рисует.
Как вставить примечание, через TextBox, примечание для ячейки
 
Добрый день.
Вообще, примечания можно вставить так:
Код
Cells(Row, Column).AddComment (CommentText)
'вместо CommentText можно сослаться на значение элемента управления, допустим
Cells(Row, Column).AddComment (ComboBox15.Value)

По-моему, так.
Кому решение нужно - тот пример и рисует.
Макрос. Копирование данных из одного листа в конец другого
 
Если файл открытый - пишем макрорекордером макрос копирования и вставки в другой отрытый файл, потом корректируем вышеуказанный код (добавляем в КУДА еще имя файла).
Если закрытый - ко всему перечисленному надо добавить еще код открытия файла с нужным именем, расположенным по определенному адресу.
Кому решение нужно - тот пример и рисует.
Суммы значений с распределением по месяцам и дням недели., Нужна единая формула, позволяющая суммировать определенные значения
 
Михаил Витальевич С., я категорически не согласен быть гурой в одиночку! Только если с Вами. :)
Кому решение нужно - тот пример и рисует.
Макрос. Копирование данных из одного листа в конец другого
 
Здравствуйте.
Может, нужно  как-то так? (уходим от СurrentRegion, используем UsedRange)
Код
Worksheets("Sheet2").UsedRange.Offset(1, 0).Copy Worksheets("Sheet1").[A1].End(xlDown)(2)
Кому решение нужно - тот пример и рисует.
Поиск кириллицы (регулярные выражения), Не выходит найти кириллицу в тексте между кавычками
 
Здравствуйте. Мне кажется, вот такого паттерна будет достаточно:
Код
[""]+[А-Яа-яЁё ]+[""]+

кавычки любыеСимволыКириллицыИпробел кавычки
Кому решение нужно - тот пример и рисует.
Из вставленного текста оставить только числа
 
Можно при помощи пользовательской функции. Автор сайта выложил замечательную статью на эту тему: тут.
В прилагаемом файле в желтых полях как раз эта функция использована
Кому решение нужно - тот пример и рисует.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 128 След.
Наверх