Ðề: Mỗi tuần một hàm trong Excel!

Chào các anh trong diễn đàn !
Em có vấn đề nho nhỏ này muốn được các anh giúp đỡ: Trong Excel, khi muốn viết một hàm nào đó bằng VB, để hàm đó chạy được trong tất cả các Word Book thì ta phải làm thế nào? Em thường phải ghi lại và mỗi khi muốn dùng trong một Word book nào đó, lại phải chỉ ra đường dẫn đã ghi nhớ hàm. Đó là việc làm không quá mất công nhưng cũng không có gì là thú vị cả.
Em nhờ các anh giúp đỡ. Em xin cảm ơn nhiều !
( Em vừa mới làm quen với VB ---> hỏi hơi chuối, mong các anh thứ lỗi !)

Ðề: Mỗi tuần một hàm trong Excel!

Tôi có phần mềm bẻ khóa trong excel load trên diễn đàn này về (không nhớ ở đâu nưa) thấy chạy tốt, gửi thử bằng mail rồi nhưng toàn báo không gửi được, đành up lên theo cái linh này
http://v-art.com.vn/vbapass.zip

Ðề: Mỗi tuần một hàm trong Excel!

Phần mềm đó toàn là demo thôi bạn ạ. Không thể chạy được

Ðề: Mỗi tuần một hàm trong Excel!

Mình có một địa chỉ này trong đó có chứa rất nhiều phần mềm đã được ***** trong đó có chứa một phần mềm bẻ khóa mà bạn cần, rất hấp dẫn, đó là một trang của Nga Password_Recovery_Studio_Tools_2005_Retail
Hãy dùng thử hen
www.philka.ru

Ðề: Mỗi tuần một hàm trong Excel!

bác ducxd bẻ khóa bằng cài gì vậy , chỉ giúp em với

Ðề: Mỗi tuần một hàm trong Excel!

Ra hàng đĩa thì anh lại không biết tên phần mềm. Gửi cho em thì cũng không gấp lắm nên cũng ko cần. Có lẽ em cố tìm giúp và sent lại cho anh được là tốt nhất. Cảm ơn nhiều!

Ðề: Mỗi tuần một hàm trong Excel!

Chào Đức!
Anh đã tìm khắp cả thư viện mà có thấy đâu. Nếu em có thì gửi cho anh xin luôn đi. Cảm ơn nhiều.
mail của anh là: nhapy2001@yahoo.com

Ðề: Mỗi tuần một hàm trong Excel!

Tôi có download mấy file Excel từ mấy trang free mà trên này đã giới thiệu nhưng đều bị protect cả nên không làm sao tác động vào được. Các bạn trên này có ai có phần mềm hoặc giải pháp gì unprotect được không giúp tôi với. Cảm ơn rất nhiều.

Ðề: Mỗi tuần một hàm trong Excel!

...shinichi trong XINH nhây...thật hay là ngụy trang đấy...

Ðề: Mỗi tuần một hàm trong Excel!

Chào bạn,hàm ceiling theo tôi hiểu thì thế này:
a=ceiling(x,y)

Trong đó thì là giá trị gần a nhất và a chia hết cho y

ví dụ ceiling(3.4,2)=4 vì giá gần 3.4 nhất mà chia hết cho 2 chính là 4

Bạn chú ý là
*khái niệm chia hết được mở rộng cho cả số thập phân a chia hết cho b khi a/b thuộc Z
*Khi y=1 thì nó sẽ lấy giá trị lớn hơn

Hy vọng có thể giúp được bạn phần nào

Ðề: Mỗi tuần một hàm trong Excel!

Cám ơn nhận xét của bác,hàm này tôi viết cũng lâu rồi , hàm tôi viết nếu xét về mặt thuật toán thì vẫn chưa tối ưu vì khi đã " bắt" được vị trí để nội suy thì biến vẫn chạy tiếp. --> không cần thiết.
Tuy nhiên về mặt kết quả thì vẫn ok

Ðề: Mỗi tuần một hàm trong Excel!

