Vasua
Petua
Vovua

str1 = Split(CreateObject("Scripting.FileSystemObject").Getfile(File_Strok_Poiska).OpenasTextStream(1).ReadAll, vbLf)

Sub Obrabotka()

Dim str1() As String
Dim PathFileName$

File_Strok_Poiska = "C:\Тест.txt"
str1 = Split(CreateObject("Scripting.FileSystemObject").Getfile(File_Strok_Poiska).OpenasTextStream(1).ReadAll, vbLf)   'Данный текстовый файл заносится в строковый массив построчно функцией Split

If str1(0) = "Vasua" Then
   MsgBox 1
End If
Stop
End Sub

Sub arr_Test()

Dim arr(), arr_mnogom()
Dim k As Integer

k = 73 ' контрольное значение

' //////       одномерный массив  ////

arr = Range(Cells(2, 2), Cells(11, 2))   ' пополнение одномерного массива из диапазона

stroka_v_massive = Application.Match(k, arr())  ' Расположение в массиве
        
' //////       одномерный массив  ////

arr_mnogom = Range(Cells(2, 7), Cells(11, 9))   ' пополнение многомерного массива из диапазона

stroka_v_massive = Application.Match(k, arr_mnogom()(, 3)) ' Расположение в массиве
      
End Sub

stroka_v_massive = Application.Match(k, arr_mnogom()(, 3)) ' Расположение в массиве

[I1] = 1

Sub Dinamic_Qvadrato_Scob()

'[I1] = 1
'["J1" & "1"] = 2   ' в Ячейке J1 находится "I"
'[J1 & 1] = 2
[J1 & "1"] = 2

End Sub

Sub Test_Massib_1()
Dim myRow As Long
Dim a()

a = Range("S8:Y14")
Count = 0

For Each Element1 In a
   If Element1 = 4 Then
      'If Element1 = 4 Then myRow = Element1.Row
            
      'C = Element1.Address
      'Stop
      
      Count = Count + 1
      myRow = Element1.Row
      MsgBox myRow 
   End If
Next

MsgBox Count
End Sub

myRow = Element1.Row

A = Range("A2:A26").SpecialCells(xlCellTypeVisible)

Sub Popolnenie_Otfiltrovannym()
Dim A() As Variant

' Проверка копированием
Range("A2:A26").SpecialCells(xlCellTypeVisible).Copy
Range("H30").Select
ActiveSheet.Paste

' Проверка копированием
A = Range("A2:A26").SpecialCells(xlCellTypeVisible)[E30].Resize(UBound(A)).Value = A
End Sub

.SpecialCells(xlCellTypeVisible)

Sub Posl_stroka()

Dim rF As Range
Dim lLastRow As Long, lLastCol As Long

Set rF = Range("A5:J16").Find("*", , xlValues, xlWhole, xlPrevious)
   lLastRow = rF.Row    'последняя заполненная строка
   lLastCol = rF.Column 'последний заполненный столбец

MsgBox lLastRow
MsgBox lLastCol

End Sub

Sub Proverka_Formula_Local()
Range("B3:B8").FormulaLocal = "=ЕСЛИ((RC[-1]-R[-1]C[-1])<=R2C5;0;RC[-1])"   '1 случай
Range("B3:B8").FormulaLocal = "=ЕСЛИ((RC[-1]-R[-1]C[-1])<=R2C5;"";RC[-1])"  '2 случай
End Sub

Sub Obmen_Massivami()

Dim Peremennaya_Massiva As Variant
Vsego_Elementov = 10
    
     ReDim Peremennaya_Massiva(1 To Vsego_Elementov)

For i = 1 To Vsego_Elementov
  Peremennaya_Massiva(i) = Cells(i, 1)
Next i

For i = 1 To Vsego_Elementov
   Cells(i, 3) = Peremennaya_Massiva(i)
Next i

[E1].Resize(UBound(Peremennaya_Massiva)).Value = Peremennaya_Massiva     

End Sub

[E1].Resize(UBound(Peremennaya_Massiva)).Value = Peremennaya_Massiva

Dim a As Variant
a = Range("A1:A10")

Sub Massiv_Diap()

Dim a As Variant
a = Range("A1:A10")

Cells(1, 3) = a(5)

End Sub

Cells(1, 3) = a(5)

Sub Maassive()
Dim A As Variant
   Nom_grup = 3
     ReDim A(1 To Nom_grup)

 k = 3
 m = 3

For i = 1 To Nom_grup
    
    k = k + 1
    A(Nom_grup) = Range("F" & Cells(k, 3) & ":G" & Cells(k, 4))
    
Next i

Shag_cikla2 = Nom_grup
Nom_grup = 0

For i = 1 To Shag_cikla2

   Nom_grup = Nom_grup + 1
   m = m + 1
   Range("I" & Cells(m, 3) & ":J" & Cells(m, 4)) = A(Nom_grup)

Next i

End Sub

Sub Podchet_Vydelennyh()

   Vsego_Listov = Worksheets.Count

  For i = 1 To Vsego_Listov

    If Sheets(i).Selection = True Then

       Count_Selestion = Count_Selection + 1
    
    End If

  Next i

MsgBox Count_Selestion

End Sub

If Sheets(i).Selection = True Then

Application.OnTime Now() + TimeSerial(0, 0, 1), "Sub_Name" ' где Sub_Name - Имя процедуры

Cells(6, 7).FormulaR1C1 = "=Indirect("RC[-3]",False)"

