VBNet - Форум - Помогите обьединить 2 программы в одну =)

Вопрос: Помогите обьединить 2 программы в одну =) Добавлено: 08.11.06 14:09

Автор вопроса: Demаn | ICQ: 409503304

Добрый день! если у вас есть время свободное, то помогите пожалста.......
Первы код отвечает за выделение чисел на всём листе экселя, тоесть вылезает окошко Form1 в котором есть поля для ввода значений т.е. в в них вводится зеначения интервала от какого значения и до какого надо выделить эти числа если они присутствуют, вот сам код:

Sub Макрос2()
Dim I As Integer
' Макрос2 Макрос
' Макрос записан 26.09.2006 (R)
'

'
    For I = CInt(UserForm1.TextBox1.Text) To CInt(UserForm1.TextBox2.Text)

    With Application.ReplaceFormat.Font
        .Subscript = False
        .ColorIndex = 9
    End With
    ActiveCell.CurrentRegion.Replace What:=CStr(I), Replacement:=CStr(I), LookAt:=xlWhole, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True
    Next I
End Sub

А второй код, определяет координаты выделенной области, т.е. координаты той области, которая получается при выделении листа левой кнопкой мыши, вот и он:

Sub Test()
' обьявим переменнуб типа Range
Dim cur_range As Range
' активный расчетный лист
With ActiveSheet
' обьект Range включает выделенный диапазон
Set cur_range = Selection
' активизируем Range
cur_range.Activate
' Адресс и количество строк и колонок
Debug.Print cur_range.Address
Debug.Print cur_range.Columns.Count
Debug.Print cur_range.Rows.Count
End With
End Sub

Помогите пожалста обьединить эти два кода, а то препод меня уже ZаконаL, и если вас не затруднит, то напишите пожалста примерно что обозначают операторы, а то я в VB неочень разбираюсь....
Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: Demаn ICQ: 409503304 Вопросов: 6 Ответов: 18	Профиль \| \| #1	Добавлено: 09.11.06 03:40
	Помощь больше не нужная я всётаки сам написал эту прогу Ответить

Страница: 1 |