Спасибо большое!

Ребята! Все-таки без вашей помощи - никак!  
Вот, к примеру, у МСН код замечательный и все работает, а на форму в лейблы как эти самые случайные числа передать?

Нашел. Спасибо. Попробую разобраться.

По-моему там совсем не о том: Как по номеру столбца букву определить.  
Посмотрел другие темы - тоже не понял - комментариев к кодам нет, поэтому непосвященному многое не понятно.

Всем доброго времени суток! Всех дам с праздником!  
Вопрос такой: есть форма и на ней 25 лейблов, которые заполняются случайными числами от 1 до 25. Как сделать чтобы числа не повторялись?

Нужно обработать событие SelectionChange.Оно возникает при изменении выделения на рабочем листе. Делается, если мне не изменяет память, это так:  
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
   If Not Intersect(Target, Range("A1")) Is Nothing Then UserForm1.Show  
         
End Sub

Может как-то так?

{quote}{login=}{date=18.12.2011 05:26}{thema=Re: Re: }{post}можно и надписи менять))) только как? я дальше базовых формул Excel не знаю, VBA только началь осваивать благодаря вашему форуму)){/post}{/quote}  
 
Рюшечки конечно.

{quote}{login=FOX}{date=18.12.2011 03:15}{thema=}{post}Да, интересуют)) Скинул 2010г не подумав)){/post}{/quote}  
 
Может так?

{quote}{login=EducatedFool}{date=17.12.2011 02:33}{thema=}{post}Если необязательно на форме, а можно и на листе, то посмотрите это:  
http://excelvba.ru/programmes/StopWatch{/post}{/quote}  
Можно вот так:

{quote}{login=tanyazitv}{date=14.12.2011 04:26}{thema=}{post}там довольно странный код  
 
Private Sub Calendar1_Click()    
    ActiveCell = Calendar1.Value    
    ActiveCell.NumberFormat="dd/mm/yy"    
End Sub    
 
Private Sub UserForm_Activate()    
    Me.Calendar1.Value = Date    
End Sub  
 
Sub ShowCalendar()    
    UserForm1.Show    
End Sub    
 
 
 
Хотя названия формы Calendar1 нет в примере, а коде есть...{/post}{/quote}  
 
Calendar1 - это компонент из ToolBox, который Вы помещаете на форму UserForm1

{quote}{login=Юрий М}{date=09.12.2011 08:08}{thema=}{post}А зачем нажимать? Главное, чтобы красиво было, современно :-){/post}{/quote}  
 
Смешно, конечно!И как-то издевательски!

{quote}{login=alpalmar}{date=09.12.2011 06:06}{thema=Re: Re: Re: Re: }{post}{quote}{login=}{date=06.12.2011 08:15}{thema=Re: Re: Re: }{post}{quote}{login=EducatedFool}{date=06.12.2011 06:41}{thema=Re: Re: }{post}{quote}{login=alpalmar}{date=06.12.2011 06:24}{thema=Re: }{post} А если кнопка на листе (Shape)? Как сделать, чтоб она подсвечивалась при наведении на нее курсора? Может кто помочь?{/post}{/quote}  
 
В этом вам могут помочь Гугл с Яндексом:  
 
http://www.programmersforum.ru/showthread.php?t=136760  
http://www.programmersforum.ru/showthread.php?t=31773  
 
С подсвечиванием кнопки как-бы все понятно, а как теперь на нее нажать-то?! Lebel не дает!  
 
А вот в этой теме и пример мой есть, с прозрачным Label поверх кнопок:  
http://www.programmersforum.ru/showthread.php?t=72855{/post}{/quote}  
 
Спасибо. Попробуем разобраться.{/post}{/quote}{/post}{/quote}  
 
С подсвечиванием кнопки как-бы все понятно, а как теперь на нее нажать-то?! Label не дает!

{quote}{login=}{date=06.12.2011 08:15}{thema=Re: Re: Re: }{post}{quote}{login=EducatedFool}{date=06.12.2011 06:41}{thema=Re: Re: }{post}{quote}{login=alpalmar}{date=06.12.2011 06:24}{thema=Re: }{post} А если кнопка на листе (Shape)? Как сделать, чтоб она подсвечивалась при наведении на нее курсора? Может кто помочь?{/post}{/quote}  
 
В этом вам могут помочь Гугл с Яндексом:  
 
http://www.programmersforum.ru/showthread.php?t=136760  
http://www.programmersforum.ru/showthread.php?t=31773  
 
С подсвечиванием кнопки как-бы все понятно, а как теперь на нее нажать-то?! Lebel не дает!  
 
А вот в этой теме и пример мой есть, с прозрачным Label поверх кнопок:  
http://www.programmersforum.ru/showthread.php?t=72855{/post}{/quote}  
 
Спасибо. Попробуем разобраться.{/post}{/quote}

{quote}{login=слэн}{date=05.12.2011 11:59}{thema=}{post}в 2007м появилось свойство glow{/post}{/quote}  
 
Тут вопрос вот в чем: если кнопка на форме, то тогда все понятно - там есть событие MouseMove. А если кнопка на листе (Shape)? Как сделать, чтоб она подсвечивалась при наведении на нее курсора? Может кто помочь?

{quote}{login=Юрий М}{date=04.12.2011 04:12}{thema=}{post}Зачем Вам эти рюшечки? Главное, чтобы код корректно работал... Вот подобный вопрос: http://www.planetaexcel.ru/forum.php?thread_id=9144{/post}{/quote}  
 
Интересно поковыряться. Было бы здорово еслиб кнопка подсвечивалась. В примерах не то - там просто цвет кнопки меняется.

{quote}{login=The_Prist}{date=04.12.2011 01:42}{thema=}{post}<EM>http://www.excel-vba.ru/chto-umeet-excel/kak-sozdat-knopku-dlya-vyzova-makrosa-na-liste/</EM>{/post}{/quote}  
 
А можно продолжить? Кнопку сделал. А можно сделать так, что когда наводишь на кнопку курсор она бы подсвечивалась ( есть там такой эффект). Вот я попробовал макрос записать и посмотреть что там в коде - а там НИЧЕГО! Не хочет!

{quote}{login=Юрий М}{date=22.10.2011 05:07}{thema=}{post}vbWhite - белая Заливка. А "Нет заливки" и "белая" - разные вещи :-){/post}{/quote}  
 
Тогда вот так:  
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)  
   If [A2].Value <= 0 Then
       [A1].Interior.Color = vbRed
   Else  
       [A1].Interior.Pattern = xlNone
   End If  
End Sub

{quote}{login=Hugo}{date=26.08.2011 05:57}{thema=}{post}Не заработало из модуля листа и из модуля книги.  
Но прекрасно работает из стандартного модуля.{/post}{/quote}  
 
 
Спасибо! Разобрался.

Всем доброго времени суток!  В"Копилке идей" нашел такую "штуку" - часы в ячейке:  
Sub UpdateTime()  
  Dim varNextCall As Variant  
  ' Записываем в ячейку текущее время  
  Cells(1, 1).Value = Now  
  ' Записываем в varNextCall время, когда вызвать этот макрос _  
   в следующий раз (через 1 секунду)  
  varNextCall = TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)  
  ' Уведомляем Excel в необходимости вызова макроса  
  Application.OnTime varNextCall, "UpdateTime"  
End Sub  
НЕ РАБОТАЕТ! Говорит ошибка438, объект не поддерживает свойство или метод. Объясните в чем дело, пожалуйста!

И мне урок, если не трудно! alpalmar@mail.ru  
Спасибо!

Спасибо, всем, кто откликнулся!

Вопрос снят, сообразил: сделал через форматирование "все форматы" ---> ДДДД.

Всем привет! Вопрос: Функция ДЕНЬНЕД возвращает число от1 до 7, соответствующее номеру дня недели. А как сделать чтобы в ячейке было не число а название дня недели?

{quote}{login=ikki}{date=28.05.2011 04:19}{thema=}{post}а зачем вам её выделять?  
так и пишите:  
a=[a1].value{/post}{/quote}
Действительно, зачем?! Не сообразил. Все работает. Спасибо!

Всем привет! Вопрос такой: обращаюсь к ячейке так Range("A1").Select. Дальше a =Selection.Value. А как обратиться к объединенной ячейке? Выдает ошибку Type mismatch.