Sub test()

i = 1
Count1 = 2
'"Count" & i= 2
'a = "Count" & i

If Count1 = CStr(Count & i) Then
If Count1 = Count & i Then
'If Count1 = a Then

  MsgBox 1
  
End If

End Sub

Sub Desyatichnye_chisla()

Dim Chislo As Double

Chislo = Cells(2, 3)

  
  If Evaluate("If(C2=0.6, 1, 0)") = 1 Then
        
     MsgBox 1
           
  End If
  
  
  'If Evaluate("If(C2=" & Chislo & ", 1, 0)") = 1 Then
  'If Evaluate("If(C2=" & Cells(2, 3) & ", 1, 0)") = 1 Then
   If ["If(C2=" & Cells(2, 3) & ", 1, 0)"] = 1 Then
        
     MsgBox 2
           
  End If

End Sub

Sub Naibolshiy()

KolVo_vsego = 20    ' всего строк
Nom_grup = 2        ' характерное число из 1 столбца
i = 1               ' Наибольшее по счету

  B = [LARGE(If(A1:A & KolVo_vsego & = & Nom_grup &,B1:B & KolVo_vsego), i)]  ' Формула с динамическими данными
  
  C = [LARGE(If(A1:A20=2,B1:B20), 1)]                                         ' Формула со статическими данными
  
Cells(27, 6) = B

Cells(28, 6) = C

End Sub

Cells(5, 6) = [Large(If((A:A)=F1,(B:B))*Row(A:A),2)]

Cells(5, 6) = [Large(If((A:A)=F1,(B:B)),2)*Row(A:A)]

{=МАКС(ЕСЛИ(ДВССЫЛ("R10C[-5]:R"&R4C5&"C[-5]";ЛОЖЬ)=RC[-1];ДВССЫЛ("R10C[-4]:R"&R4C5&"C[-4]";ЛОЖЬ)))}

Range(Cells(13, 8), Cells(16, 8)).FormulaArray = "=MAX(IF(INDIRECT(""R10C[-5]:R""&R4C5&""C[-5]"";FALSE)=RC[-1];INDIRECT(""R10C[-4]:R""&R4C5&""C[-4]"";FALSE)))"

=МАКС(ДВССЫЛ("R10C[-3]:R"&R4C5&"C[-3]";ЛОЖЬ))

Cells(8, 5) = "=МАКС(ДВССЫЛ("R10C[-3]:R"&R4C5&"C[-3]";ЛОЖЬ))"

Sub Poisk_Znach()

'___//////\\\\\\\______//////\\\\\\\______


' Ситуация 1


If Situation = 1 Then    ' Действия в Ситуации 1

'Маяк
 a = 44 

Else

'Маяк
 a = 45 

End If

'___//////\\\\\\\______//////\\\\\\\______

' Ситуация 2

If Situation = 1 Then  ' Действия в Ситуации 2

'Маяк
 a = 46 

Else

'Маяк
 a = 47 

End If

'___//////\\\\\\\______//////\\\\\\\______

End Sub

   
   If Arrive > 5 Then    
                 
        Away = 1
        
   End If 

Sub Podschet_Probelov()
  Dim s$()
 
  Open "C:\Подсчет_пробелов.txt" For Input As #1
  s = Split(Input(LOF(1), 1), vbCrLf, Cells(6, 4)) 'Cells(6, 4) - общее количество строк в файле
  Close #1
  
   vi = Cells(4, 4)              ' номер строки в которой считаем
   a = InStr(1, s(vi), "Away")   ' подсчитываем пробелы
   Cells(10, 4) = a              ' помещаем результат в ячейку  
   
End Sub    

ks = Replace(s, "Стальной", "Стальной" & Cells(4, 5))

Бетонный
Стеклянный
Стальной
Деревянный
Гранитный
Сборнобетонный
Стальной
Чугунный
Композитный
Стальной

 Sub Zamena1()
  Dim s, ks As String, v As Variant, i As Long, l As Long
  Dim y As Integer
  Open "C:\Тест_Замена.txt" For Input As #1
  s = Input(LOF(1), 1)
  y = 0
  Close #1
  v = Split(s, vbCrLf)
  Open "C:\Тест_Замена.txt" For Append As #2
  For i = 0 To UBound(v) - l
    
    y = y + 1
    s = v(i)
    
   If y = 7 Then
   
    ks = Replace(s, "Стальной", "Стальной" & Cells(4, 5))
    v(i) = ks
    'Print v(i), s
    Print #2, s
    
   End If
  Next
  Close #2
End Sub

[A1:A10] = "=Row()": [A1:A10] = [A1:A10].Value

[Application.INDIRECT("A1:A"& Cells(4, 5))] = "=Row()": [Application.INDIRECT("A1:A"& Cells(4, 5))] = [Application.INDIRECT("A1:A"& Cells(4, 5))].Value

=МАКС(ЕСЛИ(((B2:B18)<=I4)*И((C2:C18)>=I3);A2:A18))

{=МАКС(ЕСЛИ((A1:A11)=F1;B1:B11))}

Cells(5, 4) = [WorksheetFunction.Max(WorksheetFunction.If(Range("A1:A11")=Cells(1, 6), Range("B1:B11"))]

Sub Two_crit()

a = Range("D2")
b = Range("D4")
c = Range("A1:A10")
d = Range("B1:B10")

vybor = WorksheetFunction.Match(a & b, c & d, 1)

End Sub