Sub VD3() Sheet3.Select Dim R As Range Set R = Range("A1:C4") Range("A:K").Clear R = Rnd R.Columns(2).Select MsgBox R.Count R.Rows(3).Select MsgBox R.Address & Chr(13) & Range("D10").Row & _ Chr(13) & Range("D10").Column Range("A6").Value = 1000000 Range("A6").NumberFormat = "#,0" Range("A7").Value = Date Range("A7").NumberFormat = "dd/mm/yyyy" End Sub
@suckhoechoban360
3 жыл бұрын
Cảm ơn thầy rất nhiều. Mong thầy ra nhiều video hơn.
@buithetam8634
3 жыл бұрын
Sub VD2() Sheet2.Select Dim i, doan As Integer doan = InputBox("Chon doan chay: ") On doan GoTo doan1, doan2, doan3, doan4 doan1: ' dung Copy Paste Range("A:C").ClearContents For i = 1 To 5 Cells(i, 1) = 1000 + i ^ 6 Next Range("A1:A5").Select Selection.Copy ' copy ca dinh dang Range("C1").Select ActiveSheet.Paste Application.CutCopyMode = False ' xoa duong nhap nhay Exit Sub doan2: ' Copy dung lenh gan Range("B6:B10").Value = Range("A1:A5").Value Exit Sub doan3: ' hai cach xoa 1 vung o Range("B7:B9").ClearContents Range("C2:C4").Value = "" Cells(1, 2).Select Exit Sub doan4: Cells(7, 1).Formula = "=Sum(A1:A5)" MsgBox Cells(7, 1).HasFormula End Sub
@buithetam8634
3 жыл бұрын
Sub VD1() ' gan gia tri cho Range & Cells, bien tham chieu Dim R As Range, doan As Integer Sheet1.Select Set R = Range("A2:B10") doan = InputBox("Chay doan chuong trinh nao : ") On doan GoTo doan1, doan2 doan1: Range("A:E").ClearContents R = 1000 ' Toan vung bang 1000 Range("A12:D13") = 7777 Range(Cells(15, 1), Cells(16, 4)) = 5555 Exit Sub doan2: Cells(1, 3) = 8888 R.Cells() = "ABCD" ' la ca vung R R.Cells(4, 3) = 9999 ' Goc la o dau vung A2 R.Cells(, 4) = "Hanoi" ' hang ngam dinh la 1 R.Cells(14) = "Namdinh" ' phan tu 16 trong vung Range("A2:B10").Cells(1, 3) = 22222 End Sub
@ThuPhungVan
Жыл бұрын
Lệnh Selection.column trả về là số cột. Muốn trả về là tên cột (ví dụ N, M) thì mình dùng viết thế nào, xin thầy giúp an
Пікірлер: 5