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 (1 người xem)

xuandongql · 22/8/14

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.

Ba Tê · 22/8/14

xuandongql đã viết:
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 xong chẳng hiểu làm gì.
Copy xong để nó trong bộ nhớ rồi tắt máy?

xuandongql · 24/8/14

cảm ơn bạn đã quan tâm , giờ thì mình miêu tả yêu cầu một cách chi tiết cho mõi người dễ hiểu nhé:
ở trong excel muốn copy dữ liệu thì ta cần thực hiện 2 bước:
b1: chọn vùng dự liễu cần copy
b2: thực hiện lệnh copy băng cách (c1:nhấn tổ hợp phím ctrl+c,c2: nháy chuột vào nút copy trên thanh công cụ,c3,c4....)
bây giờ mình muốn tạo một nút bấm mà nó có chức năng làm 2 nhiệm vụ trên, nếu dùng record macro thì mình làm được nhưng áp dụng cho nhiều file thì không được vì mỗi file có số hàng khác nhau, mình muốn nút bấm này phải biết tìm được vùng dữ liệu cần copy một cách tự động cho dù file đưa vào có số hàng khác nhau (ví dụ mình tạo một bảng dữ liệu bảng điểm học sinh gồm 100 hàng và 3 cột mình nhập đầy đủ thông tin cho 50em bao gồm TT,Họ tên , Điểm thi thì khi ấn vào nút náy nó sẽ copy cho mình vùng lựa chọn 50 em đó vì mình có rất nhiều file dự liệu có số TT hơn 1000 em nên việc rê chuột chọn dữ liệu cần copy là hơi lâu mà nhấn ctrl+a thì không phải yêu cầu của mình), mình mong mõi người quan tâm và giúp đỡ giúp mình với nhé.

chuot0106 · 24/8/14

xuandongql đã viết:
cảm ơn bạn đã quan tâm , giờ thì mình miêu tả yêu cầu một cách chi tiết cho mõi người dễ hiểu nhé:
ở trong excel muốn copy dữ liệu thì ta cần thực hiện 2 bước:
b1: chọn vùng dự liễu cần copy
b2: thực hiện lệnh copy băng cách (c1:nhấn tổ hợp phím ctrl+c,c2: nháy chuột vào nút copy trên thanh công cụ,c3,c4....)
bây giờ mình muốn tạo một nút bấm mà nó có chức năng làm 2 nhiệm vụ trên, nếu dùng record macro thì mình làm được nhưng áp dụng cho nhiều file thì không được vì mỗi file có số hàng khác nhau, mình muốn nút bấm này phải biết tìm được vùng dữ liệu cần copy một cách tự động cho dù file đưa vào có số hàng khác nhau (ví dụ mình tạo một bảng dữ liệu bảng điểm học sinh gồm 100 hàng và 3 cột mình nhập đầy đủ thông tin cho 50em bao gồm TT,Họ tên , Điểm thi thì khi ấn vào nút náy nó sẽ copy cho mình vùng lựa chọn 50 em đó vì mình có rất nhiều file dự liệu có số TT hơn 1000 em nên việc rê chuột chọn dữ liệu cần copy là hơi lâu mà nhấn ctrl+a thì không phải yêu cầu của mình), mình mong mõi người quan tâm và giúp đỡ giúp mình với nhé.

Bạn đưa File giả lập nên đi. Tôi sẽ giúp! Mà copy từ đâu và để vào đâu vậy? Bạn miêu tả rõ ràng ra nếu muốn nhanh có kết quả!

xuandongql · 24/8/14

Mõi người xem ở file đính kèm nhé :
Khi nháy chuột vào nút Copy dữ liệu thì nó tự chọn vùng dữ liệu như bôi đỏ trong file đính kèm , nếu cố định dòng chọn thì mình làm được , còn bây giờ mình đánh thêm thông tin cho 4 em hoặc nhiều hơn nữa thì nó chọn vùng chọn thêm 4 em hoặc nhiều hơn nữa để copy (Không copy các ô không có dự liệu phía dưới), có nghĩa nếu cột TT mà có dữ liệu thì nó sẽ copy.

