|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
03.06.2010, 20:08 | #1 |
Новичок
Джуниор
Регистрация: 03.06.2010
Сообщений: 1
|
Описать каждую строку программы что и зачем!
Sub Кнопка2()
Dim strCells() As String Dim intCount As Integer Dim rngText As Range Dim intCells As Integer Dim f As Double If Selection.Information(wdWithInTable ) = True Then k = Selection.Information(wdStartOfRang eRowNumber) l = Selection.Information(wdStartOfRang eColumnNumber) m = Selection.Information(wdEndOfRangeC olumnNumber) n = Selection.Information(wdEndOfRangeR owNumber) intCells = Selection.Cells.Count ReDim strCells(intCells) intCount = 1 For Each celTable In Selection.Cells Set rngText = celTable.Range rngText.MoveEnd Unit:=wdCharacter, Count:=-1 strCells(intCount) = rngText intCount = intCount + 1 Next celTable sum = 0 For i = 1 To (m - l + 1) * (n - k + 1) f = Val(strCells(i)) If (f = Empty) Then f = "0" sum = f + sum Next i MsgBox "Сумма выделенных ячеек " + Str(sum), vbInformation, "Вывод результата" Else: MsgBox "Нет выделенного блока ячеек таблицы", vbCritical, "Ошибка" End If End Sub |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Надо описать каждую строчку в готовой программе. | steal13 | Фриланс | 3 | 25.06.2009 10:28 |
помогите пожалйсто описать каждую строчку проги | Rakfeller | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 26.05.2009 16:11 |
Как считать каждую строку с memo? | Paul11j | Помощь студентам | 4 | 19.05.2009 19:30 |