Không Ctrl+Z được

[nokiano258vn]

Làm thế nào để có thể Ctrl+Z khi đã chạy macro, vì khi nhỡ tay bấm cho macro chạy thì không thể quay lại được, nhờ các bác chỉ giúp

 

[anhtuan1066]

Macro chạy ko thể Undo dc đâu bạn à... Nhưng bạn có thể làm như sau... Thoát Excel và ko lưu gì cả... Vậy là file củ vẫn như củ thôi...

 

[nokiano258vn]

Trời! chắc phải có cách nào chứ, tôi nghĩ làm cách nào đó có thể thực hiện ngược lại quá trình macro đã chạy

 

[SA_DQ]

Làm thế nào để có thể Ctrl+Z khi đã chạy macro, vì khi nhỡ tay bấm cho macro chạy thì không thể quay lại được

(ó thể được, nếu macro iêu quí của bạn làm ~ công việc đơn giản, hay bạn viết macro, mà phần đầu là lưu hết ~ dữ liệu mà macro sẽ thay đổi vô các biến;
Bạn thấy đó, từ 1 macro, bạn đã có hai cái, không hơn không kém!
Thường thì chúng ta luôn cần đối thoại với cục cưng của mình trong ~ thời khắc quan trọng, như xóa; cập nhật số liệu. . . vì ~ thứ này là 1 đi không trở lại!
(/ề khoảng này chúng ta nên xem menu Edit trong win làm việc: bao giờ cũng hỏi chúng ta! một khi hắn muốn xóa, ghi đè,. . .

Lời cuối: Bạn có thể cho biết cục cưng của bạn là gì, chúng ta sẽ biết có CTRL+Z được không!!!

 

[nokiano258vn]

Tôi thực hiện một số hàm đơn giản như Vlookup hay macro như thế này Sub Taobang()
'
' Taobang Macro
' Macro recorded 10/4/2007 by NguyÔn Lª Ph­¬ng
'
' Keyboard Shortcut: Ctrl+b
'
ActiveCell.FormulaR1C1 = " - DiÖn tÝch ®Êt trång c©y thùc tÕ bÞ thu håi (S1):"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = _
" - DiÖn tÝch ®Êt trång c©y theo ®Þnh møc KT kü thuËt (S2):"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = _
" - HÖ sè c©y trång xen canh (tÝnh cho sè c©y trång v­ît mËt ®é):"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = " - HÖ sè gi¸ båi th­êng (S1/S2*1,2):"
ActiveCell.Offset(3, 8).Range("A1").Select
ActiveCell.FormulaR1C1 = "M§"
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveCell.FormulaR1C1 = "M§KT"
ActiveCell.Offset(0, -2).Range("A1,C1").Select
ActiveCell.Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Font.Bold = True
Selection.Font.Underline = xlUnderlineStyleSingle
Selection.Font.ColorIndex = 3
ActiveCell.Offset(-5, -8).Range("A1").Select
ActiveCell.Offset(7, 2).Range("A1").Select
End Sub
Nếu tôi chỉ đặt nhầm ô mà chạy macro thì những ô đã có số liệu sẽ bị đè hết.
Có thể tạo ra một thông báo nếu các ô có số liệu bị đè không????? . Rất mong được các bác chỉ giúp