Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Olelucoye
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
VBA - подбор значения по условию
 
#
16.11.2013 23:47:39
Если я Вас правильно понял, то вот
Только в столбце 4 формулу какую нужно напишите
 
Перейти    
Перемещение в первую свободную строку (только значениями)
 
#
16.11.2013 23:07:53
Или так. Открываете файл 2 и нажимаете кнопку "Обновить".
 
Перейти    
Автоматическая смена раскладки клавиатуры на английскую при открытии файла.
 
#
15.11.2013 22:50:53
На блюдце
Код
Private Declare Function ActivateKeyboardLayout _
                           Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Private Sub Workbook_Open()
x = ActivateKeyboardLayout&(67699721, 0)
End Sub
 
Перейти    
Доверять доступ к объектной модели проектов VBA
 
#
15.11.2013 19:37:14
А что за проблема, если будет два?
 
Перейти    
Доверять доступ к объектной модели проектов VBA
 
#
15.11.2013 19:18:43
А почему бы Вам не включить доверенный доступ скриптом. Заодно можно и екселевский файл запустить.
 
Перейти    
После перезагрузки системы: ошибка "Run-time error 3706"
 
#
10.11.2013 16:52:59
Запустите макрос в режиме отладки (F 8) . У Вас ошибку выдает в строке
Код
FConn.Open sConn


Попробуйте переустановить Microsoft Access Database Engine 2010 Redistributable

На моей машине помогло
Изменено: Olelucoye - 10.11.2013 16:58:52
 
Перейти    
После перезагрузки системы: ошибка "Run-time error 3706"
 
#
10.11.2013 16:36:25
А файл можно посмотреть?
 
Перейти    
После перезагрузки системы: ошибка "Run-time error 3706"
 
#
10.11.2013 16:30:52
Может офис криво встал. Переустановить пробовали?
 
Перейти    
Как связать несколько ячеек, чтобы при изменении одной из них менялись остальные
 
#
10.11.2013 00:16:17
Вот тут посмотрите http://www.cyberforum.ru/vba/thread470488.html
 
Перейти    
конвертация в .zdi и обратно
 
#
08.11.2013 23:23:45
Как-то так, наверное.
 
Перейти    
макрос суммеслимн
 
#
15.08.2013 10:45:28
Функция СУММЕСЛИМН вставляется в формулу в ячейке. Причем здесь макрос?
 
Перейти    
Получение средствами VBA серийного номера процессора
 
#
12.08.2013 01:06:33
О mac-адресе я тоже думал. Но мне показалось, что это не лучший вариант. На компьютере их может быть несколько. Да и меняется легко.
 
Перейти    
Получение средствами VBA серийного номера процессора
 
#
12.08.2013 00:38:57
Спасибо. Варианты с привязкой к лог.диску подойдут.
И все же есть какой-нибудь идентификатор компьютера, который не меняется в процессе эксплуатации, при условии, что оборудование меняться не будет?
 
Перейти    
Получение средствами VBA серийного номера процессора
 
#
11.08.2013 23:23:26
Цитата
Первый раз слышу что бы у процессора (CPU, я правильно понял?) был уникальный серийный номер!
Тогда что за номер выдает код который написал KukIP?

Цитата
Если вы хотите привязаться к компьютеру можете попробовать прочесть серийный номер HDD
А его как прочесть?

Цитата
тут много чего было
Тут про учетные записи. А мне нужно привязаться к компьютеру именно физически.
Изменено: Olelucoye - 11.08.2013 23:24:16
 
Перейти    
Получение средствами VBA серийного номера процессора
 
#
11.08.2013 22:29:39
Можно ли средствами VBA получить серийный номер процессора? Или какие-нибудь другие уникальные физические параметры компьютера?
 
Перейти    
Не все строки попадают в отчет
 
#
10.08.2013 21:01:21
Вот
 
Перейти    
Не все строки попадают в отчет
 
#
10.08.2013 20:21:15
Watcher_1, Ваш код работает только в случае если таблица не изменится. Я добавил несколько строк и результат по запросу на 05.08.2013 выдает лишние строки, т.е все где попадается зведочка.
 
Перейти    
Не все строки попадают в отчет
 
#
10.08.2013 00:20:41
А в коде проверяются оба этих столбца на дату и  Тр.компанию. Если не заполнить таблицу датами и названиями, эти строки не будут соответствовать условиям отбора.
 
Перейти    
Не все строки попадают в отчет
 
#
09.08.2013 23:43:27
Так у Вас в таблице вместо дат звездочки, транспортная компания не заполнена.
Если заполнить таблицу, все работает.
 
