Оксанка1991
1

Каждая ячейка некоторой таблицы рабочего листа задается в виде число (число). Создать макрос, который вычисляет сумму чисел каждой строки таблицы

30.05.2011, 21:45. Показов 2323. Ответов 4
Метки нет (Все метки)

оригинал
Кожна комірка деякої таблиці робочого листа задається у вигляді число(число). Створити макрос, який обчислює суму чисел кожного рядка таблиці у вигляді сума(сума) і виводить одержані суми у першому правому порожньому стовпчику. Кооординати верхньої лівої і нижньої правої комірок таблиці задаються. Якщо деякі числа не задані, вважати їх рівними нулю.


Каждая ячейка некоторой таблицы рабочего листа задается в виде число (число). Создать макрос, который вычисляет сумму чисел каждой строки таблицы в виде сумма (сумма) и выводит полученные суммы в первом правом пустом столбце. Кооординаты верхней левой и нижней правой ячеек таблицы задаются. Если некоторые числа не заданы, считать их равными нулю.
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub CommandButton1_Click()
Dim i, j, k, m As Integer
i = Val(TextBox1.Text)
j = Val(TextBox2.Text)
k = Val(TextBox3.Text)
m = Val(TextBox4.Text)
 
Range(Cells(i, j), Cells(k, m)).Select
 
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    For p = i + 1 To k
    
  
      Cells(p, m).Formula = " =SUM(RC[m-j-1]:RC[-1])"
  
Next p
   
End Sub
оригинал
Це код моєї програми.Вона працює, але не так.Там де повинно рахувати суму воно просто виводить =SUM(RC[m-j-1]:RC[-1])", а не число що має бути.Комірки бачать не формулу, а текст.Допоможіть БУДЬ-ЛАСКА.Потрібно на середу.

Это код моего програми.Вона работает, но не так.Там где должно считать сумму оно просто выводит = SUM (RC [mj-1]: RC [-1]) ", а не число имеет бути.Комиркы видят не формулу, а текст.Допоможить ЛЮБОЙ ЛАСКА.Потрибно на среду.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2011, 21:45
Ответы с готовыми решениями:

Создать файл целых чисел, содержащий сумму чисел из каждой строки исходной таблицы.
Дан текстовый файл, содержащий таблицу из трех столбцов целых чисел. В начале и в конце каждой...

Создать файл целых чисел, содержащий сумму чисел каждой строки исходной таблицы
Дан текстовый файл, содержащий таблицу из трех столбцов целых чисел.Ширина столбцов таблицы, способ...

Создать файл целых чисел содержащий сумму чисел из каждой строки исходной таблицы
: Дан текстовый файл, содержащий таблицу из трех столбцов целых чисел. В начале и в конце каждой...

Создать файл целых чисел, содержащий сумму чисел из каждой строки исходной таблицы
Дан текстовый файл, содержащий таблицу из трёх столбцов целых чисел. В начали и в конце каждой...

4
1479 / 385 / 35
Регистрация: 10.04.2009
Сообщений: 7,050
30.05.2011, 21:58 2
Цитата Сообщение от Оксанка1991 Посмотреть сообщение
комірка
Цитата Сообщение от Оксанка1991 Посмотреть сообщение
працює
Цитата Сообщение от Оксанка1991 Посмотреть сообщение
рахувати
1 пользуйтесь тегами
2 то что Вы спрашиваете, чтобы решить Весь код не нужен тот что выложили

Цитата Сообщение от Оксанка1991 Посмотреть сообщение
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
так что устраните и может до середы успеем
если на дойче отвечу, нормально?
1
Оксанка1991
30.05.2011, 22:04 3
Дякую!!!
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
31.05.2011, 00:43 4
Visual Basic
1
Cells(p, m).FormulaR1C1 = " =SUM(RC[m-j-1]:RC[-1])"
0
magirus
31.05.2011, 07:51     Каждая ячейка некоторой таблицы рабочего листа задается в виде число (число). Создать макрос, который вычисляет сумму чисел каждой строки таблицы
  #5
 Комментарий модератора 
1)Оксанка1991, Язык форума русский.
2) называйте темы информативно
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.05.2011, 07:51

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Создать файл целых чисел, содержащий сумму чисел из каждой строки исходной таблицы
Дан текстовый файл, содержащий таблицу из трех столбцов целых чисел. В начале и в конце каждой...

Макрос для копирования данных из диапазона таблицы одного листа и вставка в диапазон таблицы другого листа
Добрый день! Прошу подсказать как написать макрос, чтобы он искал ячейку со значением "февраль"...

Создать программу, которая позволяет ввести целое число n и вывести это число в виде произведения простых чисел
Здравствуйте. Не могли бы знающие люди помочь новичку с с++. суть проблемы вот: Создать...

Написать макрос, который бы сжимал таблицы, удаляя в них пустые строки
Задание № 1. Условие. Написать макрос, который бы сжимал таблицы, удаляя в них пустые строки. ...

Первым элементом каждой строки явл. число. Создать копию файла и найти сумму 1 компонентов всех строк
Program LABA2_RI; uses CRT; var f,f1:text; c,sum,Sx:real; n,p,i:byte; Procedure...

Создать макрос, который пишет парное или непарное число
Надо создать макрос, который в один столбец генерирует случайные числа от 1 до 20. А в соседнем...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.