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

Страницы: 1
Тест тегов, пробую научиться польз-ся тегами
 
#
26.12.2012 21:13:54
Код
Sub ertert()
Dim s, i&
With Range("A2:A6")
    .Replace ",", " ": .Replace ";", " ": .Replace "/", " "
    s = Split(Join(WorksheetFunction.Transpose(.Value), " "))
End With
With CreateObject("System.Collections.ArrayList")
    For i = 0 To UBound(s)
        If Not .Contains(Val(s(i))) Then .Add Val(s(i))
    Next i
    .Sort: Range("A9").Resize(, .Count).Value = .ToArray
End With
End Sub
 
Перейти    
Проверка формулы СУММПРОИЗВ
 
#
21.06.2010 19:55:03
Здравствуйте. У кого 2003 офис посмотрите, пожалуйста, в ячейке Р6 - срабатывает формула или нет. В 2007 работает, а товарищ из 2003-го пишет, что, мол, выдает #ЗНАЧ! Вроде не должно такого быть.
 
Перейти    
Линейный график
 
#
01.06.2010 04:42:34
Доброе утро.  
Второй день ломаю голову - вроде бы просто, а никак не получается. Нужно составить линейный график последовательного выполнения работ с учетом заданной дневной нормы. И здесь требуются средства ВБА. Подробнее в примере.  
Спасибо.
 
Перейти    
Последовательность событий
 
#
16.05.2010 11:26:37
Сначала происходит Worksheet_SelectionChange, а потом Worksheet_Change. Так ведь?
 
Перейти    
Анимация в Excel 2007
 
#
04.04.2010 12:29:14
Здравствуйте.  
Недавно попробовал использовать анимированные кнопки. Получилось интересно (пользователь 2 дня была в восторге).  
Хочу поделиться.  
Первоисточник отсюда:  
http://www.microsoft.com/downloads/details.aspx?familyid=d06ca9bf-cdc5-4253-b847-1139c5ed2575&displaylang=en
 
Перейти    
Кириллица в Custom UI Editor
 
#
28.03.2010 19:05:09
Здравствуйте.  
Столкнулся с такой проблемой. Утилита Office 2007 Custom UI Editor не хочет понимать кириллицу (вставляются ???? вместо русских букв). Вместо того, чтобы написать, например,  
<group id=”rxVasya” label=”Вася”>  
приходится делать  
<group id=”rxVasya” getLabel=”rxVasya_getLabel”>  
и дополнительно использовать обратный вызов  
Sub rxVasya_getLabel(...)  
ReturnValue = “Вася“  
End Sub  
Что нужно сделать, чтобы лейблы сразу писались по-русски?  
Спасибо.
 
Перейти    
Страницы: 1
Наверх