Điền Thông Tin Tự Động

Hi mọi người,

Mọi người có thể giúp e lập trình "điền thông tin tự động" từ sheet :" Main list" đến "Support" tương ứng với Status với ak. e cảm ơn

Tìm không thấy Status thớt bảo ở đâu nên thôi nhắm mắt cào đại

Sub TrollText()
    Dim MainList As Worksheet
    Dim Support As Worksheet
    Dim TrollText As String

Set MainList = ThisWorkbook.Worksheets("Main list")
    Set Support = ThisWorkbook.Worksheets("Support")

TrollText = "điền thông tin tự động"

MainList.Range("A1:Z100").Value = TrollText
    Support.Range("A1:Z100").Value = MainList.Range("A1").Value

MsgBox "Đã hoàn thành việc điền thông tin tự động từ Sheet Main List sang Sheet Support!"
End Sub

www.giaiphapexcel.com/diendan/threads/%C4%90i%E1%BB%81n-th%C3%B4ng-tin-t%E1%BB%B1-%C4%90%E1%BB%99ng.164936/

Khóa học SprinGO phù hợp

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học