Hỏi về tự động TÌM (1 người xem)

  • Thread starter Thread starter tle2003
  • Ngày gửi Ngày gửi
Elx Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
T

tle2003

Thành viên hoạt động
Tham gia
22/1/07
Bài viết
166
Được thích
59
Làm ơn xem giùm tình huống dưới đây
Mình có 1 file tên "TÌM"

Sheet 1 tên là Tim
Sheet 2 tên là DuLieu

Xin các bạn giúp cho khi điên yêu cầu Lot# vào C1, thì dò cột G của sheet DuLieu, sau đó thì
1. Tự động điền vào C3,C4,C5,C6
2. Tự động cho danh sách của SN C8 trở đì.

Thành thật cám ơn
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
tle2003 đã viết:
Làm ơn xem giùm tình huống dưới đây
Mình có 1 file tên "TÌM"

Sheet 1 tên là Tim
Sheet 2 tên là DuLieu

Xin các bạn giúp cho khi điên yêu cầu Lot# vào C1, thì dò cột G của sheet DuLieu, sau đó thì
1. Tự động điền vào C3,C4,C5,C6
2. Tự động cho danh sách của SN C8 trở đì.

Thành thật cám ơn
Nhấp chuột vào đây để mở rộng...

Bạn dùng hàm VLOOKUP nhé, Sửa J3 thành J9 nhé
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Cám ơn bạn, Hàm VLOOKUP giúp được yều cầu 1 thôi,
Yêu cầu 2, nếu dùng VLOOKUP thì chỉ có 1 dữ liệu....
Xin bạn xem lại
 
Upvote 0
tle2003 đã viết:
Cám ơn bạn, Hàm VLOOKUP giúp được yều cầu 1 thôi,
Yêu cầu 2, nếu dùng VLOOKUP thì chỉ có 1 dữ liệu....
Xin bạn xem lại
Nhấp chuột vào đây để mở rộng...
Công thức C8:
=IFERROR(INDEX(DuLieu!$J$2:$J$9,SMALL(IF(DuLieu!$G$2:$G$9=$C$1,ROW(DuLieu!$G$2:$G$9)-1,""),ROW($A1))),"")
Kết thúc bằng Ctrl+Shift+Enter
Kéo xuống C9, C10
 
Upvote 0
tle2003 đã viết:
Làm ơn xem giùm tình huống dưới đây
Mình có 1 file tên "TÌM"

Sheet 1 tên là Tim
Sheet 2 tên là DuLieu

Xin các bạn giúp cho khi điên yêu cầu Lot# vào C1, thì dò cột G của sheet DuLieu, sau đó thì
1. Tự động điền vào C3,C4,C5,C6
2. Tự động cho danh sách của SN C8 trở đì.

Thành thật cám ơn
Nhấp chuột vào đây để mở rộng...
Code cùi:
[GPECODE=vb]Sub Nhapdulieu()
Range([C8], [C65536].End(xlDown)).ClearContents
Sheets("DuLieu").Select
[G1].Select
[G1].AutoFilter Field:=7
Do While Not Range(ActiveCell, ActiveCell.End(xlDown)).Find("" & Sheets("Tim").[C1].Value & "", , , , , , False, False) Is Nothing
Range(ActiveCell, ActiveCell.End(xlDown)).Find("" & Sheets("Tim").[C1].Value & "", , , , , , False, False).Activate
If ActiveCell <> ActiveCell.Offset(-1, 0) And ActiveCell <> ActiveCell.Offset(1, 0) Then
Sheets("Tim").[C3] = ActiveCell.Offset(, -4)
Sheets("Tim").[C4] = ActiveCell.Offset(, -3)
Sheets("Tim").[C5] = ActiveCell.Offset(, -2)
Sheets("Tim").[C6] = ActiveCell.Offset(, -1)
Sheets("Tim").[C8] = ActiveCell.Offset(, 3)
ActiveCell.Offset(1, 0).Activate
Else
If ActiveCell <> ActiveCell.Offset(-1, 0) Then
Sheets("Tim").[C3] = ActiveCell.Offset(, -4)
Sheets("Tim").[C4] = ActiveCell.Offset(, -3)
Sheets("Tim").[C5] = ActiveCell.Offset(, -2)
Sheets("Tim").[C6] = ActiveCell.Offset(, -1)
Sheets("Tim").[C8] = ActiveCell.Offset(, 3)
Else
Sheets("Tim").[C7].End(xlDown).Offset(1, 0) = ActiveCell.Offset(, 3)
ActiveCell.Offset(1, 0).Activate
End If
End If
Loop
Sheets("Tim").Select
End Sub[/GPECODE]
 
