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

Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
tuananhya2

tuananhya2

Thành viên mới
Tham gia
18/8/12
Bài viết
8
Được thích
0
Co ai chỉ dùm cách tạo pass marco với
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Giúp sửa code kiểm tra Mã số thuế, nếu sai thì tô màu
------------------------------------------------------------------
Em muốn kiểm tra Mã số thuế ở cột G, nếu sai thì tô màu chữ, đúng thì kg tô màu!
Hàm Kiểm tra Mã số thuế
Mã: 
Private Function MSTcheck(ByVal mst1) As Boolean
    Dim msttext, skt, mst As String
    If mst1 = "" Then
        msttext = msttext
    End If
    If Len(mst1 & "") = 13 Or Len(mst1 & "") = 14 Or Len(mst1 & "") = 10 Then
        mst = Mid(mst1, 1, 10)
        If IsNumeric(mst) Then
            msttext = mst
        Else
            Exit Function
        End If
        msttext = mst


        skt = CDbl(Mid(msttext, 1, 1)) * 31
        skt = skt + CDbl(Mid(msttext, 2, 1)) * 29
        skt = skt + CDbl(Mid(msttext, 3, 1)) * 23
        skt = skt + CDbl(Mid(msttext, 4, 1)) * 19
        skt = skt + CDbl(Mid(msttext, 5, 1)) * 17
        skt = skt + CDbl(Mid(msttext, 6, 1)) * 13
        skt = skt + CDbl(Mid(msttext, 7, 1)) * 7
        skt = skt + CDbl(Mid(msttext, 8, 1)) * 5
        skt = skt + CDbl(Mid(msttext, 9, 1)) * 3


        MSTcheck = (CDbl(Mid(msttext, 10)) = 10 - skt Mod 11)
    End If
End Function
Code để tô màu
Mã: 
Sub ToMau_Cot_H()
    Dim i As Long
    Dim arrRes, arrSrc, rng As Range
    Dim bChk As Boolean
    [A18:O2000].Font.ColorIndex = 1
    [A18:O2000].Interior.ColorIndex = xlNone
    [A18:O2000].Font.Bold = 0
    Set rng = Range([A18], [A65536].End(3)).Resize(, 15)
    arrSrc = rng.Value
    For i = 1 To UBound(arrSrc, 1)
        If arrSrc(i, 1) <> "" Then
            bChk =[COLOR=#ff0000][B] MSTcheck[/B][/COLOR](CStr(arrSrc(i, 8)))
            If bChk = False Then rng(i, 8).Font.ColorIndex = 3
        End If
    Next i
End Sub
Code trên bị báo lỗi ở MSTcheck
và lỗi là " Compile error: Sub or fuction not difined "

Em sửa hòai mấy giờ rồi nhưng vẫn chưa được!
Thầy cô & anh chị giúp em!
Em cảm ơn!
 

File đính kèm

Upvote 0
Hong.Van đã viết:
Giúp sửa code kiểm tra Mã số thuế, nếu sai thì tô màu
------------------------------------------------------------------
Em muốn kiểm tra Mã số thuế ở cột G, nếu sai thì tô màu chữ, đúng thì kg tô màu!
Hàm Kiểm tra Mã số thuế
Mã: 
Private Function MSTcheck(ByVal mst1) As Boolean
    Dim msttext, skt, mst As String
    If mst1 = "" Then
        msttext = msttext
    End If
    If Len(mst1 & "") = 13 Or Len(mst1 & "") = 14 Or Len(mst1 & "") = 10 Then
        mst = Mid(mst1, 1, 10)
        If IsNumeric(mst) Then
            msttext = mst
        Else
            Exit Function
        End If
        msttext = mst


        skt = CDbl(Mid(msttext, 1, 1)) * 31
        skt = skt + CDbl(Mid(msttext, 2, 1)) * 29
        skt = skt + CDbl(Mid(msttext, 3, 1)) * 23
        skt = skt + CDbl(Mid(msttext, 4, 1)) * 19
        skt = skt + CDbl(Mid(msttext, 5, 1)) * 17
        skt = skt + CDbl(Mid(msttext, 6, 1)) * 13
        skt = skt + CDbl(Mid(msttext, 7, 1)) * 7
        skt = skt + CDbl(Mid(msttext, 8, 1)) * 5
        skt = skt + CDbl(Mid(msttext, 9, 1)) * 3


        MSTcheck = (CDbl(Mid(msttext, 10)) = 10 - skt Mod 11)
    End If
End Function
Code để tô màu
Mã: 
Sub ToMau_Cot_H()
    Dim i As Long
    Dim arrRes, arrSrc, rng As Range
    Dim bChk As Boolean
    [A18:O2000].Font.ColorIndex = 1
    [A18:O2000].Interior.ColorIndex = xlNone
    [A18:O2000].Font.Bold = 0
    Set rng = Range([A18], [A65536].End(3)).Resize(, 15)
    arrSrc = rng.Value
    For i = 1 To UBound(arrSrc, 1)
        If arrSrc(i, 1) <> "" Then
            bChk =[COLOR=#ff0000][B] MSTcheck[/B][/COLOR](CStr(arrSrc(i, 8)))
            If bChk = False Then rng(i, 8).Font.ColorIndex = 3
        End If
    Next i
End Sub
Code trên bị báo lỗi ở MSTcheck
và lỗi là " Compile error: Sub or fuction not difined "

Em sửa hòai mấy giờ rồi nhưng vẫn chưa được!
Thầy cô & anh chị giúp em!
Em cảm ơn!
Nhấp chuột vào đây để mở rộng...

kyo chưa tính đến code bạn thế nào, nhưng lỗi của bạn có thể thấy được ở chỗ bạn để Private Function. Nếu bạn đặt Private Function ở 1 module, chạy Sub ToMau ở 1 module khác nữa thì nó sẽ dẫn đến lỗi, bởi vì Private chỉ có thể được sử dụng trong phạm vi module đó mà thôi. Để hết lỗi, bạn chỉ việc bỏ Private đi.
 
Upvote 0
GIÚP SỬA CODE TÔ MÀU!
-------------------------------
Em có viết code tô màu cho cột E như sau:
Cột E này được phép nhập kiểu Number (ví dụ: 301) hoặc kiểu chuỗi, nhưng không được có ký tự là chữ lẫn lộn vào , ví dụ:
'0000301 -> OK
a301 -> không được
30ab1 ->không được
301dg -> không được
-----------
Code em như sau
Mã: 
Sub TestMau_CotE()
    Dim i As Long
    Dim arrRes, arrSrc, rng As Range
    [A18:O2000].Font.ColorIndex = 1
    Set rng = Range([A18], [A65536].End(3)).Resize(, 15)
    arrSrc = rng.Value
    For i = 1 To UBound(arrSrc, 1)
        If Val(arrSrc(i, 5)) = False Then rng(i, 5).Font.ColorIndex = 3
    Next
End Sub
Nhưng trong File của em, cell E24 & E30 không bị tô màu?
Em không biết fải sửa Val thành cái gì?
Em cảm ơn!
 

File đính kèm

Upvote 0
Hong.Van đã viết:
GIÚP SỬA CODE TÔ MÀU!
-------------------------------
Em có viết code tô màu cho cột E như sau:
Cột E này được phép nhập kiểu Number (ví dụ: 301) hoặc kiểu chuỗi, nhưng không được có ký tự là chữ lẫn lộn vào , ví dụ:
'0000301 -> OK
a301 -> không được
30ab1 ->không được
301dg -> không được
-----------
Code em như sau
Mã: 
Sub TestMau_CotE()
    Dim i As Long
    Dim arrRes, arrSrc, rng As Range
    [A18:O2000].Font.ColorIndex = 1
    Set rng = Range([A18], [A65536].End(3)).Resize(, 15)
    arrSrc = rng.Value
    For i = 1 To UBound(arrSrc, 1)
        If Val(arrSrc(i, 5)) = False Then rng(i, 5).Font.ColorIndex = 3
    Next
End Sub
Nhưng trong File của em, cell E24 & E30 không bị tô màu?
Em không biết fải sửa Val thành cái gì?
Em cảm ơn!
Nhấp chuột vào đây để mở rộng...
Để đơn giản hóa vấn đề, ta lấy thằng arrSrc(i, 5) nhân với 1, nếu báo lỗi (tức Err.Number >0) thì tô màu
Thế thôi
Mã: 
Sub TestMau_CotE()
    Dim i As Long, tmp
    Dim arrRes, arrSrc, rng As Range
    [COLOR=#ff0000]On Error Resume Next[/COLOR]
    [A18:O2000].Font.ColorIndex = 1
    Set rng = Range([A18], [A65536].End(3)).Resize(, 15)
    arrSrc = rng.Value
    For i = 1 To UBound(arrSrc, 1)
      tmp = arrSrc(i, 5) * 1
      [COLOR=#ff0000]If Err.Number Then
        rng(i, 5).Font.ColorIndex = 3
        Err.Clear
      End If[/COLOR]
    Next
End Sub
Hoặc cách khác: Dùng IsNumeric
Mã: 
Sub TestMau_CotE()
    Dim i As Long
    Dim arrRes, arrSrc, rng As Range
    [A18:O2000].Font.ColorIndex = 1
    Set rng = Range([A18], [A65536].End(3)).Resize(, 15)
    arrSrc = rng.Value
    For i = 1 To UBound(arrSrc, 1)
      [COLOR=#ff0000]If Not IsNumeric(arrSrc(i, 5)) Then[/COLOR] rng(i, 5).Font.ColorIndex = 3
    Next
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
Cho em hỏi thêm, có hàm nào kiểm tra cell là số nguyên dương không ạ!
Em cảm ơn!
 
Upvote 0
Hong.Van đã viết:
Cho em hỏi thêm, có hàm nào kiểm tra cell là số nguyên dương không ạ!
Em cảm ơn!
Nhấp chuột vào đây để mở rộng...

Tôi cũng không biết nữa, nhưng nếu tôi làm thì sẽ vầy:
Mã: 
If IsNumeric(Số) then ''<--- Kiểm tra xem có phải là số không
  If Số > 0 then ''<--- Kiểm tra xem số có dương không?
    If Int(Số) = Số  then ''<--- Kiểm tra xem số có nguyên không
 
Upvote 0
quanghai1969 đã viết:
Chắc đại loại là thế này. Giả sử pass của bạn là 123456789
PHP: 
Sub mo_file()
Dim pass
pass = Application.InputBox("Nhap Pass:")
If pass <> 123456789 Then Exit Sub
Workbooks.Open duongdantenfile, , , , pass
End Sub
Nhấp chuột vào đây để mở rộng...

Dear, Anh Hải cùng các Thầy Cô!
Em không dùng code mở file mà dùng code này cơ ạ.
PHP: 
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
Liệu có cách nào mở pass với code này không ạ?
ví dụ pas mở các file con để links dữ liệu vẫn là :123456789
 
Lần chỉnh sửa cuối:
Upvote 0
Hỏi về Biến ký tự thành dấu * trong Input?

Xin chào mọi người.
Em có đoạn code này:
Sub BackupFiles()
HTML: 
Dim Pass
    Pass = Application.InputBox("Xin vui lòng nhâp Password:")
If Pass = ("123") Then
End If
End Sub

Xin hỏi có cách nào khi nhập 123 đấy nó hiển thị thành dấu * như password không?
Ví dụ như hình ảnh:
Theo code của Em thì nó thế này:1.JPG

Xin hỏi phải viết code thế nào để nó thành thế này được ạ:2.JPG
Mong các chuyên gia giúp đỡ. Xin cám ơn!
 
Upvote 0
QuỷKiếmSầu đã viết:
Xin chào mọi người.
Em có đoạn code này:
Sub BackupFiles()
HTML: 
Dim Pass
    Pass = Application.InputBox("Xin vui lòng nhâp Password:")
If Pass = ("123") Then
End If
End Sub

Xin hỏi có cách nào khi nhập 123 đấy nó hiển thị thành dấu * như password không?
Ví dụ như hình ảnh:
Theo code của Em thì nó thế này:View attachment 96940

Xin hỏi phải viết code thế nào để nó thành thế này được ạ:View attachment 96941
Mong các chuyên gia giúp đỡ. Xin cám ơn!
Nhấp chuột vào đây để mở rộng...

Theo mình biết thì không thể được đâu.
 
Upvote 0
Dùng inputbox thì có thể không được nhưng nếu tạo 1 userform có textbox trong đó thì có thể làm được thông qua thuộc tính passwordchar của textbox.
 
Upvote 0
quanghai1969 đã viết:
Theo mình biết thì không thể được đâu.
Nhấp chuột vào đây để mở rộng...

Với trinh độ mình thì không được nhưng với người khác em nghĩ là không gì là không thể

Code trong Classmodule

PHP: 
Function PassInputBox(Prompt As String, Optional PasswordChar As String, Optional Title As String, Optional Default As String, Optional XPos As Long, Optional YPos As Long)
    Dim UF                                              'Store the VBComponent
    Dim VUF As Object                                   'Store the userform object
    Dim Lb  As Object                                   'Label for the Prompt
    Dim Tb  As Object                                   'TextBox which holds the password
    Dim BOk  As Object
    Dim BCancel  As Object
    Dim VBAVisible As Boolean                           'Store VBE.Mainwindow visible state to restore it
    Dim i As Integer
    
    'Default Title is the same as InputBox
    If Len(Title) = 0 Then Title = Application.Name
    
    'Store the visible property of the VBE mainwindow and hide it to prevent screen flashing
    VBAVisible = Application.VBE.MainWindow.Visible
    Application.VBE.MainWindow.Visible = False
    
    'Add temporary Userform
    Set UF = ThisWorkbook.VBProject.VBComponents.Add(3)
    
    'Add the textbox.  If no PasswordChar was supplied, the text will appear normally
    Set Tb = UF.Designer.Controls.Add("Forms.Textbox.1", "TextBox1")
    With Tb
        .PasswordChar = PasswordChar
        .Left = 4.5
        .Top = 69.75
        .Width = 254.25
        .Height = 15.75
        .Value = Default
    End With
    
    'Add the prompt
    Set Lb = UF.Designer.Controls.Add("Forms.Label.1")
    With Lb
        .Caption = Prompt
        .WordWrap = True
        .Left = 6.75
        .Top = 6.75
        .Width = 198
        .Height = 54
    End With
    
    'Button OK, it is the default button
    Set BOk = UF.Designer.Controls.Add("Forms.CommandButton.1", "BOk")
    With BOk
        .Caption = "OK"
        .Left = 209.25
        .Top = 4.5
        .Width = 49.5
        .Height = 18
        .Default = True
    End With
    
    'Button Cancel
    Set BCancel = UF.Designer.Controls.Add("Forms.CommandButton.1", "BCancel")
    With BCancel
        .Caption = "Cancel"
        .Cancel = True
        .Left = 209.25
        .Top = 27
        .Width = 49.5
        .Height = 18
    End With
    
    'Add code to the Userform module
    With UF.CodeModule
        i = .CountOfLines
        'MyText is a variant which will hold the answer the user pressed
        .InsertLines i + 0, "Public MyText as Variant"
        
        'Pressed Cancel, so assign False to MyText
        .InsertLines i + 1, "Private Sub BCancel_Click()"
        .InsertLines i + 2, "   MyText = False: Me.Hide"
        .InsertLines i + 3, "End Sub"
        
        'Pressed Ok, so assign the value of TextBox1 to MyText
        .InsertLines i + 4, "Private Sub BOk_Click()"
        .InsertLines i + 5, "   MyText = TextBox1.Value: Me.Hide"
        .InsertLines i + 6, "End Sub"
    
        'Closing the form using "X", so assign False to MyText
        .InsertLines i + 7, "Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)"
        .InsertLines i + 8, "   If CloseMode = 0 Then Cancel = True: MyText = False: Me.Hide"
        .InsertLines i + 9, "End Sub"
    End With
    'Properties for the userform
    With UF
        .Properties("Caption") = Title
        .Properties("Width") = 273
        .Properties("Height") = 108.75
        
        'Center on screen or show in a specific position
        If XPos > 0 Or YPos > 0 Then
            .Properties("StartUpPosition") = 0
            .Properties("Left") = XPos
            .Properties("Top") = YPos
        Else
            .Properties("StartUpPosition") = 1
        End If
    End With
    
    'Include the UF in the Userforms collection
    Set VUF = VBA.UserForms.Add(UF.Name)
    
    'Show the Userform
    VUF.Show
    'Pass the result to this function
    PassInputBox = VUF.MyText
    'Remove the VBcomponet
    ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=UF
    
    'Restore the VBE Mainwindow
    Application.VBE.MainWindow.Visible = VBAVisible
End Function

Code trong Module

PHP: 
Sub Test()
    Dim ans As Variant            'ans is declared Variant to work similar to Application.InputBox
    Dim App As PwdInputBox        'Reference the class module
    Set App = New PwdInputBox     'Create a new instance
    
    ans = App.PassInputBox("Please enter the password", "*", "My Application") 'Show the Inputbox and store the result
    If ans = False Then
        MsgBox "Pressed Cancel"
    Else
        MsgBox "The password entered is: " & ans
    End If
End Sub

Bạn code thể tham khảo file sau
Website: MrExcel
 

File đính kèm

Upvote 0
nmhung49 đã viết:
Với trinh độ mình thì không được nhưng với người khác em nghĩ là không gì là không thể
Bạn code thể tham khảo file sau
Website: MrExcel
Nhấp chuột vào đây để mở rộng...

Sao phức tạp thế. Vậy thôi vẽ cái userform rồi thêm cái textbox cho nhẹ cái đầu. Hic nhìn code mà phát khiếp rồi.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
nmhung49 đã viết:
Với trinh độ mình thì không được nhưng với người khác em nghĩ là không gì là không thể
Nhấp chuột vào đây để mở rộng...

Cách này quá thường, vì cuối cùng nó cũng tạo 1 UserForm tạm giả lập cái InputBox ấy thôi ---> Chẳng có gì đáng nói cả
Bài này:
http://www.giaiphapexcel.com/forum/showthread.php?40985-Chuyển-ký-tự-sang-dạng-*&p=271197#post271197
Mới đúng là chuyển ký tự password thành dấu * trên InputBox
 
Upvote 0
nmhung49 đã viết:
Với trinh độ mình thì không được nhưng với người khác em nghĩ là không gì là không thể

Code trong Classmodule

PHP: 
Function PassInputBox(Prompt As String, Optional PasswordChar As String, Optional Title As String, Optional Default As String, Optional XPos As Long, Optional YPos As Long)
    Dim UF                                              'Store the VBComponent
    Dim VUF As Object                                   'Store the userform object
    Dim Lb  As Object                                   'Label for the Prompt
    Dim Tb  As Object                                   'TextBox which holds the password
    Dim BOk  As Object
    Dim BCancel  As Object
    Dim VBAVisible As Boolean                           'Store VBE.Mainwindow visible state to restore it
    Dim i As Integer
    
    'Default Title is the same as InputBox
    If Len(Title) = 0 Then Title = Application.Name
    
    'Store the visible property of the VBE mainwindow and hide it to prevent screen flashing
    VBAVisible = Application.VBE.MainWindow.Visible
    Application.VBE.MainWindow.Visible = False
    
    'Add temporary Userform
    Set UF = ThisWorkbook.VBProject.VBComponents.Add(3)
    
    'Add the textbox.  If no PasswordChar was supplied, the text will appear normally
    Set Tb = UF.Designer.Controls.Add("Forms.Textbox.1", "TextBox1")
    With Tb
        .PasswordChar = PasswordChar
        .Left = 4.5
        .Top = 69.75
        .Width = 254.25
        .Height = 15.75
        .Value = Default
    End With
    
    'Add the prompt
    Set Lb = UF.Designer.Controls.Add("Forms.Label.1")
    With Lb
        .Caption = Prompt
        .WordWrap = True
        .Left = 6.75
        .Top = 6.75
        .Width = 198
        .Height = 54
    End With
    
    'Button OK, it is the default button
    Set BOk = UF.Designer.Controls.Add("Forms.CommandButton.1", "BOk")
    With BOk
        .Caption = "OK"
        .Left = 209.25
        .Top = 4.5
        .Width = 49.5
        .Height = 18
        .Default = True
    End With
    
    'Button Cancel
    Set BCancel = UF.Designer.Controls.Add("Forms.CommandButton.1", "BCancel")
    With BCancel
        .Caption = "Cancel"
        .Cancel = True
        .Left = 209.25
        .Top = 27
        .Width = 49.5
        .Height = 18
    End With
    
    'Add code to the Userform module
    With UF.CodeModule
        i = .CountOfLines
        'MyText is a variant which will hold the answer the user pressed
        .InsertLines i + 0, "Public MyText as Variant"
        
        'Pressed Cancel, so assign False to MyText
        .InsertLines i + 1, "Private Sub BCancel_Click()"
        .InsertLines i + 2, "   MyText = False: Me.Hide"
        .InsertLines i + 3, "End Sub"
        
        'Pressed Ok, so assign the value of TextBox1 to MyText
        .InsertLines i + 4, "Private Sub BOk_Click()"
        .InsertLines i + 5, "   MyText = TextBox1.Value: Me.Hide"
        .InsertLines i + 6, "End Sub"
    
        'Closing the form using "X", so assign False to MyText
        .InsertLines i + 7, "Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)"
        .InsertLines i + 8, "   If CloseMode = 0 Then Cancel = True: MyText = False: Me.Hide"
        .InsertLines i + 9, "End Sub"
    End With
    'Properties for the userform
    With UF
        .Properties("Caption") = Title
        .Properties("Width") = 273
        .Properties("Height") = 108.75
        
        'Center on screen or show in a specific position
        If XPos > 0 Or YPos > 0 Then
            .Properties("StartUpPosition") = 0
            .Properties("Left") = XPos
            .Properties("Top") = YPos
        Else
            .Properties("StartUpPosition") = 1
        End If
    End With
    
    'Include the UF in the Userforms collection
    Set VUF = VBA.UserForms.Add(UF.Name)
    
    'Show the Userform
    VUF.Show
    'Pass the result to this function
    PassInputBox = VUF.MyText
    'Remove the VBcomponet
    ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=UF
    
    'Restore the VBE Mainwindow
    Application.VBE.MainWindow.Visible = VBAVisible
End Function

Code trong Module

PHP: 
Sub Test()
    Dim ans As Variant            'ans is declared Variant to work similar to Application.InputBox
    Dim App As PwdInputBox        'Reference the class module
    Set App = New PwdInputBox     'Create a new instance
    
    ans = App.PassInputBox("Please enter the password", "*", "My Application") 'Show the Inputbox and store the result
    If ans = False Then
        MsgBox "Pressed Cancel"
    Else
        MsgBox "The password entered is: " & ans
    End If
End Sub

Bạn code thể tham khảo file sau
Website: MrExcel
Nhấp chuột vào đây để mở rộng...

Em vừa chạy phát báo lỗi luôn ??
3.JPG
Phải xử lý thế nào ạ?
 
Upvote 0
QuỷKiếmSầu đã viết:
Phiền GPE có thể cho em 1 ví dụ đính kèm đơn giản được không ạ?
Nhấp chuột vào đây để mở rộng...

Thì bạn cứ vẽ 1 UserForm với 1 TextBox... Thuộc tính PasswordChar của TextBox, gõ dấu * vào (mấu chốt nằm ở đây thôi)
Còn code thì viết thế nào là tùy bạn thôi

Untitled.jpg
























----------------------------
QuỷKiếmSầu đã viết:
Em vừa chạy phát báo lỗi luôn ??

Phải xử lý thế nào ạ?
Nhấp chuột vào đây để mở rộng...
Quan trọng câu thông báo lỗi là gì?
Với code dạng chỉnh sửa gì đó trong cửa sổ VBA, để chạy được nó bắt buộc bạn phải check mục "Trust access to VBA project...." (nằm trong Excel Options\Trust Center\Macro Settings)
 
Lần chỉnh sửa cuối:
Upvote 0
Em biết Chỗ Thầy chỉ rồi.
Nhưng code fai viết theo cấu trúc kểu gì ạ,
ví dụ pass là:123
Nếu pass đúng thì sẽ thực hiện yêu cầu.
Nếu sai pass exit sub.

Thầy cho em 1 ví dụ (đoạn code) gán điều kiện code vào bài này với ạ.
 
Upvote 0
ndu96081631 đã viết:
Quan trọng câu thông báo lỗi là gì?
Với code dạng chỉnh sửa gì đó trong cửa sổ VBA, để chạy được nó bắt buộc bạn phải check mục "Trust access to VBA project...." (nằm trong Excel Options\Trust Center\Macro Settings)
Nhấp chuột vào đây để mở rộng...

Em làm như Thầy chỉ rồi nhưng nó vẫn bị lỗi mà Thầy.
4.JPG
 

File đính kèm

Upvote 0
QuỷKiếmSầu đã viết:
Em biết Chỗ Thầy chỉ rồi.
Nhưng code fai viết theo cấu trúc kểu gì ạ,
ví dụ pass là:123
Nếu pass đúng thì sẽ thực hiện yêu cầu.
Nếu sai pass exit sub.

Thầy cho em 1 ví dụ (đoạn code) gán điều kiện code vào bài này với ạ.
Nhấp chuột vào đây để mở rộng...
Tiếp tục thử xem sao
 

File đính kèm

Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

SA_DQ
[Xin hỏi] Cách tính số tiền bình quân của tài khoản trong 1 tháng
Trả lời
13
Đọc
225
SA_DQ
SA_DQ
N
Xin giúp e cách lọc dữ liệu bị trùng (1 người xem)
Trả lời
3
Đọc
130
hoangtuaotrang_hp_vn
H
A
ExTools : Hơn 60 tính năng bổ sung cho Excel
    • Thích
Trả lời
3
Đọc
9K
mangat060083
M
M
  • Question Question
Tự chèn dòng khi cập nhật dữ liệu từ trang tính khác. (1 người xem)
Trả lời
2
Đọc
70
mtbackup
M
anhtuan1066
  • Question Question
Đọc số thành chữ có phần thập phân
Trả lời
12
Đọc
8K
caocat
C
A
  • Question Question
Nhờ anh chị em chú bác giúp em viết code vba thay cho công thức dò tìm và tính
Trả lời
2
Đọc
95
A HOANG 620
A
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711)
    • Thích
    • Yêu thích
    • Cảm ơn
12 13 14
Trả lời
262
Đọc
28K
toptikibeauty
T
T
tìm ra số tháng mà lượng hàng nhập ban đầu sử dụng hết
    • Cười
Trả lời
3
Đọc
149
minhminh27
minhminh27
nttrung_proneu
Cách giữ công thức khi lọc và tách file
Trả lời
2
Đọc
85
nttrung_proneu
nttrung_proneu
K
  • Question Question
Code vba đọc QR code file hình ảnh trên CCCD
    • Cười
Trả lời
0
Đọc
103
kingbo.camera
K
Nguyễn Duy Tuân
Phiên bản mới Add-in A-Tools v10 (2024) (1 người xem)
    • Thích
2 3
Trả lời
42
Đọc
3K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
H
  • Question Question
Gửi mail hàng loạt với mỗi mail là 1 file PDF đính kèm khác nhau
Trả lời
1
Đọc
83
minhminh27
minhminh27
B
Làm sao đổi đơn vị B, M này sang hàng đơn vị vậy mọi người?
    • Cười
Trả lời
4
Đọc
83
Bao Nguyen 89
B
C
Tạo hyperlink hàng loạt
Trả lời
9
Đọc
5K
online.tanphat
O
TrungChinhs
  • Question Question
Hỏi cách làm tròn số trong VBA
Trả lời
9
Đọc
7K
SA_DQ
SA_DQ
dongbhhg
Tìm lương cơ sở theo từng tháng
Trả lời
3
Đọc
103
dongbhhg
dongbhhg
V
Làm mẫu giấy đi đường (công lệnh) bằng Excel
Trả lời
12
Đọc
11K
Gà Công Nghệ
Gà Công Nghệ
N
Thử lập trình XLL add-in bằng C/C++
    • Thích
Trả lời
0
Đọc
119
nguyendang95
N
Tuấn Bụng Bự
tạo QRcode chuyển khoản ngân hàng
Trả lời
5
Đọc
236
Tuấn Bụng Bự
Tuấn Bụng Bự
M
Tự chèn dòng khi cập nhật dữ liệu từ trang tính khác.
Trả lời
1
Đọc
82
BuiQuangThuan
B
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365
Back
Top Bottom