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

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

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

[A1]=[A1]+1

[A1]=[A1]-1

 [A1]=[A1]+1

[A1]=[A1]-10

[A1] =[A1]-20

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

Dim e As Range
For Each e in Selection
'здесь код
Next e

next e

 Dim Adress1 As String
 Adress1="A1:A2"