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

Страницы: 1
Текст с переносом строки в ячейке
 
#
20.04.2020 21:13:29
Здравствуйте!
В ячейке три строки (с переносом через Alt+Enter), как сделать так чтобы при этом отображалась только одна (первая) строчка ячейки?
Просто у меня строк в таблице много и в каждой есть такая ячейка, таблица растягивается не слабо.
Понимаю что можно перетянуть нижнюю грань строки.
Есть ли способ сделать это сразу на всю колонку с такими ячейками?
 
Перейти    
Срабатывание макроса по событию изменения в ячейке
 
#
11.03.2020 22:10:09
Помогите написать макрос, чтобы при добавлении в колонку новой ячейки (т.е. внесения в нее каких-либо данных) в другой ячейке этой же строки выводился актуальный год, который не будет обновляться в будущем.
 
Перейти    
Копирование значений из одной книги в другую (VBA)
 
#
02.10.2019 22:05:20
Помогите, весь день насмарку, нужно вставить значения определенных колонок из Книги1 (формат xlsm) в Книгу2 (формат xlsx).
При том, что Книга1 уже открыта, а Книга2 открывается макросом и после вставки значений сразу сохраняется и закрывается, а этот макрос должен запускаться при сохранении Книги1.
Вот какой код у меня получился, но что-то в нём не так. Помогите подкорректировать.

Код
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Kniga As String
Dim ITK, IOK As String
'Путь открываемой книги
Kniga = "C:\Users\Online\Documents\Мои источники данных\Книга2.xlsx"
'ITK - имя текущей книги
ITK = ThisWorkbook.Name
'IOK - имя открываемой книги
IOK = Dir(Kniga)
GetObject (Kniga)
'После равно, то что вставляется
Workbooks(IOK).Worksheets("Лист1").Range("A:A") = Workbooks(ITK).Worksheets("Лист1").Range("A:A").Value
Workbooks(IOK).Worksheets("Лист1").Range("B:B") = Workbooks(ITK).Worksheets("Лист1").Range("C:C").Value
Workbooks(IOK).Worksheets("Лист1").Range("C:C") = Workbooks(ITK).Worksheets("Лист1").Range("E:E").Value
Workbooks(IOK).Worksheets("Лист1").Range("C1") = "Ягоды"
Workbooks(IOK).Worksheets("Лист1").Range("D:D") = Workbooks(ITK).Worksheets("Лист1").Range("G:G").Value
Workbooks(ITK).Close (True)
End Sub
Изменено: Obelisk - 02.10.2019 22:25:52
 
Перейти    
Вставить в умную таблицу столбец и с помощью макроса перенести данные в заданную ячейку.
 
#
13.07.2017 21:30:08
Помогите пожалуйста одолеть макрос, че я с ним только не делал.
Сейчас все работает, но у меня следующая задача:
Вставить в умную таблицу на Листе2 между Столбцом1 и Столбцом3 Столбец2 (на листе он есть), за тем ввести в ячейку на Листе1 номер строки указанной таблицы и чтобы данные со вставленного столбца вернулись в ячейку на Листе3 (между данными из Столбца1 и Столбца3).
Условие: не менять номера "Столбца1" и "Столбца3" в макросе или их имена (если нужно именовать).
Пожалуйста ознакомьтесь с приложенным файлом.
Изменено: Obelisk - 13.07.2017 23:49:45
 
Перейти    
Ячейка – включатель
 
#
13.07.2017 08:38:54
Здравствуйте.
Как сделать так, чтобы ячейка работала как включатель, не применяя флажки и пр.? (см. вложение)
 
Перейти    
Выпадающие переключатели
 
#
11.07.2017 12:06:10

Помогите сделать выпадающие переключатели, не важно какие переключатели будут использоваться (формы, ActiveX или UserForm) главное, чтобы они выпадали и скрывались цивилизованно (независимо от строк), а не так, как в моем примере ниже (но смысл такой).
 
Перейти    
Возвращение в ячейку данные из таблицы с условием.
 
#
06.07.2017 11:31:25

Макрос возвращает в ячейку данные из таблицы (в ячейку D4 с разрывом строки).

Код
Sub vvv()
tabl = Sheets("Лист2").Range("A2:E" & Sheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row).Value
n = InputBox("в таблице количество строк - " & UBound(tabl) & ", какая строка Вас интересует?", "ВЫБОР СТРОКИ ТАБЛИЦЫ", 1)
If n = "" Then Exit Sub
If n > UBound(tabl) Or n < 1 Then Exit Sub
With Sheets("Лист1")
  .Range("D4") = "Товар приобретался в магазине " & tabl(n, 2) & IIf(tabl(n, 3) = "", "", Chr(10) & " по адресу: " & tabl(n, 3))
  .Range("D5") = "Денежные средства в размере " & IIf(tabl(n, 4) = "", "", Format(tabl(n, 4), "#,##0.00 руб.")) & " были уплачены " & tabl(n, 5)
End With
End Sub

Как нужно изменить код, чтоб:

1. данные из таблицы возвращались с тем форматом, что в таблице (форматом шрифта полужирный или обычный).

Или если изначально ячейка, в которую возвращаются данные выделена полужирным, то после добавления в нее данных, выделение снималось бы с тех данных, что после разрыва. Или наоборот, если изначально ячейка имеет обычный формат, то все что до разрыва выделялось бы. Без разницы. Только не путем отсчета количества символов.

2. выбор строки таблицы осуществлялся бы в ячейке E1, а не путем InputBox.
 
Перейти    
Проблема при печати листа А4
 
#
04.07.2017 14:44:12

Какие параметры разметки страницы нужно выставить, чтобы при печати не оставалось пустое пространство (размером в столбец) между текстом и правым полем? Это хорошо видно, если, находясь в окне печати включить в нижнем правом углу функцию "показать поля".
 
Перейти    
Назойливая ошибка: Run-time error '1004': Method 'Range' of object '_Global' failed
 
#
30.06.2017 08:59:27

Помогите разобраться.

При попытке выполнить Макрос1 выскакивает указанная ошибка, однако до сегодняшнего дня код уверенно работал. Что не так?

Прошу ознакомиться с файлом.
 
Перейти    
Подставить значения из таблицы в определенное место ячейки с помощью макроса
 
#
28.06.2017 09:41:56
Здравствуйте.
Имеется две ячейки с определенным текстом (Лист1) и форматированная таблица (Лист2), нужен макрос, который будет подставлять значения из указанной таблицы в определенное место ячейки, при этом должна быть возможность выбора номера строки таблицы из которой будут браться значения, типа как здесь. Это все напоминает функцию слияния Excel и Word. Если много требую, то хотя бы скажите реально это или нет и где копать.
 
Перейти    
Отслеживание макросом изменений связанных с ним значений и автоматическая корректировка кода.
 
#
21.06.2017 22:29:16
Помогите разобраться.
Можно ли и как сделать так, чтобы при перемещении значений (G12, G13 и H12) ниже (на строку 14 и 15 соответственно) макрос продолжал бы работать в новых ячейках (а не в старых), не меняя при этом в ручную координаты ячеек в макросе?
 
Перейти    
[ Закрыто] Макрос
 
#
21.06.2017 20:49:11
Помогите разобраться.

Есть такие макросы:
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Target.Address = "$G$12" Then: Call Module2.Макрос5
    If Target.Address = "$G$13" Then: Call Module2.Макрос6

End Sub
Код
Sub Макрос5()
   
    [H12].Value = "Пример"
    
End Sub
Код
Sub Макрос6()
   
    [H12].Value = "Ответ"
    
End Sub

Можно ли и как сделать так, чтобы при перемещении значений на другую строку макрос продолжал работать в новых ячейках (а не в старых), не меняя при этом в ручную координат ячеек в макросе?  
Изменено: Obelisk - 21.06.2017 20:55:37
 
Перейти    
Страницы: 1
Loading...