» Excel VBA (часть 3)

Solenaja
Application.DisplayAlerts = False
Не помгает?

Drazhar
нет, не помогает

Solenaja
ThisWorkbook.CheckCompatibility = False
Может так?

Drazhar
сорри - работает!
просто Application.DisplayAlerts = False помещался после ActiveWorkbook.Close.
надо было поставить после Application.ScreenUpdating = False

Solenaja
ну вот и отлично)))

тогда ещё встречный вопрос, в результате этого проверка совместимости выполняется в фоне или нет?

Solenaja
наверное да. Точно не скажу- компания, в которой я работая д сих пор сидит на 2003 офисе и на 2007 переход не планируется

Drazhar
единственное меня смущает, что файлы на выходе в результате выполнения макроса в Excel 2003 получаются размером меньшим, чем когда это выполняется в 2007/2010

p.s. как бы 2010 мне больше нравится и работает заметно быстрее 2007

Цитата:

2010 мне больше нравится и работает заметно быстрее 2007

Если 2010 будет быстрее 2003, будет неплохо. О 2007-м этого, к сожалению, не скажешь.

Увеличение производительности в Excel 2010

Вопрос к знатокам. При наведении мышки на ячейку с примечанием спустя некоторое время это примечание становится видимым. А можно ли перехватить это действие. И, вообще, как отслеживать перемещение мышки в Excel 2003?

psiho

Цитата:

И, вообще, как отслеживать перемещение мышки в Excel 2003?

Скажем, по таймеру (реализуется с пом. функций API).

Нужно подправить vba скрипт в excel. При запуске выдаётся окошко с ошибкой: compile error
can't find project or library

http://slil.ru/29260456
Думаю, скорее всего, нужно правильно объявить переменную con_Window... А, горит!

ErrorEd88, у Вас код создания, обновления и удаление панели "Обучающая система" размещён в модуле класса.
Переместите весь код, связанный с этими операциями, в стандартный модуль.
Процедуры модуля вызывайте из процедур обработки событий книги Open и BeforeClose.

Народ, а как получить "видимое" количество строк?
Суть такая, есть 1000 записей, после применения автофильтра, стало отображатся 300 записей. Как получить значение, что видно на листе только 300 записей?
Пробовал и UsedRange.Rows.Count и Cells.Rows.Count - постоянно выдаёт общее количество записей(1000).

Спасибо, vlth, сейчас попробую...

Цитата:

Как получить значение, что видно на листе только 300 записей?

Код: x = UsedRange.Range("A1:A1000").SpecialCells(xlCellTypeVisible).Count

Здравствуйте! Помогите, пожалуйста, написать макрос такой, чтобы он проверял значения в предыдущих ячейках строки, и в зависимости от них вставлял нужную формулу в последнюю. Таблица наглядно выглядит так:

Заранее спасибо!)

pushInka,

Сформулируйте, что должно быть в последней ячейке?
На какое содержимое нужно проверять ячейки строки?

filemoto
Hugo121
Автофильтр не обязательно должен начинаться с 1-й строки листа. Если требуется получить именно количество отфильтрованных строк, то правильно так:

Код: If ActiveSheet.FilterMode Then x = ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlVisible).Count

vlth,


Цитата:

что должно быть в последней ячейке?

какая-нибудь сумма (например, 2+6, 7+9 и т.п.)

Цитата:

На какое содержимое нужно проверять ячейки строки?

на числа 1, 2, 3.

Да, pushInka не программист...
Сформулируйте тогда точно, какие 6 формул должны соответствоать 6-и комбинациям этих чисел. Попарно!

Хахах была бы я программистом, стала бы спрашивать?...
числа изменяются от 1го до 3х, следовательно комбинаций будет более 6ти
Как я вижу этот код:
a(i)-ячейка строки,
if a[1]=1, a[2]=1, a[3]=1 then a[4]=4+5
if a[1]=1, a[2]=1, a[3]=2 then a[4]=1+14
if a[1]=1, a[2]=1, a[3]=3 then a[4]=3+7
if a[1]=2, a[2]=1, a[3]=1 then a[4]=45+20
if a[1]=2, a[2]=1, a[3]=2 then a[4]=7+13
if a[1]=2, a[2]=1, a[3]=3 then a[4]=2+3
if a[1]=3, a[2]=1, a[3]=1 then a[4]=15+4
и т.д.
в a[4] вставляется формула, можете её заменить вообще числами любыми,
например так:
if a[1]=1, a[2]=1, a[3]=1 then a[4]=1
if a[1]=1, a[2]=1, a[3]=2 then a[4]=2
if a[1]=1, a[2]=1, a[3]=3 then a[4]=3
if a[1]=2, a[2]=1, a[3]=1 then a[4]=4
if a[1]=2, a[2]=1, a[3]=2 then a[4]=5
if a[1]=2, a[2]=1, a[3]=3 then a[4]=6
if a[1]=3, a[2]=1, a[3]=1 then a[4]=7
и т.д.
я вставлю потом то, что мне нужно.

