Mình viết đoạn cod như nàySub InputBox() Sheet1Range("c1")Value = InputBox("2 nhan

Bạn viết như sau nhé:

Sub InputBox()
   Dim DapAn as string
   DapAn = InputBox("2 nhan 2 bang may?")
   Sheet1.Range("C1").Value = DapAn
End Sub

bởi dòng lệnh InputBox("2 nhan 2 bang may?") sẽ chưa có kết quả ngay khi nó hiển thị ra, mà chỉ là show input box ra để thu thập đáp án.

Do đó bạn cần dòng lệnh DapAn = InputBox("2 nhan 2 bang may?") trước, khi có đáp án rồi mới gán vào ô C1.

Cảm ơn bạn

Chào bạn bạn có thể đẩy file lên để gitiho kiểm tra không nhỉ?

Tên sub không được đặt trùng với các đối tượng có sẵn trong VBA.

Bạn đổi tên sub đi nhé, vì từ khóa InputBox là 1 từ khóa vba không cho sử dụng.

Thầy ơi, sao lệnh này e copy như phía trên thầy chỉ cho bạn, mà máy em cũng chỉ ra thông báo nội dung InputBox, còn kết quả khi mình điền vào nó không nhảy ra ô C1 ạ, em cám ơn thầy ạ!

Sub VD_Test()

Dim DapAn As String

   DapAn = InputBox("2 nhan 2 bang may?")

   Sheet1.Range("C1").Value = DapAn

End Sub

Mình copy đoạn code của Thủy Tiên chạy thì vẫn ra kqua vào ô C1

Chào Hải Bắc

Sheet1.Range("C1").Value = DapAn phần này chính là ghi dữ liệu vào ô C1 bạn nhé.

Dạ em cám ơn thầy và mọi người, chắc do e mới nâng cấp Office nên khi mở file đã tạo trước khi nâng cấp làm tiếp nó bị lỗi, e thử tạo một file khác thì chạy được rồi ạ, em cám ơn !

Cảm ơn Thuỷ Tiên chúc bạn học tốt cùng gitiho