Gán giá trị cho 1 cell

[hovafa]

Chào các ACE. Em muốn gán 1 ô cho 1 chuỗi có sẵn nhưng sao không được báo lỗi hoài.

Em làm như vầy nè nhưng không được.

Vào vba viết code như sau:

sub test()
sheet1.range("A1").text = "hello"
end sub

nhưng khi vào excel vào ô bất kỳ go =test() thì ô A1 không hiện gì cả và tại ô bất kỳ mớ gõ =test() báo lỗi...hic...

Em mới học không biết phải làm sao mong các bạn chỉ giúp với.

View more random threads:

• Nhờ sửa lỗi code VBA trong Sổ cái
• LỊCH VÀ ĐỒNG HỒ
• Trong Excel làm cách nào đếm đươc tháng hiện tại có bao nhiêu ngày thứ hai,
• Xin cao thủ VBA chỉ dạy
• Cần giúp đỡ làm 1 chương trình nhỏ (cảm ơn & hậu tạ)
• File viết bằng VBA đầu tiên
• Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA
• Properties của UserForm
• Tăng số tự động
• Lỗi khi sử dụng macro,addin

[thangmarketing]

Ðề: Gán giá trị cho 1 cell

Em muốn gán 1 ô cho 1 chuỗi có sẵn nhưng sao không được báo lỗi hoài.

Em làm như vầy nè nhưng không được.

Vào vba viết code như sau:

sub test()
sheet1.range("A1").text = "hello"
end sub
(1) Nhưng khi vào excel vào ô bất kỳ go =test() thì ô A1 không hiện gì cả
& (2) tại ô bất kỳ mớ gõ =test() báo lỗi...hic...

(1) Bạn sửa dòng lệnh đó lại như sau, chắc OK:

 Sheet1.range("A1").Value = "hello"

(2) Bạn fải viết dưới dạng hàm tự tạo thì mới được, như

Function Test() As String
   Test="Hello & . . ."
End Function

[danlongthanh]

Ðề: Gán giá trị cho 1 cell

1. Để gõ lệnh = test() thì em phải viết test dưới dạng hàm (Funtion) chứ không phải Sub

2. Câu lệnh gán của em cần sửa lại như sau:
Sheet1.Range("A1") = "hello"

3. Nếu em thực hiện gán giá trị cho 1 ô bằng cách này thì excel sẽ không thực hiện được. Em nên chọn cách thực hiện lệnh gán từ sự kiện khác. VD tạo nút lệnh để thực hiện thủ tục test của em