Nhờ anh em xem đoạn code bị lỗi Sub or Function not defined

Liên hệ QC
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Thiếu hàm hoặc Sub Locin trong modul.
 
Upvote 0
tuanvu0407 đã viết:
anh down về rồi giải nén mở excel lên rồi ALT+F11 -> import file có đuôi frm vào mới thấy code của em trong from anh
Nhấp chuột vào đây để mở rộng...
Máy của mình không giải nén file .RAR của bạn được.
Xin lỗi BQT, tôi không đọc tin của Anh SA-DQ trước khi đăng bài trả lời.
 
Upvote 0
HUONGHCKT đã viết:
Máy của mình không giải nén file .RAR của bạn được.
Xin lỗi BQT, tôi không đọc tin của Anh SA-DQ trước khi đăng bài trả lời.
Nhấp chuột vào đây để mở rộng...
Private Sub LENHIN_Click()
On Error GoTo tn
'tao mang chay
Application.ScreenUpdating = False
Dim arr1() As Variant
Dim chuoi1, chuoi2, chuoi3 As String
chuoi1 = TTIN.Text
chuoi2 = Left(chuoi1, InStr(1, chuoi1, "!") - 1)
chuoi3 = Right(chuoi1, Len(chuoi1) - InStr(1, chuoi1, "!"))
Sheets(chuoi2).Select
Range(chuoi3).Select
arr1 = WorksheetFunction.Transpose(Selection.Resize(Selection.Rows.Count, 1))
'tao mang dieu kien
Dim arr2() As Variant
Dim chuoi4, chuoi5, chuoi6 As String
chuoi4 = LISTIN.Text
chuoi5 = Left(chuoi4, InStr(1, chuoi4, "!") - 1)
chuoi6 = Right(chuoi4, Len(chuoi4) - InStr(1, chuoi4, "!"))
Sheets(chuoi5).Select
Range(chuoi6).Select
arr2 = WorksheetFunction.Transpose(Selection.Resize(Selection.Rows.Count, 1))
'tham chieu target
Dim chuoitarget, chuoitaget1, chuoitaget2 As String
chuoitarget = TARGET.Text
chuoitarget1 = Left(chuoitarget, InStr(1, chuoitarget, "!") - 1)
chuoitarget2 = Right(chuoitarget, Len(chuoitarget) - InStr(1, chuoitarget, "!"))
'gan mang resize
Dim a, b As Integer
Dim tex1, tex2 As String
Dim res1(), res2() As String
text1 = RS.Text
a = Len(text1) - Len(Replace(text1, ")", "", 1, , vbTextCompare))
ReDim res1(1 To a)
ReDim res2(1 To a)
text2 = text1
For b = 1 To a
res1(b) = Mid(text2, 2, InStr(1, text2, "!", vbTextCompare) - 2)
res2(b) = Mid(text2, InStr(1, text2, "!", vbTextCompare) + 1, _
InStr(1, text2, ")", vbTextCompare) - InStr(1, text2, "!", vbTextCompare) - 1)
text2 = Right(text2, Len(text2) - InStr(1, text2, ")", vbTextCompare))
Next b
'gan mang dieu kien
Dim i, j As Integer
Dim str, str1, str2, str3 As String
Dim mang(), mangsheet() As String
str = DIEUKIENIN.Text
i = Len(str) - Len(Replace(str, ")", "", 1, , vbTextCompare))
ReDim mang(1 To i)
str1 = str
For j = 1 To i
mang(j) = Mid(str1, 2, InStr(1, str1, "/", vbTextCompare) - 2)
str1 = Right(str1, Len(str1) - InStr(1, str1, ")", vbTextCompare))
Next j
'gan mang sheetsdieukien
ReDim mangsheet(1 To i) As String
str2 = str
For j = 1 To i
mangsheet(j) = Mid(str2, 1, InStr(1, str2, ")", vbTextCompare))
str2 = Right(str2, Len(str2) - InStr(1, str2, ")", vbTextCompare))
Next j

'thao tac loc bang theo doi
If LOC.Value = True Then
Dim locplacesheet, locplaceadd As String
Dim dklocsheet, dklocadd As String
Dim text6, text7 As String
text6 = VTLOC.Text
text7 = DKLOC.Text
locplacesheet = Mid(text6, 2, InStr(1, text6, "!", vbTextCompare) - 2)
locplaceadd = Mid(text6, InStr(1, text6, "!", vbTextCompare) + 1, _
InStr(1, text6, ")", vbTextCompare) - InStr(1, text6, "!", vbTextCompare) - 1)
dklocsheet = Mid(text7, 2, InStr(1, text7, "!", vbTextCompare) - 2)
dklocadd = Mid(text7, InStr(1, text7, "!", vbTextCompare) + 1, _
InStr(1, text7, ")", vbTextCompare) - InStr(1, text7, "!", vbTextCompare) - 1)
'filter
Call LOCIN(locplacesheet, locplaceadd, dklocsheet, dklocadd)
End If
'in thoi nao
Dim k, d, M, t, p, y, y1 As Long
Dim ws As Worksheet
k = ST.Value
d = FI.Value
For M = k To d
Sheets(chuoitarget1).Range(chuoitarget2).Value = M
'thao tac khoi chen anh.....
Dim picplacesheet, picplaceadd As String
Dim picaddsheet, picaddadd As String
Dim text3, text4, text5 As String
Dim ra, ca As Double
text3 = PIC.Text
text4 = DCA.Text
text5 = PGA.Text
picplacesheet = Mid(text3, 2, InStr(1, text3, "!", vbTextCompare) - 2)
picplaceadd = Mid(text3, InStr(1, text3, "!", vbTextCompare) + 1, _
InStr(1, text3, ")", vbTextCompare) - InStr(1, text3, "!", vbTextCompare) - 1)
picaddsheet = Mid(text4, 2, InStr(1, text4, "!", vbTextCompare) - 2)
picaddadd = Mid(text4, InStr(1, text4, "!", vbTextCompare) + 1, _
InStr(1, text4, ")", vbTextCompare) - InStr(1, text4, "!", vbTextCompare) - 1)
ra = Left(text5, InStr(1, text5, "x", vbTextCompare) - 1)
ca = Right(text5, Len(text5) - InStr(1, text5, "x", vbTextCompare))
If sohoa.Value = True And Sheets(picaddsheet).Range(picaddadd) <> "" Then
Call chensohoa(picplacesheet, picplaceadd, picaddsheet, picaddadd, ra, ca)
End If
For y1 = 1 To UBound(arr1)
If arr1(y1) = M Then
y = y1
End If
Next y1
For t = 1 To UBound(res1)
Sheets(res1(t)).Select
Range(res2(t)).Select
giandong
Next t
For p = 1 To UBound(mang) ' tham chieu dk in voi dk in nhap vao
If arr2(y) = mang(p) Then 'tim dieu kien in nhap vao
For Each ws In Worksheets ' tim ws trong dieu kien in
If InStr(1, mangsheet(p), ws.Name, vbTextCompare) > 0 Then
If xemtruoc.Value = False Then
Unload Me
ws.PrintOut preview:=xemtruoc.Value
Else
Unload Me
ws.PrintPreview
If msgbox("Ban muon in chu?", vbOKCancel) = vbOK Then
ws.PrintOut preview:=False
Else
Exit Sub
End If
End If
End If
Next
End If
Next p
Next M
Application.ScreenUpdating = True
Exit Sub
tn:
msgbox "Ban nhap chua dung du lieu"
End Sub
Bài đã được tự động gộp:

tuanvu0407 đã viết:
Private Sub LENHIN_Click()
On Error GoTo tn
'tao mang chay
Application.ScreenUpdating = False
Dim arr1() As Variant
Dim chuoi1, chuoi2, chuoi3 As String
chuoi1 = TTIN.Text
chuoi2 = Left(chuoi1, InStr(1, chuoi1, "!") - 1)
chuoi3 = Right(chuoi1, Len(chuoi1) - InStr(1, chuoi1, "!"))
Sheets(chuoi2).Select
Range(chuoi3).Select
arr1 = WorksheetFunction.Transpose(Selection.Resize(Selection.Rows.Count, 1))
'tao mang dieu kien
Dim arr2() As Variant
Dim chuoi4, chuoi5, chuoi6 As String
chuoi4 = LISTIN.Text
chuoi5 = Left(chuoi4, InStr(1, chuoi4, "!") - 1)
chuoi6 = Right(chuoi4, Len(chuoi4) - InStr(1, chuoi4, "!"))
Sheets(chuoi5).Select
Range(chuoi6).Select
arr2 = WorksheetFunction.Transpose(Selection.Resize(Selection.Rows.Count, 1))
'tham chieu target
Dim chuoitarget, chuoitaget1, chuoitaget2 As String
chuoitarget = TARGET.Text
chuoitarget1 = Left(chuoitarget, InStr(1, chuoitarget, "!") - 1)
chuoitarget2 = Right(chuoitarget, Len(chuoitarget) - InStr(1, chuoitarget, "!"))
'gan mang resize
Dim a, b As Integer
Dim tex1, tex2 As String
Dim res1(), res2() As String
text1 = RS.Text
a = Len(text1) - Len(Replace(text1, ")", "", 1, , vbTextCompare))
ReDim res1(1 To a)
ReDim res2(1 To a)
text2 = text1
For b = 1 To a
res1(b) = Mid(text2, 2, InStr(1, text2, "!", vbTextCompare) - 2)
res2(b) = Mid(text2, InStr(1, text2, "!", vbTextCompare) + 1, _
InStr(1, text2, ")", vbTextCompare) - InStr(1, text2, "!", vbTextCompare) - 1)
text2 = Right(text2, Len(text2) - InStr(1, text2, ")", vbTextCompare))
Next b
'gan mang dieu kien
Dim i, j As Integer
Dim str, str1, str2, str3 As String
Dim mang(), mangsheet() As String
str = DIEUKIENIN.Text
i = Len(str) - Len(Replace(str, ")", "", 1, , vbTextCompare))
ReDim mang(1 To i)
str1 = str
For j = 1 To i
mang(j) = Mid(str1, 2, InStr(1, str1, "/", vbTextCompare) - 2)
str1 = Right(str1, Len(str1) - InStr(1, str1, ")", vbTextCompare))
Next j
'gan mang sheetsdieukien
ReDim mangsheet(1 To i) As String
str2 = str
For j = 1 To i
mangsheet(j) = Mid(str2, 1, InStr(1, str2, ")", vbTextCompare))
str2 = Right(str2, Len(str2) - InStr(1, str2, ")", vbTextCompare))
Next j

'thao tac loc bang theo doi
If LOC.Value = True Then
Dim locplacesheet, locplaceadd As String
Dim dklocsheet, dklocadd As String
Dim text6, text7 As String
text6 = VTLOC.Text
text7 = DKLOC.Text
locplacesheet = Mid(text6, 2, InStr(1, text6, "!", vbTextCompare) - 2)
locplaceadd = Mid(text6, InStr(1, text6, "!", vbTextCompare) + 1, _
InStr(1, text6, ")", vbTextCompare) - InStr(1, text6, "!", vbTextCompare) - 1)
dklocsheet = Mid(text7, 2, InStr(1, text7, "!", vbTextCompare) - 2)
dklocadd = Mid(text7, InStr(1, text7, "!", vbTextCompare) + 1, _
InStr(1, text7, ")", vbTextCompare) - InStr(1, text7, "!", vbTextCompare) - 1)
'filter
Call LOCIN(locplacesheet, locplaceadd, dklocsheet, dklocadd)
End If
'in thoi nao
Dim k, d, M, t, p, y, y1 As Long
Dim ws As Worksheet
k = ST.Value
d = FI.Value
For M = k To d
Sheets(chuoitarget1).Range(chuoitarget2).Value = M
'thao tac khoi chen anh.....
Dim picplacesheet, picplaceadd As String
Dim picaddsheet, picaddadd As String
Dim text3, text4, text5 As String
Dim ra, ca As Double
text3 = PIC.Text
text4 = DCA.Text
text5 = PGA.Text
picplacesheet = Mid(text3, 2, InStr(1, text3, "!", vbTextCompare) - 2)
picplaceadd = Mid(text3, InStr(1, text3, "!", vbTextCompare) + 1, _
InStr(1, text3, ")", vbTextCompare) - InStr(1, text3, "!", vbTextCompare) - 1)
picaddsheet = Mid(text4, 2, InStr(1, text4, "!", vbTextCompare) - 2)
picaddadd = Mid(text4, InStr(1, text4, "!", vbTextCompare) + 1, _
InStr(1, text4, ")", vbTextCompare) - InStr(1, text4, "!", vbTextCompare) - 1)
ra = Left(text5, InStr(1, text5, "x", vbTextCompare) - 1)
ca = Right(text5, Len(text5) - InStr(1, text5, "x", vbTextCompare))
If sohoa.Value = True And Sheets(picaddsheet).Range(picaddadd) <> "" Then
Call chensohoa(picplacesheet, picplaceadd, picaddsheet, picaddadd, ra, ca)
End If
For y1 = 1 To UBound(arr1)
If arr1(y1) = M Then
y = y1
End If
Next y1
For t = 1 To UBound(res1)
Sheets(res1(t)).Select
Range(res2(t)).Select
giandong
Next t
For p = 1 To UBound(mang) ' tham chieu dk in voi dk in nhap vao
If arr2(y) = mang(p) Then 'tim dieu kien in nhap vao
For Each ws In Worksheets ' tim ws trong dieu kien in
If InStr(1, mangsheet(p), ws.Name, vbTextCompare) > 0 Then
If xemtruoc.Value = False Then
Unload Me
ws.PrintOut preview:=xemtruoc.Value
Else
Unload Me
ws.PrintPreview
If msgbox("Ban muon in chu?", vbOKCancel) = vbOK Then
ws.PrintOut preview:=False
Else
Exit Sub
End If
End If
End If
Next
End If
Next p
Next M
Application.ScreenUpdating = True
Exit Sub
tn:
msgbox "Ban nhap chua dung du lieu"
End Sub
Nhấp chuột vào đây để mở rộng...
em post đoạn code bác xem nó bị chỗ nào nha
 
Upvote 0
tuanvu0407 đã viết:
Private Sub LENHIN_Click()
On Error GoTo tn
'tao mang chay
Application.ScreenUpdating = False
Dim arr1() As Variant
Dim chuoi1, chuoi2, chuoi3 As String
chuoi1 = TTIN.Text
chuoi2 = Left(chuoi1, InStr(1, chuoi1, "!") - 1)
chuoi3 = Right(chuoi1, Len(chuoi1) - InStr(1, chuoi1, "!"))
Sheets(chuoi2).Select
Range(chuoi3).Select
arr1 = WorksheetFunction.Transpose(Selection.Resize(Selection.Rows.Count, 1))
'tao mang dieu kien
Dim arr2() As Variant
Dim chuoi4, chuoi5, chuoi6 As String
chuoi4 = LISTIN.Text
chuoi5 = Left(chuoi4, InStr(1, chuoi4, "!") - 1)
chuoi6 = Right(chuoi4, Len(chuoi4) - InStr(1, chuoi4, "!"))
Sheets(chuoi5).Select
Range(chuoi6).Select
arr2 = WorksheetFunction.Transpose(Selection.Resize(Selection.Rows.Count, 1))
'tham chieu target
Dim chuoitarget, chuoitaget1, chuoitaget2 As String
chuoitarget = TARGET.Text
chuoitarget1 = Left(chuoitarget, InStr(1, chuoitarget, "!") - 1)
chuoitarget2 = Right(chuoitarget, Len(chuoitarget) - InStr(1, chuoitarget, "!"))
'gan mang resize
Dim a, b As Integer
Dim tex1, tex2 As String
Dim res1(), res2() As String
text1 = RS.Text
a = Len(text1) - Len(Replace(text1, ")", "", 1, , vbTextCompare))
ReDim res1(1 To a)
ReDim res2(1 To a)
text2 = text1
For b = 1 To a
res1(b) = Mid(text2, 2, InStr(1, text2, "!", vbTextCompare) - 2)
res2(b) = Mid(text2, InStr(1, text2, "!", vbTextCompare) + 1, _
InStr(1, text2, ")", vbTextCompare) - InStr(1, text2, "!", vbTextCompare) - 1)
text2 = Right(text2, Len(text2) - InStr(1, text2, ")", vbTextCompare))
Next b
'gan mang dieu kien
Dim i, j As Integer
Dim str, str1, str2, str3 As String
Dim mang(), mangsheet() As String
str = DIEUKIENIN.Text
i = Len(str) - Len(Replace(str, ")", "", 1, , vbTextCompare))
ReDim mang(1 To i)
str1 = str
For j = 1 To i
mang(j) = Mid(str1, 2, InStr(1, str1, "/", vbTextCompare) - 2)
str1 = Right(str1, Len(str1) - InStr(1, str1, ")", vbTextCompare))
Next j
'gan mang sheetsdieukien
ReDim mangsheet(1 To i) As String
str2 = str
For j = 1 To i
mangsheet(j) = Mid(str2, 1, InStr(1, str2, ")", vbTextCompare))
str2 = Right(str2, Len(str2) - InStr(1, str2, ")", vbTextCompare))
Next j

'thao tac loc bang theo doi
If LOC.Value = True Then
Dim locplacesheet, locplaceadd As String
Dim dklocsheet, dklocadd As String
Dim text6, text7 As String
text6 = VTLOC.Text
text7 = DKLOC.Text
locplacesheet = Mid(text6, 2, InStr(1, text6, "!", vbTextCompare) - 2)
locplaceadd = Mid(text6, InStr(1, text6, "!", vbTextCompare) + 1, _
InStr(1, text6, ")", vbTextCompare) - InStr(1, text6, "!", vbTextCompare) - 1)
dklocsheet = Mid(text7, 2, InStr(1, text7, "!", vbTextCompare) - 2)
dklocadd = Mid(text7, InStr(1, text7, "!", vbTextCompare) + 1, _
InStr(1, text7, ")", vbTextCompare) - InStr(1, text7, "!", vbTextCompare) - 1)
'filter
Call LOCIN(locplacesheet, locplaceadd, dklocsheet, dklocadd)
End If
'in thoi nao
Dim k, d, M, t, p, y, y1 As Long
Dim ws As Worksheet
k = ST.Value
d = FI.Value
For M = k To d
Sheets(chuoitarget1).Range(chuoitarget2).Value = M
'thao tac khoi chen anh.....
Dim picplacesheet, picplaceadd As String
Dim picaddsheet, picaddadd As String
Dim text3, text4, text5 As String
Dim ra, ca As Double
text3 = PIC.Text
text4 = DCA.Text
text5 = PGA.Text
picplacesheet = Mid(text3, 2, InStr(1, text3, "!", vbTextCompare) - 2)
picplaceadd = Mid(text3, InStr(1, text3, "!", vbTextCompare) + 1, _
InStr(1, text3, ")", vbTextCompare) - InStr(1, text3, "!", vbTextCompare) - 1)
picaddsheet = Mid(text4, 2, InStr(1, text4, "!", vbTextCompare) - 2)
picaddadd = Mid(text4, InStr(1, text4, "!", vbTextCompare) + 1, _
InStr(1, text4, ")", vbTextCompare) - InStr(1, text4, "!", vbTextCompare) - 1)
ra = Left(text5, InStr(1, text5, "x", vbTextCompare) - 1)
ca = Right(text5, Len(text5) - InStr(1, text5, "x", vbTextCompare))
If sohoa.Value = True And Sheets(picaddsheet).Range(picaddadd) <> "" Then
Call chensohoa(picplacesheet, picplaceadd, picaddsheet, picaddadd, ra, ca)
End If
For y1 = 1 To UBound(arr1)
If arr1(y1) = M Then
y = y1
End If
Next y1
For t = 1 To UBound(res1)
Sheets(res1(t)).Select
Range(res2(t)).Select
giandong
Next t
For p = 1 To UBound(mang) ' tham chieu dk in voi dk in nhap vao
If arr2(y) = mang(p) Then 'tim dieu kien in nhap vao
For Each ws In Worksheets ' tim ws trong dieu kien in
If InStr(1, mangsheet(p), ws.Name, vbTextCompare) > 0 Then
If xemtruoc.Value = False Then
Unload Me
ws.PrintOut preview:=xemtruoc.Value
Else
Unload Me
ws.PrintPreview
If msgbox("Ban muon in chu?", vbOKCancel) = vbOK Then
ws.PrintOut preview:=False
Else
Exit Sub
End If
End If
End If
Next
End If
Next p
Next M
Application.ScreenUpdating = True
Exit Sub
tn:
msgbox "Ban nhap chua dung du lieu"
End Sub
Bài đã được tự động gộp:


em post đoạn code bác xem nó bị chỗ nào nha
Nhấp chuột vào đây để mở rộng...
Thua! Không Import cái frm của bạn được. Lỗi: "Line 8: Property OleObjectBlob in innhieusheets had an invalid file reference."
 
