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

Liên hệ QC
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

  • Test_MST.rar
    22.3 KB · Đọc: 9
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

  • ToMau_Cot_E.rar
    15.5 KB · Đọc: 6
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

  • Inputbox.xls
    42.5 KB · Đọc: 28
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

  • Copy of Inputbox.rar
    7.9 KB · Đọc: 20
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

  • Inputbox.xls
    42.5 KB · Đọc: 5
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

  • Copy of Inputbox.rar
    9.6 KB · Đọc: 17
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

LuuAnh980
Vấn đề viết tắt trong Diễn Đàn.
    • Thích
    • Cười
2 3
Trả lời
52
Đọc
1K
SA_DQ
SA_DQ
T
xin công thức tính kết chuyển lỗ vào thu nhập tính thuế TNDN trong nhiều năm
Trả lời
0
Đọc
26
trihieu610
T
Bùi Đức Dương
Vba sang Vb.net
Trả lời
4
Đọc
141
VetMini
V
ann266
Kế toán kho F&B
    • Cười
2
Trả lời
27
Đọc
431
ann266
ann266
H
Tính tổng có điều kiện
    • Thích
2
Trả lời
24
Đọc
576
hoaiantrinh
H
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

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

Back
Top Bottom