Вопросы Теги

VBA Excel Возобновить подсчет дубликатов без изменения предыдущего счетчика дубликатов после перезапуска счетчика

Вы хотите попробовать file_get_contents 

$html = file_get_contents("http://www.yourwebsite.com/pages/photos_page.php");

//this will not work since it won't run through web server
//$html = file_get_contents("../photos_page.php");

0
задан Nor Lina 18 January 2019 в 10:29
поделиться

1 ответ

Итак, что я сделал:

  • Ячейка B2 имеет формулу =COUNTIFS(A:A,A2,D:D,"<"&D2,E:E,E2)+1
  • Ячейка C2 имеет формулу ="Weekday "&WEEKDAY(D2,2)
  • Ячейка E2 имеет формулу ="WEEK "&WEEKNUM(D2,2)
  • Ячейка F2 имеет формулу =IF(B2>1,"Duplicate,"")
  • Перетащите вниз формулы

enter image description here [1110 ]

Конечно, вам нужно ссылаться на ваши столбцы в соответствии с вашими данными.

Для автоматического добавления формул при добавлении некоторых новых данных в ваш список есть много способов, но простой может быть следующим: 

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlManual

Dim X As Long, LR As Long
With ActiveSheet
    LR = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
For X = 2 To LR
    If Cells(X, 2) = "" Then
        Cells(X, 2).Formula = "=COUNTIFS(A:A,A" & X & ",D:D,""< ""&D" & X & ",E:E,E" & X & ")+1"
        Cells(X, 3).Formula = "=""Weekday ""&WEEKDAY(D" & X & ",2)"
        Cells(X, 4).Value = Date
        Cells(X, 5).Formula = "=""Week ""&WEEKNUM(D" & X & ",2)"
        Cells(X, 6).Formula = "=IF(B" & X & ">1,""Duplicate"","""")"
    End If
Next X

Application.EnableEvents = True
Application.ScreenUpdating = True
Calculate
End Sub

Вставьте этот макрос под рабочую таблицу, которую вы используете. И снова измените ссылки на номера столбцов на свои.

0
ответ дан JvdV 18 January 2019 в 10:29
поделиться
Другие вопросы по тегам:

Похожие вопросы: