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

Страницы: 1 2 3 След.
Как разместить форму вверху и в центре окна?
 
#
19.10.2015 11:29:59
Добрый день.
Как сделать, чтобы  Форма открывалась в самом верху и в центре окна (в центре "ленты офиса")?

PS. Просьба не отсылать к моей же старой теме (там другое).
Изменено: iNic - 19.10.2015 11:31:17
 
Перейти    
Подавление окна выбора при выполнении макроса с оставлением варианта "Нет".
 
#
19.06.2015 20:23:50
Добрый вечер.
Помогите, пожалуйста с макросом.
Я рекордером записал кучу автозамен для выделенного. Подряд одна за одной.
И после каждой появляется информационное окно, не хочу ли я продолжить для "оставшейся части документа". Мне надо только в выделенном и я каждый раз должен клацать "Нет".
Я пробовал с Application.DisplayAlerts = False, но при этом таки обрабатывается и "оставшаяся часть документа". Т.е. "выбирается Да".
Как сделать, чтобы не просто подавлялось это окно, а и обрабатывалось именно выделенное. То есть чтобы макрос отвечал "НЕТ"?
 
Перейти    
Как для Комбобокса Формы сделать "питающий" список из значений Текстбоксов той же Формы, а не из ячеек таблицы?
 
#
18.06.2015 19:09:49
Добрый вечер, уважаемые Форумчане.
Помогите, пожалуйста, создать питающий список для Комбобокса данными прямо из Текстбоксов.этой же Формы, а не с ячеек. Дело в том, что Форму делаю для .doc. и в Текстбоксы обходными путями данные уже удалось завести (через закладки), а как создать опорный список для Комбобокса даже не представляю. И в Сети ничего подходящего не нашел.
И вот, вопрос.
Как создать питающий список для Комбобокса данными прямо из Текстбоксов той же Формы?
Изменено: iNic - 18.06.2015 20:48:52
 
Перейти    
Как вставить в ТексБокс значение из таблицы Ворда (или из вложенной в Ворд-файл таблицы)?
 
#
17.06.2015 18:26:43
Добрый вечер, уважаемые Форумчане.
Помогите, если можно, с "непрофильным" вопросом.
Есть Ворд-файл и в нем Форма. И никак не могу заполнить ТекстБоксы значениями из справочной таблицы. И попытка через Закладки не помогла.
Я сделал аналогичную "вложенную" таблицу и, наверное, данные можно было бы брать из неё, но я не знаю как.
Как заполнить ТекстБоксы в Ворде?
 
Перейти    
Формула для получения года из даты, дата может быть в трех вариантах
 
#
23.05.2015 20:18:58
Добрый вечер, Форумчане.
Помогите, пожалуйста, сделать формулу для протяжки.
Формула для получения года из даты (дата может быть в трех вариантах, как в примере).
Спасибо.
 
Перейти    
Макрос. Цикл. Заменить значения в ячейках.
 
#
22.04.2015 08:37:07
Доброе утро, уважаемые форумчане.
Сделал простой цикл по замене значений в ячейках, а он не работает. Помогите, пожалуйста, поправить дело.
Цикл. Макрос должен в LF1:LT21 (жёлтых ячейках) значения, встречающиеся в LF1:LT1 заменить на соответствующее из LF11:LT11.
Спасибо за внимание.
 
Перейти    
В форме в КомбоБоксе не выводится список значений самого последнего диапазона.
 
#
12.04.2015 12:57:09
 Добрый день. Всех форумчан поздравляю с праздником и хорошей погодой. Желаю всем здоровья, денег, времени, удачи всем.
Ну и вопрос, конечно.
В форме в КомбоБоксе№2 не выводятся значения самого последнего диапазона.
Т.е. в  КомбоБоксе№1 выбираем "o". В  КомбоБоксе№2 должен появиться список значений диапазона "o". А этого не происходит.
Остальные выводятся нормально.
Пробовал в коде на обновление КомбоБокса№1 менять местами последний и предпоследний диапазон--при этом перестаёт выводится именно тот диапазон, который расположен в коде последним.
Что это такое и как исправить?
Изменено: iNic - 12.04.2015 13:02:23
 
Перейти    
Формула, оставляющая только текст из последних скобок.
 
#
31.03.2015 18:14:44
Добрый день, форумчане.
Помогите, пожалуйста, составить формулу, которая должна из всего текста в ячейке оставлять только текст из последних скобок.
Например, из "орл(олр)ор(оло)(4.6)тр(34ловіс)" остаться должно только "34ловіс".
 
Перейти    
Макрос. Выделить в столбце AU с формулами диапазон от AU3 до ячейки со значением НЕ пусто, а не до последней формулы.
 
