sao bạn không dùng Validation cho các cell A9:A23Dạ form này nè anh. Khi em click vào vị A9 và tra 1 mã hiệu nào đó rồi chọn, thì vị trí đó sẽ hiện mã hiệu. Mã hiệu và thành phần công việc em còn bổ sung rất nhiều, a giúp em đoạn code giùm em với nhé. Thầy NDU có ghé qua thì giúp giùm em với. Em xin cảm ơn anh quoc nhat và mọi người nhiều.
. Sẵn e hỏi thêm 1 tí nha, sau khi e tra mã hiệu AE.11343 thường công thức ở cột P sheet TienLuong ko đúng ( ví dụ AE.11343 thì P10= O10*D9, P11=O11*D9) Vậy có hàm nào để chính xác phép tính ở cột P không vậy anh?
Mình chưa hiểu hết ý bạn, thực hiện 1 phép nhân chứ có gì đâu mà sử dụng hàm?Dạ đúng rồi anh, em thành thật cảm ơn anh nhiều
bạn làm như sau:
Bạn xem dữ liệu của bạn nhiều nhất là mấy hàng thì sau đó chia hàng ra rồi cứ đánh dấu (=) vào là được
Định lập chủ đề mới mà e úp file winrar có 31kb mà ko được.
Thử xem file này coi có dùng được không.
Private Sub Worksheet_Activate()
Dim Rng(), Arr(), I As Long, J As Long, K As Long
With Sheets("TLuong DT")
Rng = .Range(.[A9], .[A65000].End(xlUp)).Resize(, 8).Value
End With
ReDim Arr(1 To UBound(Rng, 1), 1 To 8)
For I = 1 To UBound(Rng, 1)
If Rng(I, 1) <> "" Then
K = K + 1
For J = 1 To 3
Arr(K, J) = Rng(I, J)
Next J
For J = 5 To 8
Arr(K, J - 1) = Rng(I, J)
Next J
End If
Next I
[A11:G1000].ClearContents
If K Then [A11].Resize(K, 7).Value = Arr
End Sub
