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

Страницы: 1 2 След.
Список по нескольким условиям
 
#
28.02.2024 14:49:42
Добрый!
Задача создать единый список по нескольким условиям!
На примере списка покупок.
А - название магазина
В - товар из этого магазина
Требуется создать единый список на несколько магазинов с соответствующими им товарами.
 
Перейти    
Правильно вставить СИМВОЛ(10), чтобы каждая ячейка начиналась с пустой строки
 
#
08.01.2021 13:29:29
Подскажите пожалуйста куда и как правильно вставить СИМВОЛ(10) чтобы каждая ячейка начиналась с пустой строки, но при этом разрыва между следующими строками в ячейке не было.
 
Перейти    
Итоги в первой стоке группы
 
#
08.01.2021 01:24:10
Как написать формулу так, чтобы перевернуть и результат был в первой строчке. Чтобы при удалении дубликатов по 1 столбцу были полные данные
 
Перейти    
Изменять данные при изменении значений в выпадающем списке
 
#
14.04.2017 11:22:51
Всем доброго времени суток.
Как заставить изменятся данные основанные на выпадающем списке при изменении значений самого выпадающего списка?
 
Перейти    
Второй DblClick, повторный, двойной клик
 
#
11.03.2017 10:40:15
По отдельности работает и Click и DblClick, а при совмещении перестает выдавать 4
Скрытый текст

Задача обработать первый и второй Click, также и с DblClick
 
Перейти    
Отследить защиту листа
 
#
10.03.2017 18:26:52
Отслеживаю изменение защиты листа
Код
If ActiveSheet.ProtectContents = False
Worksheet_Change
Worksheet_SelectionChange
и Calculate (00:00:01)
правильно ли я поступаю или возможно чем то другим, более оперативно отследить?

Еще добавил Workbook_SheetActivate
Изменено: SHARP - 14.03.2017 02:42:47
 
Перейти    
Выполнить макрос на всех листах
 
#
10.03.2017 13:32:18
Доброго времени суток
Как сделать так, чтобы При сохранении книги макрос работал на всех листах где это нужно, а не только на активном?

Скрытый текст
 
Перейти    
Зациклить SpinButton
 
#
22.06.2016 21:36:25
Всем доброго времени суток
Как зациклить SpinButton, чтобы при достижения мак. или мин. он не останавливался
Например при мин.=0 и мак.=9   8 - 9 - 0 - 1 и т.д.
Код
Private Sub SpinButton1_Change()
    TextBox1.Text = CStr(SpinButton1.Value)
End Sub
значения меняются в TextBox
 
Перейти    
Замена части текста в ячейке
 
#
05.01.2016 22:46:27
Доброе времени суток
Всех с прошедшими и наступающими :)
Подскажите пожалуйста функцию, которая бы меняла часть текста в ячейке на текст из словаря.  
 
Перейти    
Количество знаков с условием
 
#
23.12.2015 04:41:04
Количество знаков с условием

Доброе время суток
Все символы и знаки латинского алфавита идут как 1 знак, а все остальное за 2.
как используя функцию ЛЕВСИМВ или какую либо пользовательскую функцию выдать строчку с заданным количеством знаков
Пример
12345 АБВ = 12 знаков
длинна не должна превышать 9 знаков
=ЛЕВСИМВ("12345 АБВ";9) - 12345 А
12345 и пробел это 6 знаков + русская А это еще 2 знака = 8, что удовлетворяет условию, а если добавить еще один символ русского алфавита, то это уже будет 10, что превышает критерий.
 
Перейти    
Количество знаков в ячейке с условием
 
#
14.12.2015 01:16:14
Как подсчитать количество знаков в текстовой строке при условии что кириллица идет за 2, а все остальное за 1
Пример:
12345 ABC=9
12345 АБВ=12
 
Перейти    
Выполнить удаление ячеек со сдвигом
 
#
15.11.2015 13:09:45
Добрый день.
Как удалить ячейки при условии (содержащие "-") со сдвигом влево?
Пример-результат приведен в первый 5 строках.
Заранее спасибо.
Изменено: SHARP - 15.11.2015 13:27:18
 
Перейти    
Копирование условного форматирование в другие книги
 