Upvote 0
tuanvu0407 đã viết:
Private Sub LENHIN_Click()
On Error GoTo tn
'tao mang chay
Application.ScreenUpdating = False
Dim arr1() As Variant
Dim chuoi1, chuoi2, chuoi3 As String
chuoi1 = TTIN.Text
chuoi2 = Left(chuoi1, InStr(1, chuoi1, "!") - 1)
chuoi3 = Right(chuoi1, Len(chuoi1) - InStr(1, chuoi1, "!"))
Sheets(chuoi2).Select
Range(chuoi3).Select
arr1 = WorksheetFunction.Transpose(Selection.Resize(Selection.Rows.Count, 1))
'tao mang dieu kien
Dim arr2() As Variant
Dim chuoi4, chuoi5, chuoi6 As String
chuoi4 = LISTIN.Text
chuoi5 = Left(chuoi4, InStr(1, chuoi4, "!") - 1)
chuoi6 = Right(chuoi4, Len(chuoi4) - InStr(1, chuoi4, "!"))
Sheets(chuoi5).Select
Range(chuoi6).Select
arr2 = WorksheetFunction.Transpose(Selection.Resize(Selection.Rows.Count, 1))
'tham chieu target
Dim chuoitarget, chuoitaget1, chuoitaget2 As String
chuoitarget = TARGET.Text
chuoitarget1 = Left(chuoitarget, InStr(1, chuoitarget, "!") - 1)
chuoitarget2 = Right(chuoitarget, Len(chuoitarget) - InStr(1, chuoitarget, "!"))
'gan mang resize
Dim a, b As Integer
Dim tex1, tex2 As String
Dim res1(), res2() As String
text1 = RS.Text
a = Len(text1) - Len(Replace(text1, ")", "", 1, , vbTextCompare))
ReDim res1(1 To a)
ReDim res2(1 To a)
text2 = text1
For b = 1 To a
res1(b) = Mid(text2, 2, InStr(1, text2, "!", vbTextCompare) - 2)
res2(b) = Mid(text2, InStr(1, text2, "!", vbTextCompare) + 1, _
InStr(1, text2, ")", vbTextCompare) - InStr(1, text2, "!", vbTextCompare) - 1)
text2 = Right(text2, Len(text2) - InStr(1, text2, ")", vbTextCompare))
Next b
'gan mang dieu kien
Dim i, j As Integer
Dim str, str1, str2, str3 As String
Dim mang(), mangsheet() As String
str = DIEUKIENIN.Text
i = Len(str) - Len(Replace(str, ")", "", 1, , vbTextCompare))
ReDim mang(1 To i)
str1 = str
For j = 1 To i
mang(j) = Mid(str1, 2, InStr(1, str1, "/", vbTextCompare) - 2)
str1 = Right(str1, Len(str1) - InStr(1, str1, ")", vbTextCompare))
Next j
'gan mang sheetsdieukien
ReDim mangsheet(1 To i) As String
str2 = str
For j = 1 To i
mangsheet(j) = Mid(str2, 1, InStr(1, str2, ")", vbTextCompare))
str2 = Right(str2, Len(str2) - InStr(1, str2, ")", vbTextCompare))
Next j

