gọi giá trị của mảng sang trang in

[visaomayman10]

Chào các anh chị.
Sự thể là em đã cố gắng tự làm mấy ngày rồi mà vẫn chưa được, nghĩ thì dễ mà làm thì khó. Giờ chỉ còn cách là post lên nhờ các anh chị cao thủ viết giúp rồi về nghiên cứu thêm.
Đề bài như sau: workbook của em có 4 sheet, em muốn viết 1 đoạn code mà khi em click vào ô E2 (sheet 4 - in), nếu chọn giá trị "INJECTION1" Thì array injection1 ở sheet "vị trí làm việc" sẽ được copy tời range ("B427") sheet in. tương tự với giá trị injection2, 3...

XIn chân thành cảm ơn anh chị trước.

 

[huuthang_bd]

Chào các anh chị.
Sự thể là em đã cố gắng tự làm mấy ngày rồi mà vẫn chưa được, nghĩ thì dễ mà làm thì khó. Giờ chỉ còn cách là post lên nhờ các anh chị cao thủ viết giúp rồi về nghiên cứu thêm.
Đề bài như sau: workbook của em có 4 sheet, em muốn viết 1 đoạn code mà khi em click vào ô E2 (sheet 4 - in), nếu chọn giá trị "INJECTION1" Thì array injection1 ở sheet "vị trí làm việc" sẽ được copy tời range ("B427") sheet in. tương tự với giá trị injection2, 3...

XIn chân thành cảm ơn anh chị trước.

Bạn copy code này vào sheet4:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo Err
If Intersect(Target, Me.[E2]).Address(0, 0) <> "E2" Then GoTo Err
With Sheet2.Range(Me.[E2].Value)
    Me.[B4].Resize(.Rows.Count, .Columns.Count).Value = .Value
End With
Err:
Application.EnableEvents = True
End Sub

 

[visaomayman10]

Wow, Cảm ơn Hữu Thắng, mình đã làm mấy hôm mà không ra, bạn chỉ làm 1 chút xong rùi. sư phụ!!! Chân thành cảm ơn!