Xuất dữ liệu từ tab này sang tab khác để tổng hợp. (1 người xem)

[phitrieu91]

Mình có tab sheet 1 là nơi chứa giá trị nhập và các thông số được tính dựa vào giá trị này. Khi thay đổi "giá trị" thì các thông số khác cũng thay đổi theo luôn.
Vì thế, mình lập tab sheet 2 sẽ tổng hợp các thông số của sheet 1, khi có sự thay đổi giá trị. Giống như môt tab ghi sự kiện vậy.

Mình định lập 1 commandbutton để sau khi thay đổi giá trị, thì các thông số sẽ tự điền qua ô sheet 2.

File cần trợ giúp và hi vọng các cao thu sẽ giup đỡ, cảm ơn mọi nguoi rất nhiều.

 

[Kiều Mạnh]

Viết tiêu đề sai tè le ....Phải là Sheet chứ Sao lại là Tab ...........kiểu này khóa quá
Mình nghĩ Bạn xài hàm đi ...còn nếu thích code thì mình viết cho

 

[doveandrose]

Viết tiêu đề sai tè le ....Phải là Sheet chứ Sao lại là Tab ...........kiểu này khóa quá
Mình nghĩ Bạn xài hàm đi ...còn nếu thích code thì mình viết cho

dạ em thích code lắm anh Mạnh ơi . viết cho em cái code cho nó "mạnh" đi .

 

[Kiều Mạnh]

dạ em thích code lắm anh Mạnh ơi . viết cho em cái code cho nó "mạnh" đi .

xí hổ rồi ..........Ứ viết.............

 

[phitrieu91]

Viết tiêu đề sai tè le ....Phải là Sheet chứ Sao lại là Tab ...........kiểu này khóa quá
Mình nghĩ Bạn xài hàm đi ...còn nếu thích code thì mình viết cho

haha, em nhầm nhọt xíu. Mình muốn dùng code hơn, có nút bấm để dễ quản lý, và cho nó "mạnh" nữa )

 

[Kiều Mạnh]

haha, em nhầm nhọt xíu. Mình muốn dùng code hơn, có nút bấm để dễ quản lý, và cho nó "mạnh" nữa )

Hỏi lại một tị ........Bạn làm gì cho ra giá trị Sheet2 là:
[TABLE="width: 160"]
[TR]
[TD="width: 80"]a[/TD]
[TD="class: xl63, width: 80, align: right"]100[/TD]
[/TR]
[TR]
[TD]b[/TD]
[TD="class: xl63, align: right"]25[/TD]
[/TR]
[TR]
[TD]c[/TD]
[TD="class: xl63, align: right"]35[/TD]
[/TR]
[TR]
[TD]d[/TD]
[TD="class: xl63, align: right"]45[/TD]
[/TR]
[TR]
[TD]e[/TD]
[TD="class: xl63, align: right"]55[/TD]
[/TR]
[/TABLE]

 

[ndu96081631]

Hỏi lại một tị ........Bạn làm gì cho ra giá trị Sheet2 là:
[TABLE="width: 160"]
[TR]
[TD="width: 80"]a[/TD]
[TD="class: xl63, width: 80, align: right"]100[/TD]
[/TR]
[TR]
[TD]b[/TD]
[TD="class: xl63, align: right"]25[/TD]
[/TR]
[TR]
[TD]c[/TD]
[TD="class: xl63, align: right"]35[/TD]
[/TR]
[TR]
[TD]d[/TD]
[TD="class: xl63, align: right"]45[/TD]
[/TR]
[TR]
[TD]e[/TD]
[TD="class: xl63, align: right"]55[/TD]
[/TR]
[/TABLE]

Cái vùng dữ liệu đó đã có trước rồi đại ca à! Và người ta làm gì để có những giá trị đó thì.. thây kệ người ta đi. Việc của mình chỉ là: Copy B1:B6 bên shéet1, paste vào cột liền kề ở Sheet2 là được rồi

 

[Kiều Mạnh]

Cái vùng dữ liệu đó đã có trước rồi đại ca à! Và người ta làm gì để có những giá trị đó thì.. thây kệ người ta đi. Việc của mình chỉ là: Copy B1:B6 bên shéet1, paste vào cột liền kề ở Sheet2 là được rồi

Em cũng ko biết vậy có phải là ý họ ko nữa .... nếu sai tính tiếp.......

Sub CopyABC()
Sheet1.Range("B1:B6").Copy
Sheet2.Columns("A:BO").End(2).Offset(, 1).PasteSpecial Paste:=xlPasteValues
End Sub

 

[doveandrose]

đúng là "mạnh" như anh Mạnh . há há

 

[phitrieu91]

Em cũng ko biết vậy có phải là ý họ ko nữa .... nếu sai tính tiếp.......

Sub CopyABC()
Sheet1.Range("B1:B6").Copy
Sheet2.Columns("A:BO").End(2).Offset(, 1).PasteSpecial Paste:=xlPasteValues
End Sub

Mình không hiểu lắm, code trên là chép vào button nằm trong khung

Private Sub CommandButton1_Click()

End Sub

phải không anh Mạnh ? )
------------
nhưng mà đoạn code trên ko có việc, nếu nhập vào ô B1 bên sheet1 giá trị khác, thì giá trị chép sang sheet 2 sẽ bị ghi đè lên, chứ không phải là ghi vào cột liền kề của cột giá trị cũ ,..
--
Giúp mình hen

 

[Kiều Mạnh]

Mình không hiểu lắm, code trên là chép vào button nằm trong khung

phải không anh Mạnh ? )
------------
nhưng mà đoạn code trên ko có việc, nếu nhập vào ô B1 bên sheet1 giá trị khác, thì giá trị chép sang sheet 2 sẽ bị ghi đè lên, chứ không phải là ghi vào cột liền kề của cột giá trị cũ ,..
--
Giúp mình hen

Thích đè hả .... vậy đi........xong tính tiếp

Sheet2.[B1:B6].Value = Sheet1.[B1:B6].Value

 

[phitrieu91]

okay, đã giải quyết được vấn đề. Cảm ơn a mạnh nhiều
----------
Thêm 1 lần sướng nứa :
Giải thích giùm e đoạn code này được không ??

Sheet2.Columns("A:BO").End(2).Offset(, 1).PasteSpecial Paste:=xlPasteValues

 

[Kiều Mạnh]

okay, đã giải quyết được vấn đề. Cảm ơn a mạnh nhiều
----------
Thêm 1 lần sướng nứa :
Giải thích giùm e đoạn code này được không ??

Mình là dân mê code két....không được học hành đến nơi đến chốn ....vậy giải thích theo kiểu lão nông nha
1/ bắt đầu từ Cột A đến Cột BO
2/ End(2) là bên phải màn hình
3/ Offset(,1) là từ cột A đến cột có dữ liệu lấy qua một cột là cột ko có dữ liệu Paste vào đó
4/ Paste:=xlPasteValues là Chỉ Paste giá trị của nó

 

[phitrieu91]

Mình là dân mê code két....không được học hành đến nơi đến chốn ....vậy giải thích theo kiểu lão nông nha
1/ bắt đầu từ Cột A đến Cột BO
2/ End(2) là bên phải màn hình
3/ Offset(,1) là từ cột A đến cột có dữ liệu lấy qua một cột là cột ko có dữ liệu Paste vào đó
4/ Paste:=xlPasteValues là Chỉ Paste giá trị của nó

Thật tuyệt vời, thật không thể tin được. Cảm ơn anh @kieu manh rất nhiều

 

[phitrieu91]

Biết khi nào mới được như anh "Mạnh" , giải quyết giúp đỡ mọi người e xcel đây . Hiện tại e đang tham khảo cuốn "Giáo trình tự động hóa thiết kế cầu đường" về VBA , không biết anh có cuốn nào đọc dễ hiểu hơn và ví dụ nhiều hơn không anh .

 

[Kiều Mạnh]

Biết khi nào mới được như anh "Mạnh" , giải quyết giúp đỡ mọi người e xcel đây . Hiện tại e đang tham khảo cuốn "Giáo trình tự động hóa thiết kế cầu đường" về VBA , không biết anh có cuốn nào đọc dễ hiểu hơn và ví dụ nhiều hơn không anh .

vấn đề là bạn có đam mê hay không thôi....... GPE là môi trường tốt nhất cho Bạn hoc......không có Thầy, Bà hay trường lớp nào hội đủ kiến thức Bằng GPE cả..........Từ từ học đi nha....chúc thành công