Code cho nút Tạo sổ

[NH_DK]

A/C viết dùm em code cho nút Tạo sổ. A/C viết gắn gọn (nếu có thể) để em học nhé! Vì em mới đang tìm hiểu VBA.
(Câu hỏi cụ thể trong file đính kèm)

 

[boyxin]

A/C viết dùm em code cho nút Tạo sổ. A/C viết gắn gọn (nếu có thể) để em học nhé! Vì em mới đang tìm hiểu VBA.
(Câu hỏi cụ thể trong file đính kèm)

YÊU CẦU NÀY hình như đã làm rồi

Tập tin đính kèm

• 
  GPE_2.xls (54.0 KB)

 

[NH_DK]

YÊU CẦU NÀY hình như đã làm rồi

Vâng anh ah! Nhưng em muốn nhờ mọi người làm lại dùm em để em tìm hiểu mà?
Anh xem va sua dùm em sao cho cột A, B, C của Sheet SCAI chỉ hiện 1 dòng nếu có cùng chung dòng dữ liệu anh nhé!
Cám ơn anh Boyxin nhiều!

 

[boyxin]

Vâng anh ah! Nhưng em muốn nhờ mọi người làm lại dùm em để em tìm hiểu mà?
Anh xem va sua dùm em sao cho cột A, B, C của Sheet SCAI chỉ hiện 1 dòng nếu có cùng chung dòng dữ liệu anh nhé!
Cám ơn anh Boyxin nhiều!

Lấy cái bản đã làm lần trước ra mà xem. Dù cho có làm lại 1000 lần tìh cách làm vẫn như nhau thôi. Mệt wa'

 

[NH_DK]

Lấy cái bản đã làm lần trước ra mà xem. Dù cho có làm lại 1000 lần tìh cách làm vẫn như nhau thôi. Mệt wa'

Vâng. Em sẽ xem lại. Anh gõ đầu em nhè nhẹ thôi nhé! Gõ đau quá em quên hết là "tiêu" luôn đó! Hi...........

 

[boyxin]

Anh xem va sua dùm em sao cho cột A, B, C của Sheet SCAI chỉ hiện 1 dòng nếu có cùng chung dòng dữ liệu anh nhé!

สิ่งที่แนบมาดูและกล่าวแสดงความคิดเห็น

 

[NH_DK]

สิ่งที่แนบมาดูและกล่าวแสดงความคิดเห็น

Cám ơn anh Boyxin nhiều! Em đã làm được rồi. Hi...... Có gì anh cứ gox đầu em nhè nhẹ thôi nhé nếu không em lại quên thì......Hic hic......

 

[NH_DK]

Anh Boyxin ơi, anh xem lại dùm cho em với. Em đã kẻ bảng, và chèn chân trang rồi. Nhưng ko hiểu sao code sai chỗ nào mà chạy không ổn?
Anh xem lại cho em nhé!
Đây là code cộng tổng và số dư:

With Sheet2
    m = .Range("a65535").End(xlUp).Row
        .Range("G" & m + 1 & ":H" & m + 1) = "=SUM(R13C:R" & m & "C)"
        .Range("G" & m + 2) = "=MAX(G11+G" & m + 1 & "-H11-H" & m + 1 & ",0)"
        .Range("H" & m + 2) = "=MAX(H11+H" & m + 1 & "-G11-G" & m + 1 & ",0)"
    End With

Và còn đây là code kẻ dòng và tạo chân trang:

n = [d65535].End(xlUp).Row - 10
    Range([d1] & n).Clear 'Xoa dong ke?
    With [a12].Resize(n, 9)
    .BorderAround LineStyle:=1
    .Borders(11).LineStyle = 1: .Borders(11).ColorIndex = 5
    .Borders(12).LineStyle = 1: .Borders(12).ColorIndex = 5
    .Interior.ColorIndex = xlNone
    End With
    Sheet3.[a4:i9].Copy [a13].Offset(i - 1)

 

[NH_DK]

Anh Boyxin xem và sửa dùm cho em theo file này. Em đã sửa nhưng chưa được anh xem code em làm nhé!
(Anh giúp em chút nữa cho file hoàn chỉnh nhé!)

 

[boyxin]

Anh Boyxin ơi, anh xem lại dùm cho em với. Em đã kẻ bảng, và chèn chân trang rồi. Nhưng ko hiểu sao code sai chỗ nào mà chạy không ổn?
Anh xem lại cho em nhé!
Đây là code cộng tổng và số dư:

