f(x,y,z)=g(x,y,z)

sin(x)*(y+1)+z^2=cos(x)*sin(y)*tg(z)

Public Sub Test()
Dim Color1 As Variant
Color1 = Range("A1").Interior.Color 'get Color of A1".
R = Color1 Mod 256
G = Color1 \ 256 Mod 256
B = Color1 \ 65536 Mod 256
Debug.Print (R & ";" & G & ";" & B)
Debug.Print (R)
Debug.Print (G)
Debug.Print (B)
End Sub

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Static Sub M_0000()

[Q2] = 0
Dim rng As Range
Set rng = Range("B2:E2")
Dim Delta As Double
Dim Pic As Double
Delta = 0.1
Pic = 10
Toy = 0
While ([Q2] = 0)
              Sleep 1 'Задержка 1 ms, можно и 200, а можно и 1000
               DoEvents 'Вот здесь нужно 2 раза прописать
                DoEvents 'Вот здесь нужно 2 раза прописать

               
               If rng.Cells(1).Value <= Pic Then
               
               
               rng.Cells(1).Value = rng.Cells(1).Value + Delta
               Else: rng.Cells(1).Value = Toy
               rng.Cells(2).Value = rng.Cells(2).Value + 1
               
               
               
               
               
               End If
               
            Wend
          
           
End Sub

Public Static Sub M_0001()
If [Q2] = 0 Then
   [Q2] = 1
Else: [Q2] = 0
End If



End Sub

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Sub M0000()
  
  Dim ee As Object
  Dim zz As Object
  
  Dim RR As Integer
  Dim GG As Integer
  Dim BB As Integer
  
  RR = 0
  GG = 0
  BB = 0
  
  Set ee = Nothing
  Set zz = Nothing
  
   
    
    Range("A1:Z60").Select
    
    For Each zz In Selection
    zz.Interior.Color = RGB(255, 255, 255)
    Next zz
    
    
    Range("A1:Z60").Select
    For Each ee In Selection
           RR = 0
           GG = 0
           BB = 0
  
        RR = Int((254 * Rnd) + 1) 'Ý(0;255)
        GG = Int((254 * Rnd) + 1)
        BB = Int((254 * Rnd) + 1)
        ee.Interior.Color = RGB(RR, GG, BB)
        ee.Value = RR
        Debug.Print RR
        'On Error Resume Next
        Next ee
   
End Sub
 
 'Sleep 240

x= R*cos(t) 
y= R*sin(t)

R^2=x^2+y^2

#If VBA7

#if Win64

Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Function BeepApi Lib "kernel32" Alias "Beep" (ByVal dwFreq As LongPtr, ByVal dwDuration As LongPtr) As LongPtr
    Private Declare PtrSafe Function SetTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
    Public Declare PtrSafe Function KillTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr) As Long
#Else
    'Private Declare Function BeepApi Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
    'Private Declare Function SetTimer Lib "USER32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
    'Private Declare Function KillTimer Lib "USER32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If
#If VBA7 Then
    Public TmrIDA1 As LongPtr, TmrIDB2 As LongPtr
#Else
    Public TmrIDA1&, TmrIDB2&
#End If
Private Const A1ItmrInterval& = 300     'Интервал таймера A1 в миллисекундах
Private Const B2ItmrInterval& = 500     'Интервал таймера B2 в миллисекундах
Private nA1&, nB2&                      'щетчики
Public cellA1 As Range, cellB2 As Range 'объекты ячеек A1, B2

[A1]=[A1]+1

[A1]=[A1]-1

 [A1]=[A1]+1

[A1]=[A1]-10

[A1] =[A1]-20

Sub Macro0()
Call SetChartColorsFromDataCells([A2], [A1])
End Sub
Sub SetChartColorsFromDataCells(SheetName As String, ChartName As String)
'[A1] = "D_0"
'[A2] = "Sheet_0"

MyColors = RGB(122, 200, 0)
' Set c = ActiveChart
   Dim c As Chart
   Set c = Sheets(SheetName).ChartObjects(ChartName).Chart
    For j = 1 To c.SeriesCollection.Count
        f = c.SeriesCollection(j).Formula
        m = Split(f, ",")
        Set r = Range(m(2))
 
        For i = 1 To r.Cells.Count
             'F0:***********Diagram Sector.Color equals Cell.Color:*****************
             '  c.SeriesCollection(j).Points(i).Format.Fill.ForeColor.RGB = _
             '   r.Cells(i).Interior.Color
               
             'F1:**********RGB manual diagram manual set:************
             'c.SeriesCollection(j).Points(i).Format.Fill.ForeColor.RGB = _
              'RGB(100,10,10)
               
             'F2:************Diagram Sector As Condition Fiormatting*****************
              c.SeriesCollection(j).Points(i).Format.Fill.ForeColor.RGB = _
              r.Cells(i).DisplayFormat.Interior.Color
                
                
        Next i
    Next j
End Sub

Set c = Sheets(SheetName).ChartObjects(ChartName).Chart

 Set c = ActiveSheet.ChartObjects("D_0").Chart

Set c = ActiveChart

Sub SetChartColorsFromDataCells()
 
    If TypeName(Selection) <> "ChartArea" Then
        MsgBox "Сначала выделите диаграмму!"
        Exit Sub
    End If
    Set c = ActiveChart
    For j = 1 To c.SeriesCollection.Count
        f = c.SeriesCollection(j).Formula
        m = Split(f, ",")
        Set r = Range(m(2))
 
        For i = 1 To r.Cells.Count
          ' c.SeriesCollection(j).Points(i).Format.Fill.ForeColor.RGB = _
          '      r.Cells(i).Interior.Color

c.SeriesCollection(j).Points(i).Format.Fill.ForeColor.RGB = _
r.Cells(i).DisplayFormat.Interior.Color

        Next i
    Next j
End Sub