Upvote 0
tle2003 đã viết:
Thật tuyệt, cám ơn bạn nhiều
Nhấp chuột vào đây để mở rộng...
tle2003 đã viết:
Tốt lắm, cám ơn bạn nhiều
Nhấp chuột vào đây để mở rộng...

Cả 2 bài chẳng biết Cảm ơn ai.
Muốn trả lời cho bài viết nào thì bạn bấm nút "Trả Lời Với Trích Dẫn" bên dưới để người khác biết bạn đang nói tới bài nào, của ai.
Còn có cái nút "Cảm ơn" dưới bài viết của người đó nữa kìa!
 
Lần chỉnh sửa cuối:
Upvote 0
Cám ơn Bác Ba Tê,
Bây giờ mình làm lại nhé
 
Upvote 0
hung2412 đã viết:
Code cùi:
[GPECODE=vb]Sub Nhapdulieu()
Range([C8], [C65536].End(xlDown)).ClearContents
Sheets("DuLieu").Select
[G1].Select
[G1].AutoFilter Field:=7
Do While Not Range(ActiveCell, ActiveCell.End(xlDown)).Find("" & Sheets("Tim").[C1].Value & "", , , , , , False, False) Is Nothing
Range(ActiveCell, ActiveCell.End(xlDown)).Find("" & Sheets("Tim").[C1].Value & "", , , , , , False, False).Activate
If ActiveCell <> ActiveCell.Offset(-1, 0) And ActiveCell <> ActiveCell.Offset(1, 0) Then
Sheets("Tim").[C3] = ActiveCell.Offset(, -4)
Sheets("Tim").[C4] = ActiveCell.Offset(, -3)
Sheets("Tim").[C5] = ActiveCell.Offset(, -2)
Sheets("Tim").[C6] = ActiveCell.Offset(, -1)
Sheets("Tim").[C8] = ActiveCell.Offset(, 3)
ActiveCell.Offset(1, 0).Activate
Else
If ActiveCell <> ActiveCell.Offset(-1, 0) Then
Sheets("Tim").[C3] = ActiveCell.Offset(, -4)
Sheets("Tim").[C4] = ActiveCell.Offset(, -3)
Sheets("Tim").[C5] = ActiveCell.Offset(, -2)
Sheets("Tim").[C6] = ActiveCell.Offset(, -1)
Sheets("Tim").[C8] = ActiveCell.Offset(, 3)
Else
Sheets("Tim").[C7].End(xlDown).Offset(1, 0) = ActiveCell.Offset(, 3)
ActiveCell.Offset(1, 0).Activate
End If
End If
Loop
Sheets("Tim").Select
End Sub[/GPECODE]
Nhấp chuột vào đây để mở rộng...

Cám ơn bạn hung2412, nhưng mình chưa làm cho nó chạy !$@!!
 
