Lại 1 câu hỏi liên quan đến PicForm

[anhtuan1066]

Trên diển đàn này có nhiều bài viết nói về PicForm... Ở đây tôi cũng có 1 câu hỏi liên quan nhưng hơi khác 1 chút:
Giã sử tôi có 10 tấm ảnh, tôi đặt Comment vào cell B2... Giờ tôi muốn mỗi khi tôi chọn vào cell từ A1 đến A10 thì Comment trong B2 sẽ thay đỗi tương ứng...
Lần trước trong file PicForm của ThuNghi, Comment dc thay đỗi khi ta chọn 1 Validation hoặc 1 ComboBox... Còn ở đây, tôi muốn Comment thay đỗi dựa vào sự kiện Selection_Change từ A1 đến A10
Các bạn nghiên cứu giùm tôi với!
ANH TUẤN

 

[SA_DQ]

http://www.giaiphapexcel.com/forum/showthread.php?t=432

Option Explicit[b]
Private Sub Worksheet_Change(ByVal Target As Range)[/b]
 Dim Rng As Range:           Dim StrC As String
 
 Set Rng = Union(Cells(1, 1), Cells(3, 1), Cells(5, 1), Cells(7, 1), Cells(8, 1), Cells(9, 1))
 If Not Intersect(Target, Rng) Is Nothing Then
    StrC = "D:\Picture\Pic0" & (Right(Target.Address, 1) -1) & ".JPG"
 [COLOR="Blue"] '  MsgBox StrC[/COLOR]   
    With Target.Offset(, 2)
        .AddComment("").Shape.Fill.UserPicture (StrC)
    End With
 End If[b]
End Sub [/b]

/(hỏi giải thích chứ Tuan1066 (?)

 

[anhtuan1066]

Dc rồi... đễ ngày mai em bắt đầu thử trực tiếp vào file.. Có gì trục trặc em lại hỏi tiếp... Cám ơn anh nhiều!
ANH TUẤN