Hỏi nhanh - Đáp nhanh về macro (dành cho các thành viên mới học lập trình)

[tuananhya2]

Co ai chỉ dùm cách tạo pass marco với

 

[codai9021]

Em cũng bị tình trạng như anh. Em có viết vài code. Trên máy êm hoạt động bình thường. File của em gửi sang máy khác cũng không chạy được macro, chỉ là file hình ảnh. Người nhận file cũng nhận được thông báo là enable, disable, more if...nhưng chọn enable cũng ko chạy. em dùng Mx 2013 nên em đã lưu dưói dạng Mx 97-2003. File em đã ẩn những sheet chi tiết, chỉ để lại sheet tổng hợp.
Mong anh chị giúp em gấp, em xin chân thành cảm ơn và hậu tạ. Em có gửi file đính kèm. Xin giúp em với.

 

[codai9021]

Em bị tình trạng gửi file excel chứa macro gửi người khác xem không được. Em có viết vài code. Trên máy êm hoạt động bình thường. File của em gửi sang máy khnhác cũng không chạy được macro, chỉ là file hình ảnh. Người nhận file cũng nhận được thông báo là enable, disable, more if...nhưng chọn enable cũng ko chạy. em dùng Mx 2013 nên em đã lưu dưói dạng Mx 97-2003. File em đã ẩn những sheet chi tiết, chỉ để lại sheet tổng hợp.
Mong anh chị giúp em gấp, em xin chân thành cảm ơn và hậu tạ. Em có gửi file đính kèm.

 

[hungpecc1]

Em bị tình trạng gửi file excel chứa macro gửi người khác xem không được. Em có viết vài code. Trên máy êm hoạt động bình thường. File của em gửi sang máy khnhác cũng không chạy được macro, chỉ là file hình ảnh. Người nhận file cũng nhận được thông báo là enable, disable, more if...nhưng chọn enable cũng ko chạy. em dùng Mx 2013 nên em đã lưu dưói dạng Mx 97-2003. File em đã ẩn những sheet chi tiết, chỉ để lại sheet tổng hợp.
Mong anh chị giúp em gấp, em xin chân thành cảm ơn và hậu tạ. Em có gửi file đính kèm.

ChDir "C:\Users\Lê\Desktop"

đôHỏi xem máy tính của đồng nghiệp bạn có folder Lê như trên không ?

 

[codai9021]

là sao anh, em không hiểu, tại em tìm hiểu trên đây rồi viết đơn giản vậy thôi, em gửi cho ai xem cũng không được, anh giúp em với

 

[blackboy020115]

Em dùng mấy cái shapes thì giải quyết được vấn đề rồi, không cần dùng đến button. Em xin cảm ơn.
Cho phép em hỏi 1 vấn đề nữa: Em có 1 biến số do người dùng nhập vào TextBox của UserForm1, em muốn dùng biến này để tao ra số lượng CheckBox tương ứng trong UserForm2 thì mình viết code như thế nào ạ? Mong thầy giải đáp giùm em.

 

[AnhThu-1976]

Nhờ giải thích Code sai lỗi cú pháp!

Các Thầy cô & anh chị vui lòng giải thích lỗi ở code sau

Sub HocLuc()    
    Sheets("sheet1").Select
    Range("A1").Select
    If[COLOR=#ff0000][B]ActiveCell[/B] [/COLOR]= "" Then End Sub
    If ActiveCell >= 8 Then
        Range("B2").Value = "Hoc luc gioi"
    ElseIf ActiveCell >= 6.5 Then
        Range("B2").Value = "Hoc luc kha"
    ElseIf ActiveCell >= 5 Then
        Range("B2").Value = "Hoc luc TB"
    Else
        Range("B2").Value = "Hoc luc kem"
    End If
End Sub

Code báo lỗi sai cú pháp (ở chỗ chữ màu đỏ)
Em không biết tại sao sai, nhờ Thầy cô & anh chị giải thích
Xin cảm ơn!

 

[hpkhuong]

Các Thầy cô & anh chị vui lòng giải thích lỗi ở code sau

Sub HocLuc()    
    Sheets("sheet1").Select
    Range("A1").Select
    If[COLOR=#ff0000][B]ActiveCell[/B] [/COLOR]= "" Then End Sub
    If ActiveCell >= 8 Then
        Range("B2").Value = "Hoc luc gioi"
    ElseIf ActiveCell >= 6.5 Then
        Range("B2").Value = "Hoc luc kha"
    ElseIf ActiveCell >= 5 Then
        Range("B2").Value = "Hoc luc TB"
    Else
        Range("B2").Value = "Hoc luc kem"
    End If
End Sub

Code báo lỗi sai cú pháp (ở chỗ chữ màu đỏ)
Em không biết tại sao sai, nhờ Thầy cô & anh chị giải thích
Xin cảm ơn!

IfActiveCell -> dấu cách chữ If ActiveCell xem

 

[AnhThu-1976]

Cũng vẫn bị báo lỗi, bạn ạ!

 

[hpkhuong]

Cũng vẫn bị báo lỗi, bạn ạ!

If ActiveCell = "" Then End Sub
->


If ActiveCell = "" Then Exit Sub

 

[AnhThu-1976]

If ActiveCell = "" Then End Sub
->


If ActiveCell = "" Then Exit Sub

Cảm ơn bạn!!!!!!!!!!!!!!!!!!!!!!