Chuyên mục xử lý, gỡ rối code VBA (1 người xem)

ndu96081631 · 24/9/13

Topic Những câu hỏi về code, xin giải thích các code... đã quá dài nên mình đóng nó lại và mở topic khác
Tất cả những bài viết liên quan đến việc nhờ giải thích, xử lý và gỡ rối code VBA, các bạn vui lòng đăng tại đây!
Cảm ơn

keke355992 · 11/6/17

Xin chào các bạn. Cho mình hỏi: Mình viết 1 code sau, và cho vào thành addin

Sub Auto_open()
On Error Resume Next
Dim i As Long, Tenfile as String
i = Workbooks.Count
Tenfile = Workbooks(i).Name
If Right(Tenfile, 3) = "xls" Then
MsgBox "HE THONG KHONG HO TRO MO DINH DANG FILE NAY"
Workbooks(i).Close Save = False
End If
End Sub

Mục đích: Mỗi khi mở từ file thứ 2 trở đi. mà mở file Excel có đuôi là xls (Định dạng 2003), thì sẽ không cho mở. Nhưng không hiểu sao Addin không tự động chạy mặc dù là Auto_open. Vậy có cách nào khác không, hay code bị lỗi đoạn nào vậy. Mình cảm ơn

ndu96081631 · 11/6/17

keke355992 đã viết:
Xin chào các bạn. Cho mình hỏi: Mình viết 1 code sau, và cho vào thành addin

Sub Auto_open()

On Error Resume Next

Dim i As Long, Tenfile as String

i = Workbooks.Count

Tenfile = Workbooks(i).Name

If Right(Tenfile, 3) = "xls" Then

MsgBox "HE THONG KHONG HO TRO MO DINH DANG FILE NAY"

Workbooks(i).Close Save = False

End If

End Sub

Mục đích: Mỗi khi mở từ file thứ 2 trở đi. mà mở file Excel có đuôi là xls (Định dạng 2003), thì sẽ không cho mở. Nhưng không hiểu sao Addin không tự động chạy mặc dù là Auto_open. Vậy có cách nào khác không, hay code bị lỗi đoạn nào vậy. Mình cảm ơn

Code AddIn kiểu này chắc chắn không hoạt động, bởi Sub Aut

pen chỉ chạy 1 lần duy nhất khi kích hoạt AddIn mà thôi, và code sẽ không "nhìn" thấy được các file mở sau đó
Muốn làm được yêu cầu trên phải dùng Class. Quy trình như sau:
1> Chèn 1 Class Module, đặt tên là clsWkbEvents
Code trong Class Module:

Mã:

Public WithEvents ExlApp As Application
Private Sub Class_Initialize()
  Set ExlApp = Application
End Sub
Private Sub Class_Terminate()
  Set ExlApp = Nothing
End Sub
Private Sub ExlApp_WorkbookOpen(ByVal Wb As Workbook)
  If UCase(Right(Wb.FullName, 3)) = "XLS" Then
    MsgBox "HE THONG KHÔNG HO TRO MO DINH DANG FILE NÀY"
    Wb.Close False
  End If
End Sub

2> Chèn 1 Module đặt tên tùy ý, với code:

Mã:

Dim ExlObj As New clsWkbEvents
Sub Auto_Open()
  If ExlObj Is Nothing Then Set ExlObj = New clsWkbEvents
End Sub
Sub Auto_Close()
  Set ExlObj = Nothing
End Sub

Giờ Save As file thành XLAM, kích hoạt AddIn và test thử

keke355992 · 11/6/17

ndu96081631 đã viết:
Code AddIn kiểu này chắc chắn không hoạt động, bởi Sub Autpen chỉ chạy 1 lần duy nhất khi kích hoạt AddIn mà thôi, và code sẽ không "nhìn" thấy được các file mở sau đó
Muốn làm được yêu cầu trên phải dùng Class. Quy trình như sau:
1> Chèn 1 Class Module, đặt tên là clsWkbEvents
Code trong Class Module:

Mã:

Public WithEvents ExlApp As Application Private Sub Class_Initialize() Set ExlApp = Application End Sub Private Sub Class_Terminate() Set ExlApp = Nothing End Sub Private Sub ExlApp_WorkbookOpen(ByVal Wb As Workbook) If UCase(Right(Wb.FullName, 3)) = "XLS" Then MsgBox "HE THONG KHÔNG HO TRO MO DINH DANG FILE NÀY" Wb.Close False End If End Sub

2> Chèn 1 Module đặt tên tùy ý, với code:

Mã:

Dim ExlObj As New clsWkbEvents Sub Auto_Open() If ExlObj Is Nothing Then Set ExlObj = New clsWkbEvents End Sub Sub Auto_Close() Set ExlObj = Nothing End Sub

Giờ Save As file thành XLAM, kích hoạt AddIn và test thử

Đụng đến "Class Module" thì e chỉ bít Copy và Paste chứ chưa thể hiểu được. Addin chạy ngon lành. Cảm ơn thầy nhiều. Chúc thầy buổi chiều vui vẻ

thangteo · 11/6/17

ndu96081631 đã viết:
Code AddIn kiểu này chắc chắn không hoạt động, bởi Sub Autpen chỉ chạy 1 lần duy nhất khi kích hoạt AddIn mà thôi, và code sẽ không "nhìn" thấy được các file mở sau đó
Muốn làm được yêu cầu trên phải dùng Class. Quy trình như sau:
1> Chèn 1 Class Module, đặt tên là clsWkbEvents
Code trong Class Module:

Mã:

Public WithEvents ExlApp As Application Private Sub Class_Initialize() Set ExlApp = Application End Sub Private Sub Class_Terminate() Set ExlApp = Nothing End Sub Private Sub ExlApp_WorkbookOpen(ByVal Wb As Workbook) If UCase(Right(Wb.FullName, 3)) = "XLS" Then MsgBox "HE THONG KHÔNG HO TRO MO DINH DANG FILE NÀY" Wb.Close False End If End Sub

2> Chèn 1 Module đặt tên tùy ý, với code:

Mã:

Dim ExlObj As New clsWkbEvents Sub Auto_Open() If ExlObj Is Nothing Then Set ExlObj = New clsWkbEvents End Sub Sub Auto_Close() Set ExlObj = Nothing End Sub

Giờ Save As file thành XLAM, kích hoạt AddIn và test thử

Thầy ơi, chưa lần nào thầy sửa giúp e cả. Hix..

ndu96081631 · 11/6/17

thangteo đã viết:
Thầy ơi, chưa lần nào thầy sửa giúp e cả. Hix..

Ủa? Vụ gì vậy ta?

NguyenNgocThuHien · 11/6/17

keke355992 đã viết:
Xin chào các bạn. Cho mình hỏi: Mình viết 1 code sau, và cho vào thành addin

Sub Auto_open()

On Error Resume Next

Dim i As Long, Tenfile as String

i = Workbooks.Count

Tenfile = Workbooks(i).Name

If Right(Tenfile, 3) = "xls" Then

MsgBox "HE THONG KHONG HO TRO MO DINH DANG FILE NAY"

Workbooks(i).Close Save = False

End If

End Sub

Mục đích: Mỗi khi mở từ file thứ 2 trở đi. mà mở file Excel có đuôi là xls (Định dạng 2003), thì sẽ không cho mở. Nhưng không hiểu sao Addin không tự động chạy mặc dù là Auto_open. Vậy có cách nào khác không, hay code bị lỗi đoạn nào vậy. Mình cảm ơn

Dán đoạn code này vào thisworkbook là được.

Mã:

Dim WithEvents app As Excel.Application


Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
    On Error Resume Next
   
    If Application.Workbooks.Count >= 2 Then
        If Strings.UCase(Strings.Right$(Wb.Name, 3)) = "XLS" Then
            MsgBox "He thong khong ho tro loai file nay"
            Wb.Close False
           
        End If
    End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Set app = Nothing
End Sub

Private Sub Workbook_Open()
    Set app = Application
End Sub

thangteo · 11/6/17

ndu96081631 đã viết:
Ủa? Vụ gì vậy ta?

Ở #768 thầy ơi. Thầy xem giúp chỉnh em với. Hihi.

tuanthanhtran · 11/6/17

đã chuyễn qua topic http://www.giaiphapexcel.com/diendan/threads/cần-được-giúp-về-form-đơn-giản.125616/

befaint · 11/6/17

tuanthanhtran đã viết:
em đọc bài này

Hỏi hay quảng cáo đây?

Hoang2013 · 12/6/17

