Mong được giúp đỡ tạo ra nút nhập dữ liệu cho bảng excel

[algorithm]

Xin chào các anh chị ạ!
Em đang gặp khó khăn trong việc tạo một nút nhập dữ liệu cho bảng dữ liệu mong được anh chị giúp đỡ.

Từ cột N tới cột AK là các tháng trong năm, hiện tại em đang nhập dữ liệu bằng tay vào các ô này.
Em xin hỏi làm sao để em nhập dữ liệu vào cột "AN" theo tháng của ô AN2 (ô AN2 này em sẽ đổi thành 1-sep-2018 thì dữ liệu sẽ được nhập vào cột P (có giá trị hiện tại là 1-sep-2018).
Tức là em sẽ nhập liệu vào ô bôi màu xanh và giá trị sẽ tự update vào bảng tính, em xóa thì giá trị bảng tính vẫn còn, em nhập lại thì nó sẽ cập nhật lại ạ
.
em xin cám ơn anh chị đã giúp đỡ

 

[HeSanbi]

Không biết bài viết này của bạn có ý muốn tiếp tục không vì thấy đã lâu rồi không có bài trả lời.

Nếu là Ứng dụng Excel trên máy tính thì bạn có thể dùng VBA với sự kiện worksheet_change

Tôi không hiểu cách bạn diễn đạt, nên chỉ có thể hướng dẫn cơ bản.

Ví dụ: (Ấn Alt+F11 để mở cửa sổ VBE - Nhìn vào khung Project, chọn mở Sheet cần thực hiện - Sao chép đoạn code sau và dán vào - sau đó Save File ở dạng xlsb hoặc xlsm)

Private Sub Worksheet_Change(ByVal Target As Range)
'Ví dụ 1: lắng nghe ô AN2 thay đổi
  If Target.Address(0, 0) = "AN2" Then
    [P7].Value = [AN2].Value
    'Range("P7:P24").Value = [AN2].Value
  End If
'Ví dụ 2: lắng nghe ô AN7:AN24 thay đổi
  If Not IsArray(Target.Value) Then
    If Not Intersect(Target, Range("AN7:AN24")) Is Nothing Then
       'Thay đổi 1 Ô duy nhất ở cột P
      Range("P" & Target.Row).Value = Target.Value
      'Range("P" & Target.Row).Value = [AN2].Value
      'Thay đổi cả một mảng (Bỏ dấu ' để dòng code có thể hoạt động)
      'Range("P7:P24").Value = Target.Value
      'Range("P7,P8,P9,P10,P24").Value = Target.Value
    End If
  End If
End Sub