Задание - макросы в Word и Excel

@maks585 · Регистрация: 21.12.2009

Студворк — интернет-сервис помощи студентам

Вот такие задания, помогите кому не трудно плиз...

VBA Word
1. В каждом слове текущего предложения изменить порядок букв на обратный.

VBA Excel
1. Кусочно-линейная функция f(x) представлена в виде таблицы, состоящей из двух одинаковых по высоте столбцов чисел. В первом столбце находятся значения x, во втором — значения f. Значения x строго монотонно возрастают. Высота столбцов n заранее неизвестна, но она точно больше одного (таким образом, задан как минимум один линейный участок). Создать третий столбец высоты n, содержащий значения интеграла от f(x) по x от самого первого значения x до текущего значения x.

Заранее спасибо!

@Xpoft · 21.12.2009, 19:01

Насчет интеграла:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Integral_()
'Для первого куска расчитываем а дальше в цикле
x1 = Cells(1, 1).Value
x2 = Cells(2, 1).Value
y1 = Cells(1, 2).Value
y2 = Cells(2, 2).Value
Integral = 0.5 * (x2 - x1) * (y2 + y1)
Cells(1, 3).Value = Integral
i = 2
Do While Cells(i, 1).Value <> ""
x1 = Cells(i, 1).Value
x2 = Cells(i + 1, 1).Value
y1 = Cells(i, 2).Value
y2 = Cells(i + 1, 2).Value
Integral = Integral + 0.5 * (x2 - x1) * (y2 + y1)
Cells(i, 3).Value = Integral
i = i + 1
Loop
End Sub

будут замечания\вопросы, пишите

Добавлено через 14 минут
И по перевороту слов вот макрос тестил в экселе... Че делать со знаками препинания сам подумай)) по правилам например запятая примыкает к слову(между словом и запятой нет пробела), то есть надо вставлять специально условия на них... Ну и повспоминай вообще какие есть знаки препинания))

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub perevorot_slov()
predlogenie = InputBox("Введите предложение")
slova = Split(predlogenie, " ")
temp = ""
For i = 0 To UBound(slova)
For j = 1 To Len(slova(i))
temp = temp & Mid(slova(i), Len(slova(i)) + 1 - j, 1)
Next j
slova(i) = temp
temp = ""
Next i
predlogenie_new = slova(0)
For i = 1 To UBound(slova)
predlogenie_new = predlogenie_new & " " & slova(i)
Next i
MsgBox (predlogenie_new)
 
End Sub

Добавлено через 18 минут
Еще вариант с предложением. Логика следующая:
Движемся в предложении посимвольно. Как тока находим букву(чет я не нашел для букв аналога isnumeric) делаем отдельный цикл который выбирает символы пока они буквы, затем переварачивает их и заменяет соответствующий кусок в предложении. Дальше возвращаемся в цикл который ищет буквы уже с позиции следующей за перевернутым словом.
Если кто подскажет функцию аналог isnumeric для букв, то напишу код

@maks585 · 22.12.2009, 15:45 **[ТС]**

Xpoft, снова к тебе обращаюсь!

По поводу Word слов с буквами наоборот, я чуть подисправил, чтоб она не в новом окне выдавала предложение, а тут же и вот препод мне дополнительный вопрос задал: если в конце предложения стоит точка, то надо, чтобы программа "ругалась" - типо зачем тут точка!
Я не знаю, это его блашь, но сделать надо.
Код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub perevorot_slov()
 
'n = Selection.Sentences(1).Words.Count
Dim predlogenie As String
predlogenie = Selection.Sentences(1)
 
if Right
 
slova = Split(predlogenie, " ")
temp = ""
For i = 0 To UBound(slova)
For j = 1 To Len(slova(i))
temp = temp & Mid(slova(i), Len(slova(i)) + 1 - j, 1)
Next j
slova(i) = temp
temp = ""
Next i
predlogenie_new = slova(0)
For i = 1 To UBound(slova)
predlogenie_new = predlogenie_new & " " & slova(i)
Next i
 Selection.Sentences(1) = predlogenie_new
 
End Sub

И по Excel
Все впринцыпе правильно, но препод сказал, что 1-е значение интеграла должно быть равно 0, и не понятно как считается последнее значение....оно у меня почему-то меньше предыдущего, хотя до этого все значения возрастают....

Буду очень благодарен, если поможешь!!

@Xpoft · 22.12.2009, 16:14

С точкой не понял честно говоря)) Нужно, чтоб если в конце предложения точка, то сразу выдавалась ругань?
если да то добавь в начале кода что-нибудь вроде этого:

Visual Basic
1
2
3
4
if right(predlogenie ,1) = "." then
MsgBox("Уберите точку в конце предложения, иначе я работать не буду :)")
Exit Sub
End If

по поводу интеграла:
откуда нулевое будет мне не ясно)
Даже если координаты первой точки будут (0,0) то интеграл от первого куска будет 0.5*f(x1)*x1
PS интеграл это площадь под графиком и он будет нулевым только если f(x) нулевые на всем отрезке или по оси x длина отрезка 0
В моем варианте первый интеграл это интеграл от отрезка [x1,f(x1)] [x2,f(x2)]
Да и кстати, интегралов должно получиться на один меньше чем точек( собственно как и отрезков будет n-1 при n точках)

очередное n-е значение интеграла может быть меньше предыдущего только в одном случае:
0.5 * (x2 - x1) * (y2 + y1)<0 это может быть по разным причинам, но так как x монотонно возрастает, скорее всего y2 + y1 < 0 значит чтоб избежать этого исправьте в коде следующую строку:
поменяйте