diemhuyenanh · 24/8/14

Copy xong cho vào đâu hả người, đút túi hay là cho vào sheet nào. file của bạn bị lỗi không mở được vba

xuandongql · 24/8/14

chỉ cần copy thôi bạn ơi , còn để vào đâu thì mình sẽ bỏ , bạn có thể giúp mình tạo một nút bấm để khi nháy vào nút bấm đó thì nó dán dữ liệu vào sheet2 chẳng hạn, file mẫu có tên là book 1 trong file đính kèm các bạn nhé, có phải yêu cầu cần giúp đỡ của mình quá khó làm mõi người mất nhiều công sức , cảm ơn mõi người nhiêu nhé.

Ba Tê · 24/8/14

xuandongql đã viết:
chỉ cần copy thôi bạn ơi , còn để vào đâu thì mình sẽ bỏ , bạn có thể giúp mình tạo một nút bấm để khi nháy vào nút bấm đó thì nó dán dữ liệu vào sheet2 chẳng hạn, file mẫu có tên là book 1 trong file đính kèm các bạn nhé, có phải yêu cầu cần giúp đỡ của mình quá khó làm mõi người mất nhiều công sức , cảm ơn mõi người nhiêu nhé.

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.

chỉ cần copy thôi bạn ơi

[GPECODE=vb]Public Sub Copyyy()
Range([A5], [A65536].End(xlUp)).Resize(, 45).Copy
End Sub
[/GPECODE]

Quang_Hải · 24/8/14

xuandongql đã viết:
chỉ cần copy thôi bạn ơi , còn để vào đâu thì mình sẽ bỏ , bạn có thể giúp mình tạo một nút bấm để khi nháy vào nút bấm đó thì nó dán dữ liệu vào sheet2 chẳng hạn, file mẫu có tên là book 1 trong file đính kèm các bạn nhé, có phải yêu cầu cần giúp đỡ của mình quá khó làm mõi người mất nhiều công sức , cảm ơn mõi người nhiêu nhé.

Mấy đoạn code bên trong bạn hay quá. Lâu rồi mới thấy đoạn code hay.

PHP:

Function NamNhuan(ByVal Nam As Integer) As Integer
    If Nam Mod 400 = 0 Then
        NamNhuan = 1
    Else
        If Nam Mod 100 = 0 Then
        NamNhuan = 0
        Else
            If Nam Mod 4 = 0 Then
            NamNhuan = 1
            End If
        End If
    End If
End Function
Function ProperUni(uni As String) As String
Dim vt As Long
If Trim(uni) = "" Then
  ProperUni = uni
Else
  uni = LCase(uni)
  Mid(uni, 1, 1) = UCase(Mid(uni, 1, 1))
  Do
    vt = InStr(vt + 1, uni, " ")
    If vt = 0 Then Exit Do
    Mid(uni, vt + 1, 1) = UCase(Mid(uni, vt + 1, 1))
  Loop
  ProperUni = uni
End If
End Function

Người ấy không biết là mình có thể bẻ khóa VBA trong 5s. ka ka

xuandongql · 24/8/14

cảm ơn bạn Ba tê rất nhiễu nhé vì đã hiểu được ý của mình và cho code rất tốt, bạn cho mình code dán dữ liệu vừa copy vào sheel1 và chỉ lấy giá trị của nó ( giống như ta dùng lệnh paste Special và chọn Values), xin cảm ơn các bạn nhiều.

Ba Tê · 24/8/14

xuandongql đã viết:
cảm ơn bạn đã hiểu được ý của mình , code của bạn kha tốt , vì file dữ liệu của mình cần copy bắt đầu từ ô b5 , và có thêm một cột ghi chú nữa, còn cột a đầu tiên để trống không copy , mình đã chỉnh trong code của bạn a5 thành b5, resize( , 45)thành Resize(, 46)mà không được bạn giúp mình nhé.