With Sheet2
    m = .Range("a65535").End(xlUp).Row
        .Range("G" & m + 1 & ":H" & m + 1) = "=SUM(R13C:R" & m & "C)"
        .Range("G" & m + 2) = "=MAX(G11+G" & m + 1 & "-H11-H" & m + 1 & ",0)"
        .Range("H" & m + 2) = "=MAX(H11+H" & m + 1 & "-G11-G" & m + 1 & ",0)"
    End With

Và còn đây là code kẻ dòng và tạo chân trang:

n = [d65535].End(xlUp).Row - 10
    Range([d1] & n).Clear 'Xoa dong ke?
    With [a12].Resize(n, 9)
    .BorderAround LineStyle:=1
    .Borders(11).LineStyle = 1: .Borders(11).ColorIndex = 5
    .Borders(12).LineStyle = 1: .Borders(12).ColorIndex = 5
    .Interior.ColorIndex = xlNone
    End With
    Sheet3.[a4:i9].Copy [a13].Offset(i - 1)

Như vầy mới được nè

' Ke dong
    eR = [d65535].End(xlUp).Row
    With [a13].Resize(eR - 12, 9)
        .BorderAround LineStyle:=1
        .Borders(11).LineStyle = 1: .Borders(11).ColorIndex = 5
        .Borders(12).LineStyle = 1: .Borders(12).ColorIndex = 5
    End With
' Tinh tong
    Sheet3.[a4:i9].Copy Cells(eR + 1, 1)
    Cells(eR + 1, "G").Resize(, 2).FormulaR1C1 = "=SUM(R13C:R[-1]C)"
    Cells(eR + 2, "G").FormulaR1C1 = "=MAX(R11C+R[-1]C-R11C[+1]-R[-1]C[+1],0)"
    Cells(eR + 2, "H").FormulaR1C1 = "=MAX(R11C+R[-1]C-R11C[-1]-R[-1]C[-1],0)"

Chi tiết xem trong file đính kèm...................... ........................

 

[NH_DK]

Như vầy mới được nè

' Ke dong
eR = [d65535].End(xlUp).Row
With [a13].Resize(eR - 12, 9)
.BorderAround LineStyle:=1
.Borders(11).LineStyle = 1: .Borders(11).ColorIndex = 5
.Borders(12).LineStyle = 1: .Borders(12).ColorIndex = 5
End With
' Tinh tong
Sheet3.[a4:i9].Copy Cells(eR + 1, 1)
Cells(eR + 1, "G").Resize(, 2).FormulaR1C1 = "=SUM(R13C:R[-1]C)"
Cells(eR + 2, "G").FormulaR1C1 = "=MAX(R11C+R[-1]C-R11C[+1]-R[-1]C[+1],0)"
Cells(eR + 2, "H").FormulaR1C1 = "=MAX(R11C+R[-1]C-R11C[-1]-R[-1]C[-1],0)"

Chi tiết xem trong file đính kèm...................... ........................

Anh ơi, cho em hỏi chút nữa anh nhé!
Sao em nhập tên tài khoản vào ô F4 là 1111 thì chạy tốt. Nhưng sao em nhập TK là: 111 thì nó báo có liên kết nào đó (em không biết) và không chạy được nữa?
Anh xem và xử lý dùm em nhé!
(Lỗi như hình dưới)

 

[boyxin]

Anh ơi, cho em hỏi chút nữa anh nhé!
Sao em nhập tên tài khoản vào ô F4 là 1111 thì chạy tốt. Nhưng sao em nhập TK là: 111 thì nó báo có liên kết nào đó (em không biết) và không chạy được nữa?
Anh xem và xử lý dùm em nhé!
(Lỗi như hình dưới)

XIN HỎI: trong DATA có dữ liệu nào ứng với tài khoản 111 không? Nếu không có thì sinh lỗi

• Không biết data của chú có những khả năng thế nào.
• Cũng không phải chuyên ngành của A.
• Cũng không biết là chú sẽ nhập cái quái quỷ gì vào ô F4

Nên khó có thể bẫy các lỗi cho chú được. Mong thông cảm

Thử với phương án này xem sao

 

[NH_DK]

XIN HỎI: trong DATA có dữ liệu nào ứng với tài khoản 111 không? Nếu không có thì sinh lỗi

• Không biết data của chú có những khả năng thế nào.
• Cũng không phải chuyên ngành của A.
• Cũng không biết là chú sẽ nhập cái quái quỷ gì vào ô F4

Nên khó có thể bẫy các lỗi cho chú được. Mong thông cảm

Thử với phương án này xem sao

Anh ơi vẫn 1 dòng nữa vẫn chưa kẻ được. Em phải sửa lại như thế nào?
(lỗi như hình dưới)