Xoá nhiều cột được định trước trong excel VBA

[lucifer1985]

Mình đang cần viết 1 chương trình xoá nhiều cột đã được định sẵn trong file excel sau.
Giả sử như các cột B D F AR ...
Các bác cho em xin chương trình nhé em hơi gà khoản VBA

 

[leonguyenz]

Mình đang cần viết 1 chương trình xoá nhiều cột đã được định sẵn trong file excel sau.
Giả sử như các cột B D F AR ...
Các bác cho em xin chương trình nhé em hơi gà khoản VBA

Có thể dùng lệnh như sau:

Union([B1], [D1], [F:H], [AR1]).EntireColumn.Delete

 

[lucifer1985]

Có thể dùng lệnh như sau:

Union([B1], [D1], [F:H], [AR1]).EntireColumn.Delete

Thank bác nhé.
Tiện em hỏi bác luôn nếu mình muốn lập 1 box tuỳ chọn những cột cần giữ lại. Nhập cái file excel này rồi tích chọn các cột cần giữ lại sau đó cho ra file chỉ còn các cột mình cần thì như nào bác.

 

[DarkWanderer]

Thank bác nhé.
Tiện em hỏi bác luôn nếu mình muốn lập 1 box tuỳ chọn những cột cần giữ lại. Nhập cái file excel này rồi tích chọn các cột cần giữ lại sau đó cho ra file chỉ còn các cột mình cần thì như nào bác.

VD:Nếu gõ vào box
1 : Xóa cột 1
1,3,5 : Xóa cột 1,3,5
2-5 : Xóa các cột 2,3,4,5
Như thế này phải không

 

[lucifer1985]

VD:Nếu gõ vào box
1 : Xóa cột 1
1,3,5 : Xóa cột 1,3,5
2-5 : Xóa các cột 2,3,4,5
Như thế này phải không

Ý em là như này :
Các file cơ sở dữ liệu down về đều có định dạng như file em đính kèm.
File này có rất nhiều cột nó rối mắt.
Em muốn tạo 1 chương trình giúp người dùng chọn đc những cột mà minh muốn hiển thị. VD như là chỉ muốn hiển thị cột tần sô, địa chỉ khách hàng, đơn vị sử dụng ...
Hi bác giúp em với em mới học VBA.

 

[befaint]

lập 1 box tuỳ chọn những cột cần giữ lại.

Giờ này vẫn còn dùng xls là sao. @@

Nhập cột cần xóa chứ ai lại đi nhập cột giữ lại.

xls có 256 cột, xlsx (Excel 2007 trở lên) có 16 ngàn 384 cột, nhập xong hết cái Tết.

 

[lucifer1985]

Giờ này vẫn còn dùng xls là sao. @@

Nhập cột cần xóa chứ ai lại đi nhập cột giữ lại.

xls có 256 cột, xlsx (Excel 2007 trở lên) có 16 ngàn 384 cột, nhập xong hết cái Tết.

Đây là file CSDL ddoowwn trên Web về bạn nhé.
Ý của mình là tạo ra 1 ctrinh mà người sử dụng tích chọn các trường mà mình muốn xem( mỗi trường là 1 cột ý) sau đó xuất ra file chỉ giữ lại các cột đó

 

[befaint]

mỗi trường là 1 cột ý) sau đó xuất ra file

Làm trên trang web nào đó hả?

 

[lucifer1985]

Làm trên trang web nào đó hả?

ko cần làm trên web bạn à. Chỉ cần làm trên file CSDL ddowwn về thôi

 

[leonguyenz]

Ý em là như này :
Các file cơ sở dữ liệu down về đều có định dạng như file em đính kèm.
File này có rất nhiều cột nó rối mắt.
Em muốn tạo 1 chương trình giúp người dùng chọn đc những cột mà minh muốn hiển thị. VD như là chỉ muốn hiển thị cột tần sô, địa chỉ khách hàng, đơn vị sử dụng ...
Hi bác giúp em với em mới học VBA.

Bạn thử code này, chọn cột cần giữ lại, Copy qua sheet khác

Sub CopyCol()
Dim Tmp As Range
    Set Tmp = Application.InputBox("Chon côt cân giu lai", "Thông báo", , , , , , 8)
    Tmp.EntireColumn.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

 

[befaint]

Lấy chuột chọn cột rồi nhấn Ctrl - một cái là xong.

 

[lucifer1985]

Bạn thử code này, chọn cột cần giữ lại, Copy qua sheet khác

Sub CopyCol()
Dim Tmp As Range
    Set Tmp = Application.InputBox("Chon côt cân giu lai", "Thông báo", , , , , , 8)
    Tmp.EntireColumn.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Em chưa hiểu lắm bác ạ, Hay bác áp luôn vào file em đính kèm đc ko bác. Cũng tạo 1 box có đầy đủ các trường nhưng chọn theo kiểu tic ấy bác. tic vào cái nào thì giữ lại trường ấy.

 

[leonguyenz]

Em chưa hiểu lắm bác ạ, Hay bác áp luôn vào file em đính kèm đc ko bác. Cũng tạo 1 box có đầy đủ các trường nhưng chọn theo kiểu tic ấy bác. tic vào cái nào thì giữ lại trường ấy.

Bạn chưa đưa code vào file được thì tội gì chạy code cho rắc rối thêm. Cứ chọn các cột cần xóa rồi nhấn Ctrl và - (Bài #11 có hướng dẫn) là xong rồi.
Nếu bạn không biết mở marco luôn thì thua.

 

[lucifer1985]

Bạn chưa đưa code vào file được thì tội gì chạy code cho rắc rối thêm. Cứ chọn các cột cần xóa rồi nhấn Ctrl và - (Bài #11 có hướng dẫn) là xong rồi.
Nếu bạn không biết mở marco luôn thì thua.

Vâng cám ơn bác đã support em nhiệt tình.Chắc tại em diễn đạt ko rõ, VbA với marco em cũng biết sơ sơ rồi.
Cụ thể là em muốn viết 1 chương trình VBA thực hiện 2 nhiệm vụ:
+ Tạo 1 bảng Chekbox (gần như file ảnh em đính kèm) gồm nhiều ô mỗi ô là 1 tiêu đề Cột của file CSDL (ví dụ như là Tần số, đơn vị sử dụng....), để người sử dụng tíc vào đó để chọn những mục mình muốn xem.
+ Sau đó link dẫn đến file CSDL Down về => cho ra 1 file mới( hoặc 1 sheets mới) chỉ còn những cột mà người sử dụng đã lựa chọn ở trên.
Em loay hoay cả tuần rồi mà vẫn chưa làm đc mong bác giúp đỡ

 

[VetMini]

...Em loay hoay cả tuần rồi mà vẫn chưa làm đc mong bác giúp đỡ

"Loay hoay cả tuần" mà cũng không biết đặt câu hỏi cho đúng. Từ bài #1 đến bài #14, yêu cầu nó phồng lên ít nhất à 500%
Hay là bớt dùng tiếng Anh một chút thì tập được cách vết tiếng Việt rõ hơn?

 

[lucifer1985]

"Loay hoay cả tuần" mà cũng không biết đặt câu hỏi cho đúng. Từ bài #1 đến bài #14, yêu cầu nó phồng lên ít nhất à 500%
Hay là bớt dùng tiếng Anh một chút thì tập được cách vết tiếng Việt rõ hơn?

Ok cái bạn cái này thì mình ghi nhận, cũng tại lúc đầu tính hỏi 2 phần rồi ghép lại nhưng càng hỏi càng thấy phức tạp với lại VBA còn gà nên mới hỏi ko rõ ràng.

 

[NGOCHAN26]

Giúp em với. huhu, em ko rành VBA nên mò hoài ko ra.
Em có file đính kèm sau.
Em nhập thông tin dữ liệu trên sheet data, các thông tin cần lọc sẽ ở 2 sheet kế bên. nhưng khi em thay đổi tên 1 trường vd như : thang gia đình" (ở cột E nhu cầu) thì mã hiệu ở cột BO và mã hiệu thang ở cột BL ko hiểu, ko cập nhật được.
Em muốn thêm 1 cột Ngày ký HĐ (cột BP lấy dữ liệu từ thông tin bảng phía dưới) thì cũng ko file cũng ko hiểu để lấy.
Em muốn thêm thông ở các sheet (nguồn) thì sheet data cũng ko cập nhật.
Giúp em với, file này ko phải em làm, cao siêu quá em bó tay. xin hãy giúp em với

 

[VetMini]

...
Giúp em với, file này ko phải em làm, cao siêu quá em bó tay. xin hãy giúp em với

Mở thớt riêng mà hỏi. Tự dưng chen vào thớt của người ta là bất lịch sự.

(Có người giúp làm xong, ít lâu sau bỏ việc, người kế quản cũng sẽ đưa file lên và nói một câu in hệt)

 

[NGOCHAN26]

Mở thớt riêng mà hỏi. Tự dưng chen vào thớt của người ta là bất lịch sự.

(Có người giúp làm xong, ít lâu sau bỏ việc, người kế quản cũng sẽ đưa file lên và nói một câu in hệt)

em cũng đã đăng bài hỏi riêng rồi, mà chưa có Anh Chị nào giúp cả. Em mới đi đọc các pic xem có bài nào cùng chủ đề VBA để hỏi. Vì các Anh chị hiểu VBA thì chắc chắn cũng sẽ giúp được em. EM xin lỗi nếu đã đăng trong đây làm ảnh hưởng mọi người, nhưng mắng em bất lịch sự là nặng lời với em rồi í ạ.
Em xin lỗi

 

[Hoàng Tuấn 868]

em cũng đã đăng bài hỏi riêng rồi, mà chưa có Anh Chị nào giúp cả. Em mới đi đọc các pic xem có bài nào cùng chủ đề VBA để hỏi. Vì các Anh chị hiểu VBA thì chắc chắn cũng sẽ giúp được em. EM xin lỗi nếu đã đăng trong đây làm ảnh hưởng mọi người, nhưng mắng em bất lịch sự là nặng lời với em rồi í ạ.
Em xin lỗi

Mấy bài bạn đăng vừa viết tắt, vừa sai chính tả tùm lum nên không ai hiểu để giúp được bạn đó.