Visual Basic
1
Integral = Integral + 0.5 * (x2 - x1) * (y2 + y1)

на

Visual Basic
1
Integral = Integral + abs(0.5 * (x2 - x1) * (y2 + y1))

таким образом прибавляемый интеграл всегда будет больше либо равен нулю...

@maks585 · 22.12.2009, 18:31 **[ТС]**

Вставил в начало, то что ты написал, в этой версии работает:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub perevorot_slov()
predlogenie = InputBox("Введите предложение")
slova = Split(predlogenie, " ")
temp = ""
 
If Right(predlogenie, 1) = "." Then
MsgBox ("Уберите точку в конце предложения, иначе я работать не буду :)")
Exit Sub
End If
 
For i = 0 To UBound(slova)
For j = 1 To Len(slova(i))
temp = temp & Mid(slova(i), Len(slova(i)) + 1 - j, 1)
Next j
slova(i) = temp
temp = ""
Next i
predlogenie_new = slova(0)
For i = 1 To UBound(slova)
predlogenie_new = predlogenie_new & " " & slova(i)
Next i
MsgBox (predlogenie_new)
 
End Sub

А в этой не работает.
Если написать "привет как дела." выводит - "тевирп как .алед" (точку принимает за букву) - это мне и надо исправить

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub macros1()
 
'n = Selection.Sentences(1).Words.Count
Dim predlogenie As String
predlogenie = Selection.Sentences(1)
 
If Right(predlogenie, 1) = "." Then
MsgBox ("Уберите точку в конце предложения, иначе я работать не буду :)")
Exit Sub
End If
 
slova = Split(predlogenie, " ")
temp = ""
For i = 0 To UBound(slova)
For j = 1 To Len(slova(i))
temp = temp & Mid(slova(i), Len(slova(i)) + 1 - j, 1)
Next j
slova(i) = temp
temp = ""
Next i
predlogenie_new = slova(0)
For i = 1 To UBound(slova)
predlogenie_new = predlogenie_new & " " & slova(i)
Next i
 Selection.Sentences(1) = predlogenie_new
 
End Sub

@Xpoft · 23.12.2009, 10:40

Проблемка понятна.. во втором варианте текст берется из ворд документа, а там есть такая штука как невидимые знаки. Вопрос к знатокам макросов для ворд:
невидимый знак перенос строки в VBA можно как то идентифицировать? если ответа не будет то как вариант можно в проверку на точку в конце предложения вставить вместо

Visual Basic
1
2
3
4
If Right(predlogenie, 1) = "." Then
MsgBox ("Уберите точку в конце предложения, иначе я работать не буду :)")
Exit Sub
End If

следующее:

Visual Basic
1
2
3
4
If Right(predlogenie, 1) = "." or Mid(predlogenie, Len(predlogenie) - 1, 1) = "." Then
MsgBox ("Уберите точку в конце предложения, иначе я работать не буду :)")
Exit Sub
End If

Mid(predlogenie, Len(predlogenie) - 1, 1) = "." это проверка предпоследнего символа предложения на то что он точка

Добавлено через 9 минут
Если же точку надо оставить на месте и перевернуть слова, то надо немного подправить код

@BasicMan · 23.12.2009, 12:17

Visual Basic
1
2
Selection.Find.Text = "^l" ' разрыв строки
Selection.Find.Text = "^p" ' знак абзаца

@Xpoft · 23.12.2009, 12:57

maks585, жду ваших комментариев, как вам все таки нужно сделать...

@maks585 · 23.12.2009, 22:29 **[ТС]**

Xpoft, суть была в том, чтобы если есть точка в конце предложения, то выдается "ругань" и все, ничего более.

Еще раз спасибо, когда ты писал сообщения я уже сдавал зачет, и общими усилиями, но конечно больше твоими я таки получил его!! Спасибо большое тебе!!

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@maks585 0 / 0 / 0 Регистрация: 21.12.2009 Сообщений: 6

	Задание - макросы в Word и Excel 21.12.2009, 17:36. Показов 7269. Ответов 8 Метки нет (Все метки) Вот такие задания, помогите кому не трудно плиз... VBA Word 1. В каждом слове текущего предложения изменить порядок букв на обратный. VBA Excel 1. Кусочно-линейная функция f(x) представлена в виде таблицы, состоящей из двух одинаковых по высоте столбцов чисел. В первом столбце находятся значения x, во втором — значения f. Значения x строго монотонно возрастают. Высота столбцов n заранее неизвестна, но она точно больше одного (таким образом, задан как минимум один линейный участок). Создать третий столбец высоты n, содержащий значения интеграла от f(x) по x от самого первого значения x до текущего значения x. Заранее спасибо! 0

@Xpoft Asgard's resident 91 / 88 / 10 Регистрация: 03.12.2009 Сообщений: 175
	23.12.2009, 12:57
	maks585, жду ваших комментариев, как вам все таки нужно сделать... 0

@maks585 0 / 0 / 0 Регистрация: 21.12.2009 Сообщений: 6
	23.12.2009, 22:29 [ТС]
	Xpoft, суть была в том, чтобы если есть точка в конце предложения, то выдается "ругань" и все, ничего более. Еще раз спасибо, когда ты писал сообщения я уже сдавал зачет, и общими усилиями, но конечно больше твоими я таки получил его!! Спасибо большое тебе!! 0