Большое спасибо. Не совсем это. Имела в виду что точка на графике это значение из пересечения в таблице. Т.е. например для июня было бы 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
Режим конструктора отключен. Режим конструктора спокойно включается и выключается... ((( Перепробовала все уже... Может ли что-то бить эксель с макросами? Офис переустанавливала уже 3 раза. Не помогает. Работа с файлом на старом компе, без открытия его на новом, все ок. все работает все печатается, все идеально.
у вас нет программы strokescribe, поэтому может у вас на нее ругаться. у меня на всех компах она установлена. www.strokescribe.com здесь есть демо версия. библиотек Missing нет(((
Да, все одинаково. Файл на обоих компах на рабочем столе. Старый комп и новый комп. На новом работает, на старом не работает файл измененный на новом. В экселе разрешены макросы и АктивХ, Причем если на старом компе, открыть версию файла до изменения ее на новом компе, созданную изначально на старом, внести нужные изменения, сохранить. Работает как на старом так на новом и вообще у всех остальных. Но как только использую новый комп, на всех остальных ошибка. С файлом работаю год. Алгоритм работы ночью расскажу если разбудить. А смена компа и все... Макрос весь переписала в новую созданную книгу на новом компе. На нем работает. У остальных нет... В замешательстве..
Переименовывала лист, заменяя имя в макросе. меняла пароли. Не помогает. При этом на основном компе все работает.. один и тот же файл на одном компе все ок играет на втором ошибка - 57121
Файл эксель с макросами работало все ок. Файл без проблем открывался и работал как на основном компе так и у остальных. После смена компа любое действие с файлом стало бить файл. Т.е . на самом рабочем компе все ок. Файл отрабатывает нормально. Однако у остальных файл работать перестал. Выдает ошибку Run-time error 57121 "Application-defined or object-defined error".файл
Подскажите, пожалуйста, как формулами лучше решить такую вот задачку. Сформировать новую таблицу содержащую дату - имя столбца - если в столбце есть маркер, маркер может быть любой, не обязательно тот что сейчас. См. файл.