Hướng dẫn cách tạo nút bấm tự động copy tất cả các ô có chứa dự liệu trong bảng tính

Liên hệ QC

xuandongql

Thành viên mới
Tham gia
18/11/13
Bài viết
20
Được thích
0
Mõi người hướng dẫn mình cách tạo một nút bấm mà khi nhấn chuột vào đó thì nó sẽ copy tất cả các ô chứa dữ liệu trong bảng tính , mình xin chân thành cảm ơn.
 
cảm ơn anh ba tê và quang hải nhiều , code trên nó copy và paste dữ liệu bắt đầu từ ô a1, em muốn nó paste bắt đầu tờ ô b5 ở sheet2, thứ 2 là code của anh quảng hải paste dữ liệu vào sheet2 nó paste tất cả định dạng của bảng tính luôn gồm cả màu , kích cỡ,......, còn mình thì chỉ muốn khi paste sang sheet2 nó chỉ paste dữ liệu của bảng tính thôi không paste cả định dạng của nó,các anh nghiên cứu giúp em nhé.
"dzô dziên" à nghe!
Bài #8 và bài #11 tui không có paste đi đâu hết à nghe.
"Quạu à".
 
Upvote 0
Chuyện nhỏ còn hơn con thỏ, nhưng với ý muốn "kỳ khôi" của bạn thì mọi người không khỏi "sốc" nên hỏi tới hỏi lui vậy thôi.
Tặng bạn cái Sub này vì không làm trên file bạn được.

[GPECODE=vb]Public Sub Copyyy()
Range([A5], [A65536].End(xlUp)).Resize(, 45).Copy
End Sub
[/GPECODE]
lam the nao để sửa cho nó copyy sheet khác vậy bạn
 
Upvote 0
xin lỗi bạn quang hải nhé , đêm khuya nhìn nhầm comet , code copy đến sheet khác trong cùng bảng tính thì coi như đã ok rồi, cảm ơn mõi người nhiều nhé,bây giờ nhờ cả nhà giúp mình code copy dữ liệu từ file book1 đính kèm ở #7 sang file mẫu đính kèm ở #5 (2 file đặt trong cùng một thư mục ), ở file book1 copy từ ô b5 ,dán vào file mầu bắt đầu từ ô b5 , dán theo kiểu chỉ lấy giá trị không lấy các định dạng và công thức, mong cả nhà giúp mình nhé.
 
Lần chỉnh sửa cuối:
Upvote 0
Anh Ba Tê ơi lo tiếp vụ này nha. Em zọt đây.
 
Upvote 0
xin lỗi bạn quang hải nhé , đêm khuya nhìn nhầm comet , code copy đến sheet khác trong cùng bảng tính thì coi như đã ok rồi, cảm ơn mõi người nhiều nhé,bây giờ nhờ cả nhà giúp mình code copy dữ liệu từ file book1 đính kèm ở #7 sang file mẫu đính kèm ở #5 (2 file đặt trong cùng một thư mục ), ở file book1 copy từ ô b5 ,dán vào file mầu bắt đầu từ ô b5 , dán theo kiểu chỉ lấy giá trị không lấy các định dạng và công thức, mong cả nhà giúp mình nhé.
Sao từ bài #1 bạn không hỏi luôn như vầy mà cứ hỏi lòng vòng đến bài #25 mới đi đến chuyện này?
 
Upvote 0
thành thật xin lỗi anh , hôm trước em nghỉ được mõi ngươì giúp đỡ đến thế là tốt rồi , song kết quả ngoài mong đợi đối với em , cảm ơn một lần nữa sự giúp đỡ của mõi người đặc biệt là 2 anh ba tê va quang hải , trong khi làm em lại phát sinh ra ý tưởng mới nên mạnh giản hỏi các anh nhờ các anh giúp đỡ , nếu được thì vui quá còn không được thì cùng đành chịu vậy , mong anh ba tê hiểu cho em nhé.
 
Upvote 0
thành thật xin lỗi anh , hôm trước em nghỉ được mõi ngươì giúp đỡ đến thế là tốt rồi , song kết quả ngoài mong đợi đối với em , cảm ơn một lần nữa sự giúp đỡ của mõi người đặc biệt là 2 anh ba tê va quang hải , trong khi làm em lại phát sinh ra ý tưởng mới nên mạnh giản hỏi các anh nhờ các anh giúp đỡ , nếu được thì vui quá còn không được thì cùng đành chịu vậy , mong anh ba tê hiểu cho em nhé.
Từ bài #1 đến bài #5 là mọi người đều biết là sau khi Copy thì sẽ làm tiếp cái Paste vào 1 chỗ nào đó, hỏi bạn mà gặp câu này thì bó tay:
chỉ cần copy thôi bạn ơi , còn để vào đâu thì mình sẽ bỏ...
Từ đầu bạn đưa 2 file lên và nêu yêu cầu cần giúp thì chỉ 1 bài trả lời là xong rồi, đấu đến giờ này.
Tôi làm cái nút trong FileMau2.xls
Bấm nút sẽ mở FileMau1.xls lên và copy dữ liệu trừ FileMau2.xls sang FileMau1.xls
Chú ý là cả 2 file phải cùng trong 1 thư mục
 

File đính kèm

  • GPE.rar
    85.4 KB · Đọc: 70
Upvote 0
Từ bài #1 đến bài #5 là mọi người đều biết là sau khi Copy thì sẽ làm tiếp cái Paste vào 1 chỗ nào đó, hỏi bạn mà gặp câu này thì bó tay:

