Chuyên mục xử lý, gỡ rối code VBA (1 người xem)

[ndu96081631]

Topic Những câu hỏi về code, xin giải thích các code... đã quá dài nên mình đóng nó lại và mở topic khác
Tất cả những bài viết liên quan đến việc nhờ giải thích, xử lý và gỡ rối code VBA, các bạn vui lòng đăng tại đây!
Cảm ơn

 

[VetMini]

Vào name manager, xét lại xem scope của nó là cái gì.
Nếu không phải là workbook thì sửa lại. Hình như nó khong cho sửa scope, chỉ có xoá đi và tạo lại cái khác

 

[vietkieucpc]

Vào name manager, xét lại xem scope của nó là cái gì.
Nếu không phải là workbook thì sửa lại. Hình như nó khong cho sửa scope, chỉ có xoá đi và tạo lại cái khác

Cám ơn bạn nhiều!! Mình đã làm được.

 

[hiepbaoviet]

e có file kết quả , nhưng nó không tự up date được dữ liệu của ngày sau , anh chị nào giúp em sửa lỗi không ạ ?

 

[sangista]

Chào anh/chị,

Em vừa tìm hiểu VBA nên có nhiều thứ không biết. Cho em hỏi em muốn so sánh giá trị số của 2 textbox thì em dùng hàm gì ạ?

Ví dụ: em có textbox1, và textbox2 em muốn viết hàm

if textbox1 >textbox2 then
.......
em muốn trả textbox1 và textbox2 về dạng số để so sánh.

Cám ơn anh chị.

 

[befaint]

trị số của textbox

Val(TextBox1.Value)

 

[VetMini]

Val(TextBox1.Value)

val("123") = val("12 3") =val("124a")

 

[befaint]

val("124a")

Ở đây, các bài phần lớn là ăn ốc đoán mò mà anh.

 

[ThaiDieuAnh]

Các bác giúp em gộp 2 sự kiện này được không ạ, em muốn thêm 1 sự kiện là AutoFit Row với Merge Cells mà không chỉ chạy được 1 cái

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$1" Then Exit Sub
Dim Rng  As Range
On Error Resume Next
Set Rng = Sheet3.Range("B3:B" & Sheet3.[C65500].End(xlUp).Row).Find(Range("C1").Value, , , xlWhole)
If Not Rng Is Nothing Then
Range(Range("D1").Value).Value = Sheet13.[D10] & ", ngày " & Left(Sheet3.Range("G" & Rng.Row).Value, 2) & " tháng " & Mid(Sheet3.Range("G" & Rng.Row).Value, 4, 2) & " n" & ChrW(259) & "m " & Right(Sheet3.Range("G" & Rng.Row).Value, 4)   'Ngay NT (chu)
Range(Range("D2").Value).Value = "S" & ChrW(7888) & ": " & Sheet3.Range("A" & Rng.Row).Value & "/TN" & ChrW(272) & "V" 'So TNDV
Range(Range("D3").Value).Value = "     " & Sheet3.[D1] & ": " & Sheet3.Range("D" & Rng.Row).Value 'Hang muc
Range(Range("D4").Value).Value = "     " & Sheet3.[C1] & ": " & Sheet3.Range("C" & Rng.Row).Value 'Ten doi tuong lay mau
Range(Range("D5").Value).Value = Sheet3.Range("E" & Rng.Row).Value 'Nguon vat tu
End If
Set Rng = Nothing
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewRwHt As Single
Dim cWdth As Single, MrgeWdth As Single
Dim c As Range, cc As Range
Dim ma As Range
With Target
If .MergeCells And .WrapText Then
Set c = Target.Cells(1, 1)
cWdth = c.ColumnWidth
Set ma = c.MergeArea
For Each cc In ma.Cells
MrgeWdth = MrgeWdth + cc.ColumnWidth
Next
Application.ScreenUpdating = False
ma.MergeCells = False
c.ColumnWidth = MrgeWdth
c.EntireRow.AutoFit
NewRwHt = c.RowHeight
c.ColumnWidth = cWdth
ma.MergeCells = True
ma.RowHeight = NewRwHt
cWdth = 0: MrgeWdth = 0
Application.ScreenUpdating = True
End If
End With
End Sub

 

