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

Страницы: 1
Сравнить два листа, Лист1 пункты товара без данных, Лист2 пункты товара с данными для отдельных пунктов, Лист3 результат равный таблице на Лист1 с данными из Лист2
 
#
12.07.2023 14:44:29
Здравствуйте.
Окажите пожалуйста макропомощь. Пример прилагаю.

На Лист 1 в два столбца идут пункты товара, напротив каждого пустые данные по второму столбцу.

На Лист2 в два столбца идут пункты товара, напротив каждого либо пустые либо численные данные.

Вывести на Лист3 таблицу с первого листа (все строки, даже те которые останутся без данных), но уже с данными взятыми с Лист2.
 
Перейти    
Вставка из 1с чисел разделенных запятой
 
#
20.06.2018 00:46:19
Здравтвуйте.
Помогите пожалуйста. При помощи ниже приведенного макроса, копирую из 1с "постолбцово" три колонки.
Текстовые нормально копируются через макрос, но когда доходит до числового столбца, имеющего внешний вид в 1с 155,000 оно вставляется как 155 000 или при использовании Selection.NumberFormat = "0"  как 155000

Код
Sub odins1()    
ActiveSheet.Paste    
Selection.NumberFormat = "0"    
ActiveCell.Offset(0, 1).Activate    
Sheets("Лист2").Select    
ActiveSheet.Paste    
Selection.NumberFormat = "0"    
ActiveCell.Offset(0, 1).Activate    
Sheets("Лист3").Select    
ActiveSheet.Paste    
Selection.NumberFormat = "0"    
ActiveCell.Offset(0, 1).Activate    
Sheets("Лист1").Select    
If ActiveCell.Column = 5 Then    
Range("B1").Activate    
End If
End Sub

Через стандартные Ctrl+V получаю нужный результат вида 155, без нулей.
Выяснилось, что VBA интерпретирует запятую как разделитель разрядов, точку разделитель дробной части.
Помогите пожалуйста обойти это как-то, чтоб можно было именно макросом пользоваться, т.к. он у меня не только вставкой, а и "прыжками" как можно увидеть активно занимается. Перепробовал множество вариантов, вплоть до сендкея, но к сожалению "прыжки" перестают срабатывать.
Прошу исключительно добровольной макропомощи.
Изменено: Novichok55 - 20.06.2018 00:58:47
 
Перейти    
Удаление значений внутри ячейки по условию
 
#
25.05.2018 10:02:49
Внутри ячеек есть наименование и размеры-число. Некоторые размеры перечеркнутым шрифтом. Частный случай когда размер-число перечеркнуто только "тиреЧисло" (если этот частный случай сильно усложняет, то без него). Необходимо удалить все размеры-число полностью не перечеркнутые.
Спасибо. Прошу исключительно добровольной макропомощи.
Изменено: Novichok55 - 25.05.2018 10:07:48
 
Перейти    
Выполнить вычитание внутри ячейки по условию
 
#
25.05.2018 01:28:32
Внутри ячеек содержаться наименования и размеры (размеры могут быть перечеркнутым шрифтом).
Возле некоторых размеров справа через пробел бывают скобки с числом. Необходимо для таких размеров выполнить действие. Отнять от числа в скобках число которое у размера и присвоить получившуюся разницу этому размеру, зачеркнув его после этого.
Пример прилагается.
Спасибо. Прошу исключительно добровольной вдохновенной макропомощи.
Изменено: Novichok55 - 25.05.2018 02:03:13
 
Перейти    
Удалить строку с жирным текстом, если следующая под ней пустая
 
#
24.05.2018 21:27:06
Всё та же надоевшая тема удаления строк. Но нужно для приведения к презентабельному виду. После выделенной жирным строки идет пустая, удалить эту жирную строку.
 
Перейти    
Удаление пустых строк, если больше одной подряд
 
#
24.05.2018 20:12:12
Здравствуйте.
Извините, что в названии темы не совсем точно описываю, чтоб не превращать в текст.
Макрос удаления пустых строк многие наверно встречали
Код
    LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
    Application.ScreenUpdating = False
    For r = LastRow To 1 Step -1
        If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
    Next r
Можно ли его переделать, чтоб удаление касалось только второй третей и т.д. пустой строки подряд (одна осталась)?
Изменено: Novichok55 - 24.05.2018 20:15:19
 
Перейти    
Удалить строки,в которых нет скобок или перечеркнутого шрифта
 
#
23.05.2018 22:39:56
Здравствуйте.
Список приведенного в примере вида. Необходимо удалить строки в которых нет скобок или нет перечеркнутого шрифта.
Спасибо.
 
Перейти    
Самоудаление книги
 
#
18.05.2018 21:54:36
Здравствуйте.
Отличная статья https://www.excel-vba.ru/chto-umeet-excel/kak-udalit-knigu-iz-samoj-sebya/ код есть.
Но не могу найти как неким макросом добавить например этот код
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)    
Me.ChangeFileAccess xlReadOnly    
Kill Me.FullName
End Sub
или ещё лучше
Код
Private Sub Kill_ThisWorkbook()
    iFullName$ = ThisWorkbook.FullName
    Application.DisplayAlerts = False
    ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
    SetAttr iFullName$, vbNormal: Kill iFullName$
    ThisWorkbook.Close saveChanges:=False
End Sub
в модуль "Эта книга".
У меня ситуация следующая. Есть исходная Книга (ReadOnly), с пустыми листами, напичканная макросами под определенную задачу. В процессе выполнения этой всей цепочки неким макросом в котором прописаны call-ы Книга сохраняет себя под другим именем в определенной папке и т.д., уже после переименования мне нужно внести макросом в "ЭтаКнига" указанный выше код, чтоб исключить вариант, что я забыл удалить новосозданный файл.
Спасибо.
Изменено: Novichok55 - 18.05.2018 21:58:50
 
Перейти    
Вывести рядом с числом суммы, принадлежащие сумме события
 
#
10.05.2018 03:25:07
Здравствуйте.
Список. Заголовок плюс товар с размерами и так один под другим. Вид всегда именно такой.
Лист1 и Лист2 представляют из себя исходные данные представленные в разном виде (размеры в 2х внешних видах), на случай если с каким-то удобнее будет.
На Листе3 сумма, проанализированы списки, совпадения Наименование+размер сведены в одну строку и "размер-штук" просуммировано.
То что очень бы хотелось, это описание рядом с каждым этим результатом на Листе3. На первый взгляд Лист2 и второй внешний вид размеров подойдет больше, потому как это наверно одно, что напрашивается в плане проверки наименование+размер совпали или нет.
Тут однозначно лучше просто сразу пример, сложно на словах объяснить, чтоб все поняли.
Изменено: Novichok55 - 10.05.2018 03:25:49
 
Перейти    
Сортировка макросом по двум условиям
 
#
06.05.2018 01:27:23
Здравствуйте.
В примере список. Необходимо отсортировать, сначала по наименованию, затем по размеру.
На макрорекордер меня конечно хватило (сделал настраиваемое правило), но к сожалению стандартная сортировка несмотря на все мои указания сводит размеры начинающиеся на X рядом.
Изменено: Novichok55 - 06.05.2018 19:50:48
 
Перейти    
Замена пробелов в ячейке, до определенного момента
 
#
01.05.2018 10:38:10
Здравствуйте.
Имеется ячейка в которой есть наименование (из нескольких слов) далее в той же ячейке идут размеры через пробел. Нужно именно слова названия сцепить нижним подчеркиванием. "Костылеватый" способ с массовой заменой по шаблону кой как работает, но с непонятными "не срабатываниями" для некоторых наименований.
В итоге макрос приходится дополнять ручными заменами на эти сбойные места...
В примере думаю будет более понятно. Нужно остановить получается замену пробела на нижнее подчеркивание перед значением вида "буква-число", этот момент всегда стандартный. Ну и если можно предусмотреть "провтыкивание" вроде двойного пробела в словах наименования. Всё это для дальнейшего выделения размеров в отдельные клетки той же строки через "Текст по столбцам" по признаку пробела.
 
Перейти    
Размножить строку (имя) на соответствующее ей количество ячеек в той же строке (с данными)
 
#
01.05.2018 01:47:32
Здравствуйте.
Есть наименование. В той же строке далее идут к нему размеры, как правило несколько ячеек.
Нужно, чтоб наименование и только одна ячейка рядом с ним, а не как сейчас несколько. Объем не гигантский, но и не маленькие для ручной работы.
В примере думаю будет более понятно, какой макрос бы хотелось.
Спасибо.
 
Перейти    
Страницы: 1
Наверх