Upvote 0
tle2003 đã viết:
Đúng vậy, bạn có thể làm ơn thử lại giùm mình.
Dùng VLOOKUP được nhưng với dữ liệu nhiều, thì quá chậm.
Nhấp chuột vào đây để mở rộng...
Bạn Copy Code 1 sau vào Sheet Tim:
[GPECODE=vb]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C1]) Is Nothing Then
If WorksheetFunction.IsNumber([C1]) = True Then
Application.Run "Nhap_du_lieu.Nhapdulieu1"
End If
End If
End Sub[/GPECODE]
Sau đó bạn Copy Code 2 sau vào Module của File Up lên ở #1 => Bạn đổi tên Mudule đó thành tên là Nhap_du_lieu:
[GPECODE=vb]Sub Nhapdulieu1()
Range([C8], [C65536].End(xlDown)).ClearContents
Sheets("DuLieu").Select
[G1].Select
[G1].AutoFilter Field:=7
Do While Not Range(ActiveCell, ActiveCell.End(xlDown)).Find("" & Sheets("Tim").[C1].Value & "", , , , , , False, False) Is Nothing
Range(ActiveCell, ActiveCell.End(xlDown)).Find("" & Sheets("Tim").[C1].Value & "", , , , , , False, False).Activate
If ActiveCell <> ActiveCell.Offset(-1, 0) And ActiveCell <> ActiveCell.Offset(1, 0) Then
Sheets("Tim").[C3] = ActiveCell.Offset(, -4)
Sheets("Tim").[C4] = ActiveCell.Offset(, -3)
Sheets("Tim").[C5] = ActiveCell.Offset(, -2)
Sheets("Tim").[C6] = ActiveCell.Offset(, -1)
Sheets("Tim").[C8] = ActiveCell.Offset(, 3)
ActiveCell.Offset(1, 0).Activate
Else
If ActiveCell <> ActiveCell.Offset(-1, 0) Then
Sheets("Tim").[C3] = ActiveCell.Offset(, -4)
Sheets("Tim").[C4] = ActiveCell.Offset(, -3)
Sheets("Tim").[C5] = ActiveCell.Offset(, -2)
Sheets("Tim").[C6] = ActiveCell.Offset(, -1)
Sheets("Tim").[C8] = ActiveCell.Offset(, 3)
Else
Sheets("Tim").[C7].End(xlDown).Offset(1, 0) = ActiveCell.Offset(, 3)
ActiveCell.Offset(1, 0).Activate
End If
End If
Loop
Sheets("Tim").Select
End Sub[/GPECODE]

* Ghi chú:
Nếu bạn không làm được các bước trên thì Download File đính kèm ở dưới để xài.
Cách dùng: Bạn gõ số 1 hoặc 2 hoặc 3 hoặc 4 vào ô C1 ở Sheet Tim => Sau đó Enter => Ra kết quả như bạn mong muốn.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
hung2412 đã viết:
Bạn Copy Code 1 sau vào Sheet Tim:
[GPECODE=vb]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C1]) Is Nothing Then
If WorksheetFunction.IsNumber([C1]) = True Then
Application.Run "Nhap_du_lieu.Nhapdulieu1"
End If
End If
End Sub[/GPECODE]
Sau đó bạn Copy Code 2 sau vào Module của File Up lên ở #1 => Bạn đổi tên Mudule đó thành tên là Nhap_du_lieu:
[GPECODE=vb]Sub Nhapdulieu1()
Range([C8], [C65536].End(xlDown)).ClearContents
Sheets("DuLieu").Select
[G1].Select
[G1].AutoFilter Field:=7
Do While Not Range(ActiveCell, ActiveCell.End(xlDown)).Find("" & Sheets("Tim").[C1].Value & "", , , , , , False, False) Is Nothing
Range(ActiveCell, ActiveCell.End(xlDown)).Find("" & Sheets("Tim").[C1].Value & "", , , , , , False, False).Activate
If ActiveCell <> ActiveCell.Offset(-1, 0) And ActiveCell <> ActiveCell.Offset(1, 0) Then
Sheets("Tim").[C3] = ActiveCell.Offset(, -4)
Sheets("Tim").[C4] = ActiveCell.Offset(, -3)
Sheets("Tim").[C5] = ActiveCell.Offset(, -2)
Sheets("Tim").[C6] = ActiveCell.Offset(, -1)
Sheets("Tim").[C8] = ActiveCell.Offset(, 3)
ActiveCell.Offset(1, 0).Activate
Else
If ActiveCell <> ActiveCell.Offset(-1, 0) Then
Sheets("Tim").[C3] = ActiveCell.Offset(, -4)
Sheets("Tim").[C4] = ActiveCell.Offset(, -3)
Sheets("Tim").[C5] = ActiveCell.Offset(, -2)
Sheets("Tim").[C6] = ActiveCell.Offset(, -1)
Sheets("Tim").[C8] = ActiveCell.Offset(, 3)
Else
Sheets("Tim").[C7].End(xlDown).Offset(1, 0) = ActiveCell.Offset(, 3)
ActiveCell.Offset(1, 0).Activate
End If
End If
Loop
Sheets("Tim").Select
End Sub[/GPECODE]