[PacificPR]

Các bác giúp em gộp 2 sự kiện này được không ạ, em muốn thêm 1 sự kiện là AutoFit Row với Merge Cells mà không chỉ chạy được 1 cái

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$1" Then Exit Sub
Dim Rng  As Range
On Error Resume Next
Set Rng = Sheet3.Range("B3:B" & Sheet3.[C65500].End(xlUp).Row).Find(Range("C1").Value, , , xlWhole)
If Not Rng Is Nothing Then
Range(Range("D1").Value).Value = Sheet13.[D10] & ", ngày " & Left(Sheet3.Range("G" & Rng.Row).Value, 2) & " tháng " & Mid(Sheet3.Range("G" & Rng.Row).Value, 4, 2) & " n" & ChrW(259) & "m " & Right(Sheet3.Range("G" & Rng.Row).Value, 4)   'Ngay NT (chu)
Range(Range("D2").Value).Value = "S" & ChrW(7888) & ": " & Sheet3.Range("A" & Rng.Row).Value & "/TN" & ChrW(272) & "V" 'So TNDV
Range(Range("D3").Value).Value = "     " & Sheet3.[D1] & ": " & Sheet3.Range("D" & Rng.Row).Value 'Hang muc
Range(Range("D4").Value).Value = "     " & Sheet3.[C1] & ": " & Sheet3.Range("C" & Rng.Row).Value 'Ten doi tuong lay mau
Range(Range("D5").Value).Value = Sheet3.Range("E" & Rng.Row).Value 'Nguon vat tu
End If
Set Rng = Nothing
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewRwHt As Single
Dim cWdth As Single, MrgeWdth As Single
Dim c As Range, cc As Range
Dim ma As Range
With Target
If .MergeCells And .WrapText Then
Set c = Target.Cells(1, 1)
cWdth = c.ColumnWidth
Set ma = c.MergeArea
For Each cc In ma.Cells
MrgeWdth = MrgeWdth + cc.ColumnWidth
Next
Application.ScreenUpdating = False
ma.MergeCells = False
c.ColumnWidth = MrgeWdth
c.EntireRow.AutoFit
NewRwHt = c.RowHeight
c.ColumnWidth = cWdth
ma.MergeCells = True
ma.RowHeight = NewRwHt
cWdth = 0: MrgeWdth = 0
Application.ScreenUpdating = True
End If
End With
End Sub

Mình đang đoán là bạn căn dòng của biên bản nghiệm thu vật liệu, hoặc biên bản lấy mẫu vật liệu gì đó. Nhưng bạn tung hỏa mù thế này thì có trời mới giúp được. Tốt nhất bạn lập Topic mới đính kèm file và nói yêu cầu vướng mắc thì sẽ nhanh có kết quả thôi.

 

[Binbo2020]

mình có tạo một form nhập liệu chọn ô nhập liệu là combobox thì có lựa chọn nào để nếu nhập không đúng giá trị mình đã chọn trước ở rowsource thì chương trình sẽ báo lỗi không cho nhập tiếp không mọi người.

 

[tuananhthi]

Xin nhờ các bác hướng dẫn với ạ. (Em xin sửa lại cho dễ hiểu hơn)
Em có 1 file excel như trên nhờ các bác giúp em tạo 1 module với.
1. Vba loại bỏ các trường hợp trùng sau đó và bắt đầu ghi vào dòng thứ 3 cột K (như trong ví dụ sẽ là 1A - 1B - 1D - 1E - 2C - 2E vào các dòng liên tiếp của cột K)