Hỏi cách làm đó, như đưa bài lên khắp nơi!
(http://www.giaiphapexcel.com/diendan/threads/cần-được-giúp-về-form-đơn-giản.125616/#post-788818)

Mình biết làm nhưng sẽ chưa hướng dẫn; chờ khắc phục xong cái chuyện sai nội qui này đã!

keke355992 · 12/6/17

NguyenNgocThuHien đã viết:

Dán đoạn code này vào thisworkbook là được.

Mã:

Dim WithEvents app As Excel.Application


Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
    On Error Resume Next
  
    If Application.Workbooks.Count >= 2 Then
        If Strings.UCase(Strings.Right$(Wb.Name, 3)) = "XLS" Then
            MsgBox "He thong khong ho tro loai file nay"
            Wb.Close False
          
        End If
    End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Set app = Nothing
End Sub

Private Sub Workbook_Open()
    Set app = Application
End Sub

Bạn ơi. Vấn đề là cái workbook mà đuôi xls, đâu pải là của mình. Nên phải tạo addin đó bạn. Chứ dán vào ThisWorkBook đâu có tác dụng j đâu

tuanthanhtran · 12/6/17

befaint đã viết:
Hỏi hay quảng cáo đây?

thế có xem cái bài làm của em chưa? quảng cáo đâu.

befaint · 12/6/17

keke355992 đã viết:
Bạn ơi. Vấn đề là cái workbook mà đuôi xls, đâu pải là của mình. Nên phải tạo addin đó bạn. Chứ dán vào ThisWorkBook đâu có tác dụng j đâu

Dán vào ThisWorkbook của AddIns!!!!

tuanthanhtran · 12/6/17

Hoang2013 đã viết:
Hỏi cách làm đó, như đưa bài lên khắp nơi!
(http://www.giaiphapexcel.com/diendan/threads/cần-được-giúp-về-form-đơn-giản.125616/#post-788818)

Mình biết làm nhưng sẽ chưa hướng dẫn; chờ khắc phục xong cái chuyện sai nội qui này đã!

xong rồi qua topic hướng dẫn dùm
http://www.giaiphapexcel.com/diendan/threads/cần-được-giúp-về-form-đơn-giản.125616/

thanhpd3 · 18/6/17

Dear anh chị GPE

Em cần trích lọc dữ liệu theo điều kiện 1, điều kiện 2, và theo thời gian từ ngày đến ngày. để làm báo cáo. Dựa vào file data

Mong anh chị giúp trợ giúp em, cho em xin cao kiến 1 đoạn code VBA để làm công việc trên ạ. File ví dụ em xin đính kèm

tienhung29 · 18/6/17

Nhờ các cao thủ GPE giúp hoàn thiện em code file này với !!!

phuyen89 · 18/6/17

tienhung29 đã viết:
Nhờ các cao thủ GPE giúp hoàn thiện em code file này với !!!

- Còn tính năng nào, chưa hoàn thiện, thì bạn nêu, chứ bạn quăng lên như thế thì rất khó đó.

NguyenNgocThuHien · 18/6/17

tienhung29 đã viết:
Nhờ các cao thủ GPE giúp hoàn thiện em code file này với !!!

myFunction không biết nó là cái gì nữa.
Để khỏi tạo thì người ta dùng sự kiện UserForm_Initialize, chứ không dùng UserForm_Activate

GTK-PM · 19/6/17

..............................................................

tuanthanhtran · 19/6/17

cần may anh giúp đỡ nội dung như thế này:
1. em cần cho ô A1 (là ô của lớp cụ thể bắt đầu 12A1)
2. Cho ô A1 hiển thị vào Form nhập liệu, sau khi nhập số liệu ở các dòng B2:N2 sau khi xong bấm vào LƯU DỮ LIỆU thì dòng hiện hành sẽ là ô B3:N3,.....cứ như thế đến B39:N39
link dính kèm bên dưới

Chuyên mục xử lý, gỡ rối code VBA (1 người xem)

Người dùng đang xem chủ đề này

Huyền thoại GPE

Thành viên thường trực

Huyền thoại GPE

Thành viên thường trực

Thành viên thường trực

Huyền thoại GPE

Cute Black Cat

Thành viên thường trực

Thành viên mới

|||||||||||||

Thành viên gắn bó

Thành viên thường trực

Thành viên mới

|||||||||||||

Thành viên mới

Thành viên mới

File đính kèm

Thành viên mới

File đính kèm

Thành viên tích cực

Cute Black Cat

Thành viên thường trực

File đính kèm

Thành viên mới

File đính kèm

Đếm ngược thời gian