Đoạn code này sai chỗ nào mà không sử dụng được... (1 người xem)

[vothanhhoang]

Ô A1 mình gõ chữ K
Ô A2mình gõ chữ H

Private Sub CommandButton1_Click()
Dim i
Dim j
i = Cells(1, 1).Value
j = Cells(2, 1).Value
Range(Columns(i, i).Value & ":" & Columns(j, j).Value).Delete
Range("A4").Select
Range("A4").Select
End Sub
(sao từ cột K đến cột H không xóa được, mọi người xem và hướng dẫn giúp)

 

[ptlong04x1]

Ô A1 mình gõ chữ K
Ô A2mình gõ chữ H

Private Sub CommandButton1_Click()
Dim i
Dim j
i = Cells(1, 1).Value
j = Cells(2, 1).Value
Range(Columns(i, i).Value & ":" & Columns(j, j).Value).Delete
Range("A4").Select
Range("A4").Select
End Sub
(sao từ cột K đến cột H không xóa được, mọi người xem và hướng dẫn giúp)

Nhập [A1] = 8; [A2] = 11
Chỉnh lại code như sau :

Sub CommandButton1_Click()
Dim i
Dim j
i = Cells(1, 1).Value
j = Cells(2, 1).Value
Range(Columns(i), Columns(j)).Delete
Range("A4").Select
End Sub

 

[MinhCong]

Ô A1 mình gõ chữ K
Ô A2mình gõ chữ H

Private Sub CommandButton1_Click()
Dim i
Dim j
i = Cells(1, 1).Value
j = Cells(2, 1).Value
Range(Columns(i, i).Value & ":" & Columns(j, j).Value).Delete
Range("A4").Select
Range("A4").Select
End Sub
(sao từ cột K đến cột H không xóa được, mọi người xem và hướng dẫn giúp)

Bạn sửa code trên như thế này xem sao:

Private Sub CommandButton1_Click()
    ActiveSheet.Select
    Columns(Cells(1, 2).Value & ":" & Cells(2, 2).Value).Delete
    Range("A4").Select
End Sub

 

[sealand]

Bạn viết

Sub  CommandButton1_Click()
With Sheet1
.Range(.[a1] & ":" & .[a2]).Delete
End With
End Sub

 

[solomon2211]

Ô A1 mình gõ chữ K
Ô A2mình gõ chữ H

Private Sub CommandButton1_Click()
Dim i
Dim j
i = Cells(1, 1).Value
j = Cells(2, 1).Value
Range(Columns(i, i).Value & ":" & Columns(j, j).Value).Delete
Range("A4").Select
Range("A4").Select
End Sub
(sao từ cột K đến cột H không xóa được, mọi người xem và hướng dẫn giúp)

Theo yêu cầu của bạn là xóa những cột trong khoảng mà bạn cho biết ở ô A1 và A2.
Các giả thiết đặt ra như sau:
1. Giá trị ô A1 và A2 đều trống: Không xóa cột nào cả
2. Một trong 2 ô A1 và A2 trống: Không xóa, hay chỉ xóa 1 cột theo giá trị của một ô
3. Giá trị ô A1 và/hoặc A2 là số
4. Giá trị ô A1 và A2 là ký tự từ A đến IV

Tạm thời xin sửa lại dòng lệnh của bạn theo như giả thiết 4. như sau:

Sub CommandButton1_Click()
i = Cells(1, 1).Value
j = Cells(2, 1).Value
Range(i & ":" & j).Delete (*)
End Sub

Nếu kèm theo giả thiết 1. thì (*) sẽ như sau:

If i <>"" and j<>"" then
Range(i & ":" & j).Delete
End if

Còn giả thiết 2 và 3 bạn tự làm tiếp nhé.

 

[vothanhhoang]

Nhập [A1] = 8; [A2] = 11
Chỉnh lại code như sau :

Sub CommandButton1_Click()
Dim i
Dim j
i = Cells(1, 1).Value
j = Cells(2, 1).Value
Range(Columns(i), Columns(j)).Delete
Range("A4").Select
End Sub

Đoạn code trên vẫn bị lỗi ở dòng:
Range(Columns(i), Columns(j)).Delete
Nhờ xem lại giúp

 

[vothanhhoang]

Miình làm được rồi, cảm ơn mọi người