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

Страницы: 1
Текст ячейки не центрируется по горизонтали
 
#
19.06.2013 12:50:28
Здравствуйте,проблема следующая : текст ячейки не центрируется по горизонтали. При этом никакой ошибки не возникает, по вертикали все центрируется.. В чем может быть ошибка? Код :

Код
Sub ВыравниваниеАкта()

Dim MyCell As Range
Set MyCell = Range("A6:N12"  ;)  
With MyCell.Font
 .Name = "Times New Roman"
 .Size = 14
 .Bold = True
End With

With MyCell.HorizontalAlignment = xlCenter
 MyCell.VerticalAlignment = xlCenter
End With

End Sub
 
Перейти    
Добавление строки, если ячейка не пустая
 
#
15.05.2013 08:56:27
Здравствуйте, необходимо, чтобы добавлялась строка, при заполнении одной из двух ячеек (определенных столбцов) предыдущей строки. Более детальное описание во вложении. Пытался обойтись созданием списка, не подходит..Заранее спасибо.
Изменено: Alex3004 - 15.05.2013 10:16:01
 
Перейти    
Ввод текста в ячейку -> поиск ячейки с этим текстом в другом листе -> копия строки
 
#
30.05.2012 09:20:22
Добрый день. Прошу помочь с макросом, необходимо следующее :  
 
1. Нужно, чтобы при внесении текста в ячейку (заданного столбца), проверялся диапазон по заданному столцу (на другом листе / файле). При нахождении введенного текста - копировалась строка (диапазон столцов задан) найденной ячейки с листа2 в лист1.  
Фактически работать должно так : При заполнении столбца B (ввода номера заказа) (лист Акт готовой продукции), копировалась строка с этим номером заказа с листа прочая продукция (столбцы B-G) в ячейки листа Акт готовой продукции (столбцы A-F).  
Аналогично с листом "Заказы СТО"  
 
2. Объясню сразу на примере при вводе цифры в колонку К (Итого/ Факт ; лист График изг-я запчастей) ищется в листе Заказы СТО заказ с соответствующим номером и автоматически проставляется введенная цифра в столбец O.  
 
Возможно ли такое реализовать? Заранее спасибо.
 
Перейти    
Автоматическое добавление текущей даты в ячейку
 
#
29.05.2012 17:50:09
Добрый день. Подскажите, пожалуйста, как подредактировать макрос, чтобы при повторном изменении ячеек C и D дата не менялась. Т.е. дата фиксировалась только при первом внесении текста в ячейки C и D. Заранее спасибо.  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
Dim cc As Range  
Application.ScreenUpdating = False  
Application.EnableEvents = False  
 
For Each cc In Target  
If Not Intersect(cc, Range("C2:C5000")) Is Nothing Then  
With cc(1, 0)  
.Value = IIf(Trim(cc) = "", "", Now)  
End With  
End If  
Next  
 
For Each cc In Target  
If Not Intersect(cc, Range("D2:D5000")) Is Nothing Then  
With cc(1, 2)  
.Value = IIf(Trim(cc) = "", "", Now)  
 
End With  
End If  
Next  
 
Application.EnableEvents = True  
Application.ScreenUpdating = True  
 
End Sub
 
Перейти    
Страницы: 1
Наверх