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

Страницы: 1 2 След.
Сортировка списка
 
#
10.04.2021 13:47:38
Помогите написать макрос который будет копировать строки умной таблицы с Листа1 по порядковому номеру на Лист2
 
Перейти    
Преобразование типов
 
#
04.01.2019 18:31:48
Можно и так.
 
Перейти    
Преобразование типов
 
#
04.01.2019 18:26:34
Поэтому нужно чтобы всё выводилось со значением типа string, кроме одного числа который необходимо преобразовать в тип double. Возможно ли такое?
Изменено: Apoc - 04.01.2019 18:27:14
 
Перейти    
Преобразование типов
 
#
04.01.2019 18:21:20
нужно с сохранением строчки
Код
ШКАЛА = "-1..0"
 
Перейти    
Преобразование типов
 
#
04.01.2019 18:18:42
Исправил. Не в цикле, а в конструкции выбора case.
Изменено: Apoc - 04.01.2019 18:20:15
 
Перейти    
Преобразование типов
 
#
04.01.2019 18:11:12
Код
Public Function ШКАЛА(ByVal X As Double) As String
    Dim P As Double
    P = X
    Select Case P
        Case -1 To -0.1
            ШКАЛА = "-1..0"
        Case 1 To 1.5
            ШКАЛА = 2.5
        Case 4 To 6
            ШКАЛА = 10
        Case 20 To 40
            ШКАЛА = 60
        Case 55 To 105
            ШКАЛА = 160
    End Select
End Function

Нужно значения 2,5 перевести в тип данных double

Изменено: Apoc - 04.01.2019 18:16:00
 
Перейти    
Преобразование типов
 
#
04.01.2019 17:54:00
Можно ли преобразовать тип данных в конструкции case?
Нужно преобразовать несколько значений из типа string в тип данных double.
Как это сделать?
Изменено: Apoc - 04.01.2019 18:17:55
 
Перейти    
Макрос подсчета строк
 
#
02.01.2019 17:28:55
Казанский, Спасибо!!! То что надо.
 
Перейти    
Макрос подсчета строк
 
#
02.01.2019 16:10:48
Казанский, так есть вероятность, что кто то по ошибке нарушит нумерацию (затрет формулу и напечатает не ту цифру или вообще ничего не укажет)

Написал макрос, но после его выполнения файл зависает
Изменено: Apoc - 02.01.2019 16:11:41
 
Перейти    
Макрос подсчета строк
 
#
02.01.2019 13:45:24
Нужно написать макрос который будет пересчитывать строки при появлении новой строки в таблице и по возможности с использованием инструментов умной таблицы.
 
Перейти    
Копирование строк в умной таблице (VBA)
 
#
05.04.2018 06:17:30
Dima S, спасибо!
 
Перейти    
Копирование строк в умной таблице (VBA)
 
#
04.04.2018 22:31:49
Есть макрос. Нужно чтобы при копировании на новый лист сохранялись границы строки

Как копировать строки в умной таблице?
 
Перейти    
Узнать код стандартной функции и посмотреть его в VBA
 
#
31.03.2018 16:09:12
БМВ Спасибо всё получилось
Изменено: Apoc - 31.03.2018 16:09:48
 
Перейти    
Узнать код стандартной функции и посмотреть его в VBA
 
#
31.03.2018 15:06:34
У этой функции нет параметра - КВАРТАЛ, только год, месяц, день
 
Перейти    
Узнать код стандартной функции и посмотреть его в VBA
 
#
31.03.2018 14:56:04
Понятно)))
Тогда кто может подсказать как на VBA написать строчку кода которая берет значение с первой ячейки в  которой хранится номер КВАРТАЛА, затем считывает вторую ячейку в которой хранится ГОД соединяет это всё и получается значение в формате даты (число дня не имеет значения) и сохраняет это всё в переменную тип данных которой DATA.
У меня получилось что то вроде этого

Код
dt_c = CDate(Cells(i, 16) * 3 & "/28/" & Cells(i, 17))

но макрос не работает. Думаю я что то не так сделал и какого типа должна быть переменная dt_c

Изменено: Apoc - 31.03.2018 15:01:43
 
Перейти    
Узнать код стандартной функции и посмотреть его в VBA
 
#
27.03.2018 17:34:52
Как узнать код функции дата и просмотреть его в VBA?
 
Перейти    
Перенести строки, удовлетворющие условию, на другой лист
 
#
15.02.2018 22:52:46
Всем спасибо!))) Пока вопросов нет!
 
Перейти    
Перенести строки, удовлетворющие условию, на другой лист
 
#
15.02.2018 22:42:56
Вот, строки которые не копируются (не попадают под условие), на Листе3 пропускаются
 
Перейти    
Перенести строки, удовлетворющие условию, на другой лист
 
#
15.02.2018 22:32:05
Sanja, так скопировались, но строки не по порядку идут. Как сделать чтобы по порядку копировались?
И когда я нахожусь на Листе3 и запускаю макрос то копируется всё. Как это исправить?
Изменено: Apoc - 15.02.2018 22:35:16
 
Перейти    
Перенести строки, удовлетворющие условию, на другой лист
 
#
15.02.2018 22:20:38
Написал наоборот Лист3 так же пустой
Да и в таком случае если бы строка скопировалась, то только одна, а нужно чтобы копировались все которые попадают под условие.
Изменено: Apoc - 15.02.2018 22:24:23
 
Перейти    
Перенести строки, удовлетворющие условию, на другой лист
 
#
15.02.2018 21:55:54
Если написать строку
Код
Sheets(2).Rows(i) = Sheets(3).Rows(1).Value
то при выполнении макроса строки удовлетворяющие условию куда то переносятся (на Листе3 их нет), а нужно чтобы они копировались на Лист3. Как это сделать?
 
Перейти    
Определение квартала из системной даты
 
#
15.02.2018 14:45:43
AAF, хорошо.
Изменено: Apoc - 15.02.2018 22:42:00
 
Перейти    
Определение квартала из системной даты
 
#
15.02.2018 12:48:24
Еще вопрос
Есть условие
Код
If Year(Now) / "=L6:L213" = 1 And a / "=H6:H213" = 1 Then
'ничего не делать
Else
...

как в ИНАЧЕ вписать команду, которая при нарушении условия скопирует строки в которых находились ячейки не удовлетворяющие If Year(Now) / "=L6:L213" = 1 And a / "=H6:H213" = 1 на новый лист
Изменено: Apoc - 15.02.2018 12:56:40
 
Перейти    
Определение квартала из системной даты
 
#
15.02.2018 11:39:59
Нужно в VBA определить текущий квартал, из системной даты и присвоить это значение переменной "а"
Как это сделать?
Изменено: Apoc - 15.02.2018 11:42:04
 
Перейти    
Расчёт значения в зависимости от результата
 
#
11.02.2018 16:17:56
этого (10-0)/2=5 же нету в формуле =LOOKUP(D4;G3:G11-(G3:G11-G2:G10)/2;G3:G11)
 
Перейти    
Расчёт значения в зависимости от результата
 
#
11.02.2018 12:07:57
БМБ, спасибо! Так работает! Только сдвиг G2:G10 на пустую ячейку над G3 не совсем понятен.
 
Перейти    
Расчёт значения в зависимости от результата
 
#
10.02.2018 22:34:48
jakim, БМБ, спасибо!
А вот если шаблон будет не 5-10-15-20-25-30-35-40-и т. д., а 5-7-14-19-23-66-и т. д. то будет работать только формула Bema
Изменено: Apoc - 10.02.2018 22:37:22
 
Перейти    
Расчёт значения в зависимости от результата
 
#
10.02.2018 21:55:39
Bema, а как сделать чтобы при копировании формулы на следующую строчку не менялись показания
Изменено: Apoc - 10.02.2018 21:56:01
 
Перейти    
Расчёт значения в зависимости от результата
 
#
10.02.2018 21:24:25
Bema, то что надо Спасибо!
 
Перейти    
Расчёт значения в зависимости от результата
 
#
10.02.2018 21:16:14
Есть шаблон по которому конечный результат должен быть таким 5-10-15-20-25-30-35-40- и т. д. , а промежуточный результат может получиться в промежутке, например 3 который находится между 5 и 10, так нужно выбрать либо 5 либо 10.
Изменено: Apoc - 10.02.2018 21:17:51
 
Перейти    
Страницы: 1 2 След.
Наверх