Sữa lỗi: Runtime error '424'

Liên hệ QC
S

spacemanforever

Thành viên hoạt động
Tham gia
8/10/08
Bài viết
113
Được thích
71
Dear GPE!
Nội dung:
-em có 4 checkbox (checkbox1 - Date, Checkbox2 - A No., Checkbox3 - B No., Checkbox4 - C No.)
-Mỗi checkbox gồm 2 ô điều kiện (From .., to ...) điều kiên From <= To.
Lỗi phát sinh:
Khi tiến hàng cho chạy code:
PHP: 
Sub test()
Dim i, kq
d1 = CDbl([H3].Value)
d2 = CDbl([J3].Value)
i = 0
If CheckBox1.Value = True Then
 If d1 > d2 Then
              kq = kq & "Date error" & Chr(10)
              i = i + 1
 End If
End If
If CheckBox2.Value = True Then
 If [H5].Value > [J5].Value Then
                                 kq = kq & "A No. error" & Chr(10)
                                 i = i + 1
 End If
End If
If CheckBox3.Value = True Then
 If [H7].Value > [J7].Value Then
                                 kq = kq & "B No. error" & Chr(10)
                                 i = i + 1
 End If
End If
If CheckBox4.Value = True Then
 If [H9].Value > [J9].Value Then
                                 kq = kq & "C No. error" & Chr(10)
                                 i = i + 1
 End If
End If
'Report
If i <> 0 Then MsgBox kq & vbNewLine & " Please check it again"
End Sub

Thì bị báo lỗi RUNTIME ERROR '424': OBJECT REQUIRED.

Anh chị hỗ trợ giúp em nhé.
Thanks--=0
 

File đính kèm

  • BC - Copy.rar
    21.2 KB · Đọc: 74
Sắp xếp theo thời gian sắp xếp theo bầu chọn
spacemanforever đã viết:
Dear GPE!
Nội dung:
-em có 4 checkbox (checkbox1 - Date, Checkbox2 - A No., Checkbox3 - B No., Checkbox4 - C No.)
-Mỗi checkbox gồm 2 ô điều kiện (From .., to ...) điều kiên From <= To.
Lỗi phát sinh:
Khi tiến hàng cho chạy code:
PHP: 
Sub test()
Dim i, kq
d1 = CDbl([H3].Value)
d2 = CDbl([J3].Value)
i = 0
If CheckBox1.Value = True Then
 If d1 > d2 Then
              kq = kq & "Date error" & Chr(10)
              i = i + 1
 End If
End If
If CheckBox2.Value = True Then
 If [H5].Value > [J5].Value Then
                                 kq = kq & "A No. error" & Chr(10)
                                 i = i + 1
 End If
End If
If CheckBox3.Value = True Then
 If [H7].Value > [J7].Value Then
                                 kq = kq & "B No. error" & Chr(10)
                                 i = i + 1
 End If
End If
If CheckBox4.Value = True Then
 If [H9].Value > [J9].Value Then
                                 kq = kq & "C No. error" & Chr(10)
                                 i = i + 1
 End If
End If
'Report
If i <> 0 Then MsgBox kq & vbNewLine & " Please check it again"
End Sub

Thì bị báo lỗi RUNTIME ERROR '424': OBJECT REQUIRED.

Anh chị hỗ trợ giúp em nhé.
Thanks--=0
Nhấp chuột vào đây để mở rộng...
Sửa CheckBox1.Value thành Sheet1.CheckBox1.Value
Sửa CheckBox2.Value thành Sheet1.CheckBox2.Value
Sửa CheckBox3.Value thành Sheet1.CheckBox3.Value
Sửa CheckBox4.Value thành Sheet1.CheckBox4.Value
 
Upvote 0
Xin hỏi thêm. Code trên có cách làm gọn hơn không vậy các Huynh.
Thanks
 
Upvote 0
spacemanforever đã viết:
Xin hỏi thêm. Code trên có cách làm gọn hơn không vậy các Huynh.
Thanks
Nhấp chuột vào đây để mở rộng...
Đưng nhiên có:
- Cho CheckBox1 link đến cell F3
- Cho CheckBox2 link đến cell F5
- Cho CheckBox3 link đến cell F7
- Cho CheckBox4 link đến cell F9
- Code sửa lại:
PHP: 
Sub Test()
  Dim Cbox As OLEObject, Arr(), i As Long
  For Each Cbox In Sheet1.OLEObjects
    If InStr(Cbox.progID, "CheckBox") Then
      If Cbox.Object.Value Then
        With Sheet1.Range(Cbox.LinkedCell)
          If .Offset(, 2) > .Offset(, 4) Then
            i = i + 1
            ReDim Preserve Arr(1 To i)
            Arr(i) = Cbox.Object.Caption
          End If
        End With
      End If
    End If
  Next
  If i Then MsgBox Join(Arr, vbLf) & vbLf & "Please check it again"
End Sub
Và hàng đống cách khác có thể nghĩ ra, nhưng nói chung là sẽ dùng vòng lập để rút gọn
 

File đính kèm

  • BC - Copy.rar
    22 KB · Đọc: 65
Upvote 0
mình cũng bị lỗi tương tự khi chạy macro để add hình vào file.
giúp mình xem lỗi chỗ nào với.
lúc trước chạy được bình thường, nhưng mấy bữa nay hay xuất hiện lỗi này.

PHP: 
Option Explicit
Sub AddPic()
Dim SelectRange As Range, n As Long, Answer1 As Integer
Dim LinkTo As String, LinkTo1 As String, DefaulLink As String
DefaulLink = "Y:\FOLLOW UP SAMPLE\Picture 0414"
Set SelectRange = Application.InputBox("Range", Type:=8)
Answer1 = MsgBox("Ban muon dung Defaul Link khong (Nhan Yes)? Hoac chon 1 Link moi den thu muc chua hinh anh? (Nhan NO)", vbYesNo)
If Answer1 = vbNo Then
    LinkTo = InputBox("Paste duong dan thu muc chua hinh anh vao day")
    LinkTo1 = LinkTo
Else
    LinkTo1 = DefaulLink
End If
Dim CellinRange As Range, Addr As String
On Error GoTo Badentry
For Each CellinRange In SelectRange
    CellinRange.Offset(0, -1).Select
    Selection.EntireRow.RowHeight = 85
    Addr = LinkTo1 & "\" & CellinRange.Value & ".JPG"
    ActiveSheet.Pictures.Insert(Addr).Select
    
    'Select lan luot cac picture trong sheet
    Selection.ShapeRange.Height = 75
    Selection.Placement = xlMoveAndSize
ResumNext:
Next
MsgBox "Finished", Title:="Prepared by Hvhue"
Exit Sub
Badentry:
MsgBox "This item havent in your folder picture" & vbNewLine & _
    "Please add more picture to folder."
Resume ResumNext
End Sub
 
Upvote 0
Giúp lỗi này

PHP: 
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"><html dir="ltr" xmlns:MSHelp="urn:schemas-microsoft-com:mshelp"><head><META http-equiv="Content-Type" content="text/html; charset=UTF-16">
<meta http-equiv="assetid" content="HV01202418"><!--csasset id="" date="2006-05-17"--><!--cstransform awsDeveloperHXS.xsl date 2006-08-24 --><!--
      csautotext date 2006-09-19 number --><!--
      csglossary date 2006-09-20 number --><!--
      csglobalstrings date 2006-09-05 number --><META NAME="lcid" CONTENT="1033"><title>Object required (Error 424)</title><script type="text/javascript" language="Javascript" src="office12.js"></script><link rel="stylesheet" type="text/css" href="ont.css"><link rel="stylesheet" type="text/css" href="contentHXS.css">
<SCRIPT LANGUAGE="javascript">
   var strShow='Show All';
   var strHide='Hide All';
   var strRtl='';
   var L_UNDEFINED_TEXT='Help could not locate this inline definition';
</SCRIPT>
  
    <STYLE TYPE="text/CSS">
	    .ACICollapsed
	    {
		    display: none;
	    }

	    .ACECollapsed
	    {
		    display: none;
	    }
          
      <!--to wrap the table text when the page is re-sized-->
      table
      {
          word-break:break-all;
      }
    </STYLE>

    <NOSCRIPT>
	    <STYLE TYPE="text/CSS">
		    .ACICollapsed
		    {
			    display: inline;
		    }

		    .ACECollapsed
		    {
			    display: block;
		    }
	    </STYLE>
    </NOSCRIPT>

	    <SCRIPT>
		    function go(url)
		    {
			    window.open(url, "_self");
		    }

		    function OpenInNewWindow(url)
		    {
			    go(url);
		    }
	    </SCRIPT>




	    <script type="text/JavaScript" language="JavaScript">
	    <!--

    function InlineDefNotFound() { alert(L_UNDEFINED_TEXT); }
    function AppendPopup(oSource, sPopup)
    {
	    InitializeGlobalData();
	    if (typeof(allDivsInPage) == 'undefined' || null == allDivsInPage) return;
	    var theDiv = allDivsInPage['divInlineDef_' + sPopup];
	    if (typeof(theDiv) == 'undefined' || null == theDiv)
		    {
		    InlineDefNotFound();
		    return;
		    }
	    if (theDiv.style.display.toUpperCase() != 'INLINE')
		    theDiv.style.display = 'inline';
	    else
		    theDiv.style.display = 'none';
    }

    //-->
    </script>
     </head><body class="clientViewer"><div class="cdclvBreadcrumbs cdbread"><span><a class="OAnc" href="#" onclick="javascript:GoOfflineParentCategory(0)">Excel 2007 Developer Reference</a> &gt; <a class="OAnc" href="#" onclick="javascript:GoOfflineParentCategory(1)">Visual Basic for Applications Language Reference</a> &gt; <a class="OAnc" href="#" onclick="javascript:GoOfflineParentCategory(2)">Visual Basic Language Reference</a> &gt; <a class="OAnc" href="#" onclick="javascript:GoOfflineParentCategory(3)">Error Messages</a></span></div><!--content HTML starts here--><div class="cdclvSection"><div class="devdocvsbody"><div id="header"><table width="100%" id="topTable"><tr id="headerTableRow1"><td align="left"><span id="runningHeaderText"></span></td></tr><tr id="headerTableRow2"><td align="left"><span id="nsrTitle"><b class="mainheaders">Object required (Error 424)</b></span></td></tr></table></div><p>References to <a href="HV01200929.htm">properties</a> and <a href="HV01200929.htm">methods</a> often require an explicit object qualifier. This error has the following causes and solutions:</p><p><ul type="disc">
<li>You referred to an object property or method, but didn't provide a valid object qualifier.
<p>Specify an object qualifier if you didn't provide one. For example, although you can omit an object qualifier when referencing a form property from within the form's own <a href="HV01200929.htm">module</a>, you must explicitly specify the qualifier when referencing the property from a <a href="HV01200929.htm">standard module</a>.</p>
</li>
<li>You supplied an object qualifier, but it isn't recognized as an object.
<p>Check the spelling of the object qualifier and make sure the object is visible in the part of the program in which you are referencing it. In the case of <b class="bterm">Collection</b> objects, check any occurrences of the <b class="bterm">Add</b> method to be sure the syntax and spelling of all the elements are correct.</p>
</li>
<li>You supplied a valid object qualifier, but some other portion of the call contained an error.
<p>An incorrect path as an <a href="HV01200929.htm">argument</a> to a <a href="HV01200929.htm">host application's</a> <b class="bterm">File Open</b> command could cause the error. Check arguments.</p>
</li>
<li>You didn't use the <b class="bterm">Set</b> statement in assigning an object reference.
<p>If you assign the return value of a <b class="bterm">CreateObject</b> call to a <b class="bterm">Variant</b> variable, an error doesn't necessarily occur if the <b class="bterm">Set</b> statement is omitted. In the following code example, an implicit instance of Microsoft Excel is created, and its default property (the string "Microsoft Excel") is returned and assigned to the <b class="bterm">Variant</b> <div id="vstable"><table><tr><td><pre><code>RetVal</code></pre></td></tr></table></div>. A subsequent attempt to use <div id="vstable"><table><tr><td><pre><code>RetVal</code></pre></td></tr></table></div> as an object reference causes this error:</p>

