Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Определенная высота и ширина ячейки
 
#1
17.07.2008 15:28:57
Здравствуйте.  
Подскажите пожалуйста как   задать макросом  определенную высоту и ширину ячейки
 
 
 
#2
17.07.2008 15:42:33
не ячейки, а строки... и столбца - кому чего - думайте сами :)
 
 
 
#3
18.07.2008 10:29:28
{quote}{login=слэн}{date=17.07.2008 03:42}{thema=}{post}не ячейки, а строки... и столбца - кому чего - думайте сами :){/post}{/quote}  
 
Вот решение от самого себя.  
Sub Проба()  
' Макрос3  
 
   Columns("B:B").ColumnWidth = 25  
   Rows("8:8").RowHeight = 30  
End Sub  
 
 
Спасибо уходит ...мне :-D
 
 
 
#4
18.07.2008 10:33:58
...Хочу признаться:   Мукиф и Verba это одно лицо, ну это как ЗЫ.и PS. когда вовремя не успеваешь переключить раскладку на клаве.  
Извините за Oftop.
 
 
 
#5
18.07.2008 11:07:14
Мукиф Вам больше идет :)
 
 
 
#6
18.07.2008 12:35:25
вот новая задача для любителей Муки'тфорчества:  
 
найти слова, кот имеют определенный смsсл(хотел написать смысл, но и так здорово получилось :)) в обоих (разных)раскладках клавиатуры.
 
 
 
#7
18.07.2008 12:56:47
Да уж точно Муки'тФорчества.  
Еще пару месяцев назад меня хватала максимум на А+В=С,  
А ща (при помощи форумчан)  такие таблицы  на VBA ваяю,  
Еще раз спасибо
 
 
 
#8
18.07.2008 13:00:12
{quote}{login=слэн}{date=18.07.2008 12:35}{thema=}{post}вот новая задача для любителей Муки'тфорчества:  
 
найти слова, кот имеют определенный смsсл(хотел написать смысл, но и так здорово получилось :)) в обоих (разных)раскладках клавиатуры.{/post}{/quote}ПятницО, однако.  
Первый вариант (здесь знают все): МИФ - VBA
 
 
 
#9
18.07.2008 15:25:52
это не наш метод :)(метод тыка)  
 
даешь науку - метод научного тыка - макросом их, макросом!
 
 
 
#10
18.07.2008 19:30:17
Помогите с макросом.  
Нужно сделать  в книге, запрет на добавление строк и колонок
 
 
 
#11
18.07.2008 20:24:39
Verba. нужно как-то определиться: сначала вопрос как задать ширину столбца и высоту строки, а оказывается теперь, что нужно запрет на добавление. Считай ты попал к Игорю на крючок.
 
 
 
#12
18.07.2008 20:27:51
{quote}{login=L&M}{date=18.07.2008 08:24}{thema=}{post}Verba. нужно как-то определиться: сначала вопрос как задать ширину столбца и высоту строки, а оказывается теперь, что нужно запрет на добавление. Считай ты попал к Игорю на крючок.{/post}{/quote}  
Дак с добавлением  я уже решил , а теперь мне нужно сделать запрет на добавление строк и столбцов  
Помогите!)
 
 
 
#13
18.07.2008 21:55:50
Ага, а потом запрет на удаление. А потом...  
История продолжается.
 
 
 
#14
18.07.2008 22:01:34
А что - запрет на добавление при помощи защиты листа не работает?
 
 
 
#15
18.07.2008 22:07:31
Мне нужно все разрешить, запретить только добавление,так наверное не получится при помощи защиты листа
 
 
 
#16
18.07.2008 22:10:43
Гляньте список чего можно разрещить/запретить при защите листа.
 
 
 
#17
22.07.2008 12:37:25
Вот решение от ShPalich на запрет добавления строк и колонок  
Sub Защитить_Лист()  
 
On Error Resume Next  
If Имя_Листа = "" Then Имя_Листа = ActiveWorkbook.ActiveSheet.Name ' Если не указали имя листа  
 
With ActiveWorkbook.Sheets(Имя_Листа)  
   'Сама процедура защиты  
   'Запрещаем только вставку / удаление строк и столбцов  
   .Protect DrawingObjects:=False, _  
   Contents:=True, _  
   Scenarios:=False, _  
   AllowFormattingCells:=True, _  
   AllowFormattingColumns:=True, _  
   AllowFormattingRows:=True, _  
   AllowInsertingHyperlinks:=True, _  
   AllowSorting:=True, _  
   AllowFiltering:=True, _  
   AllowUsingPivotTables:=True  
     
End With  
 
End Sub  
 
Sub Снять_Защиту_Листа()  
 
On Error Resume Next  
If Имя_Листа = "" Then Имя_Листа = ActiveWorkbook.ActiveSheet.Name ' Если не указали имя листа  
ActiveWorkbook.Sheets(Имя_Листа).Unprotect  
 
End Sub
 
 
 
Страницы: 1
Читают тему
Loading...