Kết quả tìm kiếm

Liên hệ QC
  1. Y

    Send_key bị báo lỗi khi cào dữ liệu

    Xin chào anh chị. Em đang tìm hiểu về Python để cào dữ liệu. Làm một ví dụ đơn giản là mở trang, rồi "send_keys" nhưng của em nó cứ báo lỗi này "AttributeError: 'list' object has no attribute 'send_keys'" . Mong anh chị chỉ dùm em sai chỗ nào ạ ! import sys from...
  2. Y

    Tìm số lượng người bán theo ngưỡng cho trước

    Em xin chào anh chị và các bạn trên diễn đàn ạ, Em có vấn đề xin trợ giúp của anh chị và mọi người ạ. Em thấy pivotable trong excel nó có liệt kê và tính theo ngưỡng nào đó. Vậy ví dụ em có cột A là mã người bán, cột B là doanh thu thì code như nào để như yêu cầu như vùng E:G ạ. Em cảm ơn anh...
  3. Y

    Tach các cột tạo thành một mảng mới

    Kính gửi anh chị và các bạn, Giả sử em có bảng số liệu từ A đến cột G. Bình thường để add bảng dữ liệu này vào mảng thì ta dung lệnh sau lr = .Range("A" & Rows.Count).End(xlUp).Row arr = .Range("A2:G" & lr).Value Bây giờ, em muốn tạo một mảng cũng trích từ bảng này nhưng chỉ lấy thứ tự theo...
  4. Y

    Code cho hàm Vlookup nhiều lần.

    Kính gửi các anh chị và các bạn, Mọi người hỗ trợ em code VBA của hàm Vlookup mà có 4 lần như ví dụ với ạ. Em cảm ơn ạ.
  5. Y

    Tách ký tự bên trái theo điều kiện tìm kiếm

    Em có File kèm theo, G1 đến G6 là các từ làm điều kiện, giờ em muốn tách và lấy các ký tự/chữ ở bên trái các từ điều kiện này như ví dụ em làm kèm theo thì Code nào thực hiện được ạ !
  6. Y

    Lọc danh sách sinh viên thi lại

    Kính gửi anh chị Em có một File em lấy ở diễn đàn trước đây nay xem lại code thấy khó hiểu nhờ anh chị làm theo cách khác dễ hiểu hơn với ạ. - Tại sheet Diem_TChi có danh sách cách sinh viên và kết quả thi các môn. Giờ muốn list ra các sinh viên và môn học mà sinh viên đó phải thi lại với điều...
  7. Y

    Xếp theo thứ tự từ ngày lớn nhất đến ngày bé nhất trong Mảng

    Kính gửi anh chị Đoạn code dưới em lọc thông tin và kết quả ra tại Arr1(a1, 6) = Arr(i, 10) là cột ngày tháng năm. Giờ thêm code thế nào để nó xếp kết quả của mảng 8 cột này theo cột 6 có ngày giảm dần (Từ ngày lớn nhất/gần nhất đến ngày nhỏ nhất). Em cảm ơn ạ. Sub Loc() Dim Arr, Arr1, Arr2...
  8. Y

    Code tìm kiếm cho điều kiện tìm Gộp

    Kính gửi Anh Chị, Bình thường làm em hay gặp bài toán kiểu này với mục tiêu tìm kiếm. - Tại sheet Data em phải làm cột phụ Mã Hàng + Mã NV để làm vùng tìm kiếm cho hàm Vlookup - Tại sheet GPE em muốn lọc Số lương bán theo điều kiện tìm kiếm là Mã Hàng + Mã NV em đã làm như File tại cột F. Code...
  9. Y

    Tính toán doanh số bán hàng

    Kính gửi anh chị, Em muốn đưa ra danh sách nhân viên, thông tin và tính toán theo các tiêu thức mà em đã làm bằng hàm tại vùng màu xanh. Thực hiện bằng code sẽ như thế nào mong các anh chị giúp đỡ ạ.
  10. Y

    Tìm kiếm với Code với combobox

    Kính gửi anh chị và các bạn Em muốn tìm kiếm theo tên hàng. Và khi gõ ký tự thì các tên hàng chứa ký tự đó đều hiện lên hết không phân biệt ở đầu hay ở giữa hay bất kỳ thì làm sao tiếp ạ (Ví dụ gõ ký tự Gi thì sẽ hiện Mien Giong Cu Gieng và My Tom Gio Em mò trên mạng mà mới làm được thế này ạ...
  11. Y

    Hỏi về ý nghĩa code dùng dictionary

    Kính gửi anh chị và các bạn, Em ngồi học về Dictionary và có đọc các bài của diễn đàn. Nhưng thực sự em thấy khó hiểu và khó tưởng tượng quá ạ. Anh chị cho em xin ý nghĩa từng đoạn code dưới này với ạ. + a = 1 nghĩa là gì ạ + Từ đoạn dk = arr(i, 1) & "#" & arr(i, 2) đến hết e không hiểu ạ. Dim...
  12. Y

    Vào ngay Folder chứa File khi dùng Application.GetOpenFilename

    Kính gửi Anh chị, Em dùng Application.GetOpenFilename để mở forder và lấy dữ liệu của files trong Folder. Khi em chạy code thì không ra đường dẫn ngay, mà phải chọn để tìm ra path để lấy File. Với Forlder có tên không dấu thì em thêm đoạn này FileSystem.ChDir ActiveWorkbook.Path là vào trực...
  13. Y

    Hỏi về Dic trong VBA

    Kính chào anh chị, Em xin hỏi đoạn code này có ý nghĩa thế nào ạ ? Em hỏi tìm hiểu Dic mà khó hiểu quá ạ. ReDim Result(1 To UBound(ArrTen, 1), 1 To 5) ReDim Info(1 To UBound(ArrDiachi, 1) + UBound(ArrTen, 1), 1 To 7)
  14. Y

    Đếm số phần tử khác rỗng trong mảng

    Đếm số phần tử của mảng khác rỗng, Giả sử em có Range từ A1: J2 và đặt là là một mảng. Em muốn đếm số phần tử khác rỗng của mảng này thì làm sao ạ. Em làm mà toàn ra 20 ạ. Dim iCount1 As Integer, iCount2 As Integer arr = Sheet2.Range("A1:J2").Value iCount1 = UBound(arr, 1) - LBound(arr, 1) + 1...
  15. Y

    Xóa vùng trống trong một bảng

    Kính gửi anh Chị Em muốn xóa các dòng trống tại cột D. Em đã làm code mà nó không chạy ạ. Xem giúp em với ạ. Sub Xoa_dong () Dim i As Long, lr As Long, rng As Range lr = Sheet1.Cells(3, "B").End(xlDown).Row rng = Sheet1.Range("D3 : ") & lr For i = 3 To lr If Not rng Is Nothing Then...
  16. Y

    Insert range vào trong shape

    Kính gửi anh chị, Em làm chân chữ ký với shapes mà code không chạy. ANh chị xem giúp em với ạ. - Đưa vào Shape chân chữ ký với vùng F1,J6 - Copy Shape đến vị trí cần thiết (Ví dụ em copy đến ô A20) - Co chiều dài của shape bằng độ rộng của vùng tại hàng 11 (Ví dụ đưa ra ở đây là độ rộng tại hàng...
  17. Y

    Ghép số liệu bị lỗi vòng lặp

    Kính gửi anh chị, Em làm code để ghép số liệu thì code chạy rồi. Nhưng khi em xóa toàn bộ dữ liệu đi và chỉ để lại tiêu đề thì nó báo lỗi vòng lặp Next i là vì sao ạ.
  18. Y

    Transpose kết quả lọc

    Kính gửi Anh Chị, Đoạn code transpose của em sai gì mà không ra ạ. Anh chị chỉ giúp ạ. Và làm sao để giữa các kết quả cách nhau bởi dấu phẩy ạ ví dụ Hoa Lan, Hoa Hồng Sheet2.select Range("A10:A100").AdvancedFilter _ Action:=xlFilterCopy, CopyToRange:=Range("B1"), unique:=True, Transpose:=True
  19. Y

    Tổng hợp kết quả bán hàng liên tiếp

    Kính gửi anh chị và các bạn, Em muốn tổng hợp kết quả bán hàng đã ghi như ở sheet Data liên tiếp theo các tháng vào sheet Ketqua (Chỉ lấy 5 tiêu chí: Ngày/tháng, Mã người nhập, Tên User, Mã Khach, Giá trị bán). Thì code như thế nào ạ. Em cảm ơn ạ.
  20. Y

    Code Hàm viết hoa ký tự đầu tiên

    Kính gửi Anh chị và các bạn, Dòng code thứ 2 em sửa sao để nó chạy được ạ (Em muốn chỉ viết hoa chữ cái đầu tiên ạ). Dim rs rs = Application.VLookup(Sheet2.Range("C6"), Sheet1.Range("C1:D90000"), 2, False) Sheet2.Range("C7").Value = CONCATENATE(UPPER(Left(rs, 1)))

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL
Back
Top Bottom