Chuyên mục xử lý, gỡ rối code VBA (1 người xem)

[ndu96081631]

Topic Những câu hỏi về code, xin giải thích các code... đã quá dài nên mình đóng nó lại và mở topic khác
Tất cả những bài viết liên quan đến việc nhờ giải thích, xử lý và gỡ rối code VBA, các bạn vui lòng đăng tại đây!
Cảm ơn

 

[vova2209]

May quá! Chuyển phỏm

Thầy xem dùm em với ạ! FixRowHight Sheets("Sheet22").Range("A1:Z71") vẫn báo Debug

 

[IceFrogBG]

May quá! Chuyển phỏm

Bác ndu96081631 xem hộ em sao em chạy nó lại bị đơ đơ và trắng màn hình post #805 với ạ!

 

[thanhlanh]

To: vova2209.
Phải viết là: FixRowHight Sheet21.Range("A1:Z71")
Còn muốn viết kiểu bạn thì phải dùng tên Sheet và tên Sheet không được dùng ký tự đặc biệt như cặp lá yêu thương đó và không dùng tiếng Việt.

 

[vova2209]

To: vova2209.
Phải viết là: FixRowHight Sheet21.Range("A1:Z71")
Còn muốn viết kiểu bạn thì phải dùng tên Sheet và tên Sheet không được dùng ký tự đặc biệt như cặp lá yêu thương đó và không dùng tiếng Việt.

Vâng! em cảm ơn a nhiều ạ, code chạy được rồi..

 

[TrungChinhs]

Mình định tự động mở ValidateList bằng tổ hợp phím Alt+Mũi tên xuống bằng lệnh SendKeys "%Down"

Sub Macro1()
Application.SendKeys "%Down"
End Sub

Macro này không lỗi nhưng Không biết tại sao nó không có tác dụng (không mở ValidateList).
Nhờ các bạn trợ giúp. Thanks!

 

[TrungChinhs]

Nhờ mod xóa giúp (bài gửi 2 lần)

 

[befaint]

Mình định tự động mở ValidateList bằng tổ hợp phím Alt+Mũi tên xuống bằng lệnh SendKeys "%Down"

Sub Macro1()
Application.SendKeys "%Down"
End Sub

Macro này không lỗi nhưng Không biết tại sao nó không có tác dụng (không mở ValidateList).
Nhờ các bạn trợ giúp. Thanks!

ValidateList thấy lạ quá...
Hóa ra là Data Validation

Ở bên thớt này đang bàn luận về cái đó, anh xem có thông tin gì không.
http://www.giaiphapexcel.com/diendan/threads/tìm-kiếm-trong-data-validation-excel.127658/

Chúc anh ngày vui!

 

[mhieuit]

Chào anh chị GPE
em có đoạn code bên dưới mỗi khi chạy xuất hiện bảng thông tin bên dưới, em muốn bỏ thì điều chỉnh ở dòng nào ạ.
mong anh chị xem và hướng dẫn giúp em. em cám ơn nhiều

