В прошлом месяце в VBA Excel

У меня есть таблица с большим объемом информации, как мне выбрать только последние месяцы? (т.е. только последняя 31 ячейка в столбце?)

Данные в виде

date1       numbers
date2       numbers
.             .
.             .
.             .
daten       numbers

где date1 - дд / мм / ccyy

ваше здоровье

vba excel

05.12.2008 18:02

Стоит ли изучать PHP в 2026-2027 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

3 463

Перейти к ответу Данный вопрос помечен как решенный

Ответы 2

использовать

LastRow = Sheet.Cells.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Row

тогда вы можете получить диапазон от LastRow-31 до LastRow если у вас указанная дата, переместите начальную точку вперед до значения date = date (if (now.month = 1, now.year-1, now.year), if (now.month = 1,12, now) .месяц-1), сейчас. день)

05.12.2008 18:16

Ответ принят как подходящий

В идеале должен быть столбец с датой. Затем вы можете сделать расширенный фильтр, чтобы отфильтровать нужный диапазон дат. Если выбрать последний 31 день, не всегда будет выбран только один месяц. Также можно выбрать до 3 дней с предыдущего месяца.

Public Sub selectLastMonth()
  Dim ws As Worksheet
  Dim dStart As Date, dEnd As Date

  Set ws = ActiveSheet
  ws.Range("A:B").Sort key1:=ws.Range("A2"), header:=xlYes

  dEnd = ws.Range("A1").End(xlDown).Value
  dStart = DateSerial(DatePart("yyyy", dEnd), DatePart("m", dEnd), 1)

  ws.Range("A:B").AutoFilter field:=1, Criteria1: = "> = " & dStart, Operator:=xlAnd, Criteria2: = "< = " & dEnd

  Set ws = Nothing
End Sub

спасибо, это действительно то, что мне нужно - у меня уже есть столбец с датой в нем - как мне написать фильтр в vba?

— 05.12.2008 18:22

05.12.2008 18:17