#
25.03.2015 22:59:34
Добрый вечер.
Помогите, пожалуйста, выделить диапазон ячеек.
В AU протянуты формулы, которые могут давать или пусто или любую цифру.
В конечном итоге надо выделить диапазон от B3 до последней ячеки в AU, в которой формула выдает НЕ пусто.
Для этого сначала НАДО получить выделение AU3 : AU10, чтобы затем выделить  B3 : AU10.
А имеющийся код выделяет ВСЕ ячейки в AU с формулами, независимо от их значений (т.е. B3 : AU13).
Как получить нужное выделение AU3 : AU10 ?
 
Перейти    
Как назначить конкретный лист для работы данного макроса?
 
#
19.03.2015 21:26:41
Добрый вечер, уважаемый Форум.
Подскажите, пожалуйста, как назначить конкретный лист ("СПРАВОЧНИК") для работы данного кода? Чтобы находясь на листе "Рабочий" обойтись без активации листа "СПРАВОЧНИК". Пробовал добавлять в строки с ???????    "Sheets("СПРАВОЧНИК")."--не помогло.
Код
Sub FinderNew()
Dim rw As Long, i As Long, x
    rw = Cells(Rows.Count, "br").End(xlUp).Row '????????????
    x = 0
    With numFGNew
        For i = 2 To rw
            'If Cells(i, 4) = .ComboBox1 Then
            If CStr(Cells(i, 70)) = .ComboBox1 Then '????????????
                'If Cells(i, 5) = .ComboBox2 Then
                    'If Cells(i, 6) = .ComboBox5 Then
                        'If Cells(i, 7) = CDate(.ComboBox4) Then
                            .ListBox1.AddItem ""
                            .ListBox1.List(x, 0) = i
                            .ListBox1.List(x, 1) = Cells(i, 97)  '????????????.
                            x = x + 1
                        End If
                    'End If
                'End If
           ' End If
        Next
    End With
'Stop
End Su
Изменено: iNic - 19.03.2015 21:41:14
 
Перейти    
После вставки значений в ячейки столбца BR перестают нормально работать кокмбобоксы в форме.
 
#
18.03.2015 00:04:13
Есть форма поиска (№1), которая идентифицирует нужную запись по значению в ячейке столбца BR. По клику на Листбоксе этой формы открывается форма "рабочая" (№2) с данными этой записи и кучей комбобоксов.
После вставки значений в ячейки столбца BR (вставка, спецвставка-значения или формулы, вручную или макросом) перестают нормально работать комбобоксы в форме №2 в том случае, если форма №2 открывается из формы поиска №1. А именно, не дополняются значения из опорного списка по первым буквам.
Причем, если же форму №2 открывать НЕ из формы №1 (!!!), то все нормально работает. То есть, что-то не так с формой №1.
Вот код, который, собственно в форме №1 идентифицирует нужную запись по значению в ячейке столбца BR:
Код
Sub CheckComboNew()
Dim x As Control
Counter = 0
    With numFGNew
        For Each x In .Controls
            If TypeOf x Is MSForms.ComboBox Then
                If x.Tag = "w" Then
                    If x.Value <> "" Then Counter = Counter + 1
                End If
            End If
        Next
    End With
    If Counter = 1 Then Call FinderNew
End Sub

Sub FinderNew()
Dim rw As Long, i As Long, x
    rw = Cells(Rows.Count, "br").End(xlUp).Row 'номер ищется в "br".
    x = 0
    With numFGNew
        For i = 2 To rw
            'If Cells(i, 4) = .ComboBox1 Then
            If CStr(Cells(i, 70)) = .ComboBox1 Then '№ столбца в котором будет поиск, то есть в "br".
                'If Cells(i, 5) = .ComboBox2 Then
                    'If Cells(i, 6) = .ComboBox5 Then
                        'If Cells(i, 7) = CDate(.ComboBox4) Then
                            .ListBox1.AddItem ""
                            .ListBox1.List(x, 0) = i
                            .ListBox1.List(x, 1) = Cells(i, 97) '97--номер столбца, для выведения в ListBox1.
                            x = x + 1
                        End If
                    'End If
                'End If
           ' End If
        Next
    End With
End Su,
Я думаю, что в стороке "If CStr(Cells(i, 70)) = .ComboBox1 Then " и "зарыта собака", но я не знаю, что надо сделать (или код исправить, или вручную, что-то переключить).
Файл большой и формы громоздкие, с множеством опорных списков (то, что я подготовил для примера весит около 800 Кб). Поэтому его не прилагаю. Если надо, могу выслать на почту.

Подскажите, пожалуйста, что надо сделать.
Изменено: iNic - 18.03.2015 00:45:10
 
Перейти    
После выполнения макроса перестают нормально срабатывать комбобоксы (при целых "питающих" списках).
 
#
16.03.2015 21:35:53
Добрый вечер, Знатоки.
Подскажите, пожалуйста, что делать в такой вот ситуации.
Макрос, запускаемый из файла А, собирает данные из файлов А и Б в файл В. В файле В данные сортирует, фильтрует по дате и вставляет в файл А ( в другой лист).
Всё вроде ничего, но после выполнения макроса в двух формах файла А перестают нормально работать комбобоксы (в аналогичной третьей форме все продолжает нормально работать). А именно, при введении первых букв в комбобокс, программа не добавляет остальные, даже если значение есть в "питающем" списке. А до выполнения все дополнялось. При этом "питающие" списки нормально раскрываются, да и визуально они есть на листе.
Да, ещё, обе сбойные формы (в отличие от третьей, нормальной) открываются из формы№4 (формы поиска записи в базе).
Пример не даю, т.к. не знаю что именно в него выложить, а весь файл здоровенный.
Подскажите, пожалуйста, в чём может быть причина и как починить.
Изменено: iNic - 16.03.2015 21:37:28
 
Перейти    
Макрос выделить пустые ячейки.
 
#
09.03.2015 21:18:03
Добрый вечер, Форумчане.
В Столбце Х есть группа ячеек от Х3 до Х32, в которых верхние ячейки заполнены, а нижние пустые (в примере они серые).
Последняя не пустая может быть от Х3 до Х32. Не пустые всегда вместе (промежутков с пустыми ячейками среди них нет) и всегда ВВЕРХУ.

Как программно выделить группу пустых? (В них потом "размножится" ячейка с формулой).
Спасибо за внимание.
Изменено: iNic - 09.03.2015 21:27:34
 
Перейти    
Форма. Исключение для некоторых ячеек.
 
#
17.02.2015 21:15:31
Всем привет!
Подскажите, пожалуйста, как прописать, что команда должна очищать активную ячейку (это есть), но только если она НЕ относится к ячейкам?
Код
Sheets("AAA").Range("CX5:CY10") и Sheets("DDD").Range("C3:D6")
(Активная ячейка всегда одна).
Что добавить?
Код
Private Sub CommandButton3_Click()
ActiveCell.Value = ""
End Sub
 
Перейти    
Макрос, который назначает свойство ячейкам в строке с меткой и высоту этой строки.
 
#
16.02.2015 21:26:56
Добрый вечер, Форумчане.
Помогите, пожалуйста, сделать макрос.
На определённом этапе код проставляет метку ("1") в ячейках от СВ7 до СВ10 включительно (метка всегда единственная).
Макрос должен ячейкам в столбцах от Е до S в этой самой строке назначить свойство "выравнивание, НЕ переносить по словам".
А для всей этой строки назначить высоту "30".
В примере яснее.
 
Перейти    
Сохраняется ли серийный номер HD при форматировании диска?
 
#
09.02.2015 21:15:19
Добрый вечер, Форумчане.
Подскажите, пожалуйста, серийный номер жесткого диска (типа "557130056")--это навсегда для этого HD?
То есть, не меняется ли он или не стирается ли вообще при форматировании диска?
 
Перейти    
Как отключить обновление экрана для команды, запускаемой с ComandButton Формы?
 
#
08.02.2015 21:30:54
Добрый вечер, Знатоки.
После запуска команды с ComandButton Формы происходит куча действий с разными листами файла. И они периодически показываются. Команда относительно медленно работает.
Как можно отключить обновление экрана в таком случае? (типа "Application.ScreenUpdating = False" при команде с листа).
 
Перейти    
Макрос. Назначить прозрачность (в процентах) автофигуре.
 
#
26.12.2014 22:22:03
Добрый вечер.
Помогите, пожалуйста, назначить прозрачность автофигуре. Макросом.
Задача минимум: макрос (с кнопки) должен делать прозрачной  стрелку на 70%.
А в идеале (задача максимум): прозрачность должна быть равна значению в конкретной ячейке (В3). (В ней будут целые числа от 0 до 100).
 
Перейти    
Почему в одном файле не работает вторая форма (аналогичная работающей первой)?
 
#
16.12.2014 04:37:02
Доброй ночи, Форумчане.
В файл с прекрасно работающей первой Формой добавил аналогичную вторую.
А она выдаёт ошибку.
Помогите, пожалуйста, сделать так, чтобы обе работали.
 
Перейти    
Почему не отключается отслеживание событий?
 
#
11.12.2014 00:46:16
Добрый вечер, Знатоки,
Наверное для Вас это вопрос пустяковый, но у меня никак не получается отключить отслеживание событий.
Есть Форма. В ней три КомбоБокса. По клику на кнопке они очищаются.
Но при этом запускаются все три ComboBox..._Change
Несмотря на

Код
            Application.EnableEvents = False
Помогите, пожалуйста отключить ComboBox..._Change при их очистке.
Изменено: iNic - 11.12.2014 00:56:29
 
Перейти    
Из значения КомбоБокса удалить определённый фрагмент.
 
#
09.12.2014 23:42:43
Добрый вечер.
По кнопке из значения КомбоБокса должен удаляться фрагмент "Тест.". Остаться должно остальное значение.
"Тест." всегда вначале.
 
Перейти    
На изменение КомбоБокса (форма) должно измениться то же самое значение в опорном списке.
 
#
09.12.2014 18:54:03
Добрый вечер, Форумчане. Опять к Вам за помощью.
Есть форма. В ней левые СВ назначают опорные списки для правых СВ.
Нужно сделать, чтобы при изменении значения в правом СВ (например, "Ад" ;)  перед тем же самым значением в опорном списке добавлялось "Тест." (т.е. здесь это будет "Тест.Ад" ;) .
В опорном диапазоне дубликатов нет.

В прилагаемом файле более наглядно.
Изменено: iNic - 09.12.2014 18:55:20
 
Перейти    
Как прицепить команду на закрытие формы крестиком? Именно крестиком.
 
#
30.11.2014 13:29:17
Доброго дня всем, Форумчане.
Помогите, пожалуйста, прицепить команду на закрытие формы КРЕСТИКОМ (в примере--открытие МСБокса). Именно крестиком.
Перебрал все следующие варианты--не получается.
Код
'Private Sub SBasy_QueryClose(Cancel As Integer, CloseMode As Integer)
'MsgBox "Закрыта"
'End Sub

'Private Sub SBasy_Unload(Cancel As Integer)
'MsgBox "Закрыта"
'End Sub


Private Sub Form_Terminate()
MsgBox "Закрыта"
End Sub
Что не так? Как полечить?
Изменено: iNic - 30.11.2014 13:31:00
 
Перейти    
Код. Как спросить : "Если ячейка слева от активной =1"?
 
#
28.11.2014 00:34:59
Добрый вечер, форумчане.
Задаю условие в коде на лист  "Если ячейка слева от активной =1"

If ActiveCell.Offset(0, -1) = 1 Then


Почему не работает? (заливается желтым).
 
Перейти    
Как запретить макрос?
 
#
16.11.2014 21:24:37
Добрый вечер, Форумчане. Проблема следующая.
Условия. Макрос1 запускается с Листа1 и выполняет код с изменением данных в разных ячейках Листа2. Многократно.
Но в коде на Лист2 есть
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
и  Private Sub Worksheet_Change(ByVal Target As Range).
И при каждом изменении на Листе2 эти макросы запускаются. И хоть эти макросы таковы, что делаются проверки и сразу выход, но это происходит при каждом изменении на Листе2. А их много. В итоге Макрос1 выполняется в 10 раз дольше, чем при отключённых двух последних макросах.
Вопрос. Как сделать, чтобы последние два макроса НЕ запускались во время выполнения макроса1 вообще?
 
Перейти    
Как макросом скрыть (отобразить) автофигуру?
 
#
04.11.2014 23:01:57
Доброй ночи.
Подскажите, пожалуйста, как макросом скрыть (а другим отобразить) автофигуру?
 
Перейти    
Как скрыть ЧекБокс (сделать невидимым или переместить в какую-то далёкую ячейку)
 
#
03.11.2014 15:27:21
Добрый день, Форум. Такой вопрос...
Макрос должен скрывать строки с пустыми ячейками в "С" и Чеки в этих строках. Со строками решено. С чеками частично решается.

Но с последним чеком не получается. Он остается видимым.
Как сделать, чтобы ВСЕ Чеки становились невидимыми (или скрывались, или перемещались в какие-то далекие ячейки.
Ну, а на второй макрос типа "Отобразить все", отображались и строки и Чеки все появлялись?
 
Перейти    
Проверка открытия НЕ экселевского файла
 
#
10.10.2014 21:18:48
Добрый вечер, Форумчане.
Как можно проверить открыт ли НЕ екселевский файл? А именно *.exe и (или) *.dll.        
 
Перейти    
Как сделать так, чтобы макрос на открытие книги снимал её защиту?
 
#
13.08.2014 10:54:29
Доброе утро всем.
Эксель 2007.
Макрос на закрытие книги защищает книгу. Макрос на открытие должен снимать защиту.
Но не снимает. Потому что, когда книга защищена, макросы в ней не работают (хоть и разрешены).
Можно ли сделать так, чтобы макрос на открытие книги всё таки снимал защиту?
 
Перейти    
VBA. Удалить лист с существующим в массиве именем, при деактивации книги
 
#
12.08.2014 18:55:34
Как при копировании в другую книгу в процедуре Private Sub Workbook_Deactivate() удалить лист с существующим в массиве именем (или закрыть новую книгу без сохранения?
 
Перейти    
Страницы: 1 2 3 След.
Наверх