Excel: Использование объектов Range и Selection

Excel: Использование объектов Range и Selection

• В Excel наиболее важным является объект Application. Объект Application (приложение) является главным в иерархии объектов Excel и представляет само приложение Excel. Он имеет более 120 свойств и 40 методов. Эти свойства и методы предназначены для установки общих параметров приложения Excel. 

• В иерархии Excel объект Workbook (рабочая книга) идет сразу после объекта Application и представляет файл рабочей книги.
• В иерархии Excel объект  Range  (диапазон) идет сразу после объекта  worksheet. 
• Объект  Range  является одним из ключевых объектов VBA.
• Объект selection (выбор) возникает в VBA двояко – либо как результат работы метода Select, либо при вызове свойства selection. Тип получаемого объекта зависит от типа выделенного объекта.

• ActiveSheet.Range("A1: A10 ") - интервал ячеек A1: A10  на активном листе
• Range("A:B") - столбцы A:B
• Range("налог") - интервал с именем налог
• Range("1:3") - строки с первой по третью
• Range("A1:C2, B10:D24") - объединение двух несмежных интервалов A1: C2  и B10:D24
• Range("A1:C10 B10:D24") - пересечение двух интервалов A1:C10 и B10:D24, т.е. интервал B10:C10

•   Разработать программу, которая по введенным числовым значениям некоторого уравнения решает данное уравнение и находит неизвестную переменную х. Результат вычисления выводится в текстовое окно на форме и на лист Excel.

Private Sub UserForm_ I nitialize()

Worksheets(1).Visible = False

End Sub

Private Sub CommandButton1_Click()

Dim a, b, c As Double

a = CDbl(TextBox1.Text)

b = CDbl(TextBox2.Text)

c = CDbl(TextBox3.Text)

With ActiveSheet

Range(«b3»).Value = a

Range(«b4»).Value = b

Range(«b5»).Value = c

Range(«b6»).FormulaLocal = «=b3*b7^3+b4*sin(b7)»

Range(«b6»).GoalSeek Goal:=c, changingCell:=Range(«b7»)

TextBox4.Text = CStr(Range(«b7»).Value)

TextBox4.Text = FormatNumber(TextBox4.Text, 2)

End With

End Sub

Private Sub CommandButton2_Click()

UserForm1.Hide

End Sub