» Excel VBA (часть 3)

maa78s
Можно обновляемый лист не редактировать, а добавить новый лист и на нем формулы, связанные с листом данных.

maa78s
Понял. 1.- заполнять макросом столбец формул

Код:
Sub FillFormulas()
Range("A1:A500").Value2 = "=ВПР(Result_List!A1,Data_List!$A$1:$B$500,2)"
End Sub

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

miwa 23:21 06-05-2014
Цитата:

Но это, имхо, уже перебор. При таких требованиях, кмк, надо переходить на аксес.

Можно попробовать и написать супер макрос на кнопку, в такой задаче не обязателен Access.

SkyRE
И что будет делать супер-макрос? Восстанавливать удаленные файлы?

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

Если контроль доступа не нужен и вариант "ничего не делать при исчезновении вшнешных источников данных" подходит - тогда дальше используем ексель.

Как-то так.

miwa 01:45 07-05-2014
Цитата:

И что будет делать супер-макрос? Восстанавливать удаленные файлы?

Нажал кнопку, выдало диалог выбора директории, выбрал испытуемого, макрос пропарсил тест*.xls и занёс в таблицу результаты.

Добавлено:
Как-то так.

SkyRE
Нафига что-то парсить, если в формулах уже прописано что где брать?

miwa 15:24 07-05-2014
Цитата:

Нафига что-то парсить, если в формулах уже прописано что где брать?

Что бы не было потом:Fsp050 20:59 06-05-2014
Цитата:

А если потом этот тест1 будет удалён? его значения с главного экселя не пропадут? Можно их закреплять вне зависимости от того есть ли исходный фаил или нет.

SkyRE
А, тоесть имеется в виду вместо формул сразу значения из указанного файла макросом дергать?

Что-то не нравится мне такое решение. Тоесть, оно будет вполне себе рабочее, но как-то "не по екселевски". Тем более, что таким образом мы просто продублируем стандартный функционал.

Тем не менее, у Fsp050 есть уже два решения его проблемы; ему выбирать.

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

Доброе время суток andrewkard1980
Вставьте DoEvents где-нибудь в цикле обработки, тогда можно будет прервать работу макроса, используя Ctrl+Break

AndVGri
Например так?

Код:
For i=1 to 100000
if i=1 then
DoEvents
end if
Next i

andrewkard1980
Нет, так:

For i=1 to 100000
....
DoEvents

Next i

Подскажите как реализовать задачку - есть ведомость в ней столбики Фамилия и Имя (причем один и тот же человек может повторяться несколько раз подряд) Нужно пробежаться по столбцам отловить возможных однофамильцев. Если они есть - подсветить их и дать меседжбокс "Найдены однофамильцы" Наличие полных тезок исключим.

JekG
.http://www.planetaexcel.ru/techniques/14/69/

Vitus_Bering
А если макросом?

JekG, автозапись предлагает следующий код:

Код: Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False

Здравствуйте!
Нужно удалить дубли в списке. Но есть нюанс.
Если в одной ячейке указаны данные "Коля", в другой "Коля 1",
то 1-ую (или 2-ю) ячейку нужно удалить. Лучше удалить сразу всю строчку с подобным дублем.

Очень не хочется удалять вручную...

Код: Sub DelAllClones(R as Range)
Dim C, F as Range
For Each C in R.Cells
Set F = R.Find(C, lookat:=xlpart)
While Not F = Nothing
F.ClearContents
Set F = R.FindNext
Wend
Next C
End Sub

[more] [more] Как нарисовать на форме линию по координатам для офиса 2010?

Миллионом постов выше подобный вопрос обсуждался. был найден следующий код:

Цитата:

Код:
Option Explicit
Private Declare Function FindWindow Lib
"user32.dll" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal
lpWindowName As String) As Long
Private Declare Function dwMoveTo Lib "gdi32"
Alias "MoveToEx" _
(ByVal hdc As Long, ByVal x As Long, ByVal y
As Long, _
ByVal lpPoint As Long) As Long
Private Declare Function dwLineTo Lib "gdi32"
Alias "LineTo" _
(ByVal hdc As Long, ByVal x As Integer, ByVal
y As Integer) As Long
Private Declare Function dwGetDC Lib "user32"
Alias "GetDC" _
(ByVal hWnd As Long) As Long
Private Function Draw()
Dim hForm As Long, hdc As Long
hForm = FindWindow("ThunderDFrame",
Me.Caption)
hdc = dwGetDC(hForm)
Call dwMoveTo(hdc, 10, 40, 0)
Call dwLineTo(hdc, 150, 100)
End Function
Private Sub UserForm_Click()
Draw
End Sub
Программка рисует на форме VBA Excel линию
с координатами точек (10, 40) и (150, 100)
после щелчка мыши по панели формы.

проблема в том, что это для версий 2003 и 2007, а в 2010 программа ругается на библиотеки. что изменить в коде, подскажите?

[/more] [/more]

Ringo500
Ошибку какую выдает? Что именно не работает? Справку пробовали читать?
дай угадаю, офис x64 стоит. правильно?

ругается на "user32.dll"
и да - 64

Цитата:

и да - 64

Сам макрософт не рекомендует использовать 64х битный офис, сразу переставляйте на 32х битный и проверяйте, будут ли проблемы.

офис рабочий, не я решаю. по другому никак?

Цитата:

по другому никак

Почему никак, можно.
Если офис не переставить, нужно пытаться правильно задекларировать функцию FindWindow для Вашей версии офиса

я же и говорю, справку читали, не? Public Declare PtrSafe ...

Цитата:

нужно пытаться
правильно задекларировать функцию
FindWindow для Вашей версии офиса

мне бы по простецки, какой код набрать, чтобы заработало.
слова типа Public Declare PtrSafe меня пугают, я даже не знаю где это смотреть.
Офис 2010, видна 7, 64 разряда.
как я понимаю в предыдущем варианте была ссылка на "user32.dll", а в семерке этого файла нет. что взамен него прописать?

излазил справочную офиса 2010 - нет там ничего, есть только упоминание, что иные VBA не пойдут и их придется корректировать вручную, а в чём смысл корректировки - нет.
как все-таки надо "правильно задекларировать функцию FindWindow " для офиса 2010 на 64 разряда никто не в курсе?

Ringo500
Скачайте, да используйте.
Удачи.

Доброго времени суток, уважаемые коллеги программисты.
Подскажите, плиз, как сделать выполнение части макроса по условию?
Т.е. при запуске макроса пользователю выскакивает сообщение типа "Сделать подробную проверку? Yes/No". При нажатии "Yes" внутри макроса запускается цикл в дополнительной проверке.
У меня в программе это представлено как проверка включая группу Administrator:


Код: 'Administrator output file'
SysFile = ThisWorkbook.Path & "\Administrator_grants.sql"
...
'Administrator File descriptor
Adm_fnum = FreeFile()
Open SysFile For Output As Adm_fnum
...
'Administrator group (100)
If (4) < 16384 Then
If sht.Columns(4).Cells(1) <> "" Then
Print #Adm_fnum, "-- " & sht.Columns(4).Cells(1) & " grants section"
End If
End If

If (3 + grantsNumberOT) <= 16384 Then
For i = 4 To maxSupportOT
If sht.Columns(3 + grantsNumberOT).Cells(i) <> "" Then
Print #Adm_fnum, sht.Columns(3 + grantsNumberOT).Cells(i)
Print #Adm_fnum, ""
End If
Next i
End If
...
Close #Adm_fnum