Kết quả 1 đến 6 của 6

Chủ đề: Giúp em tạo nút bấm "like" như ở facebook

  1. #1
    doremon29 Guest

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

    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

  2. #2
    haivtseo Guest
    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").Selec t
    Val = CDbl(ActiveCell.Value)
    Val = Val + 1
    ActiveCell.Value = Val
    End Sub

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

  4. #4
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi haonlh
    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").Selec t

  5. #5
    hongson1992 Guest
    Trích dẫn Gửi bởi 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").Selec t
    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

  6. #6
    hungvietuc1 Guest
    excel thú vị thật. thank ban vi goi y hay

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •