Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Сводная диаграмма по трем параметрам
 
Еще раз большое спасибо Андрей VG.
Наверное что-то я перемудрила)
Сводная диаграмма по трем параметрам
 
Большое спасибо.
Не совсем это. Имела в виду что точка на графике это значение из пересечения в таблице. Т.е. например для июня было бы 1908 (из примера)
Сводная диаграмма по трем параметрам
 
Добрый день.

Подскажите, пожалуйста, как построить график для сводной таблицы вида:
Месяц/Скорость/кол-вол
Где месяца идут в строках, скорость в названиях столбцов, а на пересечениях кол-во.

Нужно чтобы график выглядел так:
по горизонтальной оси - месяца
по вертикальной - скорость
а на точках пересечения - кол-во

Можно вообще такое построить?
Преобразование таблицы
 
Добрый день. Помогите, пожалуйста, преобразовать таблицу.

Есть таблица. Где наименования указаны в строках, месяца в названиях столбцов. На пересечениях наименований и столбцов указаны количества.
Нужно преобразовать таблицу так, чтобы в первом столбце были наименования, во втором - количества, а в третьем - месяцы.

Пример прилагаю.
Вывод сообщения при не найденных значениях
 
Kuzmic, webley огромное спасибо!
Последний вариант получился!

Спасибо!!

Получилось так:
Код
Private Sub CommandButton1_Click()
 Dim vRow As Long, vCol As Long
    Dim RowData As Long, ColData As Long
    Dim tmpNum As String
    Dim firstValue As Variant, find_kod As Variant
    Dim n_row As String
    Dim i As Long
    Dim BarCod As String
   Dim Row_F As Variant
    Dim oRange As Range
    Dim Log_F As String
    Dim Row_K As Variant
     Dim lRange As Range
     Dim Log_K As String
    
    If TextBox1.Text <> "" Then
    BarCod = TextBox1.Text
Else
    VBA.MsgBox ("Введите баркод")
    Exit Sub
End If

        If TextBox1.Text <> "" Then
             
       Set oRange = Workbooks("base.xlsm").Sheets("общий список").Range("F4:F250000")
        oRange.Select
        
    On Error Resume Next
        
    Log_F = oRange.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
   
    If Err.Number = 91 Then
    VBA.MsgBox ("Штрих-код не найден!" & VBA.Chr(13) & "ОБНОВИТЕ ТАБЛИЦУ!")
    Exit Sub
    Else
    On Error GoTo 0
    Row_F = oRange.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row    
       End If
Вывод сообщения при не найденных значениях
 
Тоже самое.... Не могу понять где ошибка...
Вывод сообщения при не найденных значениях
 
webley спасибо. Но...
Не получается. Отрабатывает, ошибку больше не выдает, но и сообщение не выдает тоже.
Код
Private Sub CommandButton1_Click()
 Dim vRow As Long, vCol As Long
    Dim RowData As Long, ColData As Long
    Dim tmpNum As String
    Dim firstValue As Variant, find_kod As Variant
    Dim n_row As String
    Dim i As Long
    Dim BarCod As String
   Dim Row_F As Variant
    Dim oRange As Range
    Dim Log_F As String
    Dim Row_K As Variant
     Dim lRange As Range
     Dim Log_K As String
    
    If TextBox1.Text <> "" Then
    BarCod = TextBox1.Text
    Else
    VBA.MsgBox ("Введите баркод")
    Exit Sub
    End If
     
 If TextBox1.Text <> "" Then             
           
 Set oRange = Workbooks("base.xlsm").Sheets("общий список").Range("F:F")
 oRange.Select
 Row_F = ""
    
On Error Resume Next
        
Log_F = oRange.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
        
 If Log_F = True Then
 Row_F = oRange.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns,             
Else
If Err.Number = 91 Then
  
VBA.MsgBox ("Штрих-код не найден!" & VBA.Chr(13) & "ОБНОВИТЕ ТАБЛИЦУ!")
        
End If
On Error GoTo 0       
Exit Sub
 End If
Вывод сообщения при не найденных значениях
 
Добрый день.
Подскажите, пож-та, что не так с кодом.

Ниже представлен кусок кода. В Textbox вводим значение которое необходимо найти в столбце F. И ищем
Если значение не найдено, необходимо выводить сообщение об ошибке.
Однако если значение не найдено вываливается ошибка 91 на строку "Log_F = oRange.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activat"

Код
Private Sub CommandButton1_Click()
 Dim vRow As Long, vCol As Long
    Dim RowData As Long, ColData As Long
    Dim tmpNum As String
    Dim firstValue As Variant, find_kod As Variant
    Dim n_row As String
    Dim i As Long
    Dim BarCod As String
   Dim Row_F As Variant
    Dim oRange As Range
    Dim Log_F As String
    Dim Row_K As Variant
     Dim lRange As Range
     Dim Log_K As String
      
