Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Lộ trình học tập
Khám phá đỉnh cao tri thức cùng Gitiho qua hành trình học tập được thiết kế tỉ mỉ và toàn diện. Với kho tàng lộ trình đa dạng, chuyên sâu trên mọi lĩnh vực, chúng tôi sẽ đồng hành cùng bạn khai phá tiềm năng, chinh phục thách thức và khẳng định giá trị bản thân. Mỗi hành trình đều được nghiên cứu công phu, tạo nên bước đệm vững chắc để bạn tự tin bứt phá và tỏa sáng trên con đường phát triển sự nghiệp."
Gitiho for leading business
Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
vì sao vùng Sheet2Range("D2D172") lại trả kết quả là empty ạSub nhaphd()Dim vung
thầy cho e hỏi vì sao vùng Sheet2.Range("D2:D172") lại trả kết quả là empty ạ
Sub nhaphd()
Dim vung As Range
vung = Sheet2.Range("D2:D172")
Dim i As Range
For Each i In vung
i.Value = Sheet1.Range("A1")
Next i
End Sub
5 câu trả lời
163 lượt xem
vỗ tay
Chào bạn bạn debug xem có giá trị không nhé.
Option Explicit
Sub nhaphd()
Dim vung As Range
Set vung = Sheet1.Range("B1:B10")
Dim i As Range
For Each i In vung
i.Value = Sheet1.Range("A1")
Next i
Set vung = Nothing
End Sub
vỗ tay
chào thầy,
E cần gán các giá trị từ cột D2 đến D172 lần lượt ở sheet 2 vào ô A1 ở sheet 1. Rõ ràng range (D2:D172) theo file là có dữ liệu nhưng VBA cứ báo là empty. là do format hay sao vậy thầy. e kiểm tra thì format đang để là general.
vỗ tay
Chào bạn bạn có set vùng không vậy?
Set vung = Sheet2.Range("D2:D172")
vỗ tay
dạ có ạ.
vỗ tay
Choà bạn bạn F8 và debug xem xuất hiện lỗi thế nào?
vỗ tay
Câu hỏi liên quan
Top
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông