Tại sao mình viết 1 đoạn code sau mà bấm nó ko có tác dụng như mong muốn

Tại sao mình viết 1 đoạn code sau mà bấm nó ko có tác dụng như mong muốn (chỗ phần điều kiện if)

Sub Nhap_Quy_MeNu()

Dim DongCuoi As Long

DongCuoi = Sheet1.Range("B" & Rows.Count).End(xlUp).Row

'Mo khoa sheet Menu

Sheet6.Unprotect

' Chi luu khi co Time nhap & Time nhap > Thang nam hien tai

If Sheet1.Range("g3").Value <> "" Then

ElseIf CLng(Sheet1.Range("g3").Value) > CLng(Sheet1.Range("A" & DongCuoi).Value) Then

Call Nhap_Quy

End If

'Nhap du lieu sang Sheet Menu

Sheet6.Range("B8").Value = _

WorksheetFunction.sum(Sheet1.Range("B5:E5").Value)

Sheet6.Range("B4").Value = Sheet1.Range("F5").Value

'Khoa sheet Menu

Sheet6.Protect

End Sub

7 câu trả lời

145 lượt xem

vỗ tay

Nguyễn Hải Bắc 09:10 - Oct 03, 2021

E dùng câu lệnh elseif chắc sai, tự sửa lại thành như dưới thì lại chạy ok rồi

' Chi luu khi co Time nhap & Time nhap > Thang nam hien tai

If Sheet1.Range("G3").Value <> "" And _

Sheet1.Range("G3").Value > Sheet1.Range("A" & DongCuoi).Value Then

Call Nhap_Quy

End If

vỗ tay

Nguyễn Hải Bắc 09:10 - Oct 04, 2021

Cảm ơn bạn, khi câu lệnh không chạy đúng thì bạn nên dubug xem phần nào mình đang gặp lỗi bạn nhé.

vỗ tay

Nguyễn Hải Bắc 16:10 - Oct 04, 2021

Thầy cho hỏi cách viết công thức sau trong vba nhé:

value ô A1 x value ô B1 + value ô C1 = value ô D1

Cảm ơn thầy

vỗ tay

Nguyễn Hải Bắc 17:10 - Oct 04, 2021

Chào bạn bạn đang muốn tính khối lượng đúng không nhỉ?

vỗ tay

Nguyễn Hải Bắc 17:10 - Oct 04, 2021

Chào bạn sẽ phải viết ra function bạn nhé.

Bạn ấn tổ hợp phím alt+F11 để vào cửa sổ vba tạo ra module và dán code sau vào như hình

-sử dụng

Option Explicit
Function Tinhchuoi(s As String)
    Tinhchuoi = Evaluate(s)
End Function

vỗ tay

Nguyễn Hải Bắc 18:10 - Oct 04, 2021

E chưa hiểu ý nghĩa cái function trên nên record code lại và sửa vị trí các ô trong câu lệnh để dùng thầy ạ

Range("I3").FormulaR1C1 = "=RC[-3]*RC[-2]+RC[-1]"

vỗ tay

Nguyễn Hải Bắc 08:10 - Oct 05, 2021

Chào bạn khi bạn record code thì code trong sheets tính theo toạ độ RC nghĩa là row và column nhé, để hiểu về function bạn có thể tham khảo khoá sau

https://by.com.vn/

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

Tại sao mình viết 1 đoạn code sau mà bấm nó ko có tác dụng như mong muốn

Câu hỏi liên quan