xin hỏi Date cộng số trong textbox có thực hiện được không?

[thomtv]

Vấn đề như thế này mình có 1 textbox khi nhập số vào textbox thì tại cột A1 = date + số trong textbox
VD: khi nhập số 2 vào testbox thì tại cell A1 = ngày hiện hành của máy + thêm 2
sheet1.range("A1")= date + textbox1.value
mong mọi người chỉ giúp

 

[befaint]

Sheet1.range("A1").Value = Date + vba.Clng(textbox1.text)

hoặc
Sheet1.range("A1").Value = dateAdd("d", vba.Clng(textbox1.text), Date)

 

[quangpro779]

Sheet1.range("A1").Value = Date + vba.Clng(textbox1.text)

hoặc
Sheet1.range("A1").Value = dateAdd("d", vba.Clng(textbox1.text), Date)

On Error Resume Next
Range("a1").Value = Int(Now) + CDbl(TextBox1.Value)

 

[befaint]

On Error Resume Next
Range("a1").Value = Int(Now) + CDbl(TextBox1.Value)

Úi, mình quay trở lại rồi à?

Người ta biết dùng Date rồi, sao lại i nờ tê nao làm chi vậy?
Người ta thêm 2 ngày thì sao lại cờ dờ bờ lờ làm gì?

Pha tư duy đến từ lương lai này mới quá mình chưa nghĩ ra.