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

Страницы: 1
Спам.
 
Ахтунг!
Игры в Excel ((с) ber$erk)
 
Начало тут.
Убивалка...
Личный рекорд 172.
Добрый я. :)  
Изменено: k61 - 20.09.2017 03:04:40
Личные сообщения. Заполнение ящика - 100%.
 
Исходные данные:
Заполнение ящика личных сообщений – 100%;
Необходимо отправить ЛС.
Проблема (сегодня возникла):
При попытке отправить личное сообщение, получил [по рукам] сообщение «Для отправки сообщения необходимо очистить ящик».
Предпринятые действия:
Справедливо (?) полагая, что очистка 1-2 последних страниц отправленных и входящих ЛС освободит место для отправки 1-го и  решит проблему, удалил примерно 50-80 сообщений. Грозное сообщение не исчезло.
Жалоба:
Пришлось удалить все, нажитые непосильным трудом, сообщения для отправки одного!
А ведь, к примеру, Почта России не заставляет нас выносить из дома все старые письма.
Подсчёт ячеек в Selection отвечающих типу данных заданному SpecialCells., анархия в SpecialCells
 
Здравствуйте все.
Вопрос не спешный.
Вопрос в файле.
Здесь был я.
 
Аэропорт Домодедово. Вылет Якутск в 19-50.  :)
C Новым!!!!, Первая попытка
 
Дорогие мои, Всем всего самого
Изменено: k61 - 28.12.2012 11:34:03
О музыке.
 
Победитель личного хит-парада за 27 декабря 2012 г. гр. «Pink Turtle», за исполнение известных композиций:
03-smoke_on_the_water.mp3
05-hotel_california.mp3
07-black_magic_woman.mp3
12-billie_jean.mp3
и многих др.
Качать здесь: http://musicmp3spb.org/artist/pink_turtle.html
Персональные сообщения.
 
Поле ввода текста персонального сообщения только у меня не работает?
Off. По мотивам Карта Планеты и кто есть Who
 
Карта Планеты - http://www.planetaexcel.ru/forum.php?thread_id=17736)  
Оффтоп по пятницам кто есть Who на форуме - http://www.planetaexcel.ru/forum.php?thread_id=10426  
Год начинается. А мы как сапожники без сапог. Предлагаю записаться (удалиться) всем желающим в базу, для того чтобы в случае перемещения по миру в предстоящем году иметь карманный список.  
Редактируем только последнюю версию файла.
VBA. Partition (функция).
 
Из справки: Partition(number, start, stop, interval), возвращает диапазон, который содержит указанное значение.  
Проблема: Имеем дипазон 1-50, интервал - 10, ищем 29. Циклом перемещаем стартовую позицию на значение интервала. Должны получить все интервалы содержащие 29 (из примере 3). Получаем только третий интервал!!! :(  
Стою на грани депортации этой функции из оборота.  
Или что-то не так делаю?
Replace и знаки подстановки
 
В справке по функции Replace отсутствует явное указание на возможность (невозможность) использования в качестве аргумента Find подстановочных знаков.  
Практические попытки (- не пытки)положительного ответа не дали.  
Следует ли утешиться известной фразой, что отрицательный результат тоже результат?  
Или такая возможность есть?  
s = "$J$10,$J$14,$J$21,$J$27,$J$29,$J$32"  
r = Replace(s, "?", "") 'не работает  
r = Replace(s, "*", "") 'не работает  
r = Replace(s, "[ABCDEFGHIJKLMNOPQRSTUVWXYZ]", "") 'не работает
Была мысль, как Чапаев рубануть с плеча, обойтись без циклов. Но видимо как и он не доплыву до берега:(
ExecuteExcel4Macro и PageSetup
 
в книге (С.Буллен, Р.Боуви, Дж.Грин) сказано, что с помощью функции PageSetup можно ускорить выполнение, например задания колонтитулов:    
ExecuteExcel4Macro "Page.Setup(""&LЛевый &RПравый"")"  
В файле тест скорости выполнения этого метода и традиционного. Оба выполняются 3 раза.  
При первом проходе ExecuteExcel4Macro "Page.Setup...." выполняется в 2 раза быстрее, при 2-ом и 3-ем проходах медленее, чем    
With .PageSetup  
.LeftHeader = "Левый"  
............  
Несрочный вопрос - почему так???
Конкатенация адреса и свойства элемента.
 
Давненько мы не замахивались на Вильяма, нашего, Шекспира:)  
Конкатенация адреса ячейки (или элемента коллекции, или элемента объекта) и строковой переменной содержащей свойство, для проверки в управляющих структурах, возможна?  
Пример:  
'список форматов, например в ComboBox'е:  
Формат = ".Font.ColorIndex"  
Формат = ".Font.Bold"  
Формат = ".Interior.ColorIndex"  
'связанный со списком форматов список допустимых значений:  
Значение = xlNone,.....,36,... 40  
Значение = False, True  
.........  
Set ОбластьПроверки = .Cells(1, 1).CurrentRegion  
For Each x In ОбластьПроверки        'перебираем элементы  
'и проверяем на соответствие критерию форматирования, для чего требуется преобразовать текстовое значение Формат .... в ключевое слово????  
If Cells(x.Row, x.Column) & Формат = Значение  Then 'не работает (как и другие варианты)  
'программа максимум - получить коллекцию(?) элементов соответствующих критерию и что-нибудь с ней сделать (или просто .Select).
Select Case Target.Address
 
Прошу совета, как укоротить Case:  
 Select Case Target.Address 'выбор в Range("K27:L34")  
 Case "$K$27", "$K$27", "$K$28", "$K$29", "$K$30", "$K$31", "$K$32", "$K$33", "$K$34", _  
 "$L$27", "$L$28", "$L$29", "$L$30", "$L$31", "$L$32", "$L$33", "$L$34"  
  Здраствуйте  
 Case Else  
  Досвидания  
 End Select
Ориентация автофигуры.
 
Имеем автофигуру.  
Имеем к ней свойство Adjustments.Item значение которого удлиняет хвост.  
Имеем к ней свойство IncrementRotation которое её вращает (относительно текущего положения) на указанное нами значение.  
А как обязать автофигуру разверyться к лесу передом ко мне задом (влево, вправо, вверх, вниз)?
BeforeRightClick и вставка скопированного
 
При наличии в коде листа процедуры Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean) мы лишены стандартной возможности по правому клику «копировать- ВСТАВИТЬ». В контекстном меню команда "вставить" плохо выглядит.  
С оговоркой, что в BeforeRightClick для выбранной ячейки прописаны некие действия.  
При этом при копировании из строки формул возможность вставить имеет место быть. Но это неприемлемо в ввиду повышенной трудоёмкости.  
Как жить дальше я нас спрашиваю?
API и KeyAscii
 
Кто-нибудь получал коды вводимых в ячейку символов (до нажатия Enter) используя API ???  
Если это возможно, то как ???
База данных. Попытка создания Max'о универсальной.
 
Цель понятна из названия темы.  
Реализовано: сортировки, пометки цветами, выбор уникальных.  
А теперь вопрос (Что Где Когда): что было бы полезным далее делать с уникальными записями ? (мысли на листе "Справка"). Или далее бежать некуда??? Возможности не унифицируются?  
ПыСЫ_1. А не пора-ли нам замахнуться на Вильяма нашего Шекспира? (х/ф "Старики-разбойники).  
ПыСы_2. Скорость работы при работе с большими БД не рассматриваем.
Элемент управления Календарь
 
Есть лист в столб "А" которого необходимо вводить даты в диапазоне "A4:A65536"    
для чего и вызываем колендарище:  
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
If Not Application.Intersect(Range("A4:A65536"), Target) Is Nothing Then  
Sheets(Лист).Calendar1.Value = Date  
Sheets(Лист).Calendar1.Visible = True  
End If  
End Sub  
Как обязать колендарь отобразиться рядом с активной ячейкой???  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
Внешние ссылки .
 
Уважаемые! хелпми:  
Как получить адреса ячеек которые содержат внешние ссылки (мертвые и живые)????
Страницы: 1
Наверх