2. Phần công thức:
Giá trị của cột A sẽ là những ký tự chẵn gồm 4 ký tự, 6 ký tự hoặc 8 ký tự. Trong quá trình tính toán vba sẽ tách nó ra làm từng giá trị = 2 ký tự một liền nhau liên tiếp

giá trị x1 : tương ứng ô ở cột A sẽ có 4 ký tự
giá trị x2: tương ứng ô ở cột A sẽ có 6 ký tự
giá trị x3: tương ứng ô ở cột A sẽ có 8 ký tự
giá trị x4: tương ứng ô ở cột A sẽ có 6 ký tự
giá trị x5: tương ứng ô ở cột A sẽ có 8 ký tự

Em muốn tính giá trị cột E bằng các điều kiện sau:

---- Nếu giá trị ô ở cột C= giá trị "x1" thì ta so sánh giá trị ô ở cột A ( như định nghĩa cột A tách ra làm 2 giá trị) với cột F (Cố định từ F2 - F10)
+ Nếu cả 2 nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*2,
+ Phần còn lại thì cho giá trị ô ở cột E = tương ứng ở cột B*1 (tức là có ít nhất 1 giá trị không thuộc F)

----Nếu giá trị ô ở cột C = giá trị "x2" thì ta so sánh giá trị ô ở cột A ( như định nghĩa cột A tách ra làm 3 giá trị) với cột F (Cố định từ F2 - F10)
+ Nếu cả 3 nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*3
+ Phần còn lại thì cho giá trị ô ở cột E = tương ứng ở cột B*1.( Tức là có ít nhất 1 giá trị không thuộc F).

---- Nếu giá trị ô ở cột C = giá trị "x3" thì ta so sánh giá trị ô ở cột A ( như định nghĩa cột A tách ra làm 4 giá trị) với cột F (Cố định từ F2 - F10)
+ Nếu cả 4 nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*4
+ Phần còn lại thì cho giá trị ô ở cột E = tương ứng ở cột B*1.( Tức là có ít nhất 1 giá trị không thuộc F).

---- Nếu giá trị ô ở cột C = giá trị "x4" thì ta so sánh giá trị ô ở cột A ( như định nghĩa cột A tách ra làm 3 giá trị) với cột F (Cố định từ F2 - F10)
+ Nếu cả 3 nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*6
+ Nếu 2 trong 3 giá trị đó nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*2
+ Còn lại thì cho giá trị ô ở cột E = tương ứng ở cột B*1

---- Nếu giá trị ô ở cột C = giá trị "x5" thì ta so sánh giá trị ô ở cột A ( như định nghĩa cột A tách ra làm 4 giá trị) với cột F (Cố định từ F2 - F10)
+ Nếu cả 4 nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*9
+ Nếu 3 trong 4 nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*6
+ Nếu 2 trong 4 giá trị đó nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*2
+ Còn lại thì cho giá trị ô ở cột E = tương ứng ở cột B*1

Em không biết tóm tắt sao nên viết hơi dài dòng mong các anh giúp đỡ ạ

 

[huuthang_bd]

Em không biết tóm tắt sao nên viết hơi dài dòng mong các anh giúp đỡ ạ

Thông thường viết dài (chi tiết) thì sẽ dễ hiểu nhưng bạn viết dài tôi đọc cũng không hiểu. Chắc tại khả năng đọc hiểu của tôi có vấn đề.

 

[tuananhthi]

Thông thường viết dài (chi tiết) thì sẽ dễ hiểu nhưng bạn viết dài tôi đọc cũng không hiểu. Chắc tại khả năng đọc hiểu của tôi có vấn đề.

Ý em là muốn tính giá trị của cột E phụ thuộc vào các điều kiện tương ứng ấy ạ. Ví dụ tính giá trị ô E2 thì phụ thuộc vào các giá trị ô A2,B2,C2,D2 và giá trị $F$2:$F$7 như trong phần giải thích ạ

 