If TextBox1.Text <> "" Then
    BarCod = TextBox1.Text
Else
    VBA.MsgBox ("Ââåäèòå áàðêîä")
    Exit Sub
End If
  
   If TextBox1.Text <> "" Then 
           
       Set oRange = Workbooks("base.xlsm").Sheets("îáùèé ñïèñîê").Range("F:F")
        oRange.Select
        Row_F = ""
      
        Log_F = oRange.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
        If Log_F = True Then
 
        Row_F = oRange.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
       
        Else
        If TextBox1.Text <> "" Then
        VBA.MsgBox ("Øòðèõ-êîä íå íàéäåí!" & VBA.Chr(13) & "ÎÁÍÎÂÈÒÅ ÒÀÁËÈÖÓ!")
      Exit Sub
       End If
Сортировка повторяющихся значений
 
V большое спасибо! Все получилось)!
Сортировка повторяющихся значений
 
Добрый день.

Подскажите, пож-та, как можно  сделать следующее:
Есть столбец с повторяющимися значениями:
10
10
10
11
11
11
12
12
12
Хочу отсортировать чтобы было:
10
11
12
10
11
12
10
11
12
Проблема с макросами: ошибка 57121
 
Режим конструктора отключен.
Режим конструктора спокойно включается и выключается...
(((
Перепробовала все уже...
Может ли  что-то бить эксель с макросами? Офис переустанавливала уже 3 раза. Не помогает. Работа с файлом на старом компе, без открытия его на новом, все ок. все работает все печатается, все идеально.
Проблема с макросами: ошибка 57121
 
ошибка
в макросе
Проблема с макросами: ошибка 57121
 
у вас нет программы strokescribe, поэтому может у вас на нее ругаться. у меня на всех компах она установлена. www.strokescribe.com здесь есть демо версия.
библиотек Missing нет(((
Проблема с макросами: ошибка 57121
 
Листы запоролены.
На всех компах разрешено все что только можно. Поэтому предупреждений никаких нет.  
Проблема с макросами: ошибка 57121
 
Нет, Не в защищенном, не только для чтения.Нет предупреждений что что-либо заблокировано.
Проблема с макросами: ошибка 57121
 
Да, все одинаково.
Файл на обоих компах на рабочем столе. Старый комп и новый комп. На новом работает, на старом не работает файл измененный на новом.
В экселе разрешены макросы и АктивХ,
Причем если на старом компе, открыть версию файла до изменения ее на новом компе, созданную изначально на старом, внести нужные изменения, сохранить. Работает как на старом так на новом и вообще у всех остальных. Но как только использую новый комп, на всех остальных ошибка.
С файлом работаю год. Алгоритм работы ночью расскажу если разбудить. А смена компа и все...
Макрос весь переписала в новую созданную книгу на новом компе. На нем работает. У остальных нет...
В замешательстве..
Проблема с макросами: ошибка 57121
 
Переименовывала лист, заменяя имя в макросе. меняла пароли.
Не помогает. При этом на основном компе все работает..
один и тот же файл на одном компе все ок играет
на втором ошибка - 57121
Изменено: lexy4ka - 10.02.2014 18:15:47
Проблема с макросами: ошибка 57121
 
Работа макроса спотыкается на
Код
Workbooks("EAN_base_AW.xlsm").Sheets("old_45").Unprotect Password:="1026010"
 
Причем если отключить защиту паролем то все равно спотыкается на следующем же упоминании листа "old_45"
Проблема с макросами: ошибка 57121
 
Добрый день.

Файл эксель с макросами работало все ок. Файл без проблем открывался и работал  как на основном компе так и у остальных. После смена компа любое действие с файлом стало бить файл. Т.е . на самом рабочем компе все ок. Файл отрабатывает нормально. Однако у остальных файл работать перестал. Выдает ошибку Run-time error 57121 "Application-defined or object-defined error".файл

Заранее спасибо.
Изменено: lexy4ka - 10.02.2014 23:17:51 (Перезалила файл)
имя столбца если есть отметки в ячейке, вывод имени столбца если в ячейке столбца есть отметка
 
Ого...
с ума сойти!
Огромное спасибо за помощь.
имя столбца если есть отметки в ячейке, вывод имени столбца если в ячейке столбца есть отметка
 
Добрый день.

Подскажите, пожалуйста, как формулами лучше решить такую вот задачку.
Сформировать новую таблицу содержащую дату - имя столбца - если в столбце есть маркер, маркер может быть любой, не обязательно тот что сейчас.
См. файл.

Заранее очень благодарна за помощь.
Страницы: 1
Наверх