Nhờ viết code paste values cho tất cả các sheet

alibaba2209 · 28/8/15

Mình muốn 1 code paste values cho all sheet trong 1 file cell!
à! thêm code trước khi lệnh thực hiện thì nó sẽ hỏi bạn có chắc chắn muốn paste valuescho all sheet "yes or no"
mong được giúp đỡ.. xin chân thành cảm ơn

khongnhienttt · 28/8/15

có phải bạn muốn như vầy: https://www.dropbox.com/s/4fdrrc1wtnjetz6/code copy pastespecial for all sheet.xls?dl=0

Mã:

Option Explicit
Sub Rectangle2_Click()
Dim ws As Worksheet, str As String
str = ActiveSheet.Name
ActiveSheet.Cells.Copy
For Each ws In Worksheets
    If ws.Name <> str Then
        ws.Cells.PasteSpecial Paste:=xlPasteValues
    End If
Next ws
Application.CutCopyMode = False
Sheets(str).Select
Sheets(str).Range("a1").Select
End Sub

alibaba2209 · 28/8/15

khongnhienttt đã viết:
có phải bạn muốn như vầy: https://www.dropbox.com/s/4fdrrc1wtnjetz6/code copy pastespecial for all sheet.xls?dl=0

Mã:

Option Explicit Sub Rectangle2_Click() Dim ws As Worksheet, str As String str = ActiveSheet.Name ActiveSheet.Cells.Copy For Each ws In Worksheets If ws.Name <> str Then ws.Cells.PasteSpecial Paste:=xlPasteValues End If Next ws Application.CutCopyMode = False Sheets(str).Select Sheets(str).Range("a1").Select End Sub

Code chạy bị lỗi linh tinh bạn à, mất hết cả số liệu trong file, bạn xem lại dùm

autokiss · 28/8/15

alibaba2209 đã viết:
Code chạy bị lỗi linh tinh bạn à, mất hết cả số liệu trong file, bạn xem lại dùm

Oh cách nói của bạn...

alibaba2209 · 28/8/15

autokiss đã viết:
Oh cách nói của bạn...

không đúng như ý mình cần yêu cầu bạn à.. code trên còn bị lỗi nữa

ndu96081631 · 28/8/15

alibaba2209 đã viết:
Mình muốn 1 code pase valure cho all sheet trong 1 file cell!
à! thêm code trước khi lệnh thực hiện thì nó sẽ hỏi bạn có chắc chắn muốn pase valure cho all sheet "yes or no"
mong được giúp đỡ.. xin chân thành cảm ơn

Điều đầu tiên mà bạn nên làm là đưa lên đây file dữ liệu để mọi người test code nhé

alibaba2209 · 28/8/15

ndu96081631 đã viết:
Điều đầu tiên mà bạn nên làm là đưa lên đây file dữ liệu để mọi người test code nhé

dạ vâng! file có code rồi anh à..

PhanTuHuong · 28/8/15

Bạn học lậi tiếng Anh trước khi viết bài nhé!

alibaba2209 · 28/8/15

PhanTuHuong đã viết:
Bạn học lậi tiếng Anh trước khi viết bài nhé!

à! nhầm.. cảm ơn
Paste Values

ndu96081631 · 28/8/15

alibaba2209 đã viết:
dạ vâng! file có code rồi anh à..

Thử code thế này xem:

Mã:

Sub ValueAll()
  Dim Ans As VbMsgBoxResult, wks As Worksheet
  On Error Resume Next
  Ans = MsgBox("Ban muon paste values tat ca các sheet?", vbYesNo)
  If Ans = vbYes Then
    Application.ScreenUpdating = False
    For Each wks In ThisWorkbook.Worksheets
      wks.Unprotect
      wks.AutoFilterMode = False
      wks.UsedRange.Value = wks.UsedRange.Value
    Next
    Application.ScreenUpdating = True
    MsgBox "Da chuyen xong!"
  End If
End Sub

alibaba2209 · 28/8/15

ndu96081631 đã viết:

Thử code thế này xem:

Mã:

Sub ValueAll()
  Dim Ans As VbMsgBoxResult, wks As Worksheet
  On Error Resume Next
  Ans = MsgBox("Ban muon paste values tat ca các sheet?", vbYesNo)
  If Ans = vbYes Then
    Application.ScreenUpdating = False
    For Each wks In ThisWorkbook.Worksheets
      wks.Unprotect
      wks.AutoFilterMode = False
      wks.UsedRange.Value = wks.UsedRange.Value
    Next
    Application.ScreenUpdating = True
    MsgBox "Da chuyen xong!"
  End If
End Sub

Vâng thưa thầy! đúng theo nguyện vọng của em rồi.. cảm ơn thầy nhiều.

alibaba2209 · 28/8/15

ndu96081631 đã viết:

Thử code thế này xem:

Mã:

Sub ValueAll()
  Dim Ans As VbMsgBoxResult, wks As Worksheet
  On Error Resume Next
  Ans = MsgBox("Ban muon paste values tat ca các sheet?", vbYesNo)
  If Ans = vbYes Then
    Application.ScreenUpdating = False
    For Each wks In ThisWorkbook.Worksheets
      wks.Unprotect
      wks.AutoFilterMode = False
      wks.UsedRange.Value = wks.UsedRange.Value
    Next
    Application.ScreenUpdating = True
    MsgBox "Da chuyen xong!"
  End If
End Sub

à! thưa thầy! giờ em muốn chuyển file code đó ra thành 1 file để dùng như add in thì là thế nào ạ

ndu96081631 · 28/8/15