[tuananhthi]

Em sửa như ở trên liệu có dễ hiểu hơn không ạ

 

[tuananhthi]

Thông thường viết dài (chi tiết) thì sẽ dễ hiểu nhưng bạn viết dài tôi đọc cũng không hiểu. Chắc tại khả năng đọc hiểu của tôi có vấn đề.

Anh huuthang_bd giúp em với anh ơi

 

[huuthang_bd]

Tôi không hiểu bạn muốn gì sao mà giúp. Bây giờ file cũng không có.

 

[Kiều Mạnh]

Mình đang tìm kiếm code mẫu cách tính Nhập -xuất -Tôn ............... chung nhất nghiên cứu mà chưa thấy ... bạn nào thấy ở link nào chỉ dùm ... xin cảm ơn

 

[tuananhthi]

Tôi không hiểu bạn muốn gì sao mà giúp. Bây giờ file cũng không có.

Em xin lỗi anh huuthang_bd, em đã chỉnh sửa lại nội dung hỗ trợ và up lại file nhưng không hiểu sao không được, em up lại file mong anh giúp đỡ em ạ !

1. Vba loại bỏ các trường hợp trùng sau đó và bắt đầu ghi vào dòng thứ 3 cột K (như trong ví dụ sẽ là 1A - 1B - 1D - 1E - 2C - 2E vào các dòng liên tiếp của cột K)

2. Phần công thức:
Giá trị của cột A sẽ là những ký tự chẵn gồm 4 ký tự, 6 ký tự hoặc 8 ký tự. Trong quá trình tính toán vba sẽ tách nó ra làm từng giá trị = 2 ký tự một liền nhau liên tiếp

giá trị x1 : tương ứng ô ở cột A sẽ có 4 ký tự
giá trị x2: tương ứng ô ở cột A sẽ có 6 ký tự
giá trị x3: tương ứng ô ở cột A sẽ có 8 ký tự
giá trị x4: tương ứng ô ở cột A sẽ có 6 ký tự
giá trị x5: tương ứng ô ở cột A sẽ có 8 ký tự

Em muốn tính giá trị cột E bằng các điều kiện sau:

---- Nếu giá trị ô ở cột C= giá trị "x1" thì ta so sánh giá trị ô ở cột A ( như định nghĩa cột A tách ra làm 2 giá trị) với cột F (Cố định từ F2 - F10)
+ Nếu cả 2 nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*2,
+ Phần còn lại thì cho giá trị ô ở cột E = tương ứng ở cột B*1 (tức là có ít nhất 1 giá trị không thuộc F)

----Nếu giá trị ô ở cột C = giá trị "x2" thì ta so sánh giá trị ô ở cột A ( như định nghĩa cột A tách ra làm 3 giá trị) với cột F (Cố định từ F2 - F10)
+ Nếu cả 3 nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*3
+ Phần còn lại thì cho giá trị ô ở cột E = tương ứng ở cột B*1.( Tức là có ít nhất 1 giá trị không thuộc F).

---- Nếu giá trị ô ở cột C = giá trị "x3" thì ta so sánh giá trị ô ở cột A ( như định nghĩa cột A tách ra làm 4 giá trị) với cột F (Cố định từ F2 - F10)
+ Nếu cả 4 nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*4
+ Phần còn lại thì cho giá trị ô ở cột E = tương ứng ở cột B*1.( Tức là có ít nhất 1 giá trị không thuộc F).

---- Nếu giá trị ô ở cột C = giá trị "x4" thì ta so sánh giá trị ô ở cột A ( như định nghĩa cột A tách ra làm 3 giá trị) với cột F (Cố định từ F2 - F10)
+ Nếu cả 3 nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*6
+ Nếu 2 trong 3 giá trị đó nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*2
+ Còn lại thì cho giá trị ô ở cột E = tương ứng ở cột B*1

