Xin giúp mình về việc thu gọn công thức

[hvt268]

Các bạn ơi, giả sử mình có một công thức rất dài, mà cần sử dụng nhiều lần, và ở nhiều bảng tính khác nhau, bây giờ mình có mong muốn là tạo cái công thức đó thành một hàm như các hàm có sắn của excel để dùng cho tiện, đỡ phải copy thì làm như thế nào, cám ơn các bạn

 

[Hoàng Tuấn 868]

thì làm như thế nào

Đầu tiên là bạn đưa file có công thức giả sử đó lên đây đã.

 

[hvt268]

Đầu tiên là bạn đưa file có công thức giả sử đó lên đây đã.

Dưới đây là một đoạn code mình tìm được trên diễn đàn, mình muốn dùng cho tất cá các file excel tạo mới hoặc đã tạo trước đó thì làm thế nào
Đây là link gốc: https://www.giaiphapexcel.com/diend...nhiêu số cần,tổ hợp phím Ctrl + Shift + Enter

Option Explicit
Function UniqueRandomNum(Bottom As Long, Top As Long, Amount As Long)
'Application.Volatile '<--- Neu muon gia tri thay doi khi bam F9
On Error Resume Next
If Amount > Top - Bottom + 1 Then Amount = Top - Bottom + 1
With CreateObject("Scripting.Dictionary")
Do
.Add Int(Rnd() * (Top - Bottom + 1)) + Bottom, ""
Loop Until .Count = Amount
UniqueRandomNum = WorksheetFunction.Transpose(.Keys)
End With
End Function

 

[Hoàng Tuấn 868]

Dưới đây là một đoạn code mình tìm được trên diễn đàn, mình muốn dùng cho tất cá các file excel tạo mới hoặc đã tạo trước đó thì làm thế nào
Đây là link gốc: https://www.giaiphapexcel.com/diendan/threads/tạo-dãy-số-ngẫu-nhiên-không-trùng.27286/#:~:text==UniqueRandomNum(Số nhỏ, Số lớn, bao nhiêu số cần,tổ hợp phím Ctrl + Shift + Enter

Option Explicit
Function UniqueRandomNum(Bottom As Long, Top As Long, Amount As Long)
'Application.Volatile '<--- Neu muon gia tri thay doi khi bam F9
On Error Resume Next
If Amount > Top - Bottom + 1 Then Amount = Top - Bottom + 1
With CreateObject("Scripting.Dictionary")
Do
.Add Int(Rnd() * (Top - Bottom + 1)) + Bottom, ""
Loop Until .Count = Amount
UniqueRandomNum = WorksheetFunction.Transpose(.Keys)
End With
End Function

Bạn tải file này về, lưu lại dưới dạng .xlam rồi cài đặt như add in bình thường là dùng được.

 

[hvt268]

Bạn tải file này về, lưu lại dưới dạng .xlam rồi cài đặt như add in bình thường là dùng được.

Mình cài thì nó báo thế này

 

[Hoàng Tuấn 868]

Mình cài thì nó báo thế này
View attachment 296163

Bạn đã Unblock file sau khi tải về chưa?

 

[hvt268]

Bạn đã Unblock file sau khi tải về chưa?

unlock như thế nào vậy bạn

 

[Hoàng Tuấn 868]

unlock như thế nào vậy bạn

Bạn chịu khó gõ tìm kiếm với từ khóa Unblock một chút đi.