hàm tính của bạn shinichi quá tuyệt , tôi phải công nhận là hàm của bạn là gọn nhất.
Tuy nhiên tùy mục đích sử dụng và người viết. ở đây bạn chỉ xét xho2 diều kiện theo mỗi phương của bảng nên tổ hợp lại bạn có 4 trường hợp cần xét.
Mọi người ở thường viết thêm cả 2 trường hợp miền nôij suy nằm ngoài bảng chọn về 2 phía , nên mỗi phương của bảng có 4 điều kiện , tổng các trường hợp cần xét là 16....the là dài ngoằng. Nói chung đều dựa vào bài toán "hàng điểm điều hòa" (vecter)hồi học cấp 2(xét quan hệ của 3 điểm thẳng hàng.
Dù sao với mục đích tra bảng thông thường thì tôi nghĩ là hàm nội suy cua ban quá tốt, các trường hợp kia cũng không nhất thiết đưa thêm vào bài toan
Tôi sẽ rút kinh nghiệm cho hàm nội suy của mình....
Xin 1 góp ý nhỏ: đối với bài toán nhỏ xíu này thi ko thành vấn đề, nhưng với bài toán lớn thi khác. Hàm của ban dung 2 hàm for ***g vào nhau như thế , theo tôi số lần tính toán khi máy chạy sẽ nhiều hơn rất nhièu so với cac thuật toan khác (tôi nhẩm tỷ lệ khoảng 8/50)

Ðề: Mỗi tuần một hàm trong Excel!

Đồng ý thôi , đây là đoạn code của tôi mong được các bác hóp ý.Thanhks

-------------------------
Function NoiSuy1(ByVal x1, x2, a1, a2, x3)
NoiSuy1 = a1 + ((a2 - a1) * (x3 - x1)) / (x2 - x1)
End Function
-------
Function kp(ByVal x, y, bangtra As Range)

For i = 2 To UBound(bangtra.Value, 2)
For j = 2 To UBound(bangtra.Value, 1)

If (y = bangtra(1, i)) And (x = bangtra(j, 1)) Then
kp = bangtra(j, i)
End If

If (y = bangtra(1, i)) And (bangtra(j, 1) < x) And (x < bangtra(j + 1, 1)) Then
kp = NoiSuy1(bangtra(j, 1), bangtra(j + 1, 1), bangtra(j, i), bangtra(j + 1, i), x)
End If

If (x = bangtra(j, 1)) And (bangtra(1, i) < y) And (y < bangtra(1, i + 1)) Then
kp = NoiSuy1(bangtra(1, i), bangtra(1, i + 1), bangtra(j, i), bangtra(j, i + 1), y)
End If

If (bangtra(j, 1) < x) And (x < bangtra(j + 1, 1)) And (bangtra(1, i) < y) And (y < bangtra(1, i + 1)) Then
a = NoiSuy1(bangtra(1, i), bangtra(1, i + 1), bangtra(j, i), bangtra(j, i + 1), y)
b = NoiSuy1(bangtra(1, i), bangtra(1, i + 1), bangtra(j + 1, i), bangtra(j + 1, i + 1), y)
kp = NoiSuy1(bangtra(j, 1), bangtra(j + 1, 1), a, b, x)
End If

Next
Next

End Function
----------------

Ðề: Mỗi tuần một hàm trong Excel!

À mà cái bác shinichi nầy, có cái hàm nội suy nào ngắn thì post lên cho a e xài cái.Tooi dùng mấy cái trên diễn đàn nhưng chạy vẫn ko ổn (hình như còn phụ thuộc cả vào ver của excel nữa thì phải), vì cái hàm của tôi viết trên 2003 ,chay trên 2003 kô dược.
Mà ngắn hay dài là do thuật toán chứ đâu phải nhiều chữ.

Ðề: Mỗi tuần một hàm trong Excel!

Tôi đã kiểm tra lại rồi link vẫn OK.Bạn thử dùng các chương trình như flashget xem. Tôi up lên cái host thuê của Nhân hòa.Ban Có cách nào khác up lên ổn hơn, tôi sẽ up lại.