Heracles1976
Thành viên mới 

			
		- Tham gia
 - 10/6/15
 
- Bài viết
 - 35
 
- Được thích
 - 7
 
E chào các đại cao thủ. Google spreadsheet đã cho chạy macro rồi, E có đoạn code bé bé này muốn nhờ các Bác chuyển thành ngôn ngữ của Google Spreadsheet, mong các Bác ra tay trợ giúp E với.. E cảm ơn nhiều nhiều ạ.!
	
	
	
		
				
			
		Mã:
		
	
	Sub Ghi_Dulieu()
Dim MyArr As Variant
    With Sheets("sheet1")
        MyArr = Array(.[g1], .[h1], .[i1], .[j1])
    End With
    Sheets("Sheet1").Range("A65536").End(xlUp).Offset(1).Resize(, 4).Value = MyArr
    
    MsgBox ("Recorded")
End Sub
	
	
	  