Giúp em cái hàm xichma của hàm có biến thay đổi này với (1 người xem)

[asme300893]

em có công thức sau: Vx=W/k* xichma(An*cos(nt)) trong đó n thay đổi thừ 1-5 theo mỗi giá trị của An, các thành phần đã biết là w, k, An (n=1~5), t
các bác có hàm nào làm nhanh cái này không chỉ em với.chứ nếu mà viết từng cái ra thì mệt quá

 

[siwtom]

em có công thức sau: Vx=W/k* xichma(An*cos(nt)) trong đó n thay đổi thừ 1-5 theo mỗi giá trị của An, các thành phần đã biết là w, k, An (n=1~5), t
các bác có hàm nào làm nhanh cái này không chỉ em với.chứ nếu mà viết từng cái ra thì mệt quá

Từ sau bạn bỏ cái "Giúp em" trong tiêu đề đi. Thứ nhất là phạm qui, thứ nữa là 99% các bài trên này là loại "giúp em" nên không cần phải kêu cứu thế nữa. Có kêu thì kêu trong nội dung bài viết.

Function Vivu(ByVal w As Double, ByVal k As Double, ByVal t As Double, A() As Double) As Double
Dim n As Long, result As Double
    If k = 0 Then
        MsgBox "Gia tri k phai <> 0"
    Else
        result = 0
        For n = 1 To UBound(A) - LBound(A) + 1
            result = result + A(n + LBound(A) - 1) * Cos(n * t)
        Next
        Vivu = result * w / k
    End If
End Function

1. Dữ liệu của bạn kiểu nào thì sửa cho thích hợp. Bạn không nói nên tôi dùng Double
2. Nếu mảng A() chắc chắn có chỉ số bắt đầu từ 1 thì sửa vòng FOR thành

        For n = 1 To UBound(A)
            result = result + A(n) * Cos(n * t)
        Next

3. Hàm chỉ là ví dụ, phải truyền mảng A. Nếu muốn truyền cả Range thì phải sửa lại

 

[asme300893]

tiếp thu ý kiến,dồng thời thanks.cơ mà em có biết dùng excel đâu.haizz thế này thì khó quá nhìn như kiểu pascal ấy.thôi em làm thủ cồn vậy.
thanks bác

 

[siwtom]

tiếp thu ý kiến,dồng thời thanks.cơ mà em có biết dùng excel đâu.haizz thế này thì khó quá nhìn như kiểu pascal ấy.thôi em làm thủ cồn vậy.
thanks bác

Bạn không biết Excel? Thế thì làm trong cái gì? Word, Outlook? Hay ý là bạn không biết viết code VBA, hàm tự tạo? Nếu chủ đề trong mục "này" thì chắc chỉ còn là bạn muốn công thức? Nếu thế thì tôi đoán tiếp là dữ liệu đã có trên sheet và bạn muốn nhập công thức.

Nhưng nếu là bạn muốn công thức thì tại sao bạn lại viết: "các bác có hàm nào ..."? Khó hiểu quá.
Còn nếu công thức và hàm đều không muốn thì tại sao lại trong muc "Hàm và công thức Excel"?

Cái gì cũng làm được. Người này không làm được thì người khác làm được. Nhưng phải nói rõ ra. Không ai đoán được ý bạn. Khổ nhục kế là kế cuối cùng.

Tôi giả sử là các giá trị A(1), ..., A(5) nằm tại A1:A5, B1 = t, C1 = w, D1 = k
Nếu vị trí dữ liệu khác đi thì tự sửa nhé.

Công thức cho E1

=SUMPRODUCT($A$1:$A$5*COS($B$1*ROW(1:5)))*$C$1/$D$1

Nếu số phần tử của mảng không nhất thiết là 5 mà có thể nhiều hoặc ít hơn thì

=SUMPRODUCT($A$1:$A$5*COS($B$1*ROW(INDIRECT("1:"&ROWS($A$1:$A$5)))))*$C$1/$D$1

Nhập vùng dữ liệu thực vào. A1:A5 chỉ là ví dụ.

 

[asme300893]

^^! không biết nên nói bừa mong bác thông cảm. hề hề

 

[asme300893]

Giúp bài toán

giúp em thì giúp cho chót bác ơi.em làm theo cái công thức bác ví dụ cơ mà làm từ hôm qua đến giờ không được.bác xem luôn cái file hộ em với.bác viết hộ em cái Vx ở phần cuối cùng với.thanks bác trước

 

[siwtom]

giúp em thì giúp cho chót bác ơi.em làm theo cái công thức bác ví dụ cơ mà làm từ hôm qua đến giờ không được.bác xem luôn cái file hộ em với.bác viết hộ em cái Vx ở phần cuối cùng với.thanks bác trước

1. Sao bạn không gửi ngay tập tin lên trong bài #1 để người khác khỏi phải mất công không đáng mất?

2. Trong bài 1 bạn viết:

Vx=W/k* xichma(An*cos(nt))

Bây giờ trong tập tin là:

Vx = ω / k ∑ (n = 1 --> 5) Un * cos(n(kx - ωt))

Như thế là người khác vì bạn mà mất thêm thời gian không đáng mất

3. Bạn gửi tập tin thì tôi mở ra lại bị lỗi tham chiếu vòng.

4. Ở dòng 474 bạn viết: "Un lấy ở Bảng Un" trong khi bảng Un bắt đầu từ dòng 373. Người khác phải cuộn bảng tính và tìm kiếm. Trong khi đó nếu bạn nói thêm 5 từ: "bắt đầu từ dòng 373" thì người khác tìm kiếm sẽ nhanh hơn, tiết kiệm được thời gian.
---------------
Tôi viết và kiểm tra bằng mắt vì tôi không bỏ công ra để sửa tập tin cho bạn. Bạn thấy dùng được thì dùng. Tôi không muốn mất thêm thời gian nữa.

Nói bạn đừng giận. Tôi là người thường bỏ nhiều công ra để giúp người khác. Không chỉ viết code mà tôi còn hướng dẫn tỉ mỉ, nhiều khi cầm tay dẫn đi từng bước: nhấn vào đâu, cái đó nằm ở đâu, dán gì vào đâu v...v. Tôi không tiếc những thời gian đó. Nhưng nếu vì sự vô tư, cẩu thả của người khác mà tôi mất thời gian không đáng mất thì 1 phút tôi cũng tiếc.

công thức cho F481

=$B$472/$E$472*SUMPRODUCT($C373:$G373*COS(($E$472*$C481-$B$472*C$477)*COLUMN($A:$E)))

Đúng hay sai, đủ hay chưa đủ thì tôi cũng kết thúc ở đây.
Nếu cần thì trên GPE có nhiều người có nhiều thời gian, họ sẽ giúp bạn.

 

[asme300893]

hì em đã sửa được rồi bác a.trước em cũng viết công thức tương tự bác ý.nhưng mà nó bị nỗi không biết làm sao cả.giờ em làm lằng nhằng tự nhiên nó lại ra kết quả đúng.haizzz thanks bác