* Ghi chú:
Nếu bạn không làm được các bước trên thì Download File đính kèm ở dưới để xài.
Cách dùng: Bạn gõ số 1 hoặc 2 hoặc 3 hoặc 4 vào ô C1 ở Sheet Tim => Sau đó Enter => Ra kết quả như bạn mong muốn.
Nhấp chuột vào đây để mở rộng...

Cám ơn bạn hung2412, Tôi đã làm như bạn hướng dẫn.
Lúc đầu thấy tốt nhưng khi add thêm dữ liệu thì kết quả lại bị thiếu . Mong bạn xem lại giúp,

Thành thật cám ơn
 

File đính kèm

Upvote 0
tle2003 đã viết:
Cám ơn bạn hung2412, Tôi đã làm như bạn hướng dẫn.
Lúc đầu thấy tốt nhưng khi add thêm dữ liệu thì kết quả lại bị thiếu . Mong bạn xem lại giúp,

Thành thật cám ơn
Nhấp chuột vào đây để mở rộng...
Code cùi 1:
[GPECODE=vb]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then
Nhapdulieu1
End If
End Sub[/GPECODE]
Code cùi 2:
[GPECODE=vb]Sub Nhapdulieu1()
Sheets("Tim").Select
Range([C3], [C6]).ClearContents
Range([C8], [C65536].End(xlDown)).ClearContents
Sheets("DuLieu").Select
[G1].Select
[G1].AutoFilter Field:=7
Do While Not Range(ActiveCell, ActiveCell.End(xlDown)).Find("" & Sheets("Tim").[C1].Value & "", LookAt:=xlWhole) Is Nothing
Range(ActiveCell, ActiveCell.End(xlDown)).Find("" & Sheets("Tim").[C1].Value & "", LookAt:=xlWhole).Activate
If ActiveCell <> ActiveCell.Offset(-1, 0) And ActiveCell <> ActiveCell.Offset(1, 0) Then
Sheets("Tim").[C3] = ActiveCell.Offset(, -4)
Sheets("Tim").[C4] = ActiveCell.Offset(, -3)
Sheets("Tim").[C5] = ActiveCell.Offset(, -2)
Sheets("Tim").[C6] = ActiveCell.Offset(, -1)
Sheets("Tim").[C8] = ActiveCell.Offset(, 3)
ActiveCell.Offset(1, 0).Activate
Else
If ActiveCell <> ActiveCell.Offset(-1, 0) Then
Sheets("Tim").[C3] = ActiveCell.Offset(, -4)
Sheets("Tim").[C4] = ActiveCell.Offset(, -3)
Sheets("Tim").[C5] = ActiveCell.Offset(, -2)
Sheets("Tim").[C6] = ActiveCell.Offset(, -1)
Sheets("Tim").[C8] = ActiveCell.Offset(, 3)
Else
Sheets("Tim").[C7].End(xlDown).Offset(1, 0) = ActiveCell.Offset(, 3)
If ActiveCell <> ActiveCell.Offset(1, 0) Then
ActiveCell.Offset(1, 0).Activate
End If
End If
End If
Loop
Sheets("Tim").Select
End Sub[/GPECODE]
File đính kèm ở dưới.
 

File đính kèm

Upvote 0
Ba Tê đã viết:
Xem file này coi sao
Nhấp chuột vào đây để mở rộng...
Anh cho em hỏi với. Sao File của anh xài sự kiện mà mỗi khi gõ vào ô C1 rồi Enter mà không bị nháy bảng tính nhỉ? Còn File của em ở #18 bị nháy mỗi khi gõ vào ô C1 rồi Enter. Hay là do File của em xài Code nặng nên mới thế ạ?
 
Upvote 0
tle2003 đã viết:
Cám ơn bạn hung2412.
Mình còn có thắc mắc nữa xin các bạn giúp code cho chuyển dữ liệu từ
sheet Nhaphang (nút nhập) to sheet Dulieu
Nhấp chuột vào đây để mở rộng...
Code cùi:
[GPECODE=vb]Sub Nhap_hang()
Dim WsDuLieu As String
Dim i As Long
Dim d As Long
WsDuLieu = Sheets("DuLieu").Name
d = Sheets(WsDuLieu).[J65536].End(xlUp).Offset(1, 0).Row
If WorksheetFunction.IsNumber(Cells(1, 3)) = True And Cells(8, 3) <> "" Then
For i = 8 To [C65536].End(xlUp).Row
If i = 8 Then
Sheets(WsDuLieu).Cells(d, 10).Value = Cells(8, 3).Value
Sheets(WsDuLieu).Cells(d, 7).Value = Cells(1, 3).Value
Sheets(WsDuLieu).Cells(d, 3).Value = Cells(3, 3).Value
Sheets(WsDuLieu).Cells(d, 4).Value = Cells(4, 3).Value
Sheets(WsDuLieu).Cells(d, 5).Value = Cells(5, 3).Value
Sheets(WsDuLieu).Cells(d, 6).Value = Cells(6, 3).Value
If d <> 2 Then
Sheets(WsDuLieu).Cells(d - 1, 8).Copy Sheets(WsDuLieu).Cells(d, 8)
Else
Sheets(WsDuLieu).Cells(d, 8) = "Nhap hang"
End If
Else
d = d + 1
Sheets(WsDuLieu).Cells(d, 10).Value = Cells(i, 3).Value
Sheets(WsDuLieu).Range(Sheets(WsDuLieu).Cells(d - 1, 3), Sheets(WsDuLieu).Cells(d - 1, 8)).Copy Sheets(WsDuLieu).Cells(d, 3)
End If
Next
End If
Range("C1,C3:C6,C8:C1000").ClearContents
End Sub[/GPECODE]
File đính kèm ở dưới.
 

File đính kèm

Upvote 0
hung2412 đã viết:
Code cùi:
[GPECODE=vb]Sub Nhap_hang()
Dim WsDuLieu As String
Dim i As Long
Dim d As Long
WsDuLieu = Sheets("DuLieu").Name
d = Sheets(WsDuLieu).[J65536].End(xlUp).Offset(1, 0).Row
If WorksheetFunction.IsNumber(Cells(1, 3)) = True And Cells(8, 3) <> "" Then
For i = 8 To [C65536].End(xlUp).Row
If i = 8 Then
Sheets(WsDuLieu).Cells(d, 10).Value = Cells(8, 3).Value
Sheets(WsDuLieu).Cells(d, 7).Value = Cells(1, 3).Value
Sheets(WsDuLieu).Cells(d, 3).Value = Cells(3, 3).Value
Sheets(WsDuLieu).Cells(d, 4).Value = Cells(4, 3).Value
Sheets(WsDuLieu).Cells(d, 5).Value = Cells(5, 3).Value
Sheets(WsDuLieu).Cells(d, 6).Value = Cells(6, 3).Value
If d <> 2 Then
Sheets(WsDuLieu).Cells(d - 1, 8).Copy Sheets(WsDuLieu).Cells(d, 8)
Else
Sheets(WsDuLieu).Cells(d, 8) = "Nhap hang"
End If
Else
d = d + 1
Sheets(WsDuLieu).Cells(d, 10).Value = Cells(i, 3).Value
Sheets(WsDuLieu).Range(Sheets(WsDuLieu).Cells(d - 1, 3), Sheets(WsDuLieu).Cells(d - 1, 8)).Copy Sheets(WsDuLieu).Cells(d, 3)
End If
Next
End If
Range("C1,C3:C6,C8:C1000").ClearContents
End Sub[/GPECODE]
File đính kèm ở dưới.
Nhấp chuột vào đây để mở rộng...