---- Nếu giá trị ô ở cột C = giá trị "x5" thì ta so sánh giá trị ô ở cột A ( như định nghĩa cột A tách ra làm 4 giá trị) với cột F (Cố định từ F2 - F10)
+ Nếu cả 4 nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*9
+ Nếu 3 trong 4 nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*6
+ Nếu 2 trong 4 giá trị đó nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*2
+ Còn lại thì cho giá trị ô ở cột E = tương ứng ở cột B*1

 

[huuthang_bd]

Em xin lỗi anh huuthang_bd, em đã chỉnh sửa lại nội dung hỗ trợ và up lại file nhưng không hiểu sao không được, em up lại file mong anh giúp đỡ em ạ !

1. Vba loại bỏ các trường hợp trùng sau đó và bắt đầu ghi vào dòng thứ 3 cột K (như trong ví dụ sẽ là 1A - 1B - 1D - 1E - 2C - 2E vào các dòng liên tiếp của cột K)

2. Phần công thức:
Giá trị của cột A sẽ là những ký tự chẵn gồm 4 ký tự, 6 ký tự hoặc 8 ký tự. Trong quá trình tính toán vba sẽ tách nó ra làm từng giá trị = 2 ký tự một liền nhau liên tiếp

giá trị x1 : tương ứng ô ở cột A sẽ có 4 ký tự
giá trị x2: tương ứng ô ở cột A sẽ có 6 ký tự
giá trị x3: tương ứng ô ở cột A sẽ có 8 ký tự
giá trị x4: tương ứng ô ở cột A sẽ có 6 ký tự
giá trị x5: tương ứng ô ở cột A sẽ có 8 ký tự

Em muốn tính giá trị cột E bằng các điều kiện sau:

---- Nếu giá trị ô ở cột C= giá trị "x1" thì ta so sánh giá trị ô ở cột A ( như định nghĩa cột A tách ra làm 2 giá trị) với cột F (Cố định từ F2 - F10)
+ Nếu cả 2 nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*2,
+ Phần còn lại thì cho giá trị ô ở cột E = tương ứng ở cột B*1 (tức là có ít nhất 1 giá trị không thuộc F)

----Nếu giá trị ô ở cột C = giá trị "x2" thì ta so sánh giá trị ô ở cột A ( như định nghĩa cột A tách ra làm 3 giá trị) với cột F (Cố định từ F2 - F10)
+ Nếu cả 3 nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*3
+ Phần còn lại thì cho giá trị ô ở cột E = tương ứng ở cột B*1.( Tức là có ít nhất 1 giá trị không thuộc F).

---- Nếu giá trị ô ở cột C = giá trị "x3" thì ta so sánh giá trị ô ở cột A ( như định nghĩa cột A tách ra làm 4 giá trị) với cột F (Cố định từ F2 - F10)
+ Nếu cả 4 nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*4
+ Phần còn lại thì cho giá trị ô ở cột E = tương ứng ở cột B*1.( Tức là có ít nhất 1 giá trị không thuộc F).

---- Nếu giá trị ô ở cột C = giá trị "x4" thì ta so sánh giá trị ô ở cột A ( như định nghĩa cột A tách ra làm 3 giá trị) với cột F (Cố định từ F2 - F10)
+ Nếu cả 3 nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*6
+ Nếu 2 trong 3 giá trị đó nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*2
+ Còn lại thì cho giá trị ô ở cột E = tương ứng ở cột B*1

---- Nếu giá trị ô ở cột C = giá trị "x5" thì ta so sánh giá trị ô ở cột A ( như định nghĩa cột A tách ra làm 4 giá trị) với cột F (Cố định từ F2 - F10)
+ Nếu cả 4 nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*9
+ Nếu 3 trong 4 nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*6
+ Nếu 2 trong 4 giá trị đó nằm trong giá trị của cột F thì cho giá trị ô ở cột E = tương ứng ở cột B*2
+ Còn lại thì cho giá trị ô ở cột E = tương ứng ở cột B*1