<div id="vstable"><table><tr><td><pre><code>Dim RetVal                                ' Implicitly a Variant.
' Default property is assigned to Type 8 Variant RetVal.
RetVal = CreateObject("Excel.Application")    
RetVal.Visible = True                ' Error occurs here.
</code></pre></td></tr></table></div>

<p>Use the <b class="bterm">Set</b> statement when assigning an object reference.</p>
</li>
<li>In rare cases, this error occurs when you have a valid object but are attempting to perform an invalid action on the object. For example, you may receive this error if you try to assign a value to a read-only property.
<p>Check the object's documentation and make sure the action you are trying to perform is valid.</p>
</li> </ul></p><p>For additional information, select the item in question and press F1 (in Windows) or HELP (on the Macintosh).</p><META NAME="CreationDate" CONTENT="2005-01-01"></div></div></body></html>
 
Upvote 0
E cũng bị lỗi này runtime error 424 nhờ anh chị sửa giúp. Lỗi ngay dòng em bôi đỏ
Private Sub UserForm_Activate()
Sheets("DTCT").Select
TopRow = Cells.Find("DuToanChiTiet").Row
BotRow = Cells.Find("KetThucDuToan").Row
If DbConDG Is Nothing Then
Set DbConDG = CreateObject("ADODB.Connection")
DbConDG.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\DonGia1728.mdb"
End If
Set RsDmcv = CreateObject("ADODB.RecordSet")
RsDmcv.Open "SELECT * FROM [DonGia]", DbConDG, adOpenKeyset, adLockPessimistic
UpdataToListBox
End Sub
Private Sub UpdataToListBox()
Dim RsCV As ADODB.Recordset
Set RsCV = CreateObject("ADODB.RecordSet")
RsCV.Open "SELECT MADG, TENCV FROM [DonGia]", DbConDG, adOpenKeyset, adLockPessimistic
Dim rcArray As Variant
rcArray = RsCV.GetRows
With LstDMCV
.Clear
If LBound(rcArray, 2) = UBound(rcArray, 2) Then
.AddItem rcArray(LBound(rcArray, 1), LBound(rcArray, 2))
.List(0, 1) = rcArray(LBound(rcArray, 1) + 1, LBound(rcArray, 2))
Else
.List = Application.Transpose(rcArray)
End If
.ListIndex = -1
End With
RsCV.Close
Set RsCV = Nothing
End Sub
Private Sub UserForm_Deactivate()
RsDmcv.Close
DbConDG.Close
Set RsDmcv = Nothing
Set DbConDG = Nothing
End Sub
 

File đính kèm

  • MauDuToanXD.xls
    66 KB · Đọc: 11
Upvote 0
Với fương thức Find() thì sẽ gây lỗi khi không tìm thấy ô cần tìm.
& rõ ràng trên trang tính bạn đưa lên làm gì có cụm từ "DuToanChiTiet"
Trên trang này của file chỉ có cụm từ "DỰ TOÁN CHI TIẾT" mà thôi!
Để thoát khỏi lỗi này, bạn cần khai báo thêm 1 tham biến kiểu Range

&
Set Rng = Cells.Find("GPE.COM")
If Rng Is Nothing then
MsgBox "Nothing"
Else
TopRow = Cells.Find("GPE.COM").Row
End If

Nhân dịp năm mới cận kề: Xin chúc bạn nhiều niềm vui & kết quả!
 
Upvote 0
Hoang2013 đã viết:
Với fương thức Find() thì sẽ gây lỗi khi không tìm thấy ô cần tìm.
& rõ ràng trên trang tính bạn đưa lên làm gì có cụm từ "DuToanChiTiet"
Trên trang này của file chỉ có cụm từ "DỰ TOÁN CHI TIẾT" mà thôi!
Để thoát khỏi lỗi này, bạn cần khai báo thêm 1 tham biến kiểu Range

&
Set Rng = Cells.Find("GPE.COM")
If Rng Is Nothing then
MsgBox "Nothing"
Else
TopRow = Cells.Find("GPE.COM").Row
End If

Nhân dịp năm mới cận kề: Xin chúc bạn nhiều niềm vui & kết quả!
Nhấp chuột vào đây để mở rộng...
Mình cũng chúc bạn năm mới vui vẻ hạnh phúc. Trong file mình đính kèm có cụm từ "DuToanChiTiet" và "KetThucDuToan" ở hàng số 4 và hàng 30 đó bạn. (file bị ẩn 2 dòng đó)
 
