Форум по Эксель

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » Форум по Эксель » Форум по Excel » Подскажите где ошибка

Подскажите где ошибка

Страница: 1
Ответить

Сообщений 1 страница 5 из 5

1

  • Автор: alex_sande1
  • Гость

Код Visual Basic


Public Sub Proc()
Worksheets("Лист12").Select
Worksheets("Лист12").Range("A1").Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, _
TotalList:=Array(6), Replace:=False, PageBreaks:=False, _
SummaryBelowData:=xlSummaryBelow
         MsgBox "Промежуточные итоги по магазинам"
Worksheets("Лист12").Range("Bl").Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, _
TotalList:=Array(6), Replace:=False, PageBreaks:=False, _
SummaryBelowData:=xlSummaryBelow
         MsgBox "Промежуточные итоги по маркам"
End Sub   

есть таблица, в ней нужно посчитать промежуточные итоги, но программа не идет- пишет ошибка "1004(метод Subtotal из класса Range не верно завершен)"

сама таблица в которой нужно считать

Магазины Марка Размер экрана Цена Продано Сумма
ФОЛИУМ Sony 15 5000 5
ВИСТ Aser 15 5100 6
АССА Panasonic 14 4100 7
АССА Sony 14 4200 4
ФОЛИУМ Aser 14 3900 3
ВИСТ Panasonic 15 5250 3
АССА Аser 14 5200 6
ВИСТ Sony 15 4900 2
ФОЛИУМ Panasonic 15 5300 4

0

2

  • Автор: nilem
  • Старожил
  • Откуда: Уфа
  • Зарегистрирован: 2010-04-17
  • Приглашений: 0
  • Сообщений: 36
  • Уважение: [+1/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    5 часов 14 минут
  • Последний визит:
    2010-08-03 19:05:27

В строке

Код:
Worksheets("Лист12").Range("Bl").Select

записано BI вместо B1. А вообще, эта строка не нужна.

0

3

  • Автор: alex_sande1
  • Гость

и все равно не идет

0

4

  • Автор: Serge 007
  • Администратор
  • Serge 007
  • Зарегистрирован: 2010-04-17
  • Приглашений: 0
  • Сообщений: 267
  • Уважение: [+4/-0]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Возраст: 47 [1977-01-09]
  • Провел на форуме:
    4 дня 4 часа
  • Последний визит:
    2013-07-19 20:34:17
alex_sande1 написал(а):

и все равно не идет

Выкладывайте файл.

0

5

  • Автор: nilem
  • Старожил
  • Откуда: Уфа
  • Зарегистрирован: 2010-04-17
  • Приглашений: 0
  • Сообщений: 36
  • Уважение: [+1/-0]
  • Позитив: [+0/-0]
  • Пол: Мужской
  • Провел на форуме:
    5 часов 14 минут
  • Последний визит:
    2010-08-03 19:05:27

Вот что получилось по фотографии с др. форума.

Код:
Public Sub Proc()
With Sheets(12).Range("A1")
    .Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(6), _
        Replace:=False, PageBreaks:=False, SummaryBelowData:=True
    .Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(6), _
        Replace:=False, PageBreaks:=False, SummaryBelowData:=True
End With
End Sub

0

Ответить
Страница: 1

Вы здесь » Форум по Эксель » Форум по Excel » Подскажите где ошибка