Công thức mảng cho ô E2

=(SUM(LARGE(COUNTIF($F$2:$F$10,MID(A2,ROW($A$1:$A$4)*2-1,2)),ROW($A$1:$A$4))*IF(--RIGHT(D2)<4,{0;1;1;1},{0;1;4;3}))+1)*B2

Và code cho cột K

Sub Button1_Click()
Dim Arr As Variant
Arr = UniqueAndSort(Range("C2:C" & Cells(&H100000, 3).End(xlUp).Row))
Range("K3").Resize(UBound(Arr, 1)).Value = Arr
End Sub

Private Function UniqueAndSort(ByVal Rng As Variant) As Variant
Dim i As Long, j As Long, Dic As Object, Arr As Variant, ResultArr() As String, Pos As Long
Set Dic = CreateObject("Scripting.Dictionary")
If Rng.Count = 1 Then
    ReDim ResultArr(1 To 1, 1 To 1)
    ResultArr(1, 1) = Rng.Value
Else
    Arr = Rng.Value
    For i = 1 To UBound(Arr, 1)
        Dic.Item(Arr(i, 1)) = ""
    Next
    Arr = Dic.Keys
    ReDim ResultArr(1 To Dic.Count, 1 To 1)
    Dic.RemoveAll
    For i = LBound(Arr, 1) To UBound(Arr, 1)
        Pos = i
        For j = i + 1 To UBound(Arr, 1)
            If Arr(j) < Arr(Pos) Then Pos = j
        Next
        ResultArr(i + 1, 1) = Arr(Pos)
        Arr(Pos) = Arr(i)
    Next
End If
UniqueAndSort = ResultArr
End Function

 

[tuananhthi]

Công thức mảng cho ô E2

=(SUM(LARGE(COUNTIF($F$2:$F$10,MID(A2,ROW($A$1:$A$4)*2-1,2)),ROW($A$1:$A$4))*IF(--RIGHT(D2)<4,{0;1;1;1},{0;1;4;3}))+1)*B2

Và code cho cột K

Sub Button1_Click()
Dim Arr As Variant
Arr = UniqueAndSort(Range("C2:C" & Cells(&H100000, 3).End(xlUp).Row))
Range("K3").Resize(UBound(Arr, 1)).Value = Arr
End Sub

Private Function UniqueAndSort(ByVal Rng As Variant) As Variant
Dim i As Long, j As Long, Dic As Object, Arr As Variant, ResultArr() As String, Pos As Long
Set Dic = CreateObject("Scripting.Dictionary")
If Rng.Count = 1 Then
    ReDim ResultArr(1 To 1, 1 To 1)
    ResultArr(1, 1) = Rng.Value
Else
    Arr = Rng.Value
    For i = 1 To UBound(Arr, 1)
        Dic.Item(Arr(i, 1)) = ""
    Next
    Arr = Dic.Keys
    ReDim ResultArr(1 To Dic.Count, 1 To 1)
    Dic.RemoveAll
    For i = LBound(Arr, 1) To UBound(Arr, 1)
        Pos = i
        For j = i + 1 To UBound(Arr, 1)
            If Arr(j) < Arr(Pos) Then Pos = j
        Next
        ResultArr(i + 1, 1) = Arr(Pos)
        Arr(Pos) = Arr(i)
    Next
End If
UniqueAndSort = ResultArr
End Function

Anh ơi có lẽ em giải thích anh lại hiểu sai ý em ý em là các ký tự ở ô ở cột A em sẽ phải tách ra làm 2 ký tự
ví dụ A2 sẽ là AA , BB và so sánh với giá trị cột F
A3 sẽ là BB,CC,DD
A4 sẽ là 1A,B3,D8,K9
từ đó dựa vào các điều kiện trong các ô tương ứng để tính ra giá trị trong các ô E2 , E3 , E4 ....