Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
worksheetfunction.countif
 
#1
09.02.2009 13:55:06
помогите разобраться. с формулой =счётесли(А:А;1) я умею, а как записать программно
 
 
 
#2
09.02.2009 14:03:18
Не получается Вам файл отправить. Вставьте в модуль формы  
 
Private Sub CommandButton1_Click()  
Label1.Caption = Application.WorksheetFunction.CountIf(Range("A:A"), CDbl(ComboBox1.Value))  
End Sub
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
09.02.2009 14:13:13
{quote}{login=The_Prist}{date=09.02.2009 02:03}{thema=}{post}Не получается Вам файл отправить. Вставьте в модуль формы  
 
Private Sub CommandButton1_Click()  
Label1.Caption = Application.WorksheetFunction.CountIf(Range("A:A"), CDbl(ComboBox1.Value))  
End Sub{/post}{/quote}  
 
спасибо большое
 
 
 
#4
09.02.2009 14:42:06
Родился другой вопрос.  
а если комбококс равен 2007,2008,2009, то при выборе например 2007 нужно подсчитать все числа равные в конце ,07    
например 16,07
 
 
 
#5
09.02.2009 14:57:44
Неа, не получиться. Надо знать конкретное значение, количество которого Вы хотите подсчитать. Попробуйте задать в Вашем файле в функции Excel =СЧЁТЕСЛИ(А:А;1) в качестве критерия поиска ,07 и он выдаст Вам "0"
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#6
09.02.2009 15:05:37
а если так написать  
If UserForm1.ComboBox2 = 2007 Then  
UserForm1.Label27.Caption = WorksheetFunction.CountIf(Range("A:A"), "16,07")  
End If  
только не могу правильно написать и так для каждого
 
 
 
#7
09.02.2009 15:15:56
UserForm1.Label27.Caption = Application.WorksheetFunction.CountIf(Range("A:A"), CDbl("16,07"))  
 
вот так мож?
 
 
 
#8
09.02.2009 15:33:37
вот другой вопрос посложнее  
Надо подсчитать при выборе в комбобокс например 2007 количество значений оканчивающихся на ,07 и вставить их в лист бокс по порядку начиная с наименьшего  
спасибо
 
 
 
#9
09.02.2009 15:34:19
забыл
 
 
 
#10
09.02.2009 17:40:38
помогите ребят,если не затруднит. сам не могу
 
 
 
#11
09.02.2009 18:34:49
У меня похожая ситуация была. Попробуйте вот так:  
if combobox1 = 2007 then  
UserForm1.ListBox2.AddItem Application.WorksheetFunction.CountIf(Range("A:A"), CDbl("16,07"))  
 
только наверно придётся для каждого писать т.е 18,07  19,07 и т.д.
 
 
 
#12
09.02.2009 18:41:02
Точно, спасибо Рустам, а я башку ломаю    
именно то что надо
 
 
 
Страницы: 1
Читают тему
Наверх