Cảm ơn đã quá khen là "kha tốt"
[GPECODE=vb]Public Sub Copyyy()
Range([B5], [B65536].End(xlUp)).Resize(, 45).Copy
End Sub[/GPECODE]

Quang_Hải · 24/8/14

Ba Tê đã viết:
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]

Vậy mà anh cũng code ra được hay thiệt. Em nhìn thấy code anh không được nhưng không méc đâu. Anh biết sao không, cột A chứa công thức dài tè lè khúc dưới nên không end (xlup) được. Nhưng em giận rồi không nói anh nghe đâu.

Ba Tê · 24/8/14

quanghai1969 đã viết:
Vậy mà anh cũng code ra được hay thiệt. Em nhìn thấy code anh không được nhưng không méc đâu. Anh biết sao không, cột A chứa công thức dài tè lè khúc dưới nên không end (xlup) được. Nhưng em giận rồi không nói anh nghe đâu.

Học "quái chiêu" của Quang Hải đó thôi.
Uả! mà file nào có công thức tè lè ta?

Quang_Hải · 24/8/14

Ba Tê đã viết:
Học "quái chiêu" của Quang Hải đó thôi.
Uả! mà file nào có công thức tè lè ta?

Tại em nhìn cái comment là em biết file thật sẽ có công thức tự động tạo STT. Cộng thêm suy luận từ bài viết số 1 nên gieo quẻ thui.

ptt · 24/8/14

Em ko bít về code, nhưng có mò đc ra cái code này:

PHP:

Sub Copy()
    Sheets("Sheet1").Select    
    Selection.SpecialCells(xlCellTypeVisible).Select
    Range("B1:AT65536").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Paste
End Sub

Ko bít có ổn ko ạ? --=0

Ba Tê · 24/8/14

ptt đã viết:
Em ko bít về code, nhưng có mò đc ra cái code này:

PHP:

Sub Copy() Sheets("Sheet1").Select Selection.SpecialCells(xlCellTypeVisible).Select Range("B1:AT65536").Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste End Sub

Ko bít có ổn ko ạ?

Người ta chỉ cần Copy những dòng có dữ liệu chứ không phải từ dòng 1 đến tuốt xuống 65536 đâu.

Quang_Hải · 24/8/14

Ba Tê đã viết:
Người ta chỉ cần Copy những dòng có dữ liệu chứ không phải từ dòng 1 đến tuốt xuống 65536 đâu.

Đừng làm em nó sợ mà. 2 năm trước em cũng bắt đầu y chang vậy đó. Sai thì chết em nào xài, chứ người viết có chết đâu mà sợ chứ. Bởi vậy em phang ào ào. Trúng thì trúng, trật thì xí hụt.

xuandongql · 25/8/14

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

Quang_Hải · 25/8/14

xuandongql đã viết:
..... 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é.

Trong topic này mình chưa đưa ra 1 đoạn nào à nghen. Vu oan hả?
Muốn copy và dán giá trị thì có thể nghiên cứu theo hướng này rồi sửa lại cho đúng yêu cầu thật của bạn.

PHP:

With Sheet1
  .Range("A5",.[B65536].End(3).Offset(,44)).Copy
  Sheet2.[A5].PasteSpecial 3
End With

Kiều Mạnh · 25/8/14

quanghai1969 đã viết:

Mấy đoạn code bên trong bạn hay quá. Lâu rồi mới thấy đoạn code hay.

PHP:

Function NamNhuan(ByVal Nam As Integer) As Integer
    If Nam Mod 400 = 0 Then
        NamNhuan = 1
    Else
        If Nam Mod 100 = 0 Then
        NamNhuan = 0
        Else
            If Nam Mod 4 = 0 Then
            NamNhuan = 1
            End If
        End If
    End If
End Function
Function ProperUni(uni As String) As String
Dim vt As Long
If Trim(uni) = "" Then
  ProperUni = uni
Else
  uni = LCase(uni)
  Mid(uni, 1, 1) = UCase(Mid(uni, 1, 1))
  Do
    vt = InStr(vt + 1, uni, " ")
    If vt = 0 Then Exit Do
    Mid(uni, vt + 1, 1) = UCase(Mid(uni, vt + 1, 1))
  Loop
  ProperUni = uni
End If
End Function

Người ấy không biết là mình có thể bẻ khóa VBA trong 5s. ka ka

Em thử mở file đó Xem ngoài mấy code hay còn thấy trong đó một rừng code nữa mới ghê chứ ...coi chóng cả mặt Anh

Ba Tê · 25/8/14

xuandongql đã viết:
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 à".

Kiều Mạnh · 25/8/14

Ba Tê đã viết:
"dzô dziên" à nghe!
Bài #8 và bài #11 tui không có paste đi đâu hết à nghe.
"Quạu à".

Có Paste trong Clipboard đó Anh

traicauhd · 25/8/14

Ba Tê đã viết:
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

Kiều Mạnh · 25/8/14

traicauhd đã viết:
lam the nao để sửa cho nó copyy sheet khác vậy bạn

Sửa lại vầy coi

PHP:

Public Sub Copyyy()
Range([A5], [A65536].End(xlUp)).Resize(, 45).Copy
Sheet2.Range("A5").PasteSpecial 3
End Sub

xuandongql · 25/8/14

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

Quang_Hải · 25/8/14

Anh Ba Tê ơi lo tiếp vụ này nha. Em zọt đây.

Ba Tê · 25/8/14

xuandongql đã viết:
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?

xuandongql · 25/8/14

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

Ba Tê · 25/8/14

xuandongql đã viết:
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:

xuandongql đã viết:
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

Quang_Hải · 25/8/14

Ba Tê đã viết:
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

traicauhd · 25/8/14

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

Ba Tê · 25/8/14

quanghai1969 đã viết:

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

Ba Tê · 25/8/14

traicauhd đã viết:
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]

Quang_Hải · 26/8/14

Ba Tê đã viết:
Ă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

Kiều Mạnh · 26/8/14

Ba Tê đã viết:
......................................................................................
[GPECODE=vb]Public Sub Copyyy()
Range([A5], [A65536].End(xlUp)).Copy
End Sub
[/GPECODE]

Lại Thêm Vụ này nữa kiểu gì tác giả cũng la làng lên cho Anh coi...HicHicHic

xuandongql · 26/8/14

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.

hoanglong1997111 · 18/10/20

Ba Tê đã viết:
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

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 (1 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

Cạo Rồi Khỏi Gội

Thành viên mới

Thành viên gắn bó

Thành viên mới

File đính kèm

Thành viên hoạt động

Thành viên mới

File đính kèm

Cạo Rồi Khỏi Gội

Thành viên gạo cội

Thành viên mới

Cạo Rồi Khỏi Gội

Thành viên gạo cội

Cạo Rồi Khỏi Gội

Thành viên gạo cội

Thành viên mới

Cạo Rồi Khỏi Gội

Thành viên gạo cội

Thành viên mới

Thành viên gạo cội

I don't program, I beat code into submission!!!

Cạo Rồi Khỏi Gội

I don't program, I beat code into submission!!!

Thành viên mới

I don't program, I beat code into submission!!!

Thành viên mới

Thành viên gạo cội

Cạo Rồi Khỏi Gội

Thành viên mới

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên gạo cội

Thành viên mới

Cạo Rồi Khỏi Gội

Cạo Rồi Khỏi Gội

Thành viên gạo cội

I don't program, I beat code into submission!!!

Thành viên mới

Thành viên mới

Thời gian đếm ngược.