#
24.04.2015 12:24:53
Всем доброго времени суток
Подскажите пожалуйста, как можно распространить условное форматирование на несколько книг?
 
Перейти    
Отследить активность книги, закрыть книгу через время если нет активности
 
#
13.02.2015 03:29:14
Закрыть книгу при отсутствии активности в течении определенного времени. Под активностью подразумевается внесение изменений.
Как отследить эту активность?.
 
Перейти    
Удаление строки с примененным фильтром
 
#
29.10.2014 20:07:28
Как удалить строку из таблицы с примененным фильтром?
Команда
Код
Selection.EntireRow.Delete
выдает ошибку
не допускается сдвиг ячеек в таблице или диапазоне с примененным фильтром
Изменено: SHARP - 29.10.2014 20:07:59
 
Перейти    
Вставить без форматирования, выдает ошибку
 
#
24.10.2014 18:56:39
Пытаюсь убрать формат при вставке, код начинает ругаться

Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Вставляем, если был двойной щелчок по ячейке
    If Not Intersect(Target, Range("C2:I999")) Is Nothing Then
        Application.EnableEvents = False
        Cancel = True
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
        Application.EnableEvents = True
        Cancel = True
    End If
    If Not Intersect(Target, Range("A2:A999")) Is Nothing Then
        Application.EnableEvents = False
        Cancel = True
            ActiveCell.Rows("1:1").EntireRow.Delete Shift:=xlUp
        Application.EnableEvents = True
    End If
End Sub
Изменено: SHARP - 24.10.2014 18:57:56
 
Перейти    
Одновременно SelectionChange и BeforeDoubleClick, работает только SelectionChange
 
#
24.10.2014 10:47:32
Пишу код
По нажатие на ячейку он должен копировать данные из этой ячейки
По двойному нажатию вставлять данные в нее данные из буфера

Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Копируем, если был одиночный щелчок по ячейке
    If Target.Cells.Count > 1 Then Exit Sub
     If Not Intersect(Target, Range("E2:E999" ;) ) Is Nothing Then
      Application.EnableEvents = False
      ActiveCell.Copy
      Application.EnableEvents = True
     End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Вставляем, если был двойной щелчок по ячейке
    If Not Intersect(Target, Range("E2:E999" ;) ) Is Nothing Then
     Application.EnableEvents = False
     Cancel = True
     ActiveSheet.Paste
     Application.EnableEvents = True
    End If
End Sub

В данном варианте только копирует. Что не так?
Изменено: SHARP - 24.10.2014 10:50:04
 
Перейти    
Выделение, начиная с не пустой ячейки
 
#
13.03.2014 15:00:17
Макрос выделяет все ячейки начиная с 3 по последнею заполненную.
Код
    Dim r As Range
    With Range("B3:C99")
        For i = .Rows.Count + .Row - 1 To 1 Step -1
            If .Cells(i, 1).Value <> "" Then _
            Set r = Range(.Cells(1, 2), .Cells(i, 2)): Exit For
        Next
        If Not r Is Nothing Then r.Select
     End With
Что нужно дописать, чтобы при наличии первых пустых строк он их пропускал?
 
Перейти    
Создать книгу из шаблона с присвоением ей имени из ячейки
 
#
14.02.2014 18:27:36
С праздником дорогие форумчане!
Существует ли такая возможность, чтобы при создании книги из шаблона ей присваивалась бы имя из ячейки. Книга создаеться, проводяться расчеты и в последсвии не сохраняется.
Изменено: SHARP - 14.02.2014 18:29:34
 
Перейти    
Function СЦЕПИТЬНЕПУСТЫЕ поведение функции при изменении количества знаков разделителя, Изменить код и сделать ее более универсальной
 
#
19.12.2013 22:28:52
Есть такая замечательная функция из старого форума

Код
Function СЦЕПИТЬНЕПУСТЫЕ(rng As Range, Optional ЗнакРазделитель As String) As String 
 Dim str As String 
 Dim cel As Range 
 For Each cel In rng 
 If cel.Value & "" <> "" Then 
 str = str & ЗнакРазделитель & cel.Value 
 End If 
 Next 
 If ЗнакРазделитель <> "" Then 
 str = Mid(str, 2) 
 End If 
СЦЕПИТЬНЕПУСТЫЕ = str 
End Function  


она прекрасно работает при точно указанном параметре str = Mid(str, 2)
как можно изменить эту функцию, чтобы не приходилось указывать это число знаков разделителя. Ведь в одной книге могут встречаться сцепки с разными разделителями и разным количеством знаков. Приходиться для каждой сцепки писать свою функцию.
Ошибка возникает лишь в начале строки.
Например:
если указать str = Mid(str, 2), а в разделителе прописать " - " (три символа). Функция вставляет в начало строки "- " (два символа).
Можно это как-то поправить?
 
Перейти    
[ Закрыто] Выделение одного столбца на основании данных в другом
 
#
13.12.2013 02:14:02
Как выделить данные в столбце C на основании столбца B
Нашел функцию,


Код
Range(Cells(3, 3), Cells(Range("B" & Rows.Count).End(xlUp).Row, 3)).Select

но она захватывает и формулы, хотя результаты ""
 
Перейти    
найти и сохранить текст (описание) в конце столбца
 
#
12.12.2013 11:02:07
Как найти и сохранить текст (описание) в конце столбца? Бывает, что описаний несколько и идут они через пустую строчку.
 
Перейти    
Абзац в ячейке, Способ разделения содержимого ячейки на абзацы
 
#
25.10.2013 21:38:34
A1 Первый
A2 Второй
=A1&СИМВОЛ(10)&A2

Как избавиться от кавычек?
"Первый
Второй"

Или может есть другой способ
Изменено: SHARP - 25.10.2013 22:02:54
 
Перейти    
Проверить содержимое буфера и предотвратить появление ошибки
 
#
25.10.2013 17:09:04
1.буфер пуст
ошибка
Run-time error '1004':
Метод Paste из класса Worksheet завершен неверно
Код
    Range("A1").Select
    ActiveSheet.Paste
2.буфер не содержит данных для специальной вставки
ошибка
Run-time error '1004':
Метод PasteSpecial из класса Worksheet завершен неверно
Код
    Range("A1").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
    False, NoHTMLFormatting:=True

Как можно предотвратить постоянное появление этих ошибок и заменить их на сообщение ну или на звуковой сигнал.
Изменено: SHARP - 25.10.2013 22:11:55
 
Перейти    
Копировать содержимое скрытых ячеек, копируются не все ячейки прописанные в коде
 
#
25.10.2013 15:44:32
строка 54 и 55 скрыта

Код
Sub Копировать()
    Application.ScreenUpdating = False
    Range("D53:D55").Select
    Selection.Copy
End Sub

по факту происходик копирование только одной, не скрытой ячейки D53. Как это исправить?
Отображать это содержимое не вариант, т.к. в других местах этих скрытых строк значительно бельше.
Изменено: SHARP - 25.10.2013 15:48:06
 
Перейти    
Запуск макроса из вне.
 
#
17.02.2011 21:24:53
Как запустить макрос (в фоне), находящийся в книге ярлыком на рабочем столе?
 
Перейти    
Что полсе MsgBox
 
#
03.12.2009 07:58:55
Как убить процесс после нажатия Закрыть (крестик) MsgBox
 
Перейти    
ЗАКРЫТЬ книгу Excel
 
#
12.11.2009 16:17:33
Открыта книга Excel расположенная на  USB Flash drive (флешка)  
Как закрыть книгу Excel или сам Excel при извлечении Flash из USB порта
 
Перейти    
Имя файла
 
#
10.11.2009 22:21:30
Как сделать, чтобы при нажатии кнопки "сохранить", новая книга сохранялась с датой и временем ее создания (формат yyyy.mm.dd_hh.mm.ss)  
Нашел такую штуку  
ActiveWorkbook.SaveAs Filename:="Format(Now(), "yyyy.mm.dd") & ".xls"  
не знаю как применить
 
Перейти    
Изменить веб-запрос если ошибка (Курс валют)
 
#
09.11.2009 17:29:50
Макрос - Курс доллара для любой заданной даты из архива Центробанка РФ (через интернет).  
Существуют даты для которых отсутствует официальный курс (напр. 03.01.1993), и в ячейки появляется "ых по к"  
Как это можно исправить и изменить дату запроса на ближайшею с известным курсом.
 
Перейти    
Страницы: 1 2 След.
Наверх