Từ đầu bạn đưa 2 file lên và nêu yêu cầu cần giúp thì chỉ 1 bài trả lời là xong rồi, đấu đến giờ này.
Tôi làm cái nút trong FileMau2.xls
Bấm nút sẽ mở FileMau1.xls lên và copy dữ liệu trừ FileMau2.xls sang FileMau1.xls
Chú ý là cả 2 file phải cùng trong 1 thư mục
Bị ế độ quá nên sửa code của anh Ba Tê lại miếng coi
PHP:
Public Sub GPE_()
Dim myPath As String, MyBook As String
Dim Sarr(), DK As Boolean, Wbk As Workbook
Sarr = Range([B5], [B5].End(xlDown)).Resize(, 45).Value
MyBook = "FileMau1.xls"
myPath = ThisWorkbook.Path & "\"
For Each Wbk In Workbooks
    If Wbk.Name = MyBook Then DK = True
Next Wbk
If DK = False Then Workbooks.Open myPath & MyBook
With Workbooks(MyBook)
   .Sheets("MauNhapLieu").[B5].Resize(UBound(Sarr), 45) = Sarr
   .Close True
End With
End Sub
 
Upvote 0
Public Sub Copyyy()
Range([A5], [A65536].End(xlUp)).Resize(, 45).Copy
End Sub
giúp em với em muốn chỉ copyy hàng dọc cột a không copy hang ngang sửa cho em với
em cảm ơn
 
Upvote 0
Bị ế độ quá nên sửa code của anh Ba Tê lại miếng coi
PHP:
Public Sub GPE_()
Dim myPath As String, MyBook As String
Dim Sarr(), DK As Boolean, Wbk As Workbook
Sarr = Range([B5], [B5].End(xlDown)).Resize(, 45).Value
MyBook = "FileMau1.xls"
myPath = ThisWorkbook.Path & "\"
For Each Wbk In Workbooks
    If Wbk.Name = MyBook Then DK = True
Next Wbk
If DK = False Then Workbooks.Open myPath & MyBook
With Workbooks(MyBook)
   .Sheets("MauNhapLieu").[B5].Resize(UBound(Sarr), 45) = Sarr
   .Close True
End With
End Sub
Ăn cỗ đi trước, lội nước theo sau.
Mở đường rồi "chà láng" lại thì ẹc ẹc...
Code mà ngắn gọn quá đâu có "hoành tráng"
Thêm màu mè cho thêm phần Lu xu bu.
[GPECODE=vb]Public Sub GPE_()
Application.ScreenUpdating = False
Dim myPath As String, MyBook As String
Dim Sarr(), DK As Boolean, Wbk As Workbook
Sarr = Range([B5], [B5].End(xlDown)).Resize(, 45).Value
MyBook = "FileMau1.xls"
myPath = ThisWorkbook.Path & "\"
For Each Wbk In Workbooks
If Wbk.Name = MyBook Then DK = True
Next Wbk
If DK = False Then Workbooks.Open myPath & MyBook
With Workbooks(MyBook)
.Sheets("MauNhapLieu").[B5].Resize(UBound(Sarr), 45) = Sarr
.Close True
End With
MsgBox "Copy goi, kiem cha lai coi, cam on!", , "GIAIPHAPEXCEL"
End Sub[/GPECODE]
HÍ hí..................
 
Upvote 0
Public Sub Copyyy()
Range([A5], [A65536].End(xlUp)).Resize(, 45).Copy
End Sub
giúp em với em muốn chỉ copyy hàng dọc cột a không copy hang ngang sửa cho em với
em cảm ơn
......................................................................................
[GPECODE=vb]Public Sub Copyyy()
Range([A5], [A65536].End(xlUp)).Copy
End Sub
[/GPECODE]
 
Upvote 0
Ăn cỗ đi trước, lội nước theo sau.
Mở đường rồi "chà láng" lại thì ẹc ẹc...
Code mà ngắn gọn quá đâu có "hoành tráng"
Thêm màu mè cho thêm phần Lu xu bu.
Cái này mới thiệt là luxubu nè, hiccc
Em nhìn mà còn muốn ói nè.
PHP:
Sub Copyyy()
Dim ADOobject As Object, StrRequest As String, RS As Object
Dim Provider As String, Source As String, Ext As String
Set ADOobject = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Source = "Data Source=" & ThisWorkbook.FullName
Ext = ";Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"";"
ADOobject.ConnectionString = Provider & Source & Ext
ADOobject.Open
StrRequest = "INSERT INTO [MauNhapLieu$B4:AT65536] IN '" _
& ThisWorkbook.Path & "\FileMau1.xls ' 'Excel 8.0;'" _
& "SELECT * FROM [Sheet1$B5:AT65536]"
RS.Open StrRequest, ADOobject, 3, 1
Set RS = Nothing
ADOobject.Close: Set ADOobject = Nothing
End Sub
 
Upvote 0
cảm ơn anh ba tê nhiều nhiều , chúc anh và gia đình luôn mạnh khỏe hạnh phúc , thành công trong cuộc sống.
 
Upvote 0
Chuyện nhỏ còn hơn con thỏ, nhưng với ý muốn "kỳ khôi" của bạn thì mọi người không khỏi "sốc" nên hỏi tới hỏi lui vậy thôi.
Tặng bạn cái Sub này vì không làm trên file bạn được.

[GPECODE=vb]Public Sub Copyyy()
Range([A5], [A65536].End(xlUp)).Resize(, 45).Copy
End Sub
[/GPECODE]
ý nghĩ dòng code là s z anh/ chị.. cho e hỏi 1 câu hơi ngu xíu
 
Upvote 0
Web KT
Back
Top Bottom