Tạo hàm vba

[Minh Đức 1309]

Em muốn tạo 1 hàm ví dụ : khoangngay(ngaydau,ngaycuoi,chuoi) với ngaydau là ngày bắt đầu và ngaycuoi là ngày kết thúc ,chuoi có thể có hoặc không.Ví dụ ngay đầu là 10-7-2019 ngày cuối là 20-7-2019 thì n ra mảng gồm từ ngày 10 đến ngày 20, thêm chuoi thì sẽ ghép chuoi với ngày

 

[huuthang_bd]

Em muốn tạo 1 hàm ví dụ : khoangngay(ngaydau,ngaycuoi,chuoi) với ngaydau là ngày bắt đầu và ngaycuoi là ngày kết thúc ,chuoi có thể có hoặc không.Ví dụ ngay đầu là 10-7-2019 ngày cuối là 20-7-2019 thì n ra mảng gồm từ ngày 10 đến ngày 20, thêm chuoi thì sẽ ghép chuoi với ngày

Function khoangngay (ngaydau, ngaycuoi, optional byval chuoi as string) 
Dim i as long, ketqua(ngaydau to ngaycuoi, 1 to 1)
For i = ngaydau to ngaycuoi
  Ketqua(i, 1) = "'" & chuoi & format(i, "dd/mm/yyyy")
Next
Khoangngay = ketqua
End function

 

[Minh Đức 1309]

Function khoangngay (ngaydau, ngaycuoi, optional byval chuoi as string)
Dim i as long, ketqua(ngaydau to ngaycuoi, 1 to 1)
For i = ngaydau to ngaycuoi
  Ketqua(i, 1) = "'" & chuoi & format(i, "dd/mm/yyyy")
Next
Khoangngay = ketqua
End function

Bị lỗi mất rồi ạ

 

[Ba Tê]

View attachment 223271

Bị lỗi mất rồi ạ

Bạn muốn thế nào thì gởi file, kết quả muốn có bằng thủ công thì mọi người mới hiểu.
Dùng VBA mà topic trong chủ đề Hàm và công thức Excel?

 

[Minh Đức 1309]

Function khoangngay (ngaydau, ngaycuoi, optional byval chuoi as string)
Dim i as long, ketqua(ngaydau to ngaycuoi, 1 to 1)
For i = ngaydau to ngaycuoi
  Ketqua(i, 1) = "'" & chuoi & format(i, "dd/mm/yyyy")
Next
Khoangngay = ketqua
End function

Bài đã được tự động gộp: 25/8/19

Bạn muốn thế nào thì gởi file, kết quả muốn có bằng thủ công thì mọi người mới hiểu.
Dùng VBA mà topic trong chủ đề Hàm và công thức Excel?

Đây ạ

 

[huuthang_bd]

Lỗi #REF! là lỗi tham chiếu không tồn tại do người dùng chứ không phải do code.

 

[giaiphap]

View attachment 223272

Bài đã được tự động gộp: 25/8/19

Đây ạ

Mượn code của bác @huuthang_bd sửa lại chút cho file của bạn.

 

[Ba Tê]

Đây ạ

Gởi thêm 1 hàm, phải có tham số dòng muốn có kết quả.

 

[giaiphap]

Gởi thêm 1 hàm, phải có tham số dòng muốn có kết quả.

Làm theo cách của anh, em nghĩ thế này là được.

Public Function VBA_Function(Rws As Long, NgayDau As Long, NgayCuoi As Long, Optional Chuoi As String = Empty) As String
Dim R As Long
    R = NgayCuoi - NgayDau + 1
    If Rws > R Then
        VBA_Function = ""
    Else
        VBA_Function = Chuoi & Format(NgayDau + Rws - 1, "dd/mm/yyyy")
     End If
End Function

 

[Ba Tê]

Làm theo cách của anh, em nghĩ thế này là được.

Public Function VBA_Function(Rws As Long, NgayDau As Long, NgayCuoi As Long, Optional Chuoi As String = Empty) As String
Dim R As Long
    R = NgayCuoi - NgayDau + 1
    If Rws > R Then
        VBA_Function = ""
    Else
        VBA_Function = Chuoi & Format(NgayDau + Rws - 1, "dd/mm/yyyy")
     End If
End Function

Vậy thì vầy luôn:

Public Function VBA_Function2(Rws As Long, NgayDau As Long, NgayCuoi As Long, Optional Chuoi As String = Empty) As String
Dim R As Long
    R = NgayCuoi - NgayDau + 1
    If Rws <= R Then
        VBA_Function2 = Chuoi & Format(NgayDau + Rws - 1, "dd/mm/yyyy")
     End If
End Function

 

[Minh Đức 1309]

Gởi thêm 1 hàm, phải có tham số dòng muốn có kết quả.

E muốn tự tạo name cho vùng vừa ra thị sao ạ