Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 След.
не показывать на графике интервалы
 
добрый день. прошу помощи спецов по графикам.
имеется таблица по которой построен график. значения в таблице изменять нельзя.
необходимо чтобы отрезки на которых значение по оси Y равно нулю не были видны. если я вместо нулей в таблице оставляю пустые ячейки - это дает правильный результат. такой как надо, но нужно чтобы нули был в таблице видно.
спасибо
Взять значение из таблицы, вычислив строку и столбец
 
Добрый день. Столкнулся казалось-бы с простой таблицей и задачей. Написал формулу - все ОК. Начал "протягивать" ее до конца таблицы - результат искажен.
подскажите как правильно ее переписать, чтобы можно было тянуть до конца таблицы.

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

спасибо
свернуть эксель с активной UserForm
 
подскажите: возможно-ли свернуть эксель если в нем активна UserForm ?
если открыт только эксель с активной UserForm, то приходится закрывать эксель чтобы иметь возможность запустить еще какую-нибудь программу

спасибо
Полная очистка комбобокс
 
добрый день.

при активации Userform в Combobox создается список.
при выходе из Userform очищаю Combobox так: UserForm1.ComboBox1.Clear - все нормально
если в Combobox внести значение руками (не из формируемого списка), а потом выйти и снова зайти на Userform - в Combobox остается это введенное руками значение.
приходиться удалять его так: UserForm1.ComboBox1.Value = ""

в итоге получается чтобы при выходе из UserForm и повторном входе в ComboBox1 было пусто надо писать две строки сразу так:
Код
UserForm1.ComboBox1.Value = ""
UserForm1.ComboBox1.Clear

Возможно ли это написать одним оператором, который очистит все в ComboBox ?
Изменено: brother_alex - 07.12.2018 17:59:31
Найти номер строки-оригинала на другом листе
 
добрый день.
в макросе:
Код
Sheets("Данные").Select
Set fcell = Columns("A:A").Find("123")
If Not fcell Is Nothing Then
    MsgBox "Нашел в строке: " + CStr(fcell.Row)
End If

ищем значение (123), а мне нужно найти не одно значение - строку из 15 ячеек со значениями
как это правильно переделать ?
диапазон списка в комбобокс
 
добрый день.
простая вроде-бы задача. список из столбца в комбобокс:

так работает:
Код
LastRow = Worksheets("TABLES_ADMIN").Cells(Rows.Count, 1).End(xlUp).Row
UserForm2.ComboBox4.List = Worksheets("TABLES_ADMIN").Range("A3:A" & LastRow).Value

а так - не хочет:
Код
LastRow = Worksheets("TABLES_ADMIN").Cells(Rows.Count, 1).End(xlUp).Row
UserForm2.ComboBox4.List = Worksheets("TABLES_ADMIN").Range(Cells(3, 1), Cells(LastRow , 1)).Value

уже 2 часа мучаюсь.
подскажите где я туплю
Список с тремя уровнями на UserForm
 
добрый день.
у меня есть на листе таблица с конкретной структурой
пытаюсь на UserForm сделать тройной выпадающий список. Почитал форум, сделал на 2 уровня. с третьим что-то не могу придумать как.
прошу помощи у форумчан.
UserForm не скрывается макросом
 
добрый день
в приложенном примере:
при нажатии на "кнопку" макросом происходит переход на Лист2 и скрытие UserForm.
вроде все правильно написал, но при нажатии один раз - переходит на лист - при повторном нажатии скрывается форма
должно одним нажатием скрыть форму и перейти на лист 2

подскажите в чем ошибка.
VBA: активировать лист без выделения ячейки
 
добрый день.
подскажите возможно ли макросом активировать лист так, чтобы на нем не было видно выделенной ячейки. просто лист без установленного в ячейку курсора
формат ячеек таблицы
 
добрый день.
у меня есть таблица. ширина ячеек определена конкретная. в некоторых ячейках теста больше чем ее ширина.
как сделать так, чтобы при переходе на эту ячейку текст отображался полностью (вылазил на ячейку справа).
создание на UserForm textbox и combobox макросом
 
подскажите как создать и удалить на UserForm textbox и  combobox с заданными координатами макросом ?
именно создать и удалить, а не отобразить и скрыть

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

как мне извлечь из него в ячейку конкретную запись (например третью) ?
пишу так:
Код
Sheets("NARABOTKA").Range("A1") = Rs(0)

выводит первое значение, а если так:
Код
Sheets("NARABOTKA").Range("A1") = Rs(3)

ошибка
что я делаю не так ?
Изменено: brother_alex - 25.08.2018 22:14:22
Запрет закрытия Userform
 
подскажите как сделать так, чтобы UserForm нельзя было закрыть "крестиком" в правом верхнем углу?
Перемещение по UserForm (Enter)
 
добрый день.
подскажите
1. каким образом сделать так, чтобы при нажатии ENTER курсор перемещался по элементам по очереди (сверху вниз) не перескакивая
2. каким образом сделать чтобы при переходе между элементами формы нажатием ENTER курсор не переходил на элемент "ДАЛЬШЕ", просто по кругу переключался как написано в п.1.

спасибо
справочник по свойствам ListBox и Combobox
 
добрый день.
хочется поподробнее изучить эту тему, но не могу найти справочник (на русском языке) по свойствам (в окне редактора макросов)
если кого-то есть - дайте ссылку
спасибо
несоответствие формата даты в TextBox
 
файл - пример прилагаю.
при вводе в Textbox даты макрос должен проверять (сравнивать) ее с сегодняшней датой (чтобы наперед не поставили случайно).
но какую дату не ставлю - и прошедшую - не проверяет.
посмотрите пожалуйста что в макросе не так

спасибо
Удаление всех строк листа кроме первой строки
 
добрый день
как можно удалить на листе все строки кроме перавой ?

так неправильно выходит, смотрит последнюю запись только в первом столбце, а если во втором столбце данных больше- не удаляет все
Код
 Rows("2:" & Cells(Rows.Count, 1).End(xlUp).Row).Delete Shift:=xlUp


спасибо
замена адреса ячейки значением из ComboBox
 
имеется фрагмент кода, в котором по значению в ячейке F10 находиться адрес соответствующего столбца четвертой строки

Код
A = Split(Columns([=MATCH(F10,DETALI!2:2,0)]).Address(0, 0), ":")(0) & "4"


каким образом вместо значения ячейки F10 использовать значение ComboBox1 ?
вставка списка в combobox
 
добрый день. пытаюсь освоить combobox, listbox - столкнулся с проблемой:
есть макрос, который при переходе на Лист создает в ячейке F10 выпадающий список из значений строки другого листа. (макрос рабочий 100%)

Код
Private Sub Worksheet_Activate()
On Error GoTo exitsub
    Dim h$, j As Range
        For Each j In Intersect(Sheets("DETALI").[2:2], Sheets("DETALI").UsedRange).Cells
            If IsEmpty(j.Value) Then Else h = h & "," & j.Value
        Next
            h = Mid$(h, 2)
                With [F10].Validation
                  .Delete
                  .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=h: .InCellDropdown = True
                End With
exitsub:
End Sub


подскажите как мне правильно прописать адрес ComboBox1, чтобы список отображался именно в ComboBox1

СПАСИБО
Изменено: brother_alex - 17.08.2018 23:45:45
Трехуровневый вып. список
 
добрый день.
"сваял" трехуровневый выпадающий список с данными из листа
вроде-бы работает, но заметил ошибку:

неправильно выбирает фамилии:
например- если выбрать СМЕНУ 2 и бригаду 1 - выдает фамилии из первой бригады первой смены и т.д.

подскажите где тут ошибка ?

спасибо
Адрес ячейки, значение которой совпадает со значением в комбобоксе
 
добрый день.
подскажите как определить макросом координаты (строку и столбец) ячейки на листе, где находится текст, который я выбрал в комбобокс.
в комбобоксе простой выпадающий список с листа.
спасибо
Преобразование типов данных для вывода в диалоговом окне проекта
 
подскажите что не так ?
написал формулу в эксель для нахождения максимального числа в диапазоне столбца - в редакторе макросов она командой
Код
MsgBox ActiveCell.Formulalocal

отображается как
Код
A=MAX(BIRKI!A1:A100)

а в теле макроса горит красным как ошибочная
вставка из РЕКОРСЕТА в строку заданную переменной
 
добрый день.
у меня данные из рекордсета вставляются в строку командой:
Код
Sheets("ALL").[a11].CopyFromRecordset Rs

как правильно написать этот код, если номер строки - переменная "n" ?
пробовал так:
Код
Sheets("ALL").["a" & n].CopyFromRecordset Rs

что-то не так.
СПАСИБО
переменная в формуле выпадающего списка
 
добрый день.
у меня макросе создается выпадающий список с другого листа. последняя строка задана переменной.
как правильно ее задать в формуле ?
$A$&l& - не получается


l = Sheets("SMENA").Cells(Rows.Count, 1).End(xlUp).Row + 1

With Range("F17").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=SMENA!$A$4:$A$&l&"
.ShowError = True
End With
автоматическое согласие с сообщением эксель
 
добрый день. у меня файл с которым работаю находиться на сетевом диске. долго игрался с правами, доступами  и т.д. но вроде заработало, только есть оно "НО".
если я по новому захожу в эксель, открываю файл, делаю свои изменения и нажимаю "сохранить" - эксель дает сообщение "файл уже существует, сохранить и т.д."
Если нажать сохранить - все сохраняется ОК и дальше, если не закрывать файл, можно сколько угоно вносить изменения и сохранять. Эксель больше не выдает такого пока по новому не открыть этот файл.
как можно в экселе макросом написать чтобы при появлении данного сообщения "сама" нажималась кнопка ОК.
Добавление пункта в выпадающий список из диапазона на листе
 
добрый день.

у меня в файле макросом при переходе на Лист1 в ячейке F10 формируется выпадающий список из Листа2, строки 2
как доделать, чтобы в этом выпадающем списке в конце была еще одна запись: "другой человек". добавлять эту запись  "другой человек" в строку имен на Листе2 нельзя.

спасибо
Изменено: brother_alex - 16.09.2017 14:28:56
остановка макроса кнопкой ESC
 
добрый день.
каким образом можно сделать так, чтобы нажимая Esc эксель предлагал или продолжить или остановить выполнения макроса.
чтобы не было DEBUG и СПРАВКА
спасибо
цикл по рекордсету
 
добрый день.
в ВБА запросом создается рекордсет с данными.
мне необходимо вывести его на ЛИСТ экселя.
делая так: Sheets("CALENDAR").Range("A1").CopyFromRecordset Rs  на лист выведены все данные одним массивом

как можно вывести их на лист эксель через строку:
первая строка  - первая из рекордсета
вторая строка пустая
третья строка - вторая из рекордсета
четвертая - пустая
и т.д.


спасибо
VBA Sql - формирование нового столбца таблицы формулой эксель
 
добрый день.
каким образом можно в саму строку запроса: sSql =  "select f1,f2,f3,f4 from [JURNAL$A3:G]" вставить формулу (РАЗНДАТ) чтобы  в рекордсете создать новый столбец (f5) c данными?
в нем должна быть разница дат 3 и 4 столбца.
возможны ли такие запросы?
спасибо.
Страницы: 1 2 3 4 След.
Loading...