Cám ơn bạn hung2412,

Mình thấy có vấn đề nhờ bạn xem lại giúp cho
1. Nhap_hang chạy tốt, nhưng khi Tim không thấy dữ liêu mới nhập (Nhapdulieu1 không chạy)
2. Nếu được nhờ bạn cho vô sheet NhapHang 3 dòng " Ngày -Tình Trạng" - Ghi Chú "
 

File đính kèm

Upvote 0
tle2003 đã viết:
Cám ơn bạn hung2412,

Mình thấy có vấn đề nhờ bạn xem lại giúp cho
1. Nhap_hang chạy tốt, nhưng khi Tim không thấy dữ liêu mới nhập (Nhapdulieu1 không chạy)
2. Nếu được nhờ bạn cho vô sheet NhapHang 3 dòng " Ngày -Tình Trạng" - Ghi Chú "
Nhấp chuột vào đây để mở rộng...
Bạn thêm mấy dòng mới vào Sheet Nhap hang và Sheet Tim thì Code vẫn chạy nhưng chạy lung tung rồi.
 
Upvote 0
tle2003 đã viết:
Cám ơn bạn hung2412,

Mình thấy có vấn đề nhờ bạn xem lại giúp cho
1. Nhap_hang chạy tốt, nhưng khi Tim không thấy dữ liêu mới nhập (Nhapdulieu1 không chạy)
2. Nếu được nhờ bạn cho vô sheet NhapHang 3 dòng " Ngày -Tình Trạng" - Ghi Chú "
Nhấp chuột vào đây để mở rộng...
Tôi chỉnh lại rồi nhé. File đính kèm ở dưới
File đã bao gồm:
- Tự động cập nhật ở Sheet DuLieu khi bấm vào nút Nhập hàng ở Sheet NhapHang
- Tự tra thông tin ở Sheet DuLieu khi gõ vào ô C1 Sheet Tim.
 

File đính kèm

Upvote 0
hung2412 đã viết:
Tôi chỉnh lại rồi nhé. File đính kèm ở dưới
File đã bao gồm:
- Tự động cập nhật ở Sheet DuLieu khi bấm vào nút Nhập hàng ở Sheet NhapHang
- Tự tra thông tin ở Sheet DuLieu khi gõ vào ô C1 Sheet Tim.
Nhấp chuột vào đây để mở rộng...

Cám ơn bạn hung2412 rất nhiều.
Mình nhập dữ liệu vào ( 300 dữ liệu), Tại sheet Tìm khi gõ hía trị 1 vào ô C1, thì không ra hết thông tin, nhờ bạn xem lại giúp.

Một lần nữa - Cám ơn
 

File đính kèm

Upvote 0
tle2003 đã viết:
Cám ơn bạn hung2412 rất nhiều.
Mình nhập dữ liệu vào ( 300 dữ liệu), Tại sheet Tìm khi gõ hía trị 1 vào ô C1, thì không ra hết thông tin, nhờ bạn xem lại giúp.

Một lần nữa - Cám ơn
Nhấp chuột vào đây để mở rộng...
Do cột Lot# ở Sheet DuLieu tôi tưởng là liên tục không gián đoạn nên mới bị vậy. Tôi chỉnh lại rồi nhé.
File đã bao gồm:
- Tự động cập nhật ở Sheet DuLieu khi bấm vào nút Nhập hàng ở Sheet NhapHang
- Tự tra thông tin ở Sheet DuLieu khi gõ vào ô C1 Sheet Tim.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
hung2412 đã viết:
Do cột Lot# ở Sheet DuLieu tôi tưởng là liên tục không gián đoạn nên mới bị vậy. Tôi chỉnh lại rồi nhé.
File đã bao gồm:
- Tự động cập nhật ở Sheet DuLieu khi bấm vào nút Nhập hàng ở Sheet NhapHang
- Tự tra thông tin ở Sheet DuLieu khi gõ vào ô C1 Sheet Tim.
Nhấp chuột vào đây để mở rộng...

