Chuyên mục xử lý, gỡ rối code VBA

[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

 

[IceFrogBG]

Chào mọi người ạ.
Em đang làm 1 cái tool tự động tính toán kết quả sản phẩm của máy.
Em copy cái add in liệt kê số file để làm.nhưng khi chạy thì excel cứ bị trắng màn hình.
Bác nào check hộ em xem file này có gì không ổn ạ.
em có add 2 kiểu file em tính luôn ạ : 1 là kiểu cvs và 1 là kiểu file dat.
2 loại file này em làm 2 hàm tính toán khác nhau ạ.
Em xin cảm ơn.

 

[nguyentranduc1978]

Em có đoạn code gộp nhiều file sang 1 file mới chạy trên office 2007 không được. Folder "OK" chạy ổn nhưng folder "Khong duoc" chạy bị lỗi

Em muốn chèn nguồn của dữ liệu truy xuất, file Vidu (STT, dòng và sheet của các file 1,2,3 và 4,5,6 vào cột A trước các hàng gộp dữ liệu có được không). Ví dụ cột A dòng 2 thể hiện: C:\Documents and Settings\Admin\Desktop\OK\4.xls\Ngày1\row2

Sub MergeFilesExcel()
Dim path As String, ThisWB As String, lngFilecounter As Long
Dim wbDest As Workbook, shtDest As Worksheet, ws As Worksheet
Dim Filename As String, Wkb As Workbook
Dim CopyRng As Range, Dest As Range
Dim RowofCopySheet As Integer
RowofCopySheet = 2
ThisWB = ActiveWorkbook.Name
'Dien duong dan folder chua cac tap tin excel can gom lai.
'Nhu ban thay toi tien duong dan thu muc chua cai file excel cua toi.
path = "D:\Test\Khong duoc"
Application.EnableEvents = False
Application.ScreenUpdating = False
Set shtDest = ActiveWorkbook.Sheets(1)
Filename = Dir(path & "\*.xls", vbNormal)
If Len(Filename) = 0 Then Exit Sub
Do Until Filename = vbNullString
If Not Filename = ThisWB Then
Set Wkb = Workbooks.Open(Filename:=path & "\" & Filename)
Set CopyRng = Wkb.Sheets(1).Range(Cells(RowofCopySheet, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))
Set Dest = shtDest.Range("A" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
CopyRng.Copy Dest
Wkb.Close False
End If
Filename = Dir()
Loop
Range("A1").Select
Application.EnableEvents = True
Application.ScreenUpdating = True
MsgBox "Ket Thuc!"
End Sub

 

[vova2209]

Thầy NDu ơi! thầy xem file này hộ em với ạ. code fix co dãn dòng của em báo debug ở Vùng range. Em cảm ơn nhiều

 

[Ba Tê]

Thầy Nu ơi! thầy xem file này hộ em với ạ. code fix co dãn dòng của em báo debug ở Vùng range. Em cảm ơn nhiều

Đâu có nick nào là "Nu" đâu?

 

[vova2209]

Đâu có nick nào là "Nu" đâu?

Bác BaTe xem hộ em với ạ! bị lỗi 1 tý thôi ạ

 

[ndu96081631]

Bác BaTe xem hộ em với ạ! bị lỗi 1 tý thôi ạ

May quá! Chuyển phỏm

 

[NguyenNgocThuHien]

Thầy NDu ơi! thầy xem file này hộ em với ạ. code fix co dãn dòng của em báo debug ở Vùng range. Em cảm ơn nhiều

Sheets("Sheet1").Range("A1:Z71")
Sheet1 làm gì có trong file mà chẳng chạy lỗi.

 

[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.