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

Страницы: 1 2 След.
ПОДСТАВИТЬ ПСТР ПОИСК на vba, как составить макрос который будег делать тоже самое что и формула в столбце В? Применимо к выделенным ячейкам
 
как составить макрос который будет делать тоже самое что и формула в столбце В? Применимо к выделенным ячейкам
Как вводить любое значение из combobox на юсерФорм в активную ячейку по кнопке ок
 
форма появляется при выборе n7
Combobox задан определенным списком в коде формы. Это нужно сохранить.
Требуется по нажатию ОК переносить в активную ячейку любое значение из Combobox, а не только заданное списком
Изменено: Dobepman - 15.12.2020 09:13:23
Изменить регистр в словосочетаниях (место рождения)
 
Здравствуйте! подскажите пожалуйста как изменить регистр
Исходные данные:
Скрытый текст

нужно привести к виду
гор. Иваново
гор. Бокситогорск Ленинградская обл.

Спасибо
Найти среди множества открытых книгу с указанным окончанием имени
 
Как найти книгу среди множества открытых у которой в конце имени например будет «ищи»

Это нужно с целью дальнейшей активации книги среди множества открытых
При открытии книги из другой книги как избавиться от окна обновления связей?
 
При открытии книги из другой книги как избавиться от окна обновления связей?
Когда конструкция
Код
Application.DisplayAlerts = False
Application.DisplayAlerts = 1

не помогает избавиться от окна (см. рис.)
как быть?
Окно ввода появляется два раза
 
Подскажите пожалуйста. Мне нужно последовательно вводить данные в ячейке с помощью Application.InputBox. Почему-то окно ввода появляется два раза. Как этот момент исправить?
Сравнить даты и записать при выполнении условия
 

Подскажите пожалуйста макрос который будет работать при условии если в столбце А дата меньше чем в столбце В то записать в столбец А дату из столбца В.

Что-то нашел на просторах инета, но оно не работает должным образом. А выполняться он должен до тех пор пока не достигнет пустой ячейки или строки как удобней не знаю. Я так понимаю ниже представлен статический вариант, а нужен динамический т.к. столбец постоянно увеличивается.

Код
Sub srav()
Dim a()
Dim b()
Dim i As Long
a = Range("a1:a6").Value
b = Range("b1:b6").Value
For i = 2 To 6
If a(i, 1) < b(i, 1) Then a(i, 1) = 1
Next
End Sub

Макросом присвоить диапазону формат ячейки
 
Здравствуйте ! Подскажите пожалуйста.
Как применить формат ячейке В1 к тем ячейкам что ниже? Дело в том что в ворде при слиянии 9 есть, а 10 нет пишет 0.
В ручную избавляться от формулы и в каждой ячейке менять формат ячейке очень долго и неудобно, т.к. в каждую ячейку нужно заходить через f2.
Изменено: Dobepman - 14.10.2019 13:05:42
Как сделать нумерацию, минуя скрытую строку?
 
Использую такой код
Код
Sub pr()
[e4].Select
[e4] = 1
[e4].AutoFill Destination:=Range([e4], Range(Selection, Selection.End(xlDown))), Type:=xlFillSeries
End Sub

Проблема возникает когда скрыта строка, ячейка в скрытой строке тоже нумеруется, а при просмотре получается как бы нумерация сбита.
Подскажите пожалуйста может есть другой способ нумерации?
 
Изменено: Dobepman - 04.08.2019 10:41:41
Добавить слово в указанное ко-во ячеек и выбор ячейки напротив первой выделенной
 
Подскажите пожалуйста
Код
Sub добавить()
Application.ScreenUpdating = False
'как сделать чтобы указанное ко-во ячеек заполнялось, а не только одна.
'r-ко-во ячеек для заполнения ActiveCell.Value = "Первый"
r = 3
'этот код работает на одну ячейку
ActiveCell.Value = "Первый"
ActiveCell.Cells(1, 2).Activate
Application.ScreenUpdating = True
End Sub
Почему не срабатывает нумерация на втором листе в цикле?
 
