Cách dùng VBA trong excel?? (1 người xem)

[trunglee123]

Cho mình hỏi khi mình coppy code thì sao cho nó chạy chương trình trong excel được. mình mới xem qua vba nên chưa biết cách dùng. tks

 

[Hong.Van]

Cho mình hỏi khi mình coppy code thì sao cho nó chạy chương trình trong excel được. mình mới xem qua vba nên chưa biết cách dùng. tks

Thế bạn đã biết mở 1 file có code để cho nó chạy chưa?

 

[trunglee123]

Nếu mình cho nó chạy được thì nói làm gì nữa . chỉ mình cách khi có code roi lam sao chạy được .

 

[Hong.Van]

Nếu mình cho nó chạy được thì nói làm gì nữa . chỉ mình cách khi có code roi lam sao chạy được .

Thí dụ cho bạn lần đầu tiên
Nếu bạn s/d Excel 2003 thì
Mở Excel vào menu Tools/Macro/Security/ tích vào Medium ... -> OK, thoát khỏi Excel (cái này chỉ thiết lập 1 lần)
Nếu s/d Excel từ 2007 trở lên thì tham khảo bài này
Vào trang này tải bài #1 về
Mở File nhớ bấm Enable Macros
Rồi xem nó làm gì!!!

 

[Hoàng Trọng Nghĩa]

Nếu mình cho nó chạy được thì nói làm gì nữa . chỉ mình cách khi có code roi lam sao chạy được .

Trước hết, bạn phải xác định mục đích của bạn dùng code để làm gì, vì nếu không có mục đích mà chạy đại một thủ tục, một đoạn mã "độc" nào đó thì chỉ có mà dở khóc dở cười. Sau đó, phải tìm hiểu nguyên lý hoạt động của code, code (macro) được đặt tại đâu, cách thức mà nó hoạt động như thế nào v.v... Nói túm lại, bạn đang chuẩn bị bước vào "con đường đau khổ" rồi đấy!

 

[siwtom]

Ok, trong đó hướng dẫn viết, cài đặt, và code một số hàm xử lý số liệu trong excel có thể tham khảo. Nhờ bạn xoá dùm 1 link vậy. Cảm ơn bạn đã quan tâm.

Bạn hãy sửa link lại thành

https://sites.google.com/site/ltvinhvn/HD_su_dung_VBA_trong_Excel.pdf

Lần sau bạn nên kiểm tra lại sau khi gửi bài

 

[ltvinhvn76]

Nhờ bạn có thể thay bằng link mới: http://up.4share.vn/f/26141f121e121311/HD_su_dung_VBA_trong_Excel.pdf; Mình thấy link cũ dài, khi up, GPE tự động cắt bớt nên nó không hoạt động được thì phải? Rất cảm ơn Bạn đã nhiệt tình hướng dẫn và góp ý.

 

[thanhlongpcb]

Em cũng đang tìm hiểu về VBA như này.

 

[rocky_boy0204]

Mình đang tìm hiểu về VBA, anh chị có thể cho mình biết đoạn code này ý nghĩa là gì được không ạ?
Sub spandek700()
Sheets("SPANDEK 700").Activate
Range(Cells(5, 1), Cells(100, 11)).Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With

 

[VetMini]

Mình đang tìm hiểu về VBA, anh chị có thể cho mình biết đoạn code này ý nghĩa là gì được không ạ?
Sub spandek700()
Sheets("SPANDEK 700").Activate
Range(Cells(5, 1), Cells(100, 11)).Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Bạn đoán thử xem nó làm gì? Đưa phỏng đoán lên rồi sẽ có người chỉnh giùm cho. Nếu bạn hoàn toàn không thể đoán 1 mối nhợ gì thì tìm hiểu vô ích.

Gợi ý: đặt một sheet tên là "SPANDEK 700" rồi chạy thử xem nó ra cái gì.

 

[hngiatuong]

Trước hết, bạn phải xác định mục đích của bạn dùng code để làm gì, vì nếu không có mục đích mà chạy đại một thủ tục, một đoạn mã "độc" nào đó thì chỉ có mà dở khóc dở cười. Sau đó, phải tìm hiểu nguyên lý hoạt động của code, code (macro) được đặt tại đâu, cách thức mà nó hoạt động như thế nào v.v... Nói túm lại, bạn đang chuẩn bị bước vào "con đường đau khổ" rồi đấy!

