leonguyenz
Được thích
7,847

Tin nhắn hồ sơ Hoạt động gần nhất Các bài đăng Giới thiệu Các danh hiệu

  • Em chào anh, anh ơi em nhờ thầy giúp em vấn đề đánh số thứ tự mới ạ!
    Anh ơi anh phiền anh xem giúp em chút em làm mà cứ báo lấy thiếu key, em loay hoay từ qua đến nay làm đi làm lại mà cứ báo lỗi vậy, hay bản excel của em không tương thích, mong anh xem giúp em bài #91, em có đăng kèm file.
    leonguyenz
    leonguyenz
    Có thể là do phiên bản Office khác nhau, vì trong file có lệnh Copy từ Word, dán lên Excel theo kiểu Marco, mỗi phiên bản Office có một chút khác nhau.
    Tôi có test thử, chỉ thiếu 1 Key ở trên cùng, không thiếu 2 Key như bạn trình bày.
    Bùi Thúy Thúy
    Bùi Thúy Thúy
    Vậy có cách nào để không bị thiếu key không ạ? em có cài excel 2007 nhưng vẫn bị vậy anh ạ! nếu có thể anh giúp em bổ sung thêm code để lấy được key đầy đủ được không ạ? em cám ơn anh!
    Em chào anh, nhờ anh giúp em tạo phím tắt (Ctrl + alt ) để chạy add-in thay vì click biểu tượng trên dải Riboon (#21)
    Em cám ơn anh, mong được anh giúp đỡ.
    leonguyenz
    leonguyenz
    Cái này phải đưa vào Open Workbook và lệnh tắt (OnKey) để thực thi.
    Bạn nhắn tin cho anh huuthang_bd xem nhé, vì cần phải biết chạy code gì.
    Bùi Thúy Thúy
    Bùi Thúy Thúy
    Vâng em có nt rồi ạ! vì code không có đặt pass.
    Giúp em bài này với anh. e thấy trên GPE có vlookup được hình ảnh sang mà e mà mãi ko ra. E đang bị lỗi Name anh ạ
    Chào anh, anh cho em hỏi có thể đặt phím tắt trực tiếp luôn trong code bằng cách nào vậy ạ!
    cách đặt phím tắt vào đoạn code (cách chạy macro rồi đặt thì em biết) nhưng em muốn đặt luôn vào trong đoạn code, giả sử em muốn đặt là (ctrl + tab) và biến nó thành 1 add in, khi load add in chỉ nhấn ((ctrl + tab) ) là ok
    Mã:
    Sub ShowAllSheets()
      Application.CommandBars("Workbook tabs").ShowPopup
    End Sub
    Bùi Thúy Thúy
    Bùi Thúy Thúy
    Đoạn code em chèn như sau:
    Mã:
    Sub ShowAllSheets()
    Application.OnKey "^{TAB}", "ShowAllSheets"
      Application.CommandBars("Workbook tabs").ShowPopup
    End Sub
    leonguyenz
    leonguyenz
    Đặt 1 code mở Workbook:
    Mã:
    Private Sub Workbook_Open()
        ShowAllSheets
    End Sub
    Mở module và đặt 2 code sau:
    Mã:
    Public Sub ShowAllSheets()
        Application.OnKey "^{TAB}", "ABC"
    End Sub
    Mã:
    Sub ABC()
        Application.CommandBars("Workbook tabs").ShowPopup
    End Sub
    Save thành Add-in. Mở 1 workbook khác và add Add-in kia vào test thử xem.
    Bùi Thúy Thúy
    Bùi Thúy Thúy
    Vâng cám ơn anh, được rồi anh ạ!
    Em chào anh, em làm phiền anh chút ạ!
    Anh giúp em viết hàm tự tạo để chuyển đồi ngày tháng năm mới ạ!
    anh giúp em mới ạ!
    Em chào anh, anh có thể bỏ chút thời gian coi giúp em chủ đề dưới không ạ.
    Em chân thành cám ơn.
    Em chào anh, nhờ anh giúp em vấn hoàn thiện code mới ạ! em cảm ơn anh
    Chào anh, anh có thể dành hỗ trợ giúp em vấn đề sau không ak! Cảm ơn Anh
    xin được sự giúp đỡ của anh: tìm ra định dạng lỗi ngày , tháng, năm
    Hello anh! nhờ anh xem giúp em điền và chuyển định dạng thời gian mới ạ! Cảm ơn anh!
    Anh ơi khi nào anh có thời gian giúp em chút nhé! phần hôm qua anh giúp em vẫn còn một tẹo vấn đề nữa:
    Anh ơi! làm phiền anh chút: anh xem lại giúp em #20 trong chủ đề sau giúp em mới ạ!
    leonguyenz
    leonguyenz
    Hiểu ý bạn rồi, theo yêu cầu của bạn thì khác với yêu cầu trước đây. Chắc phải sửa code lại. Tôi đang kẹt chút việc chiều tôi xem có thể sửa lại được không.
    dangky47h
    dangky47h
    Dạ vâng!
    Về cơ bản cũng như lần trước chỉ có vấn đề là em thêm nội dung công việc vào và chạy code thì nó lại bị trùng nội dung (chèn thêm dòng và nội dung giống đã chèn lần đầu) thôi ạ!
    Anh có thời gian giúp em nhé! cảm ơn anh nhiều.
    dangky47h
    dangky47h
    anh ơi, vấn đề khi em chạy code có lỗi em đã hỏi anh đó, nào anh rảnh giúp em mới nhé!
    Em chào anh, anh khỏe chứ ạ! anh giúp em vấn đề chuyển ký tự thường thành in hoa đầu ô trong excel mới ạ!
    leonguyenz
    leonguyenz
    Câu lệnh sau:
    Mã:
    clls.Value = UpperUni(Left(clls.Text, 1)) & LowerUni(Right(clls.Text, Len(clls.Text) - 1))
    Thử sửa thành:
    Mã:
    clls.Value = UpperUni(Left(clls.Text, 1)) & Right(clls.Text, Len(clls.Text) - 1)
    Cát Lượng
    Cát Lượng
    Dạ được rồi anh ạ! em cám ơn anh!
    leonguyenz
    leonguyenz
    Được, file này không khó.
    Gõ ngày/tuần/tháng ở mỗi sheet là xuất hiện báo cáo?
    Hay làm 1 cái nút bấm là ra cả 3 báo cáo ở 3 sheets?
    V
    vulunktheky
    HI bạn, bạn có thể hỗ trợ mình thêm phần này được không, Mình cảm ơn
    Hi anh
    Em cần anh giúp mà không biết liên hệ thế nao ??? làm sao gui tin nhắn được cho anh ak
    giangcoilove
    giangcoilove
    Anh cho em hỏi, nếu bây giờ em muốn học VBA thì e nên bắt đầu từ đâu ak. em nhìn dô dòng code của a, mà e biết nó. Nó không biết gì em
    leonguyenz
    leonguyenz
    Có một số khóa VBA do GPE tổ chức, đó cũng là 1 giải pháp. Học hỏi trên diễn đàn cũng là 1 giải pháp.
    Hoặc bạn mua 1 cuốn VBA cơ bản, ở trên diễn đàn có bán. Xem và tìm hiểu cơ bản, làm bài tập và gửi lên diễn đàn những vấn đề chưa hiểu, có nhiều người hỗ trợ.
    giangcoilove
    giangcoilove
    da anh. đa tạ anh
  • Đang tải…
  • Đang tải…
  • Đang tải…
  • Đang tải…
Top Bottom