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

Страницы: 1
Как написать макрос для "протягивания" ячеек с формулами?
 
{quote}{login=ber$erk}{date=19.11.2012 03:45}{thema=Re: Re: Re: }{post}{quote}{login=Z}{date=19.11.2012 03:38}{thema=Re: Re: }{post}  
Вы не забывайтесь, пожалуйста, форумчане дают решения, Н Е И М Е Я вашего примера с вашей хочухой - а вы "похоже"... -12171-{/post}{/quote}  
...кстати да. с примером сразу было бы все понятно.  
________________________  
khafizovtt@gmail.com{/post}{/quote}  
То что НАДО!!! Спасибо огромное!!!
Как написать макрос для "протягивания" ячеек с формулами?
 
{quote}{login=ber$erk}{date=19.11.2012 03:05}{thema=}{post}такого типа чтоли?  
________________________  
khafizovtt@gmail.com{/post}{/quote}  
 
Очень похоже на правду, только вправо формулу протягивать не нужно. Необходимо  чтоб макрос уточнил количество столбцов расположенных правее от столбца с выделенной ячейкой в которых нужно сделать тоже самое. Т.е. протянуть в каждом столбце свою ячейку со своей формулой.
Как написать макрос для "протягивания" ячеек с формулами?
 
{quote}{login=Baklanoff}{date=19.11.2012 03:06}{thema=}{post}Формула тиражируется только из выбранной ячейки или из всей строки, где расположена выбранная ячейка?  
И уточните, пжлст, помочь или написать?{/post}{/quote}  
 
Уточняю...помочь написать.
Как написать макрос для "протягивания" ячеек с формулами?
 
{quote}{login=Silver}{date=19.11.2012 03:17}{thema=}{post}Формула в каждой ячейки стоки...своя.{/post}{/quote}  
 
Перечитал и ужаснулся... :))  
 
Формула в каждой ячейке строки своя... уникальная.
Как написать макрос для "протягивания" ячеек с формулами?
 
Формула в каждой ячейки стоки...своя.
Как написать макрос для "протягивания" ячеек с формулами?
 
Добрый день жителям планеты Excel!  
Помогите пожалуйста с написанием макроса для протягивания ячеек с формулами. Хотелки следующие:  
1. Имеется строка с формулами. Выделяю любую ячейку из этой строки.  
2. Запускаю "вожделенный" макрос.  
3. Отвечаю на запрос 1... " на сколько строк протянуть выделенную ячейку вниз"  
4. Отвечаю на запрос 2... " в скольки столбцах расположенных правее от столбца с выделенной ячейкой сделать тоже самое..."    
 
Заранее спасибо за ответы!!!
Как подсчитать дни отдыха???
 
Приогромное спасибо за помощь!!!
Как подсчитать дни отдыха???
 
Добрый день уважаемые форумчане! Помогите пожалуйста подсчитать количество дней отдыха у работников.    
Заранее благодаю всех откликнувшихся!
Зависимость списка Active X от двух стандартных списков (данные-проверка-список)
 
{quote}{login=vikttur}{date=31.10.2011 01:09}{thema=}{post}1. Для вопроса по трем ячейкам не обязательно выкладывать 30 Кб архива.  
2. Смысл применения списка Active_X, если используете Проверку_данных?{/post}{/quote}  
 
Потому как в проверке данных более 8 стр никак не отобразить да еще и мелким шрифтом, плюс ко всему у проверки данных нет поиска по первым буквам...
Зависимость списка Active X от двух стандартных списков (данные-проверка-список)
 
Всем доброго времени суток!  
 
Уважаемые  знатоки VBA, помогите разобраться в тонкостях,  
экспериментирую уже несколько дней, но вижу что не получается из-за нехватки знаний.  
 
Задача:    
 Есть список типа Acnive X, расположенный в ячейке "О24" и есть два списка типа данные-проверка-список, расположенные в ячейках "О23" и "Р23".  
 Нужно чтоб при значении ячейки "О23" равном нулю "0" или "", список Acnive X и список    
 ячейки "Р23" были пусты, а при любом другом допустимом значении ячейки "О23"    
 список Acnive X был зависимым списком  от "Р23".  
 
Файл с образцом во вложении, буду очень признателен за помощь.  
 
Заранее огромное спасибо
Как объеденить несколько Private Sub-ов?
 
Мужики, огромное спасибо и за помощь и за разъяснение, пошел учиться,    
а то пока это точно "трагедия" ))
Как объеденить несколько Private Sub-ов?
 
{quote}{login=Юрий М}{date=25.10.2011 10:52}{thema=}{post}Для начала:  
1. Закомментируйте вообще эту строку If .Cells.Count > 1 Then Exit Sub  
2. Эту строку: IIf Traget.Address="$H$24" Then  
приведите к такому виду:  
If Target.Address="$H$24" Then  
3. Traget везде замените на Target (Вы читаете, что Вам пишут? Ведь говорил же Казанский).  
4. Затем смотрите на контролируемые диапазоны.{/post}{/quote}  
 
Спасибо, сейчас попробую...а с "Target" я только сейчас понял, что он имел ввиду ))
Как объеденить несколько Private Sub-ов?
 
