Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
помогите подсчитать среднее Trade Close_palm_oil по неделям vba.
 
#1
19.09.2012 17:41:57
есть таблица excel(во вложении).  
помогите подсчитать среднее Trade Close_palm_oil по неделям vba.
 
 
 
#2
19.09.2012 18:42:06
примерно так  
Код
   
Sub SRED()   
M = Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 2))   
N = Format(Left(M(1, 1), 10), "ww")   
SUM = M(1, 2)   
K = 1   
For R = 2 To UBound(M)   
    If N = Format(Left(M(R, 1), 10), "ww") Then   
        SUM = SUM + M(R, 2)   
        K = K + 1   
    Else   
        If K <> 0 Then REZ = REZ & "Неделя " & N & " среднее " & Round(SUM / K, 1) & " (значений " & K & ")" & vbCrLf   
        SUM = 0   
        K = 0   
        N = Format(Left(M(R, 1), 10), "ww")   
    End If   
Next R   
MsgBox REZ, 64, ""   
End Sub  
 
 
 
#3
19.09.2012 19:21:52
а как сделать вывод на другую страницу книги?
 
 
 
#4
19.09.2012 20:03:17
а если быть точным то нужно средневзвешенное подсчитать по неделям  
средневзвешенное считается:ср_взвешенное=(Trade Close_palm_oil1*Trade Volume_palm_oi1l+Trade Close_palm_oil2*Trade Volume_palm_oi12+...)Trade Close_palm_oil1+Trade Close_palm_oil2+...  
во вложении исходные данные и результирующий файл.  
помогите пожалуйста господа программисты я в этом ноль совсем.очень срочно надо(((  
заранее спасибо
 
 
 
#5
19.09.2012 22:41:27
никаких идей?помогите плиз.....  
очень срочно надо((((
 
 
 
#6
19.09.2012 22:52:28
Sub macros()  
With Sheets.Add  
[a1:f1].Value = Split("nedelya1,nedelya2,sum", ",")
M = Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 2))  
N = Format(Left(M(1, 1), 10), "ww")  
Sum = M(1, 2)  
K = 1  
For R = 2 To UBound(M)  
If N = Format(Left(M(R, 1), 10), "ww") Then  
Sum = Sum + M(R, 2)  
K = K + 1  
Else  
Sum = 0  
K = 0  
N = Format(Left(M(R, 1), 10), "ww")  
End If  
Next R  
End With  
End Sub  
 
пыталась что-то соедить и дополнить,но как-то не успешно((((
 
 
 
#7
20.09.2012 03:53:56
Решение через ADO. Обратите внимание, что введена колонка RealDate_palm_oil в которой записана дата и время в числовом формате (думаю преобразовать из текстового формата колонки Timestamp_palm_oil формулами не составит труда).
 
 
 
#8
20.09.2012 09:28:43
вопрос такой:копирую макрос в другую книгу,дополнительное поле с датой ввела в формате дата время и при запуске макроса выдает ошибку  
user defined type not defined  
указывая на строчку    
Dim pConn As New ADODB.Connection
 
 
 
#9
20.09.2012 09:40:28
В редакторе VBA меню Tools/References установить ссылку на библиотеку Microsoft ActiveX Data Objects 2.6 Library.
 
 
 
#10
20.09.2012 14:30:18
большое спасибо,все работает)))
 
 
 
Страницы: 1
Читают тему
Наверх