Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
slon2
0 / 0 / 0
Регистрация: 22.03.2011
Сообщений: 13
1

Как вывести готовую сумму?

27.03.2011, 13:08. Просмотров 521. Ответов 1
Метки нет (Все метки)

Я тут вот что нагородил:
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
ActiveCell.Offset(0, 0) = 1
For x = 1 To 100
a = a + 1
b = b + 1
c = c + 1
d = c - 1
 
If ActiveCell.Offset(d, -1) = 'Итого' _
And ActiveCell.Offset(c, 1) = '' Then
ActiveCell.Offset(c, -1) = 'Всего'
 
Exit Sub
 
ElseIf ActiveCell.Offset(c, 1) <> '' Then
ActiveCell.Offset(b, 0) = a + 1
 
ElseIf ActiveCell.Offset(c, 1) = '' Then
ActiveCell.Offset(c, -1) = 'Итого'
ActiveCell.Offset(c, 0) = ActiveCell.Offset(d, 0)
a = -1
 
End If
Next x
А вот как итоговую сумму вывести не знаю.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.03.2011, 13:08
Ответы с готовыми решениями:

Как на excele можно вывести сумму денег прописью?
например 3200 три тысяча двести (денежная единица может быть разной)

Напишите функцию метода деления пополам или найдите готовую
Так называемый метод дихотомии. Функция принимает параметры в виде начала и...

Из указанной БД Access брать уже готовую форму и записывать её в файл Word
Всем привет,необходим код на кнопку (Private Sub CommandButton1_Click())...

Вывести на экран сумму делителей числа N
Дано натуральное число N. Вывести на экран сумму его делителей. Число 1...

Найти сумму элементов массива и вывести на печать
Прошу помочь с программой :) У меня почему-то все элементы массива k=1 и с...

1
PMSSpy
0 / 0 / 0
Регистрация: 01.03.2010
Сообщений: 223
27.03.2011, 14:00 2
Код
Dim i1 as String
Dim i2 as string
i1=ltrim(str(i+1))
i2=ltrim(str(i))
Range('A' + i1).FormulaLocal = '=сумм(A1:A' + i2 + ')'
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.03.2011, 14:00

Вывести на экран график функций (переделать готовую программу)
Разработать программу вывода на экран в графическом режиме графиков двух...

Определить количество слов в тексте; вывести на экран десятое слово. Объяснить готовую программу
Добрый день, уважаемые форумчане. Дана задача: С помощью текстового...

Как собрать готовую программу?
Допустим я уже создал программу. А как мне её собрать в exe?


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

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

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