{quote}{login=}{date=25.10.2011 10:33}{thema=Re: Re: }{post}{quote}{login=Silver}{date=25.10.2011 08:22}{thema=Re: }{post}{quote}{login=Юрий М}{date=25.10.2011 10:46}{thema=}{post}Пора файл показать. Если он небольшой.{/post}{/quote}  
 
Подсвечивает красным строку: "IIf Traget.Address="$H$24" Then"  
И выдает ошибку: "Invalid or unqualified reference"
Как объеденить несколько Private Sub-ов?
 
{quote}{login=Юрий М}{date=25.10.2011 10:46}{thema=}{post}Пора файл показать. Если он небольшой.{/post}{/quote}  
 
Вот файл:  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
Как объеденить несколько Private Sub-ов?
 
{quote}{login=Юрий М}{date=25.10.2011 12:47}{thema=}{post}Не может быть два Worksheet_Change. Несколько условий в одном - можно.{/post}{/quote}  
 
Ребята, можно чуть-чуть по подробней, как для чайника, что нужно сделать?  
 
Я добавлял тело последнего Sub-а в первый, без  
                Private Sub Worksheet_Change(ByVal Target As Range)  
                End Sub  
этих строк, но выдает другую ошибку: "Variable not defined".  
Пробовал переименовать название Sub-а в Worksheet_Change1, ошибок нет, но условие второго не работает...
Как объеденить несколько Private Sub-ов?
 
Всем доброго времени суток.  
 
Джентельмены, вопрос наверняка простой, прошу не судить строго, я пока только разбираюсь.  
Ессть лист:  
 
Option Explicit  
 
Private Sub ComboBox1_Change()  
 
End Sub  
Private Sub ComboBox2_Change()  
 
 
End Sub  
 
 
Private Sub ComboBox3_Change()  
 
 
End Sub  
 
Private Sub ComboBox4_Change()  
 
End Sub  
 
Private Sub ComboBox5_Change()  
 
End Sub  
 
Private Sub Worksheet_Change(ByVal Traget As Range)  
 
       
If Traget.Address = "$P$23" Then  
 
Application.EnableEvents = False  
ComboBox4.List = Range(Traget).Value  
ComboBox4.ListIndex = -1  
Application.EnableEvents = True  
End If  
 
If Traget.Address = "$Z$23" Then  
 
Application.EnableEvents = False  
ComboBox5.List = Range(Traget).Value  
ComboBox5.ListIndex = -1  
Application.EnableEvents = True  
End If  
       
End Sub  
 
Сюда нужно добавить:  
Private Sub Worksheet_Change(ByVal Target As Range)  
   
   If Target.Cells.Count > 1 Then Exit Sub  
   If Not Intersect(Target, Range("H24")) Is Nothing Then  
       If Target = 0 Or Target = "" Then  
           Me.ComboBox3 = ""  
           Me.ComboBox3.ListFillRange = ""  
       Else  
           Me.ComboBox3 = ""  
           Me.ComboBox3.ListFillRange = "Стекло"  
       End If  
   End If  
     
End Sub  
 
Как это грамотно сделать, так как выдает ошибку: "Ambiguous name detected"  
 
Заранее спасибо!
Ячейка и список
 
Всем доброго времени суток.  
 
Помогите, пожалуйста, гуру EXCEL, так как сам несилен.  
 
Есть две ячейки, одна с простым списком (данные-проверка-список), а другая со списком-элементом управления.  
Что нужно написать, что бы если ячейка с простым списком равна "0" или "", то список с элементом управления  был пуст, а при любых других значениях ячейки с простым списком - выводил свой список.  
 
Заранее огромное спасибо.  
 
пример во вложении
Ячейка и список
 
{quote}{login=Юрий М}{date=06.07.2011 09:35}{thema=}{post}В модуль листа:  
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Not Intersect(Target, Range("H23")) Is Nothing Then  
       Me.ComboBox1 = ""  
   End If  
End Sub{/post}{/quote}  
 
СУПЕР !!! все так так надо!  
Преогромнейшая благодарность!
Ячейка и список
 
Уважаемые знатоки VBA, помогите, помогите, так как пока не силен в программировании:  
 
Есть ячейка [Н23] и список ComboBox, что нужно написать, чтобы при любом изменении ячейки Н23 содержимое окна со списком обнулялось.
 
Заранее спасибо.
Связанные списки с ActiveX
 
Уважаемые знатоки, еще вопросик, а что нужно написать в макросе, если второй список ориетироваться будет не по првому списку а по ячейке?    
 
Заранее признателен.
Связанные списки с ActiveX
 
{quote}{login=GIG_ant}{date=04.07.2011 10:44}{thema=}{post}вот подправленный{/post}{/quote}  
 
Огромное спасибо!!  
последний пример просто супер!! все оказалось очень просто, если знать ))  
 
Последний вопрос: а что писать если первый список не ComboBox, а стандартный список Excel, как в моем примере?
Связанные списки с ActiveX
 
Подскажите, пожалуйста:  
вопрос: как сделать список ActiveX зависящим от первого списка,  
так как в свойствах в строке ListFillRange можно задать только диапазон ячеек,  
а не =ДВССЫЛ()  
Заранее огромное спасибо!.
Вопрос по формуле целого
 
А на английском как это будет?
Вопрос по формуле целого
 
Возможно ли задать формулу, чтобы Excel производил операции с целым числом, если оно изначально имеет дробную часть???    
 
Спасибо!
Страницы: 1
Loading...