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

Страницы: 1
Сдвинуть с помощью Offset
 
#
02.08.2015 03:57:47
Спасибо!

РЕШЕНИЕ:
Код
    ЕКСЕЛЬДатаРожденияВремен    = ЯчейкаЕКСЕЛЬДатаРождения.Offset(1,0);
    ЕКСЕЛЬДатаРождения =        ЕКСЕЛЬДатаРожденияВремен.offset(0,1).value;
Изучаю VBA
 
Перейти    
Сдвинуть с помощью Offset
 
#
02.08.2015 03:38:00
Юрий М,на форумах 1с, не могут подсказать по VBA. Вот по этому я к профессионалам VBA обратился.
Изучаю VBA
 
Перейти    
Сдвинуть с помощью Offset
 
#
02.08.2015 03:29:45
Код
ЯчейкаЕКСЕЛЬДатаРождения = Лист.Find("4. Число, месяц, год рождения",РабочийЛист.Range("A1"));
ЕКСЕЛЬДатаРождения    = ЯчейкаЕКСЕЛЬДатаРождения.Offset(1,1).value;

Я пишу на 1с. Но использую VBA.
Изучаю VBA
 
Перейти    
Сдвинуть с помощью Offset
 
#
02.08.2015 03:02:24
Цитата
Юрий М написал:
Cells(12, 1).Offset(1, 1).Select
Не получается.
Но если указываешь Offset(0,1) или Offset(1,0) , то он выделяет соседние ячейки
Изучаю VBA
 
Перейти    
Сдвинуть с помощью Offset
 
#
02.08.2015 02:46:29
Здравствуйте, я нахожу Find*ом ячейку A12 (по тексту), но как мне от этой ячейки при помощи Offset двинуть на ячейку с датой рождения?
Изучаю VBA
 
Перейти    
Дальневосточный коэффициент
 
#
13.06.2015 11:00:38
Решено:
=ЕСЛИ((РАЗНДАТ(E6;СЕГОДНЯ();"y")<30);ЕСЛИ(D6<=$I$5;0;ЕСЛИ(D6<=$I$6;C6*$K$6;ЕСЛИ(D6<= $I$7;C6*$K$7;ЕСЛИ(D6>$I$8;C6*$K$8))));ЕСЛИ(D6<=$O$5;0;ЕСЛИ(D6<=$O$6;C6*$M$6;ЕСЛИ(D6<= $O$7;C6*$M$7;ЕСЛИ(D6>$O$8;C6*$M$8)))))
Изучаю VBA
 
Перейти    
Дальневосточный коэффициент
 
#
13.06.2015 10:04:02
Помогите пожалуйста расчтитьа дальневосточный коэффициент, не получается с вложенными если =(
Изучаю VBA
 
Перейти    
Заполнение таблицы из множества файлов, .xls
 
#
11.01.2015 11:53:58
Leanna и Hugo
Выражаю вам огромную благодарность за помощь в доработке кода.

 ;)
Изменено: joyks - 11.01.2015 11:54:07
Изучаю VBA
 
Перейти    
Заполнение таблицы из множества файлов, .xls
 
#
11.01.2015 03:30:44
Leanna,прикладываю файлы примеры и файл с кодом test.xlsm (в комментариях описание проблемы)
Изучаю VBA
 
Перейти    
Заполнение таблицы из множества файлов, .xls
 
#
10.01.2015 08:51:44
Друзья, новогодние выходные заканчиваются, вот вот на работу выходить. Помогите пожалуйста закончить программу.
Изучаю VBA
 
Перейти    
Заполнение таблицы из множества файлов, .xls
 
#
09.01.2015 13:12:17
Юрий М,Убрал цитирование вообще.
Информация переваривается и отслаивается на коре  ;) . Спасибо всем вам огромное.
Изучаю VBA
 
Перейти    
Заполнение таблицы из множества файлов, .xls
 
#
09.01.2015 12:45:49
Не получается это все заставить работать, не хватает практических знаний.
Помогите пожалуйста с полной версией кода.
Закончить нужно в ближайшие время, голова просто взрывается от обилия информации по VBA.  :oops:
Изменено: joyks - 09.01.2015 13:09:48
Изучаю VBA
 
Перейти    
Заполнение таблицы из множества файлов, .xls
 
#
09.01.2015 12:29:25
Проблема в том что при открытии книги, не могу указать что нужно тянуть данные в массив или переменную с ОТКРЫТОЙ КНИГИ, а не активной. У меня получается копировать ячейки или переносить сразу только на активном листе %)

Hugo,будьте любезны когда будет время и желания помогите с кодом с использованием массива первого варианта
Изучаю VBA
 
Перейти    
Изучение VBA. С чего начинать.
 
#
09.01.2015 11:43:05
Roman_Sleptsov, есть в свободном доступе курсы от "Специалиста" - 5 уровней. Предлагаю вам ознакомиться с ними.
Изучаю VBA
 
