Kết quả tìm kiếm

  1. N

    code copy sang file mới và đặt tên

    Bạn dùng code dưới đây: Sub taoFilemoi() Dim WbMoi As Workbook Dim Wbcu As Workbook Dim FName As String Set Wbcu = ThisWorkbook ActiveSheet.Copy Set WbMoi = ActiveWorkbook With WbMoi If Right(Wbcu.Name, 3) = "xls" Then FName = Wbcu.Path & "\" & .ActiveSheet.Range("M2").Value &...
  2. N

    code copy sang file mới và đặt tên

    Bạn thử: Sub taoFilemoi() Dim WbMoi As Workbook Dim Wbcu As Workbook Dim FName As String Set Wbcu = ThisWorkbook ActiveSheet.Copy Set WbMoi = ActiveWorkbook With WbMoi If Right(Wbcu.Name, 3) = "xls" Then FName = Wbcu.Path & "\" & .ActiveSheet.Range("M2").Value & ".xls" Else...
  3. N

    nhờ mọi người sửa lỗi #Name khi sử dụng hàm indirect

    Bạn thử công thức tại ô D2: D2=INDIRECT("'Tháng "&RIGHT(ShN,2)-1&"'!F"&ROW(F2))
  4. N

    Giúp tổng hợp nhiều sheet thành sheet tổng hợp

    sheets("sheet16") không có dữ liệu ==> eRow = -5 ==> lỗi
  5. N

    Chèn ảnh vào những vị khác nhau trên sheet

    bạn copy code dán vào phần khung đỏ nhé
  6. N

    Chèn ảnh vào những vị khác nhau trên sheet

    Đặt code dưới đây vào Workbook Private PWidth As Integer Private PHeight As Integer Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) PWidth = Target.Width PHeight = Target.Height End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As...
  7. N

    Tạo nút nhấn để in hàng loạt--số dòng thay đổi

    Tham khảo file đính kèm nhé
  8. N

    Hàm tìm giá trị thay thế vlookup

    Chắc do bạn dùng office < 2019 nên không có hàm đó, File đính kèm là hàm từ tạo, bạn xem có oki không nhé
  9. N

    Gửi email từ excel bằng VBA

    Xem file bạn nhé, code đó đâu phải của tôi
  10. N

    Gửi email từ excel bằng VBA

    Bạn thử code này xem sao: Sub Sendmail() Dim OutApp As Object Dim OutMail As Object Dim ETo As String, Chude As String Dim i As Long, LValue As long With Sheets("Bang Luong") LValue = .Range("A" & .Range("A" & Rows.Count).End(xlUp).Row-1).Value End With With Sheets("Form Email") For i =...
  11. N

    Hàm tìm giá trị thay thế vlookup

    Bạn xem file xem đúng chưa? bài này nếu giải bằng hàm thì phải làm các bước sau: - b1: sort dữ liệu mã hàng và số hợp đồng để 2 cột này sắp xếp theo thứ tự - b2: dùng các hàm như trong file đính kèm nếu làm VBA sẽ phù hợp hơn, nếu bạn đã biết đến VBA thì bàn tiếp
  12. N

    Tạo danh sách nhắn tin tự động

    Bạn thử code sau: Sub SmileyFace1_Click() Dim i As Long, Lr As Long Dim Sh As Worksheet, k As Long Dim lop As String, tien As String, tien2 As String Set Sh = Sheets("Xu ly") Sh.Range("A2:C" & Sh.Range("A" & Rows.Count).End(xlUp).Row + 1).UnMerge Sh.Range("A2:C" & Sh.Range("A" &...
  13. N

    Tìm hình ảnh tương ứng

    Bài của bạn nếu xử lý bằng VBA sẽ phù hợp hơn, tuy nhiên bạn đăng bài ở mục hàm và công thức nên tôi làm bằng hàm và công thức (cách này sẽ có những hạn chế nhất định VD: khi cần thêm nhiều mã hàng nữa thì phải thêm Name mới (linkpicture2,3,4 vvv.....) bạn tham khảo file dưới đấy xem đúng yêu...
  14. N

    Lấy tên của tất cả workbook đang mở

    Cảm ơn anh nhiều ạ
  15. N

    Lấy tên của tất cả workbook đang mở

    Chào các anh chị Em đang tìm cách lấy tên và định dạng (.xls hoặc .xlsx hoặc .xlsb hoặc .xlsm) của tất cả các workbook đang mở ghi vào cột A (từ ô A1 đến An) Anh/chị nào biết chỉ giúp em với Em xin cảm ơn ạ
  16. N

    Mình nhờ các cao thủ viết giúp mình 1 hàm excel (theo file attach bên dưới)

    Nếu office 2010 thì phải dùng VBA để giải quyết
  17. N

    Tạo trang bìa trong excel

    Cách đơn giản nhất bạn làm theo các bước sau (chất lượng ảnh ko được đẹp lắm): Tạo khung bên file word theo ý muốn ==> chuyển file word sang dạng ảnh (JPG, PNG vv..) ==> chèn ảnh này vào excel ==> dùng chức năng remove background để loại bỏ những chỗ mình không cần hiển thị ==> done Nếu muốn...
  18. N

    Tạo trang bìa trong excel

    Đúng rồi bạn
  19. N

    Tạo trang bìa trong excel

    Dùng word hoặc 1 số phần mềm chuyên làm chứng chỉ, thiệp mời vv... tạo viền theo ý mình ==> copy viền đó vào excel (copy dạng ảnh) ==> dùng chức năng làm trong suốt ảnh (chỉ để lại phần viền) ==> done Trước đây mình cũng đã 1 file tương tự như vậy để in chứng chỉ hàng loạt, bạn tham khảo xem có...
  20. N

    Tạo sheet mới bằng macro

    Bạn thử code sau: Sub them_sheet() Dim Sh As Worksheet, NewSh As String NewSh = Format(Date, """Thang ""mm-yyyy") For Each Sh In Worksheets If Sh.Name = NewSh Then MsgBox "Sheet " & Format(Now(), """Thang ""mm-yyyy") & " da ton tai" Exit Sub End If Next...
Top Bottom