Mình không cho rằng như vậy. Mình nghĩ, nếu mình mới sắp đau khổ thôi thì còn rất bình thường vì có rất nhiều người đang đau khổ hơn mình nhiều.

 

[Nguyễn Kim Tuyến]

xin chào các anh chị trên diễn đàn, các anh chị giúp e sử dung được đoạn code ra hạn sử dụng trong file exel này với ạ. em làm đủ cách mà không thể ra hạn được. em đang tìm hiểu và học hỏi về VBA ạ.
Sub auto_open()
On Error Resume Next
Dim myDate As Date
Dim Ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
myDate = Date
If Sheets("Userlog").Range("a2").Value <= myDate Then 'A2 là ngày kết thúc
MsgBox "File nay khong mo duoc vi qua han su dung." & vbNewLine _
& "Vui long goi dien cho Nguyen Kim Tuyen BCHQS Xa Quang giao", vbExclamation, "Thong bao"
ThisWorkbook.Close
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
& "Vui long goi dien cho Nguyen Kim Tuyen BCHQS Xa Quang giao", vbExclamation, "Thong bao"
ThisWorkbook.Close
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[Nguyễn Kim Tuyến]

xin chào các anh chị trên diễn đàn, các anh chị giúp e sử dung được đoạn code ra hạn sử dụng trong file exel này với ạ. em làm đủ cách mà không thể ra hạn được. em đang tìm hiểu và học hỏi về VBA ạ.
Sub auto_open()
On Error Resume Next
Dim myDate As Date
Dim Ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
myDate = Date
If Sheets("Userlog").Range("a2").Value <= myDate Then 'A2 là ngày kết thúc
MsgBox "File nay khong mo duoc vi qua han su dung." & vbNewLine _
& "Vui long goi dien cho Nguyen Kim Tuyen BCHQS Xa Quang giao", vbExclamation, "Thong bao"
ThisWorkbook.Close
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[Nguyễn Kim Tuyến]

xin chào các anh chị trên diễn đàn, các anh chị giúp e sử dung được đoạn code ra hạn sử dụng trong file exel này với ạ. em làm đủ cách mà không thể ra hạn được. em đang tìm hiểu và học hỏi về VBA ạ.
Sub auto_open()
On Error Resume Next
Dim myDate As Date
Dim Ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
myDate = Date
If Sheets("Userlog").Range("a2").Value <= myDate Then 'A2 là ngày kết thúc
MsgBox "File nay khong mo duoc vi qua han su dung." & vbNewLine _
& "Vui long goi dien cho Nguyen Kim Tuyen BCHQS Xa Quang giao", vbExclamation, "Thong bao"
ThisWorkbook.Close
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[Nguyễn Kim Tuyến]

xin chào các anh chị trên diễn đàn, các anh chị giúp e sử dung được đoạn code ra hạn sử dụng trong file exel này với ạ. em làm đủ cách mà không thể ra hạn được. em đang tìm hiểu và học hỏi về VBA ạ.
Sub auto_open()
On Error Resume Next
Dim myDate As Date
Dim Ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
myDate = Date
If Sheets("Userlog").Range("a2").Value <= myDate Then 'A2 là ngày kết thúc
MsgBox "File nay khong mo duoc vi qua han su dung." & vbNewLine _
& "Vui long goi dien cho Nguyen Kim Tuyen BCHQS Xa Quang giao", vbExclamation, "Thong bao"
ThisWorkbook.Close
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[Nguyễn Kim Tuyến]

xin chào các anh chị trên diễn đàn, các anh chị giúp e sử dung được đoạn code ra hạn sử dụng trong file exel này với ạ. em làm đủ cách mà không thể ra hạn được. em đang tìm hiểu và học hỏi về VBA ạ.
Sub auto_open()
On Error Resume Next
Dim myDate As Date
Dim Ws As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
myDate = Date
If Sheets("Userlog").Range("a2").Value <= myDate Then 'A2 là ngày kết thúc
MsgBox "File nay khong mo duoc vi qua han su dung." & vbNewLine _
& "Vui long goi dien cho Nguyen Kim Tuyen BCHQS Xa Quang giao", vbExclamation, "Thong bao"
ThisWorkbook.Close
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[Hoang2013]

Bạn đang vi phạm nội qui & mong rằng các bạn khác không giúp cho những bài đang sai nội qui!