Hỏi về code Xoá cột

[YouthGoneWild]

Chào các bác,

Em có vấn đề này muốn nhờ các bác giúp đỡ. Nếu muốn xoá từ cột C tới cột đằng trước 1 cell bất kỳ (ở sau cột D) (ví dụ cell F8) thì phải viết code như thế nào ạ? Em không biết làm sao để tách tên cell ra để có tên cột (ví dụ: cell F8 thì tách tên cột là F).

Cảm ơn các bác!

 

[ndu96081631]

Chào các bác,

Em có vấn đề này muốn nhờ các bác giúp đỡ. Nếu muốn xoá từ cột C tới cột đằng trước 1 cell bất kỳ (ở sau cột D) (ví dụ cell F8) thì phải viết code như thế nào ạ? Em không biết làm sao để tách tên cell ra để có tên cột (ví dụ: cell F8 thì tách tên cột là F).

Cảm ơn các bác!

Ví dụ:
Range("C1", ActiveCell(, 0)).EntireColumn.Delete
Là xóa từ cột C đến trước ActiveCell

 

[YouthGoneWild]

Ví dụ:
Range("C1", ActiveCell(, 0)).EntireColumn.Delete
Là xóa từ cột C đến trước ActiveCell

Cảm ơn bác ndu. Mà sao ActiveCell(,0) lại chọn cột trước nó. Ý em là sao không là -1 mà là 0?

 

[ndu96081631]

Cảm ơn bác ndu. Mà sao ActiveCell(,0) lại chọn cột trước nó. Ý em là sao không là -1 mà là 0?

Uh... thì là... thế thôi
Ẹc... Ẹc...
Một tí xảo thuật thôi mà... thay vì viết rõ ràng thì sẽ là ActiveCell.Offset(0,-1)
(nhưng tôi cứ thích viết gọn thế)
---------------------------------
ActiveCell(1,1) ---> Là chính nó
ActiveCell(1,2) ---> dịch về bên phải 1 cell
ActiveCell(1,0) ---> dịch về bên trái 1 cell
ActiveCell(2,1) ---> dịch xuống dưới 1 cell
ActiveCell(0,1) ---> dịch lên trên 1 cell
.........
Còn ActiveCell(,-1) thì dịch sang trái đến 2 cell cơ

 

[bebe08]

chèn hàng, cột

Các bác cho em hỏi code để chèn nhiều dòng hoặc cột trống?
ví dụ: em mốn tạo 10 hàng hoặc 10 cột, cứ mất công phải bôi đen số lượng dòng hoặc cột rồi vào insert rất mất thời gian.
các bác giúp em tạo code để nhập vào số dòng hoặc cột cần chèn thêm thì sẽ tữ động chèn.
cảm ơn các bác!

 

[ptlong04x1]

Các bác cho em hỏi code để chèn nhiều dòng hoặc cột trống?
ví dụ: em mốn tạo 10 hàng hoặc 10 cột, cứ mất công phải bôi đen số lượng dòng hoặc cột rồi vào insert rất mất thời gian.
các bác giúp em tạo code để nhập vào số dòng hoặc cột cần chèn thêm thì sẽ tữ động chèn.
cảm ơn các bác!

Bạn gán phím tắt để chạy 2 sub sau (chọn ô bất kỳ rồi chạy code), có thể làm thành 1 add-in để dùng chung trong Excel.

Sub RInsert()
    Dim i As Integer, j As Integer
    On Error Resume Next
    i = InputBox("Nhap so dong can chen :", "Nhap lieu :")
    For j = 1 To i
        ActiveCell.EntireRow.Insert xlDown, False
    Next j
End Sub

Sub CInsert()
    Dim i As Integer, j As Integer
    On Error Resume Next
    i = InputBox("Nhap so cot can chen :", "Nhap lieu :")
    For j = 1 To i
        ActiveCell.EntireColumn.Insert xlToRight, False
    Next j
End Sub

 

[ndu96081631]

Bạn gán phím tắt để chạy 2 sub sau (chọn ô bất kỳ rồi chạy code), có thể làm thành 1 add-in để dùng chung trong Excel.

Sub RInsert()
    Dim i As Integer, j As Integer
    On Error Resume Next
    i = InputBox("Nhap so dong can chen :", "Nhap lieu :")
    For j = 1 To i
        ActiveCell.EntireRow.Insert xlDown, False
    Next j
End Sub

Sub CInsert()
    Dim i As Integer, j As Integer
    On Error Resume Next
    i = InputBox("Nhap so cot can chen :", "Nhap lieu :")
    For j = 1 To i
        ActiveCell.EntireColumn.Insert xlToRight, False
    Next j
End Sub

Nói chung chèn dòng, cột thì không cần vòng lập ---> Bằng tay ta còn chèn được 1 lúc nhiều dòng nhiều cột thì lý nào dùng code lại phải thông qua vòng lập ---> Đúng không?
Đại khái code của bạn có thể sửa như vầy:

Sub RInsert()
  Dim i As Integer
  On Error Resume Next
  i = InputBox("Nhap so dong can chen :", "Nhap lieu :")
  ActiveCell.Resize(i).EntireRow.Insert
End Sub