Thật là may mắn cho tôi khi đã được sự giúp đỡ rất nhiệt tình, Xin thành thật cám ơn bạn.
Câu hỏi nữa mong bạn giúp :
Làm sao để khóa các Sheet lại, chỉ không khóa C1 của "Tim" , C:C của "NhapHang"
 
Upvote 0
tle2003 đã viết:
Thật là may mắn cho tôi khi đã được sự giúp đỡ rất nhiệt tình, Xin thành thật cám ơn bạn.
Câu hỏi nữa mong bạn giúp :
Làm sao để khóa các Sheet lại, chỉ không khóa C1 của "Tim" , C:C của "NhapHang"
Nhấp chuột vào đây để mở rộng...
Tôi đã bổ sung thêm khóa như bạn mong muốn rồi nhé.
 

File đính kèm

Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

L
Tính thời gian làm việc thực tế
Trả lời
66
Đọc
14K
YenTon
Y
H
Chia sẻ file in Phiếu điều tra PCGD
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
13
Đọc
627
Phuong7686
P
GPE-Trợ Lý
  • Dán lên cao
[KHẨN] HƯỚNG VỀ ĐỒNG BÀO CHỊU ẢNH HƯỞNG CỦA BÃO YAGI - BẢO YÊN, LÀO CAI
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
91
Đọc
14K
SA_DQ
SA_DQ
SA_DQ
Copilot bình luận về một ván cờ vua
    • Thích
Trả lời
6
Đọc
409
SA_DQ
SA_DQ
92nguyenthanh
  • Question Question
Vba cho file nhập xuất kho (1 người xem)
Trả lời
4
Đọc
107
HUONGHCKT
H
C
Fix lỗi Application.InputBox Type:=8
    • Cười
Trả lời
25
Đọc
618
ptm0412
ptm0412
GPE-Trợ Lý
[GPE] TALK SHOW 08: GIẢI QUYẾT VẤN ĐỀ TỐI ƯU HÓA TRONG EXCEL VỚI CÔNG CỤ SOLVER
    • Thích
    • Cảm ơn
Trả lời
4
Đọc
3K
DuongLeHung
D
Gà Công Nghệ
Chế độ chính sách cho giáo viên mầm non giữ trẻ khuyết tật (1 người xem)
Trả lời
1
Đọc
57
vanle33
vanle33
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
56
Đọc
22K
dunghtgiga
dunghtgiga
L
  • Question Question
Viết code tìm kiếm các file trong Folder (1 người xem)
Trả lời
40
Đọc
12K
lan nguyen0987
L
P
Hyperlink_Cách chuyển cả thư mục và file tổng hợp sang máy khác không bị lỗi
Trả lời
5
Đọc
108
phongvanvu
P
HeSanbi
Tiện ích Web: Tự động nhấn nút "Bỏ qua" quảng cáo Youtube
    • Thích
    • Yêu thích
Trả lời
14
Đọc
1K
ongke0711
ongke0711
ptm0412
Quá tin tưởng vào AI các thể loại
    • Cười
Trả lời
4
Đọc
218
Maika8008
Maika8008
A
  • Question Question
Không tìm được lỗi code
Trả lời
6
Đọc
159
ptm0412
ptm0412
W
Tham chiếu theo chuỗi ký tự
Trả lời
8
Đọc
314
dungpham01
D
tritv.dad
Lấy dữ liệu từ folder các tờ khai thông quan để theo dõi hiệu suất công việc.
Trả lời
8
Đọc
285
BlueSphere
B
GPE-Trợ Lý
MỪNG NGÀY NHÀ GIÁO VIỆT NAM 20/11 (1 người xem)
    • Thích
Trả lời
0
Đọc
2K
GPE-Trợ Lý
GPE-Trợ Lý
SA_DQ
Xin chúc mừng các thầy cô giáo trên cộng đồng nhân 20/11
    • Thích
    • Yêu thích
Trả lời
1
Đọc
135
BuiQuangThuan
B
M
chuyển đổi số thành chữ
Trả lời
15
Đọc
371
dungpham01
D
V
Lỗi copy sheet: the name already exists.
Trả lời
7
Đọc
702
nghiabros
N
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom