Chuyên đề giải đáp những thắc mắc về code VBA

maytinhvp01 · 31/7/13

Mình muốn nhờ giải thich câu lệnh " If Ran.Cells(d, c) > max Then max = Ran.Cells(d, c) "
trong ví du:
Public Function LonNhat(Ran As Range)
Dim max As Double, v As Integer, d As Integer, c As Integer
max = Ran.Cells(1, 1)
For d = 1 To Ran.Rows.Count
For c = 1 To Ran.Columns.Count
If Ran.Cells(d, c) > max Then max = Ran.Cells(d, c)
Next c
Next d
v = Tim(max, Ran)
LonNhat = max
End Function
-------------------------------------------------------
[INFO1]Thông báo:
Vì topic này:
http://www.giaiphapexcel.com/forum/...ải-thích-các-code-đề-nghị-các-bạn-gửi-vào-đây
đã quá dài nên BQT đóng lại.
Nay tôi mở topic mới với cùng chủ đề: GIẢI THÍCH NHỮNG THẮC MẮC VỀ CODE
Các bạn nếu có nhu cầu giải thích code, vui lòng post tại đây nhé
NDU96081631
[/INFO1]

quochr · 3/1/20

batman1 đã viết:
Bạn có thể cung cấp (truyền) mỗi một giá trị Long bằng 2 cách: nhập số ở dạng thập phân hoặc ở dạng hex (hệ 16). Vd. số 15 ở dạng hex là 0F. Nhưng nhập 15 thì được còn nhập 0F thì không được. Bạn phải thêm tiền tố là &H (H <- Hex) để chỉ ra đó là số ở dạng hex. Tức trong ví dụ là phải nhập - truyền &H0F.

&H100000 (dạng hex) = 1048576 (thập phân).

Vậy thì

Mã:

ArrData = Sheet1.Range(Sheet1.Cells(10, 126), Sheet1.Cells(&H100000, 2).End(xlUp)).Value

tương đương với

Mã:

ArrData = Sheet1.Range(Sheet1.Cells(10, 126), Sheet1.Cells(1048576, 2).End(xlUp)).Value

Sheet1.Cells(10, 126) là ô ở dòng 10 và cột 126, tức ô ở dòng 10 và cột DV, tức là ô DV10 trong Sheet1.

Sheet1.Cells(1048576, 2).End(xlUp) là ô cuối cùng có dữ liệu ở cột 2 - cột B. Diễn giải là: hãy xuất phát từ ô ở dòng 1048576 và cột 2, tức ô B1048576 (thường thì là ô trống) và đi lên trên (xlUp) cho tới khi gặp ô <> trống thì dừng. Muốn xác định ô cuối cùng có dữ liệu trong một cột nào đó thì ô xuất phát - ô B1048576 trong ví dụ phải rỗng. Thường thì những ô ở những dòng cuối cùng của trang tính là rỗng nên có thể yên tâm.

Lúc này thì

Mã:

ArrData = Sheet1.Range(Sheet1.Cells(10, 126), Sheet1.Cells(&H100000, 2).End(xlUp)).Value

có nghĩa là: lấy vùng dữ liệu (lấy giá trị) xác định bởi DV10 và ô cuối cùng có dữ liệu ở cột B từ Sheet1 vào mảng ArrData
------------
Sheet1.Cells(1048576, 2).End(xlUp) có thể thay bằng Sheet1.Cells(Rows.Count, 2).End(xlUp) hoặc
Sheet1.Range("B" & 1048576).End(xlUp) hoặc Sheet1.Range("B" & Rows.Count).End(xlUp), bởi Rows.Count trong Excel >= 2007 trả về giá trị 1048576 (số dòng trong trang tính)
---------
Bạn có thể định nghĩa hằng số theo 2 cách tương đương như sau:

Const MySecretNumber = 15
Const MySecretNumber = &H0F

Để mình test thử rồi báo bạn kết quả. Thanks bạn

quochr · 3/1/20

batman1 đã viết:
Bạn có thể cung cấp (truyền) mỗi một giá trị Long bằng 2 cách: nhập số ở dạng thập phân hoặc ở dạng hex (hệ 16). Vd. số 15 ở dạng hex là 0F. Nhưng nhập 15 thì được còn nhập 0F thì không được. Bạn phải thêm tiền tố là &H (H <- Hex) để chỉ ra đó là số ở dạng hex. Tức trong ví dụ là phải nhập - truyền &H0F.

&H100000 (dạng hex) = 1048576 (thập phân).

Vậy thì

Mã:

ArrData = Sheet1.Range(Sheet1.Cells(10, 126), Sheet1.Cells(&H100000, 2).End(xlUp)).Value

tương đương với

Mã:

ArrData = Sheet1.Range(Sheet1.Cells(10, 126), Sheet1.Cells(1048576, 2).End(xlUp)).Value

Sheet1.Cells(10, 126) là ô ở dòng 10 và cột 126, tức ô ở dòng 10 và cột DV, tức là ô DV10 trong Sheet1.

Sheet1.Cells(1048576, 2).End(xlUp) là ô cuối cùng có dữ liệu ở cột 2 - cột B. Diễn giải là: hãy xuất phát từ ô ở dòng 1048576 và cột 2, tức ô B1048576 (thường thì là ô trống) và đi lên trên (xlUp) cho tới khi gặp ô <> trống thì dừng. Muốn xác định ô cuối cùng có dữ liệu trong một cột nào đó thì ô xuất phát - ô B1048576 trong ví dụ phải rỗng. Thường thì những ô ở những dòng cuối cùng của trang tính là rỗng nên có thể yên tâm.

Lúc này thì

Mã:

ArrData = Sheet1.Range(Sheet1.Cells(10, 126), Sheet1.Cells(&H100000, 2).End(xlUp)).Value

có nghĩa là: lấy vùng dữ liệu (lấy giá trị) xác định bởi DV10 và ô cuối cùng có dữ liệu ở cột B từ Sheet1 vào mảng ArrData
------------
Sheet1.Cells(1048576, 2).End(xlUp) có thể thay bằng Sheet1.Cells(Rows.Count, 2).End(xlUp) hoặc
Sheet1.Range("B" & 1048576).End(xlUp) hoặc Sheet1.Range("B" & Rows.Count).End(xlUp), bởi Rows.Count trong Excel >= 2007 trả về giá trị 1048576 (số dòng trong trang tính)
---------
Bạn có thể định nghĩa hằng số theo 2 cách tương đương như sau:

Const MySecretNumber = 15
Const MySecretNumber = &H0F

Mình đã làm dc. Thanks ban

duonghychi · 4/1/20

Ba Tê đã viết:
Code này mà Copy Paste một lần hàng trăm ô thì hơi bị "Rùa".

Em cảm ơn ạ!

quochr · 4/1/20

CHo mình hỏi thêm chút về code khi gọi outlook để sent email (mình đang dùng office 2019) thì nó xuất hiện cái box này. CÓ cách nào để nó auto sent mà không phải request không (file đính kèm)

*** Mình đang viết code để sent email auto by outlook

Đây là code mình đã viết

Mã:

'Progame sent email to many people (chuong trinh goi email hang loat cho nhieu nguoi)
Sub sent_email()

'Call app Outlook
Dim OlApp As Outlook.Application
Set OlApp = CreateObject("Outlook.Application")

Dim i, y As Integer

'i la bien cot the hien email nguoi nhan
'y la bien so nguoi nhan email
y = Excel.WorksheetFunction.CountA(ThisWorkbook.Sheets(8).Range("G:G"))

For i = 2 To y
'Open app email
Dim olmail As Outlook.MailItem
Set olmail = OlApp.CreateItem(olMailItem)

Dim body_messenge As String
body_messenge = ThisWorkbook.Sheets(8).Cells(1, 13)
body_messenge = Excel.WorksheetFunction.Substitute(Excel.WorksheetFunction.Substitute(body_messenge, "staff", ThisWorkbook.Sheets(8).Cells(i, 8)), "password", ThisWorkbook.Sheets(8).Cells(i, 9))


'Sent email
olmail.To = ThisWorkbook.Sheets(8).Cells(i, 7)
olmail.Subject = "CTY A GOI PHIEU LUONG THANG ABC"
olmail.BodyFormat = olFormatHTML
olmail.HTMLBody = body_messenge
olmail.Attachments.Add ThisWorkbook.Path & "\Phieuluong Jan-2020\" & ThisWorkbook.Sheets(8).Cells(i, 10)
olmail.Send

Next
End Sub

quochr · 4/1/20

quochr đã viết:

CHo mình hỏi thêm chút về code khi gọi outlook để sent email (mình đang dùng office 2019) thì nó xuất hiện cái box này. CÓ cách nào để nó auto sent mà không phải request không (file đính kèm)

*** Mình đang viết code để sent email auto by outlook

Đây là code mình đã viết

Mã:

'Progame sent email to many people (chuong trinh goi email hang loat cho nhieu nguoi)
Sub sent_email()

'Call app Outlook
Dim OlApp As Outlook.Application
Set OlApp = CreateObject("Outlook.Application")

Dim i, y As Integer

'i la bien cot the hien email nguoi nhan
'y la bien so nguoi nhan email
y = Excel.WorksheetFunction.CountA(ThisWorkbook.Sheets(8).Range("G:G"))

For i = 2 To y
'Open app email
Dim olmail As Outlook.MailItem
Set olmail = OlApp.CreateItem(olMailItem)

Dim body_messenge As String
body_messenge = ThisWorkbook.Sheets(8).Cells(1, 13)
body_messenge = Excel.WorksheetFunction.Substitute(Excel.WorksheetFunction.Substitute(body_messenge, "staff", ThisWorkbook.Sheets(8).Cells(i, 8)), "password", ThisWorkbook.Sheets(8).Cells(i, 9))


'Sent email
olmail.To = ThisWorkbook.Sheets(8).Cells(i, 7)
olmail.Subject = "CTY A GOI PHIEU LUONG THANG ABC"
olmail.BodyFormat = olFormatHTML
olmail.HTMLBody = body_messenge
olmail.Attachments.Add ThisWorkbook.Path & "\Phieuluong Jan-2020\" & ThisWorkbook.Sheets(8).Cells(i, 10)
olmail.Send

Next
End Sub

Mình đã tìm ra nguyên nhân.
Tắt chức năng này trong OUT là sẽ không bị nữa
Sử dụng Programmatic Access cho Outlook. Chọn thẻ File > Options > Trust Center > Trust Center Settings > Thẻ Programmatic Access > Bấm dấu tích vào “Never warn me about suspicious activity (not recommended) rồi bấm OK (Nhớ chạy OUT dưới quyền admin mới chỉnh được chức năng này)

phananhvusv · 4/1/20

Nhờ các anh/chị trên diễn đàn giải đáp giúp em. em có đoạn code dùng Dictionary như sau:

Mã:

Sub dictMadoituong()
Dim dongcuoi As Long
Dim vungchon() As Variant
Dim khoa As String
Dim i As Long
Dim dic As Object
Set dic = CreateObject("scripting.dictionary")
With Sheets("DATA")
dongcuoi = .Cells(.Rows.Count, "N").End(xlUp).Row
vungchon = Range("N2:N" & dongcuoi)
For i = 1 To dongcuoi - 1
    khoa = vungchon(i, 1)
    If Not dic.exists(khoa) Then
    dic.Add vungchon(i, 1), 1
    Else
    dic.Item(khoa) = dic.Item(khoa) + 1
    End If
Next i
End With
With Sheets("Sheet1")
Range("a14:a" & dic.Count + 13) = Application.Transpose(dic.keys)
Range("b14:b" & dic.Count + 13) = Application.Transpose(dic.items)
End With
End Sub

Ngay sau chỗ With Sheets("Sheet1"), em muốn dán kết quả từ Dic vào ô A14 và B14 của sheet1, nhưng excel không làm đúng ý em. Em gởi theo file đính kèm.
Nhờ anh/chị chỉ chỗ em làm sai với ạ. Em cám ơn.

batman1 · 4/1/20

phananhvusv đã viết:
Nhờ các anh/chị trên diễn đàn giải đáp giúp em. em có đoạn code dùng Dictionary như sau:

Mã:

Sub dictMadoituong() Dim dongcuoi As Long Dim vungchon() As Variant Dim khoa As String Dim i As Long Dim dic As Object Set dic = CreateObject("scripting.dictionary") With Sheets("DATA") dongcuoi = .Cells(.Rows.Count, "N").End(xlUp).Row vungchon = Range("N2:N" & dongcuoi) For i = 1 To dongcuoi - 1 khoa = vungchon(i, 1) If Not dic.exists(khoa) Then dic.Add vungchon(i, 1), 1 Else dic.Item(khoa) = dic.Item(khoa) + 1 End If Next i End With With Sheets("Sheet1") Range("a14:a" & dic.Count + 13) = Application.Transpose(dic.keys) Range("b14:b" & dic.Count + 13) = Application.Transpose(dic.items) End With End Sub

Ngay sau chỗ With Sheets("Sheet1"), em muốn dán kết quả từ Dic vào ô A14 và B14 của sheet1, nhưng excel không làm đúng ý em. Em gởi theo file đính kèm.
Nhờ anh/chị chỉ chỗ em làm sai với ạ. Em cám ơn.

Thay

Mã:

vungchon = Range("N2:N" & dongcuoi)

bằng

vungchon = .Range("N2:N" & dongcuoi).Value

Nguyên nhân là do khi chạy code thì sheet1 đang hoạt động và code cũ lấy vùng N2:N*** từ sheet1 vào mảng vungchon. Code sau khi sửa thì lấy N2:N*** từ sheet DATA vào mảng vungchon.

phananhvusv · 4/1/20

batman1 đã viết:
Thay

Mã:

vungchon = Range("N2:N" & dongcuoi)

bằng

Nguyên nhân là do khi chạy code thì sheet1 đang hoạt động và code cũ lấy vùng N2:N*** từ sheet1 vào mảng vungchon. Code sau khi sửa thì lấy N2:N*** từ sheet DATA vào mảng vungchon.

Trước khi cho vungchon = range... thì đã có With Sheets("DATA") rồi mà anh? sao nó lại lấy từ sheet1 nhỉ? Chỉ cần thêm sửa .Range...Value thì lại lấy từ Sheets("DATA") nhỉ?

batman1 · 4/1/20

phananhvusv đã viết:
Trước khi cho vungchon = range... thì đã có With Sheets("DATA") rồi mà anh? sao nó lại lấy từ sheet1 nhỉ? Chỉ cần thêm sửa .Range...Value thì lại lấy từ Sheets("DATA") nhỉ?

Bạn có vungchon = Range("N2:N" & dongcuoi) nên RANGE là lấy từ ACTIVESHEET (là Sheet1 do Sheet1 đang hoạt động). Viết như bạn thì vungchon = Range("N2:N" & dongcuoi) chính là vungchon = ActiveSheet.Range("N2:N" & dongcuoi), tức vungchon = Sheet1.Range("N2:N" & dongcuoi) Vì thế phải có dấu . trước Range để lấy từ DATA (do có With Sheets("DATA"))

phananhvusv · 4/1/20

batman1 đã viết:
Bạn có vungchon = Range("N2:N" & dongcuoi) nên RANGE là lấy từ ACTIVESHEET (là Sheet1 do Sheet1 đang hoạt động). Viết như bạn thì vungchon = Range("N2:N" & dongcuoi) chính là vungchon = ActiveSheet.Range("N2:N" & dongcuoi), tức vungchon = Sheet1.Range("N2:N" & dongcuoi) Vì thế phải có dấu . trước Range để lấy từ DATA (do có With Sheets("DATA"))

Em cám ơn bác nhiều. Hèn gì nếu đang ở Sheet DATA mà chạy code thì đúng, còn ở Sheet1 thì sai.
Còn dòng này thì sao bác?
With Sheets("Sheet1")
Range("a14:a" & dic.Count + 13) = Application.Transpose(dic.keys)
Em có cần .Range chỗ này không bác nhỉ?

batman1 · 4/1/20

phananhvusv đã viết:
Em cám ơn bác nhiều. *** gì nếu đang ở Sheet DATA mà chạy code thì đúng, còn ở Sheet1 thì sai.
Còn dòng này thì sao bác?
With Sheets("Sheet1")
Range("a14:a" & dic.Count + 13) = Application.Transpose(dic.keys)
Em có cần .Range chỗ này không bác nhỉ?

Nguyên tắc là thế này:
- nếu muốn luôn luôn truy cập tới activesheet, bất luận ACTIVESHEET là sheet nào, thì không thể dùng dấu . được.
- nếu muốn luôn luôn truy cập tới sheet cụ thể, bất luận nó có là activesheet hay không, thì luôn luôn phải viết tường minh - gọi tên chỉ mặt cụ thể. Vd. Sheet1.Range(...). Hoặc nếu dùng trong cấu trúc With Sheet1 ... End With thì phải dùng dấu . trước Rang(...)

Bạn có thể không dùng dấu . trước range khi có With Sheets("Sheet1"), nhưng chỉ trong trường hợp cụ thể này của bạn - chạy code bằng cách nhấn nút trên sheet1. Một ngày đẹp trời nào đó bạn cần chạy "code kia" khi thực hiện một code khác. Lúc đó "code kia" sẽ được chạy khi có thể activesheet không là sheet1. Lúc đó kết quả sẽ sai. Vì thế người biết lo xa, biết lường trước các tình huống người ta sẽ dùng dấu . trước Range.

Đừng bao giờ để con ma hên xui nó quyết định cách hoạt động của code của mình. Theo nguyên tắc tôi nêu trên thì "ở chỗ đó" bạn muốn truy cập tới sheet cụ thể là sheet1. Vậy hãy dùng dấu . để không một trường hợp nào làm sai lệch ý muốn của mình. Tại sao bỏ dấu . để rồi phụ thuộc vào hên xui, để rồi ăn không ngon ngủ không yên? Đó không là cách hành xử thông minh.

Nếu không dùng dấu . trong With Sheets("Sheet1") thì With Sheets("Sheet1") là vô dụng, vì bạn luôn truy câp tới activesheet. Nếu sheet1 là activesheet thì dĩ nhiên With Sheets("Sheet1") là thừa rồi. Nếu sheet1 không là activesheet thì With Sheets("Sheet1") cũng thừa vì code truy cập tới activesheet chứ không truy cập tới sheet1.

phananhvusv · 5/1/20

batman1 đã viết:
Nếu không dùng dấu . trong With Sheets("Sheet1") thì With Sheets("Sheet1") là vô dụng, vì bạn luôn truy câp tới activesheet. Nếu sheet1 là activesheet thì dĩ nhiên With Sheets("Sheet1") là thừa rồi. Nếu sheet1 không là activesheet thì With Sheets("Sheet1") cũng thừa vì code truy cập tới activesheet chứ không truy cập tới sheet1.

Em đã hiểu. cám ơn bác nhiều ạ. Trước đó em cứ đinh ninh là trong With Sheets đã rõ ràng rồi. Nếu vậy dùng hẳn Sheet1.Range(...) sẽ đơn giản hơn, không cần phải để trong With..End nữa. Em đã thông rồi ạ.

viethoana2 · 17/1/20

'Allowance qty
Select Case (Cells(i, 13).Value)
Case "Voc"
Cells(x + 15, y + resignMonth).Value = Cells(x + 15, y + resignMonth).Value + 1
Sheets("MsTung request").Cells(4, 13 + resignMonth).Value = Sheets("MsTung request").Cells(4, 13 + resignMonth).Value + 1
Case "S.term"
Cells(x + 16, y + resignMonth).Value = Cells(x + 16, y + resignMonth).Value + 1
Sheets("MsTung request").Cells(5, 13 + resignMonth).Value = Sheets("MsTung request").Cells(5, 13 + resignMonth).Value + 1
Case "None"
Cells(x + 17, y + resignMonth).Value = Cells(x + 17, y + resignMonth).Value + 1
Case "Elder3"
Cells(x + 18, y + resignMonth).Value = Cells(x + 18, y + resignMonth).Value + 1
Case "Elder 2"
Cells(x + 19, y + resignMonth).Value = Cells(x + 19, y + resignMonth).Value + 1
Case "Elder 1"
Cells(x + 20, y + resignMonth).Value = Cells(x + 20, y + resignMonth).Value + 1
Case "Skill 4"
Cells(x + 21, y + resignMonth).Value = Cells(x + 21, y + resignMonth).Value + 1
Case "Skill 3"
Cells(x + 22, y + resignMonth).Value = Cells(x + 22, y + resignMonth).Value + 1
Case "Skill 2"
Cells(x + 23, y + resignMonth).Value = Cells(x + 23, y + resignMonth).Value + 1
Case "Skill 1"
Cells(x + 24, y + resignMonth).Value = Cells(x + 24, y + resignMonth).Value + 1
Case "Support 2"
Cells(x + 25, y + resignMonth).Value = Cells(x + 25, y + resignMonth).Value + 1
Case Else
Cells(x + 26, y + resignMonth).Value = Cells(x + 26, y + resignMonth).Value + 1

Cho em hỏi có cách nào để thu gọn các lệnh giống nhau liên tiếp thế này và cải thiện tốc độ chạy của VBA ạ

ppc0312 · 17/1/20

viethoana2 đã viết:
'Allowance qty
Select Case (Cells(i, 13).Value)
Case "Voc"
Cells(x + 15, y + resignMonth).Value = Cells(x + 15, y + resignMonth).Value + 1
Sheets("MsTung request").Cells(4, 13 + resignMonth).Value = Sheets("MsTung request").Cells(4, 13 + resignMonth).Value + 1
Case "S.term"
Cells(x + 16, y + resignMonth).Value = Cells(x + 16, y + resignMonth).Value + 1
Sheets("MsTung request").Cells(5, 13 + resignMonth).Value = Sheets("MsTung request").Cells(5, 13 + resignMonth).Value + 1
Case "None"
Cells(x + 17, y + resignMonth).Value = Cells(x + 17, y + resignMonth).Value + 1
Case "Elder3"
Cells(x + 18, y + resignMonth).Value = Cells(x + 18, y + resignMonth).Value + 1
Case "Elder 2"
Cells(x + 19, y + resignMonth).Value = Cells(x + 19, y + resignMonth).Value + 1
Case "Elder 1"
Cells(x + 20, y + resignMonth).Value = Cells(x + 20, y + resignMonth).Value + 1
Case "Skill 4"
Cells(x + 21, y + resignMonth).Value = Cells(x + 21, y + resignMonth).Value + 1
Case "Skill 3"
Cells(x + 22, y + resignMonth).Value = Cells(x + 22, y + resignMonth).Value + 1
Case "Skill 2"
Cells(x + 23, y + resignMonth).Value = Cells(x + 23, y + resignMonth).Value + 1
Case "Skill 1"
Cells(x + 24, y + resignMonth).Value = Cells(x + 24, y + resignMonth).Value + 1
Case "Support 2"
Cells(x + 25, y + resignMonth).Value = Cells(x + 25, y + resignMonth).Value + 1
Case Else
Cells(x + 26, y + resignMonth).Value = Cells(x + 26, y + resignMonth).Value + 1

Cho em hỏi có cách nào để thu gọn các lệnh giống nhau liên tiếp thế này và cải thiện tốc độ chạy của VBA ạ

Có: dùng With ..., và tìm quay luật các chỉ số để sửa hợp lý, hoặc đổi ARRAY
Vì chỉ có đoạn code ---> nên đoán đại cho trúng

HeSanbi · 17/1/20

viethoana2 đã viết:
'Allowance qty
Select Case (Cells(i, 13).Value)
Case "Voc"
Cells(x + 15, y + resignMonth).Value = Cells(x + 15, y + resignMonth).Value + 1
Sheets("MsTung request").Cells(4, 13 + resignMonth).Value = Sheets("MsTung request").Cells(4, 13 + resignMonth).Value + 1
Case "S.term"
Cells(x + 16, y + resignMonth).Value = Cells(x + 16, y + resignMonth).Value + 1
Sheets("MsTung request").Cells(5, 13 + resignMonth).Value = Sheets("MsTung request").Cells(5, 13 + resignMonth).Value + 1
Case "None"
Cells(x + 17, y + resignMonth).Value = Cells(x + 17, y + resignMonth).Value + 1
Case "Elder3"
Cells(x + 18, y + resignMonth).Value = Cells(x + 18, y + resignMonth).Value + 1
Case "Elder 2"
Cells(x + 19, y + resignMonth).Value = Cells(x + 19, y + resignMonth).Value + 1
Case "Elder 1"
Cells(x + 20, y + resignMonth).Value = Cells(x + 20, y + resignMonth).Value + 1
Case "Skill 4"
Cells(x + 21, y + resignMonth).Value = Cells(x + 21, y + resignMonth).Value + 1
Case "Skill 3"
Cells(x + 22, y + resignMonth).Value = Cells(x + 22, y + resignMonth).Value + 1
Case "Skill 2"
Cells(x + 23, y + resignMonth).Value = Cells(x + 23, y + resignMonth).Value + 1
Case "Skill 1"
Cells(x + 24, y + resignMonth).Value = Cells(x + 24, y + resignMonth).Value + 1
Case "Support 2"
Cells(x + 25, y + resignMonth).Value = Cells(x + 25, y + resignMonth).Value + 1
Case Else
Cells(x + 26, y + resignMonth).Value = Cells(x + 26, y + resignMonth).Value + 1

Cho em hỏi có cách nào để thu gọn các lệnh giống nhau liên tiếp thế này và cải thiện tốc độ chạy của VBA ạ

Vận dụng vòng lặp
Nếu muốn nhanh hơn với dữ liệu nhiều hơn thì mảng phải được sắp xếp, và xử dụng thuật toán tìm kiếm, như Tìm kiếm nhị phân, tìm kiếm hồi quy, ...

PHP:

Dim R&, Arr
Arr = VBA.Array("Voc", "S.term", "...")
For R = 0 to Ubound(Arr)
    If Arr(R) = (Cells(i, 13).Value) Then
       R = R + 15
        Cells(x + R, y + resignMonth).Value = Cells(x + R, y + resignMonth).Value + 1
        If R = 15 Or R = 16 Then
           R = R - 11
            Sheets("MsTung request").Cells(R, 13 + resignMonth).Value = Sheets("MsTung request").Cells(R, 13 + resignMonth).Value + 1
        End If
       Exit For
    End IF
Next

hktanh · 30/1/20

Nhờ các bạn xem giúp mình code này sai ở đâu với, thấy toàn báo lỗi Invalid Next Control Variable Reference

Sub yuop()

Dim i As Integer
Dim j As Integer

Application.EnableEvents = False

For i = 1 To 1000
For j = 1 To 1000

Sheets("Sheet1").Cells(i + 1, j + 1).Value = Sheets("Sheet1").Cells(i, j).Value

Next i
Next j

Application.EnableEvents = True

End Sub

CHAOQUAY · 30/1/20

hktanh đã viết:
Nhờ các bạn xem giúp mình code này sai ở đâu với, thấy toàn báo lỗi Invalid Next Control Variable Reference

Sub yuop()

Dim i As Integer
Dim j As Integer

Application.EnableEvents = False

For i = 1 To 1000
For j = 1 To 1000

Sheets("Sheet1").Cells(i + 1, j + 1).Value = Sheets("Sheet1").Cells(i, j).Value

Next i
Next j

Application.EnableEvents = True

End Sub

Thử sửa như bên dưới xem sao
Next i thành Next j
Next j thành Next i

rinjp727 · 2/2/20

Chào chủ thớt và mọi người.
Hiện em gặp chút thắc mắc, mong mọi người giải đáp cho ạ.
Em sử dùng Userform có 1 Button "Kết quả" và 1 TextBox, Khi nhấn Button thì nó sẽ so sánh 2 ô E"x" và F"x",
Nếu giá trị ô F"x" > giá trị ô E"x" => Điền vào ô G"x" là "Lãi" hiển thị lên TextBox là "Đã đủ chỉ tiêu", còn nếu ko thì sẽ điền vào ô G"x" là "Lỗ" và TextBox là "Chưa đủ chỉ tiêu",
đồng thời gán x = x + 1.
Và nếu ở TextBox là "Đã đủ chỉ tiêu" Thì sẽ bôi màu nền hoặc màu chữ màu Xanh, và nếu "Chưa đủ chỉ tiêu" thì sẽ bôi màu nền hoặc màu chữ màu Đỏ.
Mọi người giúp em đoạn code này với ạ.
Em xin cảm ơn

SA_DQ · 3/2/20

Em sử dùng Userform có 1 Button "Kết quả" và (A) 1 TextBox, Khi nhấn Button thì nó sẽ so sánh 2 ô E"x" và F"x",
Nếu giá trị ô F"x" > giá trị ô E"x" => Điền vào ô G"x" là "Lãi" hiển thị lên TextBox là "Đã đủ chỉ tiêu", còn nếu ko thì sẽ điền vào ô G"x" là "Lỗ" và TextBox là "Chưa đủ chỉ tiêu",
(B) đồng thời gán x = x + 1.
. . . . . . .

Mình thử dịch từ tiếng Việt của bạn sang tiếng Việt phổ thông xem đúng không nha:

(A) Mình cần so dánh các trị cùng dòng trong hai cột 'E' & cột 'F'
Nếu trị tại ô E dòng x (nào đó) hơn trị trong cột F cùng dòng thì . . . .
Còn ngược lại thì . . . .

(B) Tiếp tục so sánh cho đến cuối cột chứa dữ liệu

???

batman1 · 3/2/20

SA_DQ đã viết:
Mình thử dịch từ tiếng Việt của bạn sang tiếng Việt phổ thông xem đúng không nha:
(A) Mình cần so dánh các trị cùng dòng trong hai cột 'E' & cột 'F'
Nếu trị tại ô F dòng x (nào đó) hơn trị trong cột F cùng dòng thì . . . .
Còn ngược lại thì . . . .

Bản dịch sai. Cái này không bao giờ sảy ra.

Chuyên đề giải đáp những thắc mắc về code VBA

Thành viên thường trực

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới

File đính kèm

Thành viên mới

Thành viên chính thức

File đính kèm

Thành viên gạo cội

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

Thành viên mới

whom?

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Thành viên bị đình chỉ hoạt động

Thành viên gắn bó

Thành viên mới

/(hông là gì!

Thành viên gạo cội

Đếm ngược thời gian