ячейка отвечает за свою личную цифру, поэтому 1, 1, 2 не тоже самое что 1, 2, 1.

Да, что-то я сам тупанул, каких 6 вариантов, это же не варианты перестановки 3-х цифр... Сколько всего - не знаю, я комбинаторику не изучал... но вероятно много.
Что-то у Вас один пример с другим не совпадает - то строки, то столбцы. Ну да ладно, может так (по первому варианту, не все варианты ):


Код: Sub tt()
Select Case [a1] & [b1] & [c1]
Case 111
[d1].Formula = "=4+5"
Case 112
[d1].Formula = "=1+14"
Case 122
[d1].Formula = "=3+10"
Case Else
[d1].Formula = "X"
End Select
End Sub

Выполняется , но только для первой строки...
Case 111 - а как он работает, если вдруг в ячейке будет двузначное число?

хотя уже что-то))) спасибо, Hugo121, что помогаете мне!

Как это двузначное, Вы же сказали - "числа изменяются от 1го до 3х"
Вообще-то правильнее будет Case "111" - т.е. анализируется строка, составленная из значений трёх ячеек.

Так Вам надо проставить формулы по всем строкам с числами?
Осталось выяснить, сколько их будет, и это число поставить вместо 10:

Код: Option Explicit

Sub tt()
Dim i As Long
For i = 1 To 10
Select Case Cells(i, 1) & Cells(i, 2) & Cells(i, 3)
Case "111"
Cells(i, 4).Formula = "=4+5"
Case "112"
Cells(i, 4).Formula = "=1+14"
Case "122"
Cells(i, 4).Formula = "=3+10"
Case Else
Cells(i, 4).Formula = "X"
End Select
Next
End Sub

О, спасибо! Работает))) То, что нужно!
Большое спасибо!!

Гляньте в приват ( а то счас наговорим...)
Концепция поменялась (раз теперь уже работает ), можно без привата

Вот например - в зависимости от цифр в этих ячейках (но не от их сочетания) формируется формула. Может это надо?

Код: Sub tttt()
Dim i As Long
Dim t1 As String, t2 As String, t3 As String
On Error Resume Next
For i = 1 To 10
t1 = "": t2 = "": t3 = ""
Select Case Cells(i, 1)
Case "1"
t1 = "G1"
Case "2"
t1 = "G2"
Case "3"
t1 = "G3"
End Select

Select Case Cells(i, 2)
Case "1"
t2 = "H1"
Case "2"
t2 = "H2"
Case "3"
t2 = "H3"
End Select

Select Case Cells(i, 3)
Case "1"
t3 = "I1"
Case "2"
t3 = "I2"
Case "3"
t3 = "I3"
End Select

Cells(i, 4).Formula = "=" & t1 & "+" & t2 & "+" & t3

Next

End Sub

А не, мне нужно именно сочетание) как вы ранее писали код, но этот тоже можно где-нить приспособить
...посмотрите в привате письмо скинула

VBA. необходимо таблицу в Excel редактировать и просматривать через форму


Цитата:

На Рабочем листе создайте таблицу Справочник сотрудников с полями Табельный номер, Фамилия Имя Отчество, Год рождения, Образование, Дата приема на работу. Заполните таблицу (10 строк). На новом листе создайте ряд кнопок для работы с таблицей. Пользователь должен иметь возможность просматривать данные, перемещаться по записям, добавлять новые, удалять, редактировать и сохранять изменения, а также печатать в отформатированном виде выходной документ, содержащий список сотрудников, имеющих высшее образование. Для организации диалога воспользуйтесь листом диалога UserForm. При создании диалога учтите, что значение поля «Образование» выбирается из списка, а дата приема на работу совпадает с текущей датой. Разработайте процедуру печати списка всех сотрудников, конкретного сотрудника по Табельному номеру.

просмотрел кучу примеров, знаний не хватает...а сроки горят.//

помогите плиз


да мне бы сперва хотя бы понять, как данные из таблиы в форму загнать...дальше сам буду пробовать...просто у меня сейчас какой то затор возник...никак не могу найти решение ((

Цитата:

да мне бы сперва хотя бы понять, как данные из таблиы в форму загнать...дальше сам буду пробовать...просто у меня сейчас какой то затор возник...никак не могу найти решение ((

Заполняем комбобокс, аналогично и другое можно заполнить, аналогично по клику на кнопке или выбору из списка и т.д.:

Код: Private Sub UserForm_Initialize()
With Me.ComboBox1
.List = ActiveWorkbook.Sheets("Лист1").Range("A2:A" & _
Cells(Cells.Rows.Count, 1).End(xlUp).Row).Value
.ListIndex = 0 'отображает 1-й элемент в списке
End With
End Sub