Chèn cột trong excel

Dear Bạn.
Cảm ơn bạn rất nhiều, bạn làm rất đúng ý mình cần.
Nhưng bạn ơi, thực sự mình ko có rành cái VBA, bạn hướng dẫn dùm mình làm sao làm đước cái mà XÓA / CHÈN đó với.
Còn các lệnh kia thì mình copy đươc.
Mong chờ tin bạn

View more random threads:

• Tự động điền vào chuỗi bên dưới nếu nhập số tổng của chuỗi
• tạo phiếu lương
• máy bị lỗi khi mở máy
• Nhờ anh (chị) giúp mình với.
• File Excel không cho lưu, và copy thì không cho paste.
• In văn bản bị mất khung trên file word và excel
• Xin trợ giúp code tìm kiếm trong VBA
• một số vấn đề xin giải đáp
• Xin file kế hoạch sản xuất bằng Excel
• giúp đỡ hàm Dmax

[thanh_k8_cntt]

Dear Bạn.
Cảm ơn bạn rất nhiều, bạn làm rất đúng ý mình cần.
Nhưng bạn ơi, thực sự mình ko có rành cái VBA, bạn hướng dẫn dùm mình làm sao làm đước cái mà XÓA / CHÈN đó với.
Còn các lệnh kia thì mình copy đươc.
Mong chờ tin bạn

[angelareview]

Dear Bạn.
Cảm ơn bạn rất nhiều, bạn làm rất đúng ý mình cần.
Nhưng bạn ơi, thực sự mình ko có rành cái VBA, bạn hướng dẫn dùm mình làm sao làm đước cái mà XÓA / CHÈN đó với.
Còn các lệnh kia thì mình copy đươc.
Mong chờ tin bạn

Làm sao hướng dẫn đây?
Nó gồm có những cái này, mà ấn Alt+F11 sẽ thấy:
Sheet can cong thuc:

Private Sub Cmd1_Click()If Cmd1.Caption = "CHEN" Then    Chen    Cmd1.Caption = "XOA"Else    Xoa    Cmd1.Caption = "CHEN"End IfEnd Sub  

Trong Module

Public Sub Chen()Application.ScreenUpdating = FalseDim I As Long, J As LongJ = [K5].End(xlToRight).ColumnRange("A5").Offset(, J).Value = "Marker"Range("A3:A32").Offset(, J - 1).CopyRange("A3:A32").Offset(, J).PasteSpecial Paste:=xlPasteFormatsApplication.CutCopyMode = FalseFor I = J To 12 Step -1    Cells(1, I).EntireColumn.Insert    Cells(5, I).Value = "Marker"Next I[K3].SelectEnd SubPublic Sub Xoa()Application.ScreenUpdating = FalseDim I As Long, J As LongJ = [K5].End(xlToRight).ColumnFor I = J To 12 Step -2    Cells(1, I).EntireColumn.DeleteNext IEnd Sub  

-------------------------------
Muốn gì khác thì xem các địa chỉ này trên GPE:
http://www.giaiphapexcel.com/forum/s...203#post558203
http://www.giaiphapexcel.com/forum/s...430#post482430

[phuonglinh]

Chào cả nhà.
Mình có bản excel cần sự giúp đỡ của cả nhà để mình có công thức cho phù hợp,
Mình làm tay lâu quá mà lại nhiều file tương tự vậy nữa
Sheet da chen: Mình đã chèn cột Maker
Sheet can cong thuc: mong mọi người giúp cho mình công thức với nhé
Rất mong sự giúp đỡ của mọi người
Chân thành cảm ơn

[phimlen1]

Cả nhà nhận lại file giúp mình với nhé
cảm ơn

[anhkhung368]

Cả nhà nhận lại file giúp mình với nhé
cảm ơn

318 Name rác.
Nếu hoàn toàn giống như trong file của bạn thì dùng Hlookup() cũng được mà.

K8=HLOOKUP(K$5;'da chen'!$K$5:$AA8;ROWS($1:4);0)  

[anhdjen]

Không bạn ah, mình cần chền cột Maker xen kẽ vào giũa các cột, cái file đã chèn là mình làm mẫu để bạn dễ hiêu ý mình cần làm

[toan102]

Không bạn ah, mình cần chền cột Maker xen kẽ vào giũa các cột, cái file đã chèn là mình làm mẫu để bạn dễ hiêu ý mình cần làm

"Chời"!!!!
Đọc bài #1 mà hiểu được ý bạn quả là "thiên tài".
Công thức đâu thể làm chuyện chèn cột hay dòng.
Muốn dùng VBA thì xem trong file.
Enable Macros khi mở file rồi bấm nút thôi.

[namphong]

Dear Bạn
Cảm ơn bạn giúp mình thật nhiệt tình, bạn ơi, mình ko biết làm cái biểu tượng Xóa/Chèn trong sheet cần chèn ấy.
Bạn mở file mình làm dấu nhé.
Bạn hướng dẫn giúp mình làm cái biểu tượng đó với, còn các lệnh kia mình làm theo bạn đươc rồi.
Mong bạn giúp đỡ.
cảm ơn bạn nhiều

[akzhoan]

Dear Bạn
Cảm ơn bạn giúp mình thật nhiệt tình, bạn ơi, mình ko biết làm cái biểu tượng Xóa/Chèn trong sheet cần chèn ấy.
Bạn mở file mình làm dấu nhé.
Bạn hướng dẫn giúp mình làm cái biểu tượng đó với, còn các lệnh kia mình làm theo bạn đươc rồi.
Mong bạn giúp đỡ.
cảm ơn bạn nhiều

Làm không được thì lấy file đó mà xài, File bạn bị Virus đó.
Khi quét sạch mấy ổng thì làm theo như vầy:
1/ Vào Menu Developer - Design Mode - Chuột phải vào cái nút cũ. Delete nó đì
2/ Nút Insert - Click vào cái biểu tượng nhỏ như trong hình 1

2/ Vẽ một cái nút vào chỗ nào đó, click chuột phải vào cái nút, chọn Propeties
Làm theo hình 2

3/ Đóng cái khung Properties, Click đúp vào cái nút, nó sẽ tạo sẵn cái Sub trong cửa sổ VBA
Nhập nội dung cho nó như sau:

Private Sub Cmd2_Click()If Cmd2.Caption = "CHEN" Then    Chen    Cmd2.Caption = "XOA"Else    Xoa    Cmd2.Caption = "CHEN"End IfEnd Sub  

4/ Trở ra Excel, click vào cái nút Design Mode
5/ Bấm thử nút mới tạo.
Hổng chạy thì thua.