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

Liên hệ QC

alibaba2209

Thành viên thường trực
Tham gia
4/12/10
Bài viết
283
Được thích
13
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
 
Lần chỉnh sửa cuối:
Viết theo file THỰC TẾ của tác giả thì nó phải... vậy!



Khóa bằng mật khẩu nào thì Unprotect bằng mật khẩu đó thôi
Thưa thầy! mk có thể để theo thời gian không ạ, VD nhìn đồng hồ ở máy tính là 08h15' thì đánh mật khẩu để mở all sheet là 0815
 
Upvote 0
Thưa thầy! mk có thể để theo thời gian không ạ, VD nhìn đồng hồ ở máy tính là 08h15' thì đánh mật khẩu để mở all sheet là 0815
 
Upvote 0
Thưa thầy! mk có thể để theo thời gian không ạ, VD nhìn đồng hồ ở máy tính là 08h15' thì đánh mật khẩu để mở all sheet là 0815
Vậy thì mở khẩu khẩu sheet thì dựa vào đâu, nếu dựa vào đồng hồ thì thời gian sao khớp được mà mở...
 
Upvote 0
Vậy thì mở khẩu khẩu sheet thì dựa vào đâu, nếu dựa vào đồng hồ thì thời gian sao khớp được mà mở...
Thì mình đang hỏi xem có được không thôi! ở trong điện thoại có phần mềm khoá máy lúc mở thì theo cái thời gian ở điện.. nên mình hỏi xem ở máy tính có làm được không, nếu được thì rất là hay hihi!
 
Upvote 0
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
Em chào Thầy!

Thầy cho em hỏi, file của em không có protect các sheet thì đoạn code có sửa gì không hay vẫn như vậy ah?
File e nó nặng quá, e không biết làm sao đính kèm lên được, mong thầy thông cảm! Nếu e tìm cách làm cho file nhẹ thì em sẽ đưa file lên ah.
Em cảm ơn thầy nhiều!
 
Upvote 0
Liệu có giống bạn kế toán A, sắp nghỉ, sửa toàn bộ file để bỏ hết công thức không nhỉ?
 
Upvote 0
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
Mình chào cả nhà. Nếu mình sử dụng code này để Past Value mà muốn giữ lại 1 sheet không phát Value thì làm thế nào ạ? Mong cả nhà chỉ giáo
 
Upvote 0
Những code mô tả dễ như thế này thì yêu cầu AI làm chất lượng, tốc độ, hiệu quả hơn
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom