Поиск
Автор: Jack Famous. "dim284: Jack Famous, я бы потестил ... b&, l&, lMax&, chSym&, chCount&, chRate&
Const symMax& = 122
n = rngIn ... ; chCount) Then chCount = aComp(chSym): chRate = chSym
aBt = x: l = ... ) Then chCount = aComp(chSym): chRate = chSym
End If
Next r ...
If (chRate = 0) Then Stop: End ...
aJ(c + 1) = ChrW$(chRate)
Next c
sOut = Join(aJ ... ;), s
End Sub
'==================================================================================================
"Jack Famous: UPD: можно ещё на ...
Изменен: 14.11.2023
Читать сообщение на форуме или сайте.Автор: Jack Famous. Приветствую!
Нюанс№1
Если ... : curWD = curWD + iStep
If curWD = 8 Then curWD = 1 Else If curWD = 0 Then curWD = 7 ...
If arr7Graph(curWD ... + iStep: curWD = curWD + iStep: If curWD = 8 Then curWD = 1
If arr7Graph(curWD) = 1 Then ... : curWD = curWD + iStep
If curWD = 8 Then curWD = 1 Else If curWD = 0 Then curWD = 7 ... : curWD = curWD + iStep
If curWD = 8 Then curWD = 1 Else If curWD = 0 Then curWD = 7 ...
Изменен: 18.05.2022
Читать сообщение на форуме или сайте.Автор: Jack Famous. Приветствую!
Решил агрегировать у ... &, l&, lMax&, chSym&, chMax&, chCount&, chRate&
n = rngIn.Cells.CountLarge
If ... ; chCount) Then chCount = aComp(chSym): chRate = chSym
aBt = x: l = 0 ...
chCount) Then chCount = aComp(chSym): chRate = chSym
End If
Next r ...
If (chRate = 0) Then Stop: End
aJ ... (c + 1) = ChrW$(chRate)
Next c
sOut = Join(aJ ...
Изменен: 15.11.2023
Читать сообщение на форуме или сайте.Автор: Jack Famous. "Ігор Гончаренко: Application ... True False
Chart Диаграммы True False
Chart Диаграмма True False
Chart Menu ... Строка меню диаграммы True False
Chart Type Тип диаграммы True ... History Журнал True False
Inactive Chart Неактивная диаграмма True False
... Order Порядок True False
Organization Chart Организационная диаграмма True False
... Organization Chart Popup Organization Chart Popup True False
Paste ... меню рисунков True False
Pivot Chart Popup Меню сводных диаграмм ...
Изменен: 29.07.2022
Читать сообщение на форуме или сайте.Автор: Jack Famous. sokol92, Filter "фильтрует ... txt1 & " - " & Len(txt1)
crit = "0" 'допустим, ищем ... l = Len(delim) * 2 + Len(crit) ' потому что удалять (менять на ... ничего) будем "delim & crit & delim"
txt2 = Replace( ... txt1, delim & crit & delim, "")
Debug.Print ... 'количество удалённых блоков "delim & crit & delim" = (искомое количество ... )
Debug.Print "Критерий «" & crit & "» содержится раз: " & ...
Изменен: 30.04.2019
Читать сообщение на форуме или сайте. ... . Юрий М,
Ігор Гончаренко,
Jack Famous,
большое спасибо, воспользовался кодом ... 1).Value)
With x.Chart
With x.Chart.SeriesCollection(6).Format.Fill ... 3
End With
With x.Chart.SeriesCollection(5).Format.Fill
... 3
End With
With x.Chart.SeriesCollection(4).Format.Fill
... 3
End With
With x.Chart.SeriesCollection(3).Format.Fill
... 3
End With
With x.Chart.SeriesCollection(2).Format.Fill
...
Изменен: 02.06.2021
Читать сообщение на форуме или сайте.Автор: Jack Famous. Nazar93, чёт никому больше ... As Range
Dim arr, arrOut(), crit$, r&, col&
With ActiveSheet.UsedRange ... = 1 To UBound(arr, 1)
crit = arr(r, 1) & arr(r ... , 2)
If Len(crit) Then
dic(crit) = dic(crit) + 1
arrOut(r ... , 1) = dic(crit)
End If
Next ...
Изменен: 12.05.2020
Читать сообщение на форуме или сайте.Автор: JeyCi. наткнулась случайно... может оно... или ... в книге есть лист "ChartData" или создайте его.
' ... excel-macros/m-12,get-chart-values.html
Dim NumberOfRows ... .SeriesCollection(1).Values)
Worksheets("ChartData").Cells(1, 1) = & ... Values"
With Worksheets("ChartData")
.Range(.Cells(2, ... In ActiveChart.SeriesCollection
Worksheets("ChartData").Cells(1, Counter) = ... X.Name
With Worksheets("ChartData")
.Range(.Cells(2, Counter ...
Изменен: 21.11.2014
Читать сообщение на форуме или сайте.Автор: Jack Famous. Итак. Накурившись математических статей, ... *x-C)/B
Function PRDX_Math_CoordByLineABC(coord#, arrLine, Optional NeedX As Boolean ... ) As Double ' return coord Y or X(if NeedX ... NeedX Then PRDX_Math_CoordByLineABC = (-arrLine(2) * coord - arrLine(3)) / arrLine(1): Exit ... Function
PRDX_Math_CoordByLineABC = (-arrLine(1) * coord - arrLine(3)) / arrLine(2)
End ...
Изменен: 23.05.2022
Читать сообщение на форуме или сайте.Автор: Jack Famous. Попросили сделать вариант - решил ... отработано рабочих часов в день
• Crit ("=" - по умолчанию) : критерий ... AddHours= - 1, DayHours= 5 и Crit = ">=", время работы ... при выполнении условий [DayWork] и [Crit]. 0 — по умолчанию
' [DayHours] = сколько ... выполнить условие. 0 — по умолчанию
' [Crit] = критерий сравнения количества отработанных часов ...
Изменен: 30.03.2021
Читать сообщение на форуме или сайте.Автор: JeyCi. "Tasher пишет: Есть сводная ... моём случае 3)
.ChartObjects(1).Chart.SetSourceData Source:= _
.Range(" ... БЕРЁТ ПО СТОЛБЦАМ
.ChartObjects(1).Chart.SeriesCollection(1).Delete ' удаляет данные ... i = 1 To .ChartObjects(1).Chart.SeriesCollection.count 'для каждого ряда ... данных
.ChartObjects(1).Chart.SeriesCollection(i).XValues = .Range(.Cells ...
Изменен: 04.09.2014
Читать сообщение на форуме или сайте.Автор: Jack Famous. Stics,'====================================================================================================
Sub Test()
Dim ... *x-C)/B
Function PRDX_NumCoordByLine(coord#, arrLine, Optional NeedX As Boolean ... NeedX Then
PRDX_NumCoordByLine = (-arrLine(1) * coord - arrLine(2)) / arrLine(0)
Else ...
PRDX_NumCoordByLine = (-arrLine(0) * coord - arrLine(2)) / arrLine(1)
End ...
Изменен: 26.02.2021
Читать сообщение на форуме или сайте.Автор: Jack Famous. Доброго времени суток, Планетяне!
... As Range, rngCritGet As Range, crit, rngSumGet As Range) As Boolean ... And arr FFF_dash And arr1 = crit Then dic(arr) = arr2
Else ... ) FFF_dash And arr1(r, 1) = crit Then dic(arr(r, 1 ...
Изменен: 15.01.2020
Читать сообщение на форуме или сайте.Автор: Jack Famous. "Дмитрий Болдырев: Этим & ... пользовательскую макрофункциюOption Explicit
'===========================================================================================
Function MergeNumIf(crit, rngCrit As Range, rngMerge As ... , 1)
If arrCrit(r, 1) = crit Then
n = n + 1
arrRes ...
Изменен: 30.01.2020
Читать сообщение на форуме или сайте.Автор: Jack Famous. Данил, здравствуйте'Option Base 1
Option Explicit
'Option Private Module
'==================================================================================================
Sub iFilter()
Dim arr, aLike(), aNotLike()
Dim x, y, tx$, t!, r&, rLast&, n&, f&
Const crit$ = "f", rStart& = 2, colData& = 9, colFilt& = 22
t = Timer
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
rLast = Cells(Rows.Count, colData).End(xlUp).Row
If rLast
Изменен: 21.12.2022
Читать сообщение на форуме или сайте.