Просматривая темы, вспомнил про свой календарь, делюсь.

Не совсем то, но может тоже сгодится.

Нашёл "косяк". Поправил.

"Подправил (скоре переделал).  
Надеюсь, пользование принесёт радость. Осталось только победить перескакивание курсора во время редактирования, с середины слова в конец текста."

Ну вот я и дома.  
Предыстория: была когда-то на работе программка-переводчик Trans-lite (вроде правильно название) как раз с виртуальной клавиатурой, позже по вступлению новых правил компании, начали и удалять ВСЕ программки в том числе и бесплатные. Вообще к компьютеру не реально подключить что либо из накопителей или CD. Так и пропала моя последняя возможность печатать по русски. До этого случая была задумка сделать клавиатуру в Excel, но не было импульса к созданию, а теперь появился. Пока коряво сделал, но я же не один в нашей планетной команде, как грицца "лиха беда начало".  
P.S. из сайтов, доступна только "Планета", любая попытка установки программ без согласия менеджмента пресекается. Для настройки региональных параметров нужен доступ администратора. В общем обложили со всех сторон, легче по извращаться и создать маленькую, но полезную утилитку для таких как я.

Всем доброго времени суток.  
Как уже упоминал, лишился я своей виртуальной клавиатуры. Пришло время сворганить подобное в Екселе.  
Пpошу оценить и подмочь. Есть ли какие советы по улучшению, буду рад выслушать.  
Моё произведение конечно не предел мечтаний, но "на безрыбьи и сам раком станешь".

{quote}{login=The_Prist}{date=19.11.2010 03:08}{thema=}{post}Как бы поподробнее, чтоли надо...Т.е. форма в Excel? Вызвали. И хотите видеть её даже если Excel скрыт? Или как?{/post}{/quote}  
 
 
Да,  
1 вызываем Excel  
2 скрываем окно (Application.Visible = False)  
3 оставляем форму поверх окон, и так может быть несколько файлов  
 
типа (UserForm1.AlwaysOnTop = True)??? но такого же нет!

Добрый день всем!  
Kак сделать немодальную форму поверх всех окон, если возможно?  
Cпасибо.

применил дизайн, питон перестал бегать (ползать), не пойму в чем дело.

що со мной сегодня? :-O  
 
BOT!

P.S. пишу через "хухоль", "возможно вы имели ввиду..." =>

{quote}{login=Юрий М}{date=15.11.2010 01:41}{thema=}{post}Русский ирландец без русской клавиатуры с непонятным файлом: полный комплект :-){/post}{/quote}  
 
не то приложил (",)  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

BOT!  
 
 
 
P.S. лишили русской клавы :o(

Мимоходом...  
 
 
Прочитано в "правилах" на одном форуме:  
"1.4. РЕШЕНИЯ АДМИНИСТРАЦИИ ИМЕЮТ БОЛЬШУЮ СИЛУ, ЧЕМ БУКОВКИ НА ДАННОЙ СТРАНИЦЕ."

Всем, доброго!  
Всё работает отлично :o)  
Хотя из всего мне больше понравился комментарий ZVI...  
СПАСИБО!

Полагаю, пришло время для файла.  
Сам я "не догоняю"  
 
P.S. просьба не удалять файл, больше WinZip несжимает, а WinRar-а на работе нет.

Спасибо, перебор идёт отлично.  
Но так как я не понимаю что с этим делать дальше, оставлю как есть, по старинке.

Не смотря но то, что тема уже поднималась (http://www.planetaexcel.ru/forum.php?thread_id=13900&page_forum=1&allnum_forum=44), она до сих пор актуальна. Согласен с вами Excel-Ok, что <<<и это уже рассматривается как должное>>>, даже здесь у буржуев ситуация такая же, не смотря на размер и солидность компании, да ещё и кризес этот грё%^£#*. Вобщем только и делаю, что на этом не замарачиваюсь, а просто наслаждаюсь процессом производства новых ДБ и сопутствующих файлов.  
 
 
P.S. куда делся Микки, знает кто нибудь?

{quote}{login=Юрий М}{date=10.11.2010 02:51}{thema=}{post}Андрей, а КомбоБоксы из Форм или Элементов управления?{/post}{/quote}  
 
Да, из элементов управления.

{quote}{login=Юрий М}{date=10.11.2010 02:37}{thema=}{post}Привет, ирландец!  
А перебрать контролы циклом - не выход?{/post}{/quote}  
 
:o) РНМ, Ирландец...  
 
Юрий, шоб я знал как оно делается.

Доброго времени суток!  
 
Есть опция, активация и деактивация ComboBox-ов при выборе OptionButton.  
Можно ли уменьшить код, что-бы не прописывать каждый ComboBox?  
А то если ComboBox-ов 100 а не 6?  
 
есть  
 
Private Sub OptionButton1_Click()  
   Sheets("RepGen").ComboBox10.Enabled = False  
   Sheets("RepGen").ComboBox11.Enabled = False  
   Sheets("RepGen").ComboBox12.Enabled = False  
   Sheets("RepGen").ComboBox13.Enabled = False  
   Sheets("RepGen").ComboBox14.Enabled = False  
   Sheets("RepGen").ComboBox15.Enabled = False  
 
   Sheets("RepGen").ComboBox2.Enabled = True  
   Sheets("RepGen").ComboBox3.Enabled = True  
   Sheets("RepGen").ComboBox4.Enabled = True  
   Sheets("RepGen").ComboBox5.Enabled = True  
   Sheets("RepGen").ComboBox6.Enabled = True  
   Sheets("RepGen").ComboBox7.Enabled = True  
End Sub  
 
Private Sub OptionButton2_Click()  
   Sheets("RepGen").ComboBox10.Enabled = True  
   Sheets("RepGen").ComboBox11.Enabled = True  
   Sheets("RepGen").ComboBox12.Enabled = True  
   Sheets("RepGen").ComboBox13.Enabled = True  
   Sheets("RepGen").ComboBox14.Enabled = True  
   Sheets("RepGen").ComboBox15.Enabled = True  
 
   Sheets("RepGen").ComboBox2.Enabled = False  
   Sheets("RepGen").ComboBox3.Enabled = False  
   Sheets("RepGen").ComboBox4.Enabled = False  
   Sheets("RepGen").ComboBox5.Enabled = False  
   Sheets("RepGen").ComboBox6.Enabled = False  
   Sheets("RepGen").ComboBox7.Enabled = False  
End Sub  
 
 
 
надо    
 
Private Sub OptionButton1_Click()  
   Sheets("RepGen").ComboBox10 to ComboBox15.Enabled = False  
   Sheets("RepGen").ComboBox2 to ComboBox7.Enabled = True  
End Sub  
 
Private Sub OptionButton2_Click()  
   Sheets("RepGen").ComboBox10 to ComboBox15.Enabled = True  
   Sheets("RepGen").ComboBox2 to ComboBox7.Enabled = False  
End Sub

всё в файле...  
картинку можно удалить естессно  
и будет вам счастье :o)

Q:<<<Но ты видимо не так меня понял, мне надо чтобы не ручками время вводилось, а автоматом при дклике на ячейку.>>>  
A: оно и вводится по дклику (макросы разрешены?) по крайней мере, у меня и коллег работает :o)  
 
Q:<<<И как же аналогично блокировать след. слобци?>>>  
A: сделано  
 
Q:<<<Вот примером А1В1С1 они относятся к первому игровому столу, след. 3 столбца ко второму игровому столу, и там же соответсвтенно нужно будет тоже самое, время начала, время конца и результат!>>>  
A: сделано  
 
 
 
пароль на лист "123456"  
 
Alt+F11 заходим в VBA редактор  
находим  
ActiveSheet.Protect "123456": Exit Sub  
и  
ActiveSheet.Unprotect "123456": _  
меняем пароль на свой если надо

вот код, ставим в лист  
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
Application.DisplayAlerts = False  
 
If ActiveCell.Value = "" Then _  
ActiveSheet.Unprotect "123456": _  
Target = Time: _  
Cancel = True: _  
ActiveCell.Locked = True: _  
ActiveCell.FormulaHidden = True: _  
ActiveSheet.Protect "123456": Exit Sub  
 
If ActiveCell.Value <> "" Then _  
MsgBox ("HET!!!"), vbCritical, "STOP!!!": Exit Sub  
 
End Sub  
 
разрешаем макросы  
кликаемся по ячейкам :o)

доделал  
ввод разрешен только в пустые ячейки

{quote}{login=azaze}{date=09.11.2010 12:14}{thema=Re: }{post}{quote}{login=azaze}{date=09.11.2010 12:05}{thema=}{post}Спасибо большое за разяснение, но мне бы лучше указать как это сделать, так как не очень то разбираюсь в программе.{/post}{/quote}  
 
Точнее как сделать рецензирование? И нельзя ли по одному окончательно блокировать ячейку, или же весь столб что тоже к делу.{/post}{/quote}  
 
Так годится?

Поставте картинку догда в файл и закиньте на сайт.  
жжжжждёмс...

Всем, доброго!  
Что-то туплю сегодня, всё что сделал, это кнопку на анимацию прикрути, а ускоритель не идёт. Тут (http://www.planetaexcel.ru/forum.php?thread_id=13469) делал цветы    
(http://www.planetaexcel.ru/docs/forum_upload/post_99150.rar) , кто помнит, а сейчас немогу в'ехать как сделать часы с регулятором вращения стрелок. В общем пока всё, если допрёт сделаю остальное.  
Хороших выходных!

<<<То что хотелось бы получить выложил в картинке>>>  
 
???????????????????????????????????????????????????? :o)

на счёт справочных данных не сразу допёр что имелось в виду.  
вот ещё вариант.