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

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

Доброго времени суток!  
 
Есть опция, активация и деактивация 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

Бодрый день, всем!  
"Сломал голову".  
Помогите пожалуйста.  
задача  
1.посчитать кол-во "Prefix" (есть)  
2.посчитать наиболее встречаемое "OPID" по отношению к "Prefix" (надо)  
3.посчитать наиболее встречаемое "Agency" по отношению к "Prefix" (надо)  
4.посчитать сумму "Premium" по отношению к "Agency" (надо)  
 
понятнее всё в файле  
 
пожалуйста, подскажите куда и как тыкаться  
(пробовал комбинировать Vlookup, max, countif)  
но не считает как надо  
заранее благодарен

Доброго времени суток всем!  
Ребята, собственно САБЖ в названии.  
Дело заключается в следующем:  
 
информация переносится в общюю ЦБД  
занесение оной ведётся разными людьми (на PC которых буква сетевого диска может отличаться. например то "U" то "S" то ещё х&%н знает какой)  
раньше приходилось править эту строчку  
Workbooks.Open Filename:="U:\Broker_Call_Evaluation_NON-FCEDI\BROKER_NON_FCEDI_CDB.xls"  
 
затем мне надоело и переделал вот в это  
Workbooks.Open Filename:=ComboBox12.Value & ":\Broker_Call_Evaluation_NON-FCEDI\BROKER_NON_FCEDI_CDB.xls"  
 
но и даже этого мало. Так как текучка возросла и прпорционально понизилась квалификация работников, постоянное забывание поменят букву диска на правильную прямо с "Front Page",  
дабы исключит выскакивание окошка об ошибке и переносе данных в нужный файл, натолкнуло на мысль:  
А нет ли какого-то способа вообще исключить ошибку и дать Excel-у самому найти нужный файл и перенести туда инфу?  
заранее понимаю что, если файлы будут дублированны на различных носителях, то может возникнуть другая проблема, в какой файл именно перенести инфу.  
 
тема не горящая, и задумана как дополнительное познание Excel возможностей.  
 
Заранее всем спасибо

Проверка макрорекордера в Excel  
всё в файле собственно

начну так,  
   
дорогие мама и папа, у меня всё хорошо...    
ой не туда понесло...    
 
дорогие форумчане, в результате анализа постов и информации в оных, пришёл к выводу, что на работе (planeta excel) нам приходится сталкиватся с ситуацией, когда прямым или косвенным образом наши посты изначально, либо в последствии ответов перерастают в оффтопы, которые ни коим образом не связанны с нашей "профессиональной" , "планетарной" деятельностью. И так-же беря во внимание случаи когда, модераторов просили создать место на форуме типа "курилки" или что-то вроде.    
В результате этого симбиоза, у меня родилась идея, выделить место на хосте под так скать "комнату отдыха" или "гостинной". И так появился очень простой сайт, чисто для тех, кого связала "планета".    
Милости просим!    
 
www.planetaofftop.ledrex.net    
 
Посмотрите, и дайте знать что вы думаете    
принимается всё, от критики до похвалы

Бодрый день всем!  
Увидев тему "Как скрестить ужа и ежа" решил переименовать, а то the_Prist <<<Видит и щаз грохнет>>>.  
В общем сталкивался с такой же проблемой, но решал её иначе, через "ж", но хотелось бы элегантнее.  
требуется подсчитывать количество "No" в ответах по каждому агенту, при вводе формулы =COUNTIF(B2:B22,"No"), подсчитывает все "No" до конца столбика, при применении =SUBTOTAL(3,L2:L22), подсчитывает количество непустых ячеек, вот и хотелось бы это всё соеденить и получить типа этого =SUBTOTAL(3,COUNTIF(B2:B22,"No")).  
Спасибо всем кто откликнется.  
 
"Размер моей благодарности не будет иметь границ. В разумных пределах."

Ситуация: ...то ли лыжи не едут...  
Почему результаты разнятся при разложении формулы на сегменты?  
может я что-то упустил?  
пример в файле

Всем привет!  
Причиной создания послужил риближающийся праздник и недавняя тема “слон красоты” в результате этог симбиоза получился данный файл.  
Надеюсь всем понравтся.  Особенно женской половине, по крайне мере дочка моя “писала кипятком” от происходящего на  экране, ей 1,7 г.  
 
P.S. делал на Excel 2000 EN работает превосходно как и задумывалось    
На Excel 2000 RU графики пропали, остались только данные  
На Excel 2003 графики отображались коряво и в неправильном цвете  
На Excel 2010 шло нормольно но огромными тормозами  
Если есть у кого желание, переделывайте и дополняйте как вздумается

Ребята, здравствуйте!  
На работе по ленности или по не знанию на разных машинах стоит отличающееся от заводских настроек разрешение монитора т. е. у кого 640x800 у кого 1024x768 у кого ...  
компы и мониторы все одинаковые у всех.  
 
Хотелось бы менять разрешение монитора для выполнения задачи, а потом вернуть предидущие настройки. (родное изображение есть 1280x1024)  
Что нужно прописать в VBA? Пробовал рекордером на всякий случай, но не вышло естественно.  
Спасибо.

Что-то тихо...  
Дабы поднять настроение и почувсвовать приближение в ыходных...  
 
Тут на днях перепалка была, и тема пошла о никах и аватарчиках. Думаю замутить историю своего ника.  
Давным-давно...  
Вобщем на родине работал я на шведскую компанию. Однажды наши “викинги” решили попробовать произнести фамилии и имена аборигенов, прикола для или смеха ради, не знаю. Дошла и мою фамилию (Хрящевский) называть. Пробуют. Я пытаясь помочь, предлагаю произнести по слогам, после мучений долгих , и попыток в итоге получается xa-xa-xa. Так что ник мой получается не икс-икс-икс, а 3 xa-xa.    
Какая жизнь, такие ники.  
Такие вот дела.  
 
Кто следующий?  
 
P.S. Аватарчик, сын мой. Под рукой фотка прикольная оказалась, вот пользую.

Доброго времени суток!  
Требуется: вставить "УФ" в ячейку если она непустая.  
Вопрос: что вставить вместо вопрoсительных знаков?  
 
Private Sub Worksheet_Change(ByVal target As Range)  
   Application.ScreenUpdating = False  
   Selection.FormatConditions.Delete  
   Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=IF(???????,1,)"  
   Selection.FormatConditions(1).Interior.ColorIndex = 15  
   ActiveWorkbook.RefreshAll  
End Sub  
 
Спасибо

Определение пользователя при открытии книги и обработке данных. НЕ ХЭЛП, предложение!!!  
 
Dobroe vremja sutok vsem zhiteljam i posetiteljam planeti. kakoe-to vremja nazad bilo obsuzhdenie temi po povodu opredelenija poljzovatelja pri otkritii knigi i obrabotke dannih. Samomu tozhe kogda-to nuzhna bila takaja 6tuka, i vot, nakonec svojal koe-4to. Vedj navernjaka stalkivalisj s takoj situaciej, kogda nado vvoditj dannie v bazu, a poljzovatelej mnogo, potom podi razberisj kto nakoseporil, i estj situacii kogda dannie mogut vnositj toljko lica uzkogo kruga. Vot e6e horo6o-bi dopisatj makros na zapret raspe4ativanija i kopirovanija dannih iz uzhe zapolnenoj bazi dannih.  
 
Uvazhaemie Excel guru ne sudite strogo esli na va6 vzgljad eto vigljadit korjavo, a esli budut predlozhenija i dorabotki, to milosti pro6u podelitesj so vsemi, uveren takoe mozhet mnogim prigoditjsja.