Подскажите пожалуйста как исправить ?
Изменено: Dobepman - 24.07.2019 21:06:24
Скрывать строки checkbox`ом на нескольких листах одновременно
 
Как скрыть одинаковые строки на нескольких листах?
Макрос открытия Ворд выдает ошибку
 
Если приложение Ворд закрыто выдает ошибку 429 (см. скрин), если открыто работает нормально. Как исправить?
Код
Sub zapusk()
Static objWrdApp As Object
Dim objwrddoc As Object
On Error Resume Next
Set objWrdApp = GetObject(, "Word.Application")
If objWrdApp Is Nothing Then
Set objWrdApp = GetObject(, "Word.Application")
Set objwrddoc = objWrdApp.documents.Open("\\aaaa\111.docx")
objWrdApp.Visible = True
End If
Set objwrddoc = objWrdApp.documents.Open("\\aaaa\111.docx")
Set objWrdApp = Nothing
Set objwrddoc = Nothing
End Sub
Брать числа из выделенного диапазона вместо ввода вручную, Вместо единичного ввода искомого значения, брать из выделенного диапазона эти искомые значения
 
Как вместо Application.InputBox который позволяет вводить только одну цифру для поиска, брать  вводимые вручную цифры из выделенного диапазона, т.е. одним запуском макроса отрабатывать, а не одиночно (рутинно), отдельно
Код
Sub удалить ()
Application.ScreenUpdating = False
Sheets("Книга").Select
Dim FindRng As Range, TxtFind As String, FirstAdr As String
TxtFind = Application.InputBox("нумерВведи")
Set FindRng = Columns(1).Find(What:=TxtFind, LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlPrevious)
If Not FindRng Is Nothing Then
FirstAdr = FindRng.Address
Do
Range(Cells(FindRng.Row, 5), Cells(FindRng.Row + 3, 8)).Value = ""
Cells(FindRng.Row + 1, 6) = "в"

'Set FindRng = Cells.FindNext(FindRng)

Loop While FindRng.Address <> FirstAdr
Else
'        MsgBox "Значение " & TxtFind & " не найдено!", 48, "Ошибка!"

End If
Sheets("кни").Select
Application.ScreenUpdating = True
End Sub
Изменено: Dobepman - 29.06.2019 08:54:20
checkbox скрыть строку и отобразить слово в ячейки и обратно
 
Когда галочка стоит в А1 внести «стоит»,  а когда снята А1 очистить
Спасибо
Изменить связи без лишних вопросов vba
 
При обновлении связи
Записал через рекордер, проблема в том, что выдает окно в котором нужно указать и выбирать обновляемый файл. Как убрать(игнорировть) это диаг. окно чтобы оно не появлялось? Но при этом источник обновлялся
Код
Application.DisplayAlerts = False
    ActiveWorkbook.UpdateLink Name:= _
        "\\aaaa\Книга.xlsm", Type:= _
        xlExcelLinks
Application.DisplayAlerts = True
После добавления
Application.DisplayAlerts = False

появляется ошибка (см. скрин). Как исправить подскажите пожалуйста. Заранее спасибо.

Изменено: Dobepman - 05.08.2019 08:01:40
отобразить окно с сообщением
 
Подскажите пожалуйста подскажите пожалуйста как реализовать следующую идею.
Есть диапазон в котором формула отображает определенно слово ("вода")при определенных условиях. Нужно отображать окно с сообщением как только слово "вода" в диапазоне появилось.
Как найти между двумя датами все месяца в которых 31 день
 
На первый взгляд простой вопрос, но как решить не могу понять.
Изменено: Dobepman - 04.04.2019 21:06:04
Как нажимать кнопку (режим конструктора) программно? При открытии файла, отключение макроса при открытии книги другим макросом
 
Есть файл у которого в модуле Private Sub Workbook_Open()
прописан код редактирования ячеек. Не всегда нужно выполнение этого модуля.
Если при открытии файла через диалоговое окно ctrl+O зажать shift включается режим конструктора  и модуль Private Sub Workbook_Open()
отключается. Как это прописать в коде? Через запись макроса ни чего не
показывает.
Изменено: Dobepman - 04.04.2019 13:08:45
Макрос превращения формулы в значения по условию
 

 Нужен макрос который делает копиПаст (вместо формулы значение) по условию: если дата забита(i:I) он срабатывает напротив этой даты(e:e).

Это нужно для уменьшения размера файла и предотвращения нежелательных действий формул

Создать комментарий с содержимым формулы, а формулу превратить в значение(КопиПаст)
 
Подскажите пожалуйста макрос создающий комментарий к активной ячейки(группе выделенных) ячеек.
Нужно получить ячейку со значением а не формулой на том же месте, а формулу переместить в комментарий. А если несколько выделенных ячеек, то нужно вставить комментарий к каждой
Изменено: Dobepman - 18.01.2019 09:47:37
Переход с копированием из окна в окно, вставка скопированного с выбором ячейки
 
Здравствуйте! подскажите пожалуйста. Что делаю не так, как исправить ошибку?
Код
Sub Скопи()
Dim y As Range
'
    If WorkBookIsOpen("Книга1.xlsm") Then
Workbooks("Книга1.xlsm").Activate
   Sheets(1).Select
Else
Workbooks.Open ("\\aaaa\Книга1.xlsm")
   Sheets(1).Select
End If
ActiveWindow.ActivatePrevious
    Range("BE15").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    ActiveWindow.ActivateNext
    Set y = Application.InputBox("Выберите ячейку", , , , , , , 8)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
Подсвечивается строка
Код
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

появляется ошибка  
Как переходить по ячейкам после userForm
 
Здравствуйте.
Нужно последовательно вводить значения с одинаковых и разных userForm. На каждую ячейку привязана userForm. Как переходить к следующей ячейке после выборы в userForm? Т.е. как только закрывается userForm1 происходит переход к заданной ячейке где появляется заданный к этой ячейке userForm
Закрыть форму с сохранением значения в ячейке
 
Как сделать сохранение значения в ячейке после нажатия ESC?
Более подробно в приложении.
Userform закрыть через ESC
 
Вот нашел кодик, но не знаю как запустить. Подправьте пожалуйста. Есть разница куда его вставлять: модуль или лист? У меня ни там ни там не срабатывает.
Код
Private Sub ComboBox1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyEscape Then
Unload UserForm1
End If
а может есть более рациональное решение, оч интересно
Изменено: Dobepman - 13.12.2018 21:02:18
Combobox извлечь из второй колонки
 
в Combobox  2 колонке, не могу понять как вставлять в ячейку значения второй колонке, но выбор происходит по первой. т.е. все так как в примере только вставка в ячейку из второй колонке, помогите пожалуйста.
Изменено: Dobepman - 13.12.2018 17:12:05
В Combobox извлечь по первым символам и изменить порядок значения
 
Здравствуйте! Уважаемые знатоки, прошу дать пожалуйста ответ на следующий не большой вопрос.
Имеем список вида:
Иванов Иван Иванович значение1 значение2 значение3 значение4
Необходимо получить: значение4 Иванов И.И.
Нюанс в том что значение4 может быть одним словом или двумя, но между ними всегда пробел.
Изменено: Dobepman - 08.12.2018 20:16:45
В ComboBox извлечение первого символа после пробела
 
Здравствуйте! Уважаемые знатоки, прошу дать пожалуйста дать ответ на следующий не большой вопрос.
Забиваем ФИО через combobox, но в ячейки нужна подстановка из столбца В:В. Т.е. набрали в соmbobox Иванов Иван Иванович, в ячейки получили Иванов И.И.
Как сохранить значение в комбобокс при инициализации
 
Здравствуйте! Уважаемые знатоки. подскажите пожалуйста. Как сохранить значение в комбобокс при инициализации.  
Из диапазона с пробелами получить список без пробелв
 
Подскажите пожалуйста, как при протаскивании получить список без пробелов
Страницы: 1 2 След.
Наверх