Sub SetDN()
Dim i As Integer
Dim lastRow As Long
Dim lastRow1 As Long
    For i = 2 To 20
        If Sheets("Pickticket").Range("A" & i).Value <> Empty Then
            Sheets("Pickticket").Range("A" & i).Copy
            Sheets("DN").Range("A2").PasteSpecial Paste:=xlPasteValues
            Sheets("CTN_LPN_Checking").Range("A2").PasteSpecial Paste:=xlPasteValues
            With Sheets("DN")
                lastRow = .Range("A10").Value
                .PageSetup.PrintArea = "C1:S" & lastRow
    Range("D11:P11").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("DN").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("DN").Sort.SortFields.Add Key:=Range("D12:D500"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("DN").Sort.SortFields.Add Key:=Range("F12:F500"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
                With Sheets("DN").Sort
                    .SetRange Range("D11:P500")
                    .Header = xlYes
                    .MatchCase = False
                    .Orientation = xlTopToBottom
                    .SortMethod = xlPinYin
                    .Apply
                End With
            End With
                With Sheets("DN").PageSetup
                .PrintTitleRows = "$10:$10"
                End With
                With Sheets("CTN_LPN_Checking")
                    lastRow1 = .Range("A4").Value
                    .PageSetup.PrintArea = "C1:I" & lastRow1
                End With
                With Sheets("CTN_LPN_Checking").PageSetup
                .PrintTitleRows = "$1:$6"
                End With
                Sheets("DN").Copy after:=Sheets("DN")
                Sheets("CTN_LPN_Checking").Copy after:=Sheets("CTN_LPN_Checking")
        End If
    Next i
End Sub

 

[TrungChinhs]

Chào anh chị GPE
em có đoạn code bên dưới mỗi khi chạy xuất hiện bảng thông tin bên dưới, em muốn bỏ thì điều chỉnh ở dòng nào ạ.
mong anh chị xem và hướng dẫn giúp em. em cám ơn nhiều

Bạn thử thêm câu nàu xem có được không
Application.EnableEvents = False

 

[TrungChinhs]

ValidateList thấy lạ quá...
Hóa ra là Data Validation

Ở bên thớt này đang bàn luận về cái đó, anh xem có thông tin gì không.
http://www.giaiphapexcel.com/diendan/threads/tìm-kiếm-trong-data-validation-excel.127658/

Chúc anh ngày vui!

Cảm ơn bạn. Cái mình cần không thấy đâu.

 

[befaint]

em có đoạn code bên dưới mỗi khi chạy xuất hiện bảng thông tin bên dưới, em muốn bỏ thì điều chỉnh ở dòng nào

Nó báo đã có cái gì đó. Vậy trước khi tạo ra cái tương tự như thế thì ta xóa cái cũ đi đã (nếu được).

 

[ndu96081631]

Mình định tự động mở ValidateList bằng tổ hợp phím Alt+Mũi tên xuống bằng lệnh SendKeys "%Down"

Sub Macro1()
Application.SendKeys "%Down"
End Sub

Macro này không lỗi nhưng Không biết tại sao nó không có tác dụng (không mở ValidateList).
Nhờ các bạn trợ giúp. Thanks!

Hình như phải vầy anh à
Application.SendKeys "%{Down}"

 

[thangteo]

Hình như phải vầy anh à
Application.SendKeys "%{Down}"

Thầy chỉnh thì chắc là ok rồi.

 

[TrungChinhs]

Hình như phải vầy anh à
Application.SendKeys "%{Down}"

Vẫn không được em à. Hay là máy phải cài đặt, khai báo gì không ?

 

[ndu96081631]

Vẫn không được em à. Hay là máy phải cài đặt, khai báo gì không ?

Em nghĩ vấn đề không ở code mà là ở cái Shape anh vẽ trên bảng tính. Anh thử thay nó bằng Button (Form Controls) xem sao

 

[befaint]

Vẫn không được em à. Hay là máy phải cài đặt, khai báo gì không ?

Em thấy hơi lạ khi anh bảo "cái cần không thấy".
Anh thử tải file ở bài #59 xem.
http://www.giaiphapexcel.com/dienda...ta-validation-excel.127658/page-3#post-801510

 

[TrungChinhs]

Em nghĩ vấn đề không ở code mà là ở cái Shape anh vẽ trên bảng tính. Anh thử thay nó bằng Button (Form Controls) xem sao

Chay bằng phìm f5 cungc vẫn không được

 

[TrungChinhs]

Em thấy hơi lạ khi anh bảo "cái cần không thấy".
Anh thử tải file ở bài #59 xem.
http://www.giaiphapexcel.com/diendan/threads/tìm-kiếm-trong-data-validation-excel.127658/page-3#post-801510

Ý mình là câu lệnh đó nó không có tác dụng trên màn hình. Trong bài không thấy nói về xử lý tình huống này.

 

[befaint]

Chay bằng phìm f5 cungc vẫn không được

SendKey thì cửa sổ nào đang active (hiện hành) thì nó send key tại cửa sổ đó.
Anh đang trong cửa sổ VBA mà nhấn F5 (Run) thì nó chạy dòng send key đó, tức là nhấn tổ hợp phím Alt + Arrow Down trong cửa sổ VBA. Khi đó thì đúng là anh chẳng thấy cái gì rồi.

 

[befaint]

Ý mình là câu lệnh đó nó không có tác dụng trên màn hình. Trong bài không thấy nói về xử lý tình huống này.

Thế thì anh chưa đọc hết topic đó rồi. Ngay bài #1 của topic đó có nói SendKey bị "mất phím Numlock". Không tin anh kiểm tra Numlock sau mỗi lần SendKey xem.


Theo bài #826 có gợi ý cho anh rồi. Do anh dùng shape để gán macro thì shape đó không giữ được setFocus tại cell hiện hành (không biết sau khi send key thì nó nhảy đi đâu, rồi mới về cell hiện hành).
Anh có thể thử nghiệm: Click chuột trái và giữ im vào cái shape đó xem. Sau khi nhả chuột thì thấy gì..

Anh không dùng shape để gán macro nữa, thử theo bài #826 đó anh.