Получить значение значение оси X на диаграмме в excel, зная значение на оси Y- Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub test(wb as Workbook)
  
Dim Yneeded As Double, Xfound As Double
Yneeded = 2
  
Dim ch As Chart
Set ch = wb.Charts(1) ' Тебе это, скорее всего, не нужно
 
Dim s As Series
Set s = ch.SeriesCollection(1)
  
Dim vX As Variant, vY As Variant
vX = s.XValues
vY = s.Values
  
Dim i As Long
For i = 1 To UBound(vX)
If vY(i) = Yneeded Then
Xfound = vX(i)
Exit For
End If
Next i
  
End Sub

Похожие записи/страницы:

Leave a Comment