'thao tac loc bang theo doi
If LOC.Value = True Then
Dim locplacesheet, locplaceadd As String
Dim dklocsheet, dklocadd As String
Dim text6, text7 As String
text6 = VTLOC.Text
text7 = DKLOC.Text
locplacesheet = Mid(text6, 2, InStr(1, text6, "!", vbTextCompare) - 2)
locplaceadd = Mid(text6, InStr(1, text6, "!", vbTextCompare) + 1, _
InStr(1, text6, ")", vbTextCompare) - InStr(1, text6, "!", vbTextCompare) - 1)
dklocsheet = Mid(text7, 2, InStr(1, text7, "!", vbTextCompare) - 2)
dklocadd = Mid(text7, InStr(1, text7, "!", vbTextCompare) + 1, _
InStr(1, text7, ")", vbTextCompare) - InStr(1, text7, "!", vbTextCompare) - 1)
'filter
Call LOCIN(locplacesheet, locplaceadd, dklocsheet, dklocadd)
End If
'in thoi nao
Dim k, d, M, t, p, y, y1 As Long
Dim ws As Worksheet
k = ST.Value
d = FI.Value
For M = k To d
Sheets(chuoitarget1).Range(chuoitarget2).Value = M
'thao tac khoi chen anh.....
Dim picplacesheet, picplaceadd As String
Dim picaddsheet, picaddadd As String
Dim text3, text4, text5 As String
Dim ra, ca As Double
text3 = PIC.Text
text4 = DCA.Text
text5 = PGA.Text
picplacesheet = Mid(text3, 2, InStr(1, text3, "!", vbTextCompare) - 2)
picplaceadd = Mid(text3, InStr(1, text3, "!", vbTextCompare) + 1, _
InStr(1, text3, ")", vbTextCompare) - InStr(1, text3, "!", vbTextCompare) - 1)
picaddsheet = Mid(text4, 2, InStr(1, text4, "!", vbTextCompare) - 2)
picaddadd = Mid(text4, InStr(1, text4, "!", vbTextCompare) + 1, _
InStr(1, text4, ")", vbTextCompare) - InStr(1, text4, "!", vbTextCompare) - 1)
ra = Left(text5, InStr(1, text5, "x", vbTextCompare) - 1)
ca = Right(text5, Len(text5) - InStr(1, text5, "x", vbTextCompare))
If sohoa.Value = True And Sheets(picaddsheet).Range(picaddadd) <> "" Then
Call chensohoa(picplacesheet, picplaceadd, picaddsheet, picaddadd, ra, ca)
End If
For y1 = 1 To UBound(arr1)
If arr1(y1) = M Then
y = y1
End If
Next y1
For t = 1 To UBound(res1)
Sheets(res1(t)).Select
Range(res2(t)).Select
giandong
Next t
For p = 1 To UBound(mang) ' tham chieu dk in voi dk in nhap vao
If arr2(y) = mang(p) Then 'tim dieu kien in nhap vao
For Each ws In Worksheets ' tim ws trong dieu kien in
If InStr(1, mangsheet(p), ws.Name, vbTextCompare) > 0 Then
If xemtruoc.Value = False Then
Unload Me
ws.PrintOut preview:=xemtruoc.Value
Else
Unload Me
ws.PrintPreview
If msgbox("Ban muon in chu?", vbOKCancel) = vbOK Then
ws.PrintOut preview:=False
Else
Exit Sub
End If
End If
End If
Next
End If
Next p
Next M
Application.ScreenUpdating = True
Exit Sub
tn:
msgbox "Ban nhap chua dung du lieu"
End Sub
Bài đã được tự động gộp:


em post đoạn code bác xem nó bị chỗ nào nha
Nhấp chuột vào đây để mở rộng...
Theo tôi thì bạn gọi LOCIN ở dòng Call LOCIN(locplacesheet, locplaceadd, dklocsheet, dklocadd) thì bạn phải có Sub hoặc hàm LOCIN cho nó tìm đến để thực thi chứ. Hình như là ở đoạn sau cũng có call một sub hay hàm nữa thì phải Call chensohoa(picplacesheet, picplaceadd, picaddsheet, picaddadd, ra, ca).
Nếu code chạy đến lệnh gọi một chương trình, hoặc một chuong trình con (Public Sub...), hoặc một hàm UDF mà không tìm thấy thì chắc chắn là sẽ báo lỗi.
Bạn thử để On Error Resume Next hoặc On Error goto 0 ở đầu Sub và chạy code và Kiểm tra kết quả xem thấy thế nào?
 
Upvote 0
HUONGHCKT đã viết:
Rất đáng tiếc, không hiểu tại sao Máy mình không mở được file.rar của bạn. (kể cả các file.rar của Anh PTM,...nữa)
Nhấp chuột vào đây để mở rộng...
Máy của bạn có bản WinRAR cũ nên không mở được những file RAR được nén bằng những bản WinRAR mới hơn. Bạn cập nhật WinRAR lên bản mới là mở được
 
Upvote 0
Maika8008 đã viết:
Thua! Không Import cái frm của bạn được. Lỗi: "Line 8: Property OleObjectBlob in innhieusheets had an invalid file reference."
Nhấp chuột vào đây để mở rộng...

HUONGHCKT đã viết:
Theo tôi thì bạn gọi LOCIN ở dòng Call LOCIN(locplacesheet, locplaceadd, dklocsheet, dklocadd) thì bạn phải có Sub hoặc hàm LOCIN cho nó tìm đến để thực thi chứ. Hình như là ở đoạn sau cũng có call một sub hay hàm nữa thì phải Call chensohoa(picplacesheet, picplaceadd, picaddsheet, picaddadd, ra, ca).
Nếu code chạy đến lệnh gọi một chương trình, hoặc một chuong trình con (Public Sub...), hoặc một hàm UDF mà không tìm thấy thì chắc chắn là sẽ báo lỗi.
Bạn thử để On Error Resume Next hoặc On Error goto 0 ở đầu Sub và chạy code và Kiểm tra kết quả xem thấy thế nào?
Nhấp chuột vào đây để mở rộng...

Download

Download File
veryfiles.com veryfiles.com
Anh tải thử link này xem add frm vào được k
 
