Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 След.
Макросом присвоить диапазону формат ячейки
 
Не подходит. значения должны остаться, а не равняться в1
Макросом присвоить диапазону формат ячейки
 
Подскажите пожалуйста макрос который изменит формат ячеек в2:в6 на такой же как в в1
Макросом присвоить диапазону формат ячейки
 
Здравствуйте ! Подскажите пожалуйста.
Как применить формат ячейке В1 к тем ячейкам что ниже? Дело в том что в ворде при слиянии 9 есть, а 10 нет пишет 0.
В ручную избавляться от формулы и в каждой ячейке менять формат ячейке очень долго и неудобно, т.к. в каждую ячейку нужно заходить через f2.
Изменено: Dobepman - 14 Окт 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 - 4 Авг 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
Почему не срабатывает нумерация на втором листе в цикле?
 
Теперь понял. Заработало .спасибо
Почему не срабатывает нумерация на втором листе в цикле?
 
vikttur, не понимаю Вас .
кто-нибудь попробовал практически ? Перед тем как советовать
Почему не срабатывает нумерация на втором листе в цикле?
 
Что делаю не так ?
Почему не срабатывает нумерация на втором листе в цикле?
 
Не работает!
Почему не срабатывает нумерация на втором листе в цикле?
 
Пробовал и range("...") и так [...]
нумерация на втором листе все равно не срабатывает
Изменено: Dobepman - 24 Июл 2019 22:24:47
Почему не срабатывает нумерация на втором листе в цикле?
 
Подскажите пожалуйста как исправить ?
Изменено: Dobepman - 24 Июл 2019 21:06:24
Макрос автоматической печати jpg
 
Спасибо. Работает. Но не так как планировалось. Как будто усер находится в директории выделяет два файла jpg и отправляет на печать. В результате одно окно печати на два файла. Такова цель. Это удобно при двусторонней печати. А макрос открывает на каждый файл отдельное окно печати.  
Макрос автоматической печати jpg
 
Подскажите пожалуйста как печатать два и более файла с помощью этого кода
Код
Private Declare Function apiShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                                         ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
                                         ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Sub МакросПечати()
    On Error Resume Next
    ' допустим, ссылка в ячейке A1 находится
    Filename$ = Range("a1").Hyperlinks(1).Address
    If Filename$ = "" Then MsgBox "Нет ссылки в ячейке", vbCritical: Exit Sub
 
    ' если ссылка относительная - надо еще путь к папке дописать.
    ' это уже сами доделаете в коде
 
    ' вызов команды печати файла
    Call apiShellExecute(Application.hwnd, "print", Filename$, vbNullString, vbNullString, 0)
End Sub
Скрывать строки checkbox`ом на нескольких листах одновременно
 
Работает ! Спс
Скрывать строки 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
Брать числа из выделенного диапазона вместо ввода вручную, Вместо единичного ввода искомого значения, брать из выделенного диапазона эти искомые значения
 
Не понимаю Вас. Фильтр скрывает строку, при выделении диапозона макрос берет из скрытой строки число, а это происходить не должно
Изменено: Dobepman - 29 Июн 2019 17:58:13
Брать числа из выделенного диапазона вместо ввода вручную, Вместо единичного ввода искомого значения, брать из выделенного диапазона эти искомые значения
 
 влияние фильтра не учел. Как быть посоветуйте плиз  
Изменено: Dobepman - 29 Июн 2019 14:57:01
Брать числа из выделенного диапазона вместо ввода вручную, Вместо единичного ввода искомого значения, брать из выделенного диапазона эти искомые значения
 
Как вместо 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 Июн 2019 08:54:20
checkbox скрыть строку и отобразить слово в ячейки и обратно
 
Когда галочка стоит в А1 внести «стоит»,  а когда снята А1 очистить
Спасибо
Изменить связи без лишних вопросов vba
 
Nordheim, такая же ошибка
Изменить связи без лишних вопросов vba
 
Поиск по сайту нужного результата не дал. Как считаете есть решение ? Пожалуйста помогите.
Изменить связи без лишних вопросов vba
 
При обновлении связи
Записал через рекордер, проблема в том, что выдает окно в котором нужно указать и выбирать обновляемый файл. Как убрать(игнорировть) это диаг. окно чтобы оно не появлялось? Но при этом источник обновлялся
Код
Application.DisplayAlerts = False
    ActiveWorkbook.UpdateLink Name:= _
        "\\aaaa\Книга.xlsm", Type:= _
        xlExcelLinks
Application.DisplayAlerts = True
После добавления
Application.DisplayAlerts = False

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

Изменено: Dobepman - 5 Авг 2019 08:01:40
отобразить окно с сообщением
 
Подскажите пожалуйста подскажите пожалуйста как реализовать следующую идею.
Есть диапазон в котором формула отображает определенно слово ("вода")при определенных условиях. Нужно отображать окно с сообщением как только слово "вода" в диапазоне появилось.
Создать комментарий с содержимым формулы, а формулу превратить в значение(КопиПаст)
 
После действия макроса имеем коментарий содержащий формулу, нужно эту формулу вернуть в ячейку
Sanja, то-что нужно спс
Создать комментарий с содержимым формулы, а формулу превратить в значение(КопиПаст)
 
Sanja, Дмитрий(The_Prist) Щербаков, спасибо. А как в обратном направлении?
Как переходить по ячейкам после userForm
 
Спасибо за полезную информацию.
Как найти между двумя датами все месяца в которых 31 день
 
Случайно вспомнил про ДНЕЙ360. Всем спасибо тема закрыта
Страницы: 1 2 3 4 5 След.
Наверх