Lần chỉnh sửa cuối:
Upvote 0
duytmd đã viết:
E cũng bị lỗi này runtime error 424 nhờ anh chị sửa giúp. Lỗi ngay dòng em bôi đỏ
Private Sub UserForm_Activate()
Sheets("DTCT").Select
TopRow = Cells.Find("DuToanChiTiet").Row
BotRow = Cells.Find("KetThucDuToan").Row
If DbConDG Is Nothing Then
Set DbConDG = CreateObject("ADODB.Connection")
DbConDG.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\DonGia1728.mdb"
End If
Set RsDmcv = CreateObject("ADODB.RecordSet")
RsDmcv.Open "SELECT * FROM [DonGia]", DbConDG, adOpenKeyset, adLockPessimistic
UpdataToListBox
End Sub
Private Sub UpdataToListBox()
Dim RsCV As ADODB.Recordset
Set RsCV = CreateObject("ADODB.RecordSet")
RsCV.Open "SELECT MADG, TENCV FROM [DonGia]", DbConDG, adOpenKeyset, adLockPessimistic
Dim rcArray As Variant
rcArray = RsCV.GetRows
With LstDMCV
.Clear
If LBound(rcArray, 2) = UBound(rcArray, 2) Then
.AddItem rcArray(LBound(rcArray, 1), LBound(rcArray, 2))
.List(0, 1) = rcArray(LBound(rcArray, 1) + 1, LBound(rcArray, 2))
Else
.List = Application.Transpose(rcArray)
End If
.ListIndex = -1
End With
RsCV.Close
Set RsCV = Nothing
End Sub
Private Sub UserForm_Deactivate()
RsDmcv.Close
DbConDG.Close
Set RsDmcv = Nothing
Set DbConDG = Nothing
End Sub
Nhấp chuột vào đây để mở rộng...

Đoán là do biến DbConDG
chưa được khai báo.

dim DbConDG as object

cho câu lệnh trên ở đầu modun xem.
 
Upvote 0
Cho đoạn code sau vào đầu code của FormDonGia
Mã: 
Option Explicit

Dim RsDmcv As ADODB.Recordset
Dim TopRow As Long, BotRow As Long
Dim DbConDG As ADODB.Connection
Có file DonGia1728.mdb không để mà test hả cậu ?
 
Upvote 0
Còn sữa code nhiều lắm, ví dụ 1 loạt TxtXXX, CmdXXX chưa có, khai báo sai name...
Bạn cứ làm từ từ đi
 
Upvote 0
NguyenNgocThuHien đã viết:
Đoán là do biến DbConDG
chưa được khai báo.

dim DbConDG as object

cho câu lệnh trên ở đầu modun xem.
Nhấp chuột vào đây để mở rộng...
Thêm dim vào là khắc phục được lỗi runtime error 424. Nhưng phát sinh thêm lỗi Runtume error 3001 "agruments are off the wrong type, are out of accesstable range, or are in conflict with one another"
Debug tại dòng "RsDmcv.Open "SELECT * FROM [DonGia]", DbConDG, adOpenKeyset, adLockPessimistic"
 
Upvote 0
Bạn thêm mấy dòng code tui post ở trên vào chưa ?
 
Upvote 0
Thêm đủ vào đi.
 
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
  • Question
Code lấy dữ liệu từ 3 file con.
3 4 5
Trả lời
84
Đọc
2K
ptm0412
ptm0412
Salem999999999
Lọc dữ liệu có điều kiện
2
Trả lời
26
Đọc
664
VetMini
V
P
  • Question
Xin code gán mở theo tài khoản/profie đăng nhập bằng gmail sẵn trên trình duyệt
Trả lời
4
Đọc
206
phantu93
P
V
công thức của nó là gì ạ. mong mọi người giúp
Trả lời
1
Đọc
79
CHAOQUAY
C
son0611excel
  • Question
VBA tra cứu hình theo điều kiện
Trả lời
13
Đọc
310
ongke0711
ongke0711
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