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

Страницы: 1
Разработка кода для формирования сводных данных из примечаний в выбранном файле, Разработка кода
 
#
03.11.2021 05:59:30
Необходимо написать макрос, простой функционально, но состоящий из нескольких этапов. Более подробно потребность изложил в ТЗ. Хочу отметить что данную работу я разделяю на три части. С оплатой проблем не будет, при условии адекватной обратной связи и своевременному корректированию поправок после проверки.
Под словом поправки подразумевается исправление неправильно выполненных задач (Исполнителем) изложенных в ТЗ.
Бюджет твёрдый, обоснован ценами на конкурирующих площадках. Размер вознаграждения будет обсуждаться в ходе диалога с потенциальным исполнителем.  
 
Перейти    
Удаление значения ячейки, если слева от неё пустая ячейка.
 
#
23.10.2021 02:28:01
Уважаемые, прошу помочь в небольшой ситуации. Имеется неbзменный столбец J c диапазоном дат, и столбец I с данными которые меняются (вставляю то что необходимо). Нужно условие, при котором Дата будет удаляться оставляя пустую ячейку, если слева от неё пустая ячейка.  
 
Перейти    
Копирование первого и последнего значения с учетом пропуска в списке значений., Разработка кода
 
#
27.09.2021 06:55:49
Доброго времени суток! Попытаюсь объяснить свою потребность. Мне необходимо решение которое будет выполнять следующие функции.
У нас есть вертикальный диапазон J3:J33. В данный диапазон будет вставляться информация (даты) с выходными днями. Затем , необходимо понять дату начала смены, и дату конца смены. И копировать их в диапазон R8:S13 .(R - Начало S - конец смены).  
В файле который я прилагаю ниже, всё видно.  Я не знаю есть ли стандартный инструмент для решения подобной задачи. И если его нет, помогите с проблемой.
 
Перейти    
Данные из Excel в Word, Доработка кода.
 
#
23.09.2021 08:57:36
Доброго времени суток!
Пытаюсь выполнить урок по написанию кода, выполняющего копирование данных с листа Excel в ворд.
Застрял на ошибке в строке диапазона.
Помогите.
Код
Private Sub CommandButton1_Click()
 Dim tblRange As Excel.Range
 Dim WordApp As Word.Application
 Dim WordDoc As Word.Document
 Dim WordTable As Word.Table
 Set tblRange = ThisWorkbook.Worksheets("Sheet1").Range("K8:Q23")
 On Error Resume Next
    Set WordApp = GetObject(class:="Word.Application")
    If WordApp Is Nothing Then Set WordApp = CreateObject(class:="Word.Application")
    WordApp.Visible = True
    WordApp.Activate
    Set WordDoc = WordApp.Documents.Add
    tblRange.Copy
WordDoc.Paragraphs(1).Range.PasteExcelTable _
LinkedToExcel:=False, _
WordFormatting:=False, _
RTF:=False
Set WordTable = WordDoc.Tables(1)
WordTable.AutoFitBehavior (wdAutoFitWindow)
End Sub
Изменено: Родион Цараков - 23.09.2021 09:58:33
 
Перейти    
Заливка выделенной ячейки одним из 4-х цветов
 
#
22.09.2021 10:11:48
Добрый день форумчане!
Пожалуйста на правьте на путь истинный. Пытаюсь написать макрос для кнопки.
Цель макроса. Четыре кнопки. Каждая соответствует своему цвету.
1. Выделяем Ячейку
2. Нажимаем на кнопку соответствующую цвету
3. Выбранная Ячейка, или диапазон окрашиваются
Код
Sub RangeColor()
Dim Rng As Range
    Set Rng = Application.InputBox("A9", "A9", Type:=8)
    Rng.Interior.ColorIndex = 5
End Sub

В данный момент алгоритм работает так:
1. Жмём на кнопку (кисточка).
2. Выделяем диапазон
3. Жмём ок.

UPD: И есть проблема с которой я не могу справиться.
1. Жмём кнопку
2. Жмём отмену.
3. Макрос даёт ошибку

Подозреваю что это из-за строчки диапазона
Пожалуйста , скажите какой код будет выполнять алгоритм так как я хочу.
Изменено: vikttur - 22.09.2021 11:05:52
 
Перейти    
Макрос копирующий диапазон в новый лист с сохранением настроек
 
#
20.09.2021 10:04:05
Добрый день всем присутствующим на одном из лучших сайтов простора рунета.

Я набрался смелости и решил обратиться сюда.
Ситуация следующая:
Есть книга > есть лист. Необходимо было создать кнопку , и назначить ей макрос, копирующий диапазон данных , и создающих новый файл в указанной директории. Всё получилось спустя 8 часов ковыряния интернета. НО!
Данные копируются без сохранения значений ширины столбца и высоты строки. То есть, визуальная составляющая игнорируется при переносе данных на новый файл.

Код прилагаю. Пожалуйста обратите внимание.
Помогите разобраться. Сам в написании не силён , всего достигаю методом тыка.
Код
Sub SozdatFajl()
Sheets("Заказ").Range("J1:R45").Copy
Workbooks.Add
ActiveSheet.Paste Destination:=Range("A1")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs _
Filename:="C:\Users\TsarakovRCh\Documents\Тестирование\Деффектная ведомость"
Application.DisplayAlerts = True
End Sub
Изменено: vikttur - 20.09.2021 10:05:37
 
Перейти    
Страницы: 1
Наверх