Macro hay

[aukid411]

Mở Mac thấy đoạn sau (tôi bôi màu để nhấn mạnh

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+q
'
Range("F8").Select
ActiveCell.FormulaR1C1 = "2"
Range("G8").Select
ActiveCell.FormulaR1C1 = "3"
Range("H8").Select
ActiveCell.FormulaR1C1 = "4"
Range("I8").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveCell.FormulaR1C1 = "3"
Range("I9").Select
ActiveCell.FormulaR1C1 = "3"
Range("F8:I9").Select
Application.Run "'2? 5?? ??????_Sigma.xls'!Macro1"
Range("F8").Select
Application.Run "'2? 5?? ??????_Sigma.xls'!Macro1"

Các lệnh màu đỏ bị lỗi. Với 2 lệnh đầu có thể bỏ qua (gõ dấu nháy đơn ở đầu hàng). Nhưng 2 lệnh tiếp theo đòi hỏi phải mở file để chạy Macro1. Để hiểu tiếp thì không có 2 file này. Nếu bạn còn muốn biết thì nên gửi tiếp file đó để đủ "dữ kiện" cho mọi người đọc.

View more random threads:

• Số thứ tự trong excel 2007
• Xin giúp đỡ em về trích lọc dữ liệu theo vùng bằng vba như File đính kèm ạ!
• Công thức mảng cho excel
• Xóa dòng trong excel thỏa mãn nhiều điều kiện
• Giúp tìm kiếm trên Form
• danh sách tỉnh thành
• Cách tách bảng lương?
• Hỏi về cách nhập số nhanh
• Hỏi cách lấy ra 1 số ký tự trong ô
• Nhập số tự nhảy

[doremon29]

Xin chào các anh chị trong diễn đàn. Mình không phải là dân chuyên phải dùng đến phần mềm excel để tính toán, thế nên những thủ thuật về Macro mình không được rành lắm. Mình nhận được 1 file tiến độ như thế này mà mình thấy rất hay. Anh chị am hiểu xin giải đáp cho mình làm sao có thể tạo được cái thanh shape mà nó chạy được khhi updated ngày tháng và khối lượng nhé. Xin chân thành cảm ơn

[haqn84]

Cái Macro 1 đó là mình chỉ tập tọe làm thôi chứ cái Macro đó không liên quan gì tới cái phần mình hỏi ở trên cả. Phần mình hỏi nó nằm ở cái Module 1. Cái Macro 1 nó nằm ở Module 3 thì phải. Cái sub_draw bar

[anh321]

Sub draw_bar()
On Error GoTo err_bar

aa = Cells(5, 9).Value
If IsDate(aa) = False Then
MsgBox "Please check F5 cell & input proper date", 48
Exit Sub
End If

đoạn này có tác dụng gì vậy hả các bạn?

[hoangkiso]

Sub draw_bar()
On Error GoTo err_bar

1 aa = Cells(5, 9).Value
If IsDate(aa) = False Then
3 MsgBox "Please check F5 cell & input proper date", 48
Exit Sub
End If

đoạn này có tác dụng gì vậy hả các bạn?

Mình không biết nó để làm chi; Mình diễn dịch nha:

Dòng lệnh trước dòng 1: Nếu gặp lỗi thì chuyển đến dòng có mang nhãn err_bar
(Tuy nhiên trong macro chưa có nhãn này; ???)

D1: Lấy trị trong ô thuộc dòng 5 cột 9 gán vô biến aa

D2: Nếu biến aa không fải dạng ngày tháng thì thực hiện D3

D3: Hiện họp thoại "Xin đề nghị kiểm lại trị trong [F5] & nhập dạng ngày/tháng"

D4: Thoát khỏi macro

D5: Kết thúc chương trình

Tuy nhiên cần thêm 1 dòng:

6 End Sub  

cuối macro.

[bietthugeleximco]

Cám ơn bạn đã trả lời. Tiếp tục những dòng này có nghĩa gì hả bạn. Bãn diễn giải tiếp giúp mình nhé. Xin cảm ơn

End If
ddds = 21


dcol1 = 2
dcol2 = 3
dcol3 = 8
ccol = 9

rrow1 = 6
rrow2 = 200

'---- delete bars ----
For Each x In ActiveSheet.Shapes
x.Select
xnn = Mid(x.Name, 2, 3)
If xnn = "Bar" Then Selection.Delete
Next x