alibaba2209 đã viết:
à! thưa thầy! giờ em muốn chuyển file code đó ra thành 1 file để dùng như add in thì là thế nào ạ

1> Cách đơn giản: Gán cho nó 1 phím tắt (bằng cách bấm Alt + F8, chọn Options rồi gán phím tùy ý). Xong, cứ Save thành AddIn bình thường. Muốn gọi code trong addIn, cứ bấm phím tắt là xong
2> Cách cầu kỳ: Tạo 1 nút trên Toolbar để gọi code. Cách này thì nhìn đẹp nhưng mà tôi.. làm biếng quá

befaint · 28/8/15

alibaba2209 đã viết:
à! thưa thầy! giờ em muốn chuyển file code đó ra thành 1 file để dùng như add in thì là thế nào ạ

Cách đơn giản nhất là gán phím tắt cho sub đó.
Bạn cho đoạn sau vào 1 module. Save as file ở dạng *.xla (hoặc *.xlam) để được 1 addIns.

PHP:

Sub Auto_open()
Application.OnKey "^+{v}", "ValueAll" 'Phim tat: Ctrl + shift + v
End Sub

Sub ValueAll()
  Dim Ans As VbMsgBoxResult, wks As Worksheet
  On Error Resume Next
  Ans = MsgBox("Ban muon paste values tat ca các sheet?", vbYesNo)
  If Ans = vbYes Then
    Application.ScreenUpdating = False
    For Each wks In ThisWorkbook.Worksheets
      wks.Unprotect
      wks.AutoFilterMode = False
      wks.UsedRange.Value = wks.UsedRange.Value
    Next
    Application.ScreenUpdating = True
    MsgBox "Da chuyen xong!"
  End If
End Sub

alibaba2209 · 28/8/15

ndu96081631 đã viết:
1> Cách đơn giản: Gán cho nó 1 phím tắt (bằng cách bấm Alt + F8, chọn Options rồi gán phím tùy ý). Xong, cứ Save thành AddIn bình thường. Muốn gọi code trong addIn, cứ bấm phím tắt là xong
2> Cách cầu kỳ: Tạo 1 nút trên Toolbar để gọi code. Cách này thì nhìn đẹp nhưng mà tôi.. làm biếng quá

Thưa thầy! muốn đổi tên Module thì phải làm thế nào ạ!

alibaba2209 · 28/8/15

befaint đã viết:
Cách đơn giản nhất là gán phím tắt cho sub đó.
Bạn cho đoạn sau vào 1 module. Save as file ở dạng *.xla (hoặc *.xlam) để được 1 addIns.

PHP:

Sub Auto_open() Application.OnKey "^+{v}", "ValueAll" 'Phim tat: Ctrl + shift + v End Sub Sub ValueAll() Dim Ans As VbMsgBoxResult, wks As Worksheet On Error Resume Next Ans = MsgBox("Ban muon paste values tat ca các sheet?", vbYesNo) If Ans = vbYes Then Application.ScreenUpdating = False For Each wks In ThisWorkbook.Worksheets wks.Unprotect wks.AutoFilterMode = False wks.UsedRange.Value = wks.UsedRange.Value Next Application.ScreenUpdating = True MsgBox "Da chuyen xong!" End If End Sub

kí hiệu của ctrl + shift là " ^ " à bạn............................................

befaint · 28/8/15

alibaba2209 đã viết:
kí hiệu của ctrl + shift là " ^ " à bạn............................................

Bạn xem ở link sau cho đầy đủ.
Application.OnKey Method (Excel):
https://msdn.microsoft.com/en-us/library/office/ff197461.aspx

alibaba2209 · 29/8/15

befaint đã viết:
Bạn xem ở link sau cho đầy đủ.
Application.OnKey Method (Excel):
https://msdn.microsoft.com/en-us/library/office/ff197461.aspx

ok! cảm ơn ,,,,,,,

,

khongnhienttt · 29/8/15

ndu96081631 đã viết:

Thử code thế này xem:

Mã:

Sub ValueAll()
  Dim Ans As VbMsgBoxResult, wks As Worksheet
  On Error Resume Next
  Ans = MsgBox("Ban muon paste values tat ca các sheet?", vbYesNo)
  If Ans = vbYes Then
    Application.ScreenUpdating = False
    For Each wks In ThisWorkbook.Worksheets
[COLOR=#008000]      wks.Unprotect
      wks.AutoFilterMode = False[/COLOR]
      wks.UsedRange.Value = wks.UsedRange.Value
    Next
    Application.ScreenUpdating = True
    MsgBox "Da chuyen xong!"
  End If
End Sub

thầy cho em hỏi vì sao phải thêm unprotect và autofiltermode=false, vì nếu sheet khóa bằng mật khẩu cũng ko unprotect được ...,

ndu96081631 · 29/8/15

khongnhienttt đã viết:
thầy cho em hỏi vì sao phải thêm unprotect và autofiltermode=false

Viết theo file THỰC TẾ của tác giả thì nó phải... vậy!

khongnhienttt đã viết:
vì nếu sheet khóa bằng mật khẩu cũng ko unprotect được

Khóa bằng mật khẩu nào thì Unprotect bằng mật khẩu đó thôi

Nhờ viết code paste values cho tất cả các sheet

Thành viên thường trực

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

Thành viên thường trực

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

Thành viên thường trực

Huyền thoại GPE

Thành viên thường trực

VBA & VB.NET for Excel & AutoCad

Thành viên thường trực

Huyền thoại GPE

Thành viên thường trực

Thành viên thường trực

Huyền thoại GPE

|||||||||||||

Thành viên thường trực

Thành viên thường trực

|||||||||||||

Thành viên thường trực

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

Huyền thoại GPE