CHECK CÂU LỆNH VBA

[Thúy Hạnh21091995]

Xin chào mọi người
Em có viết câu lênh vba nhưng khi em chạy trong excel thì bị báo lỗi. Mọi người xem giúp em sai ở đâu với ạ
Em mới tự học VBA nên không biết nhiều mong mọi người thông cảm ạ
Em cám ơn

Sub Thung(SoCIF As Long, Rng As Range)
Dim Cls As Range

For Each Cls In Rng
If SoCIF >= Cls.Value And SoCIF <= Cls.Offset(, 1).Value Then
Thung = Cls.Row - 1
ElseIf SoCIF < Cls.Value And SoCIF > Cls.Offset(-1, 1).Value Then
Thung = Cls.Row - 2
ElseIf SoCIF > Cls.Offset(0, 1) And SoCIF < Cls.Offset(1, 0).Value Then
Thung = Cls.Row:
ElseIf SoCIF < cell(2, 10).Value Then
Thung = 1
Else
Thung = Cls.Row - 1
End If
End Sub

 

[cantl]

Nghịch sơ thì thế này.
cells có s.
end function.
for thiếu next.

Sau khi sửa là 1 đống lỗi mà dân nghịch như mình không sửa được.

Dear thì nghe hay nhưng nhiều bác không thích.
Viết hoa thì quan trọng phạm quy, khéo tìm trợ giúp hơi lâu đấy. Sửa đi.

 

[Thúy Hạnh21091995]

Nghịch sơ thì thế này.
cells có s.
end function.
for thiếu next.

Sau khi sửa là 1 đống lỗi mà dân nghịch như mình không sửa được.

Dear thì nghe hay nhưng nhiều bác không thích.
Viết hoa thì quan trọng phạm quy, khéo tìm trợ giúp hơi lâu đấy. Sửa đi.

Mình cám ơn bạn nhé

 

[Maika8008]

Dòng này không liên quan đến mấy dòng trên: ElseIf SoCIF < cell(2, 10).Value Then
Code không báo lỗi nhưng không chạy đúng được.

Cấu trúc code có lấy giá trị trả về nhưng lại viết là Sub.

 

[VetMini]

...
Cấu trúc code có lấy giá trị trả về nhưng lại viết là Sub.

Bạn muốn nói cái biến tên là Thung?

Sub cũng có thể có giá trị trả về: những tham ByRef.
Vả lại, ai biết đâu Thung có thể là biến toàn cục.

Đính chính:
Trước đó tôi không thấy cái dòng khai báo sub (xin lỗi mắt mờ - nếu không phải do thớt mới thêm vào)
Sub Thung(SoCIF As Long, Rng As Range)
Cho nên mới tuyên bố rằng Thung có thể là tham số.
Với dòng khai báo sub như vậy, cái tên Thung là tên của sub, chỉ có thể dùng để gọi sub, không thể dùng cho bất cứ việc gì khác.

 

[SA_DQ]

Cơ sự là như thế này:
Tác giả bài đăng đưa ra 1 bảng dữ liệu (DL) (Không là file) như sau:

THÙNG

SỐ CIF VALUE

SỐ THÙNG

MIN

MAX

741343​

1​

253,463​

956,231​

5653126​

2​

1,565,201​

7,856,532​

5215466​

3​

11,264,121​

19,264,121​

& yêu cầu ban đầu làm sao xác định đơn vị thùng (cột đầu của bảng DL) khi biết 'SỐ CIF VALUE' của nó & những giá trị MAX & MIN qui ước cho loại thùng
Đầu tiên Ta thấy rằng DL còn có vài khoảng trống (vô định) không biết thuộc loại thùng nào!;
Nhìn DL thấy ghét, nên có người đã viết cho bạn ý 1 hàm( & hàm này chỉ xài được cho bảng DL như trên!
Nhưng có lẽ DL thật (thực tiển) của bạn ấy không 'Như mơ' nên xài không được cho mọi trường hợp
Nên tự ý sửa thành Macro để xài; Tuy nhiên do DL quá tự nhiên, nên bí đường chuyển
& như vậy đem lên đăng ở đây!
Tuy nhiên do sợ người khác trong cộng đồng ăn cắp DL nên cũng chưa đưa ra ở đây file DL
& như vậy chủ bài đăng biến lũ chúng ta thành những thầy bói đoán VOI!
. . . . . . .

CHÚC CÁC BẠN VUI VẺ!

 

[Thúy Hạnh21091995]

Mình cám ơn các bạn, mình đã làm được rồi ạ