Перейти    
Заполнение таблицы из множества файлов, .xls
 
#
09.01.2015 11:30:20
Hugo,слишком сложно для моего восприятия ваш второй вариант. Есть возможность сделать проверку на условие как в первом варианте(поячеечно)?
Буду налигать на изучение массивов  :oops:
Изучаю VBA
 
Перейти    
Заполнение таблицы из множества файлов, .xls
 
#
09.01.2015 10:18:49
Hugo,попробовал переставить условие if повыше, но это не дает эффекта, все равно проверяется активная книга.  Предполагаю что нужно принудительно указать где проверять условию
Код
 If IsEmpty(ТУТ.что-то.Range("A9") = True Then
Изменено: joyks - 10.01.2015 10:16:10
Изучаю VBA
 
Перейти    
Заполнение таблицы из множества файлов, .xls
 
#
09.01.2015 08:13:30
Код
For i = 1 To fd.SelectedItems.Count    'перебор имён файлов
     With GetObject(fd.SelectedItems(i))    'открываем
      a = .Sheets(1).[b5:b12].Value    'берём данные в массив
      '.Close False    'закрываем без сохранения изменений (их правда и нет)
     End With
     il = Range("A" & Rows.Count).End(xlUp).Row + 1    'определяем последнюю строку

    If IsEmpty(Range("A9") = True Then 
     Cells(il, 1) = a(1, 1)                                  
     Cells(il, 2) = a(3, 1)
     Cells(il, 3) = a(7, 1)
     Cells(il, 4) = a(8, 1)
     Else
     Cells(il, 1) = a(1, 1)    
     Cells(il, 2) = a(3, 1)
     Cells(il, 3) = a(5, 1)
     Cells(il, 4) = a(6, 1)
    End If

    Next i

Делаю проверку на наличие данных в ячейке "A9" в документе который загружается, но он делает проверку в активной книге, а должен проверять в открываемом файле и копировать нужные элементы массива
     
Изменено: joyks - 09.01.2015 08:15:28
Изучаю VBA
 
Перейти    
Заполнение таблицы из множества файлов, .xls
 
#
08.01.2015 11:49:14
Hugo,Спасибо код отлично работает, если есть возможность прокомментируйте строчки для полного восприятия.
Код
  For i = 1 To fd.SelectedItems.Count
        With GetObject(fd.SelectedItems(i))
            a = .Sheets(1).[b5:b10].Value  
        End With
        il = Range("A" & Rows.Count).End(xlUp).Row + 1  'Интересует именно эта строка
        Cells(il, 1) = a(1, 1)
        Cells(il, 2) = a(3, 1)
        Cells(il, 3) = a(5, 1)
        Cells(il, 4) = a(6, 1)
    Next i
Изменено: joyks - 08.01.2015 12:17:32
Изучаю VBA
 
Перейти    
Заполнение таблицы из множества файлов, .xls
 
#
08.01.2015 11:30:46
TIMUA,интересно будет услышать ваше решение, без использования VBA.[USER=64][/USER]
Изучаю VBA
 
Перейти    
Заполнение таблицы из множества файлов, .xls
 
#
08.01.2015 10:57:15
Hugo,вы правы такого кода у меня нет, потому что я не знаю как написать чтобы книга открывалась, данные копировались, закрывалась и открывалась следующия книга.   :)  

Нужно копировать ячейки B7 B9 B10 из открываемой книги в ячейки b2 c2 d2 файла test.xlsm
Надеюсь на вашу поддержку  ;)
Изменено: joyks - 08.01.2015 12:16:37
Изучаю VBA
 
Перейти    
Заполнение таблицы из множества файлов, .xls
 
#
08.01.2015 10:09:58


Прикладываю скриншот, открывается файл откуда копируются данные в табличку test.xlsm, закрывается и все это в цикле.
Изменено: joyks - 08.01.2015 10:11:17
Изучаю VBA
 
Перейти    
Заполнение таблицы из множества файлов, .xls
 
#
08.01.2015 06:56:50
Здравствуйте, прошу помощи в доработке процедуры.

Имеется файл test.xlsm с макросом, который должен обрабатывать выбранные .xls файлы пользователем. И копировать из файлов определенные ячейки в табличку на первом листе test.xlsm.

1. Вызываю циклом выбранные файлы, но не могу понять как скопировать оттуда нужную информацию в общею таблицу. Например ячейки  B7 B9 B10.
2. Проблемка еще в том что файлах которые нужно обрабатывать ячейки которые нужно копировать объединены. Например B7 + С7  B9 + С9  B10 + С10
Прикладываю файл примера с загружаемыми файлами.
Изменено: joyks - 09.01.2015 14:10:14
Изучаю VBA
 
Перейти    
Страницы: 1
Наверх