Cách tạo ô tính tự động khi chọn ngẫu nhiên giá trị

[kamplus]

Bạn nói đúng. Hiểu vấn đề sẽ giải quyết đc tốt hơn và khi đặt câu hỏi cũng trọng tâm hơn.
Vì mình muốn giải quyết sớm và những cái này lúc trước mình không dùng đến nên không tìm hiểu sâu, biết thêm về nó nên mới hỏi nhiều như vậy. Dù sao, mình phải nghiên cứu thêm. Cảm ơn bạn đã giúp đỡ!

 

[giola]

Thui chót đi xe sang rùi,

Dùng CODE tất vậy

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Not Intersect(Target, [E6:G8]) Is Nothing Then
        On Error GoTo 112
        Application.EnableEvents = False
        If IsDate(Target.Value) Then
            Dim d As Double
            d = Target.Value + 115
            Range("J6") = d
            Range("L3") = d + 30
            Range("L6") = Format(d + 2, "dd/mm/yyyy") & " Tr" & ChrW(7877) & " 2 ngày"
        Else
            Dim HayChonNgay As String
            HayChonNgay = "Hãy ch" & ChrW(7885) & "n ngày "
            Range("J6") = HayChonNgay
            Range("L3") = HayChonNgay
            Range("L6") = HayChonNgay
        End If
112:    Application.EnableEvents = True
    End If
End Sub

 

[kamplus]

Hii, cảm ơn bạn nhiều.