Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Статистика в Excel / 7 сообщений из 7, страница 1 из 1
11.04.2010, 10:16
    #36572675
Green2
Green2Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Статистика в Excel
Макрос для Excel
Создаются страницы с одинаковыми формами, и есть страница свода.
В формах набиваются данные, а в своде этот макрос создаёт формулы суммирования.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub frm2()
Dim name As String, formula As String, dl As String, sh As String
Dim i As Integer
' Получаем имя ячейки
    name = ActiveCell.name
' Убираем имя листа
    name = Mid(name, InStr(name, "!"))
' Формируем формулу
    formula = ""
    dl = "="
    sh = ActiveWindow.ActiveSheet.name
    For i =  1  To ActiveWindow.Application.Sheets.Count
        If ActiveWindow.Application.Sheets(i).name <> sh Then
            formula = formula + dl + ActiveWindow.Application.Sheets(i).name + name
            dl = "+"
        End If
    Next i
' Запиываем формулу
    ActiveCell.formula = formula
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.04.2010, 10:48
    #36572684
Green2
Green2Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Статистика в Excel
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub frm3()
Dim name As String, formula As String, dl As String, sh As String
Dim i As Integer
    name = ActiveCell.Address
    name = "!" + name
    formula = ""
    dl = "="
    sh = ActiveWindow.ActiveSheet.name
    For i =  1  To ActiveWindow.Application.Sheets.Count
        If ActiveWindow.Application.Sheets(i).name <> sh Then
            'If ActiveWindow.Application.Sheets(i).Tab.ColorIndex = xlColorIndexNone Then
                formula = formula + dl + ActiveWindow.Application.Sheets(i).name + name
                dl = "+"
            'End If
        End If
    Next i
    ActiveCell.formula = formula
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.04.2010, 11:11
    #36572696
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Статистика в Excel
Green2,

Это конечно очень интересно, но к чему это ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.04.2010, 23:22
    #36583328
Djon Player
Djon Player
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Статистика в Excel
Как я понял создаётся формула суммирования всех ячеек с таким-же адресом что и активная ячейка со всех листов кроме текущего. Правда код не проверял.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.04.2010, 13:11
    #36598241
г о сть
г о сть
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Статистика в Excel
Код: plaintext
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.
Sub frm3()
Dim name As String, formula As String, dl As String, sh As String, red As String
Dim i As Integer, cl As Range
For Each cl In Application.Selection.Cells
' Получаем имя ячейки
    'name = ActiveCell.name
    'name = ActiveCell.Address
    name = cl.Address
' Убираем имя листа
    'name = Mid(name, InStr(name, "!"))
    name = "!" + name
' Формируем формулу
    formula = ""
    dl = "="
    sh = ActiveWindow.ActiveSheet.name
    For i =  1  To ActiveWindow.Application.Sheets.Count
        If ActiveWindow.Application.Sheets(i).name <> sh Then
            'If ActiveWindow.Application.Sheets(i).Tab.ColorIndex <> xlColorIndexNone Then
                red = ActiveWindow.Application.Sheets(i).name
                red = "'" + red + "'"
                formula = formula + dl + red + name
                dl = "+"
            'End If
        End If
    Next i
' Запиываем формулу
    'ActiveCell.formula = formula
    cl.formula = formula
Next
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.04.2010, 14:19
    #36598445
-O_o-
-O_o-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Статистика в Excel
2 Green2
А можно ли поинтересоватсья, что это все значит и для чего это написано было?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2010, 08:54
    #36599831
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Статистика в Excel
Да интересное "разврашение" листа Excel :) :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Статистика в Excel / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 360ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2178197]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 41ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 248ms
total:  360ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]