Upvote 0
tuanvu0407 đã viết:

Download

Download File
veryfiles.com veryfiles.com
Anh tải thử link này xem add frm vào được k
Nhấp chuột vào đây để mở rộng...
Cần gì phải import Form vô, bạn HUONGHCKT đã nói ở trên là thiếu cái thủ tục (Sub) LOCIN(...) là đúng rồi đó. Bạn kiếm lại trong file gốc mà bạn copy Code, cái sub Locin và copy vào module file mới.
 
Upvote 0
Còn thiếu cả 1 thủ tục (sub) giandong
 
Upvote 0
HUONGHCKT đã viết:
. . . .
Xin lỗi BQT, tôi không đọc tin của Anh SA-DQ trước khi đăng bài trả lời.
Nhấp chuột vào đây để mở rộng...
Bài của mình không còn nữa (. . .); Bạn sửa lại nội dung bài của bạn dùm nha, ngõ hầu giữ đúng tính mạch lạc, tiện cho người cần theo dõi!

Chúc mọi người vui & khỏe, trãi qua mùa dịch
 

File đính kèm

  • 905.jpg
    905.jpg
    69.8 KB · Đọc: 4
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

Tuấn Bụng Bự
  • Question
Tìm Bộ 8 số xuất hiện nhiều nhất trong random( 1 - 80)
Trả lời
10
Đọc
228
Tuấn Bụng Bự
Tuấn Bụng Bự
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
11 12 13
Trả lời
245
Đọc
13K
Hoàng Trọng Hữu
Hoàng Trọng Hữu
H
Hàm đếm số ngày thứ bảy và chủ nhật trong một khoảng thời gian
Trả lời
17
Đọc
19K
Nhattanktnn
Nhattanktnn
D
  • Question
Xin cách sắp xếp dữ liệu theo thứ tự không làm hỏng link
Trả lời
7
Đọc
272
cantl
C
N
Giúp sửa mã code
Trả lời
16
Đọc
242
ptm0412
ptm0412
dung09031989
Xin giúp công thức tô màu các ô phía sau khi kế hoạch đặt hàng thiếu so với tồn kho.?
Trả lời
0
Đọc
28
dung09031989
dung09031989
V
[Nhờ giúp đỡ] Cách tìm thời gian bị trùng trong excel ở nhiều thời gian khác nhau
Trả lời
1
Đọc
36
tranvansau278
T
C
Công thức tự nhập liệu số lượng nhập khi bị âm
Trả lời
0
Đọc
33
cherry0187
C
N
Vẽ biểu đồ kết hợp nhiều yếu tố trong excel
Trả lời
1
Đọc
30
hoangminhtien
hoangminhtien
GPE-Trợ Lý
KHÓA HỌC BỨT PHÁ KỸ NĂNG EXCEL
    • Thích
Trả lời
0
Đọc
135
GPE-Trợ Lý
GPE-Trợ Lý
P
Tổng hợp dữ liệu từ các sheet theo chọn lọc
Trả lời
2
Đọc
71
phutdm
P
dunghtgiga
  • Đã khóa
Tính bốn tuần cho một tháng
Trả lời
9
Đọc
261
ptm0412
ptm0412
zarra
Cần giúp tạo form in mã vạch cho vật tư theo SL cụ thể.
Trả lời
3
Đọc
100
HUONGHCKT
H
Mr Đạo
in giấy ra bị lệch xuống dưới
    • Thích
2
Trả lời
29
Đọc
26K
Hoàng Tuấn 868
H
H
Không xem được ảnh trên Excel
Trả lời
3
Đọc
1K
huyentran9292
H
T
Xin form quản lý dữ liệu học viên của Trung tâm Đào tạo
Trả lời
2
Đọc
215
hakiru188
H
C
Code Lọc Dữ Liệu
Trả lời
10
Đọc
172
Cúc Hr
C
Y
Cách ẩn công thức 1 ô trong sheet
Trả lời
8
Đọc
116
hoangminhtien
hoangminhtien
vuha
  • Question
Lỗi chọn dòng thứ 6 trong sheet được chọn: rows("6:6").select
Trả lời
12
Đọc
157
ptm0412
ptm0412
Nguyencaocuong86
Tô màu dữ liệu trùng lặp trong excel.
Trả lời
10
Đọc
141
Nguyencaocuong86
Nguyencaocuong86
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

Back
Top Bottom