Giúp em tạo nút bấm "like" như ở facebook

[vinhHD]

Cả công ty em đang chơi dự đoán Euro 2012 qua 1 bảng Excel chung bằng dropbox. Trong đó mọi người thoải mái đưa ra ý kiến nhận xét của mình. Em muốn tạo 1 nút bấm like như trong facebook ngay ô cạnh ý kiến đó và tự động tính số người bấm like.
Nhờ các bác cao thủ chỉ giúp cách làm.
Em xin cảm ơn

 

[vinhHD]

Sau 2 ngày chờ đợi không tìm được câu trả lời, em đã tự vọc và tìm được đoạn code trên mạng.
Ko biết có bác nào thích trò này không, paste vào đây biết đâu có ích cho ai đó
Private Sub like_Click()
Dim Val As Double
Application.Worksheets("Sheet1").Range("D2").Select
Val = CDbl(ActiveCell.Value)
Val = Val + 1
ActiveCell.Value = Val
End Sub

 

[haonlh]

Cảm ơn nhưng bị báo lỗi ở dòng
Application.Worksheets("Sheet1").Range("D2").Selec t

 

[HCMA13]

Cảm ơn nhưng bị báo lỗi ở dòng
Application.Worksheets("Sheet1").Range("D2").Selec t

Bạn Copy paste đoạn mã trên ah ?
Chú ý Select kìa ! Bỏ dấu cách đi bạn ơi !
Application.Worksheets("Sheet1").Range("D2").Select

 

[haonlh]

Sau 2 ngày chờ đợi không tìm được câu trả lời, em đã tự vọc và tìm được đoạn code trên mạng.
Ko biết có bác nào thích trò này không, paste vào đây biết đâu có ích cho ai đó
Private Sub like_Click()
Dim Val As Double
Application.Worksheets("Sheet1").Range("D2").Select
Val = CDbl(ActiveCell.Value)
Val = Val + 1
ActiveCell.Value = Val
End Sub

Có lúc như "lú lẫn" khi không nhận ra từ khóa Select
Cũng xin sửa như sau cho ngắn mã nguồn
Private Sub like_Click()
With Sheets("Sheet1")
.[d2] = .[d2] + 1
End With
End Sub

 

[huyviettel13]

excel thú vị thật. thank ban vi goi y hay