Перейти    
Макрос - скрыть определенный диапазон строк относительно номера активной ячейки
 
#
09.08.2013 22:02:54
Так попробуйте

Код
a = n - 3 & ":" & n + 4
Rows(a).Hidden = true
Изменено: Olelucoye - 09.08.2013 22:03:50
 
Перейти    
Непонятная работа команды Dir
 
#
09.08.2013 21:18:50
Тоже столкнулся с такой же проблемой - если в имени файла встречается знак нижнего подчеркивания Dir не находит его. Походу баг. Или фича :)
 
Перейти    
Закрыть одну рабочую книгу из другой
 
#
09.08.2013 20:45:53
Спасибо всем за помощь. С OnTime все работает.
 
Перейти    
Закрыть одну рабочую книгу из другой
 
#
09.08.2013 00:26:30
И действительно, зачем я так сделал?
Половина кода стала не нужна и при создании нового файла основной файл остается доступным для других пользователей.
Большое спасибо за подсказку!
Правда при открытии уже существуещего файла вопрос остается.
Что-нибудь можно сделать?
Архив с исправленным кодом прикладываю.
 
Перейти    
Закрыть одну рабочую книгу из другой
 
#
08.08.2013 23:20:12
Задумка была такова, что пользователь после открытия Книги2 продолжает работать в ней, а Книга1 будет доступна для открытия другим пользователем.
В Книге1 содержится шаблон некоего бланка и список ранее созданных файлов. В форме Main пользователь либо создает новую рабочую книгу куда копируется этот шаблон и форма для его заполнения (Common) и пополняет список ранее созданных

Код
Private Sub OK_Click()
Filename = Fam & "_" & Nam & "_" & Otch & "_" & Date
FilePath = ThisWorkbook.Path & "\" & Filename & ".xls"
Sheets("Napravlenie").Cells.Copy
Workbooks.Add
Cells.Paste
ActiveWorkbook.SaveAs Filename:=FilePath
ThisWorkbook.Worksheets("Files").Activate
Columns("A:A").Select
    Selection.Find(What:="", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
        .Select
ActiveCell.Value = Filename
Modname = ThisWorkbook.Path & "\tempcommon.bas"
ThisWorkbook.VBProject.VBComponents("Common").Export Modname
Workbooks(Filename & ".xls").Activate
Set VBP = ActiveWorkbook.VBProject
VBP.VBComponents.Import Modname
Kill Modname
s = s & "Private Sub Workbook_Open()" & vbNewLine
s = s & "        Common.Show" & vbNewLine
s = s & "End Sub"
Workbooks(Filename & ".xls").Activate
Set vbComp = ActiveWorkbook.VBProject.VBComponents("ЭтаКнига")
With vbComp.CodeModule
            .InsertLines .CountOfLines + 1, s
End With
Set vbComp = Nothing
Workbooks(Filename & ".xls").Save
Workbooks(Filename & ".xls").Close
Application.Workbooks.Open (FilePath)
End Sub


либо открывает для редактирования ранее созданный

Код
Private Sub SelectFile_Click()
If FileName.Value = "" Then
MsgBox ("Не выбран файл")
Else
Main.Hide
ThisWorkbook.Save
FilePath = ThisWorkbook.Path & "\" & FileName.Value & ".xls"
Application.Workbooks.Open (FilePath)
End If
End Sub


Нужно, чтобы пока один пользователь работает с одним из файлов из списка, второй, третий и т.д. пользователи могли создать или открыть для редактирования другие файлы. Т.е. нужно закрыть Книгу1 без прекращения работы открытых ею файлов.
 
Перейти    
Закрыть одну рабочую книгу из другой
 
#
08.08.2013 22:09:03
Цитата
А не вариант, после запуска "Книга2.xls" закрывать "Книга1.xls" из "Книга1.xls"?

Пробовал и так., но после строки
Application.Workbooks.Open ("Книга2.xls")
в Книге1 код перестает выполнятся.
 
Перейти    
Закрыть одну рабочую книгу из другой
 
#
08.08.2013 21:01:42
Добрый день всем!
Ситуация такая - из Книга1.xls вызывается Книга2.xls. После этого Книгу1 нужно закрыть и запустить форму в Книге2.
Пробовал таким кодом в Книге2, но форма почему-то не запускается

Private Sub Workbook_Open()
Workbooks("Книга1.xls").Save
Workbooks("Книга1.xls").Close
Forma2.Show
End Sub

Если убрать строку Workbooks("Книга1.xls").Close форма открывается,  но остается открыта Книга1.
Подскажите, что сделать, чтобы код работал.
 
Перейти    
Страницы: 1
Наверх