Xin các bác hỗ trợ giúp, mình muốn code "ClearContents" có điều kiện ạ!

Ldh1984 · 11/9/21

Em có file Excel như sau:
có cột số thư tự (STT) và cột "Ngày"
Yêu cầu: - khi nhập tại cột "Ngày" đến số thứ tự 21 thì sẽ xóa hết cột "Ngày để nhập lại từ đầu ^^.
Mong các cao nhân giúp ạ, chân thành cảm ơn.

BuiQuangThuan · 11/9/21

Ldh1984 đã viết:
Em có file Excel như sau:
có cột số thư tự (STT) và cột "Ngày"
Yêu cầu: - khi nhập tại cột "Ngày" đến số thứ tự 21 thì sẽ xóa hết cột "Ngày để nhập lại từ đầu ^^.
Mong các cao nhân giúp ạ, chân thành cảm ơn.

Như trong file là xóa hết cột thứ tự từ dòng 5 tới dòng 24
và nhập stt là 1 bắt đầu từ dòng 25 à

Ldh1984 · 11/9/21

buiquangthuan đã viết:
Như trong file là xóa hết cột thứ tự từ dòng 5 tới dòng 24
và nhập stt là 1 bắt đầu từ dòng 25 à

nếu nhập cột Ngày tới dòng số thứ tự 25 thì sẽ tự động xóa hết cột ngày
- muốn xóa Cột Ngày thôi không xóa cột số thứ thự nha bác.

BuiQuangThuan · 11/9/21

Ldh1984 đã viết:
nếu nhập cột Ngày tới dòng số thứ tự 25 thì sẽ tự đọng xóa hết cột ngày

thế rồi điền cái gì ở dòng 25 không

Ldh1984 · 11/9/21

buiquangthuan đã viết:
thế rồi điền cái gì ở dòng 25 không

tại đó thì không điền gì hết ạ, tới cột đó thì Clear từ B4:B24 để mình nhập tay lại từ dầu ^^

BuiQuangThuan · 11/9/21

Ldh1984 đã viết:
tại đó thì không điền gì hết ạ, tới cột đó thì Clear từ B4:B24 để mình nhập tay lại từ dầu ^^

Chẳng biết đúng ý bạn không nữa

Ldh1984 · 11/9/21

buiquangthuan đã viết:
Chẳng biết đúng ý bạn không nữa

hi, chưa đứng ý nhưng từ code của bạn mình điều chỉnh lại đc, cảm ơn bạn rất nhiều ^^

BuiQuangThuan · 11/9/21

Ldh1984 đã viết:
tại đó thì không điền gì hết ạ, tới cột đó thì Clear từ B4:B24 để mình nhập tay lại từ dầu ^^

Hihi. Câu này được sửa rồi sao mà

Ldh1984 · 12/9/21

buiquangthuan đã viết:
Hihi. Câu này được sửa rồi sao mà

Bạn ơi, sửa không ok lắm nhờ bạn viết lại tí theo yêu cầu nha:
tại ô A2 mình có dùng hàm COUNTA, điều kiện Khi A2>21 thì Clear từ dòng B4:B24 nha. và nhập ngày hiện tại tại ô B4
bác viết code tạo Module ấy.

Hoàng Tuấn 868 · 12/9/21

Ldh1984 đã viết:
bác viết code tạo Module ấy.

Chà chà, vụ này lại còn hướng dẫn cả người giúp nữa ta.

Ldh1984 · 12/9/21

Hoàng Tuấn 868 đã viết:
Chà chà, vụ này lại còn hướng dẫn cả người giúp nữa ta.

Bác tuấn giúp với

Hoàng Tuấn 868 · 12/9/21

Ldh1984 đã viết:
Bác tuấn giúp với

Bài này của bạn không hợp lý để thực hiện. Khi điền đến dòng thứ tự số 21 thì xóa luôn rồi nên điền vào vô nghĩa.

concogia · 12/9/21

Hoàng Tuấn 868 đã viết:
Bài này của bạn không hợp lý để thực hiện. Khi điền đến dòng thứ tự số 21 thì xóa luôn rồi nên điền vào vô nghĩa.

Có thể khi nhập dữ liệu tới dòng có số thứ tự 21 thì dữ liệu trong cột chạy đi chỗ khác và làm một công việc gì đó, còn những em ở lại phải xoá đi để trở lại công việc từ đầu
Chỉ là có thể. Híc
Thân

Hoàng Tuấn 868 · 12/9/21

concogia đã viết:
Có thể khi nhập dữ liệu tới dòng có số thứ tự 21 thì dữ liệu trong cột chạy đi chỗ khác và làm một công việc gì đó, còn những em ở lại phải xoá đi để trở lại công việc từ đầu
Chỉ là có thể. Híc
Thân

Anh à, theo ý chủ bài thì điền đến dòng đấy sẽ tự động xóa luôn, nếu Enter thì đã xóa mất rồi nên em nghĩ dữ liệu tại ô vừa nhập đó chưa kịp chạy đi đâu cả đã bị xóa rồi anh ạ. (Cũng chỉ là đoán mò vì thông tin của chủ bài chỉ có vậy anh nhỉ).

concogia · 12/9/21

Hoàng Tuấn 868 đã viết:
Anh à, theo ý chủ bài thì điền đến dòng đấy sẽ tự động xóa luôn, nếu Enter thì đã xóa mất rồi nên em nghĩ dữ liệu tại ô vừa nhập đó chưa kịp chạy đi đâu cả đã bị xóa rồi anh ạ. (Cũng chỉ là đoán mò vì thông tin của chủ bài chỉ có vậy anh nhỉ).

Bi giờ tui với bạn, anh em mình....đoán mò nhé, khi nhập tới hàng cuối cùng ( dòng 21), Enter xong, code ra lệnh làm cái gì đó trước, sau đó mới ra lệnh xoá, nhảy lên dòng 1, nhập tiếp cái gì đó. Có thể bạn đó viết được code kia nhưng chưa viết được code xoá nên nhờ làm một code thôi. Híc, hên xui, đoán mò mà
Thân

Hoàng Tuấn 868 · 12/9/21

concogia đã viết:
Bi giờ tui với bạn, anh em mình....đoán mò nhé, khi nhập tới hàng cuối cùng ( dòng 21), Enter xong, code ra lệnh làm cái gì đó trước, sau đó mới ra lệnh xoá, nhảy lên dòng 1, nhập tiếp cái gì đó. Có thể bạn đó viết được code kia nhưng chưa viết được code xoá nên nhờ làm một code thôi. Híc, hên xui, đoán mò mà
Thân

Em thì đoán hơi khác, nếu đã viết được code làm việc khác thì việc viết đoạn xóa còn nhanh hơn mà anh nhỉ. Nhưng anh em mình cũng vẫn đang là thầy bói đoán voi.

Ldh1984 · 12/9/21

concogia đã viết:
Bi giờ tui với bạn, anh em mình....đoán mò nhé, khi nhập tới hàng cuối cùng ( dòng 21), Enter xong, code ra lệnh làm cái gì đó trước, sau đó mới ra lệnh xoá, nhảy lên dòng 1, nhập tiếp cái gì đó. Có thể bạn đó viết được code kia nhưng chưa viết được code xoá nên nhờ làm một code thôi. Híc, hên xui, đoán mò mà
Thân

2 bác ơi: mình có file Excel sau: nhờ 2 bác viết hộ code xóa tự động ạ.
yêu cầu:
- 1. số tứ tự không xóa.
- 2.chỉ xóa cột ngày khi nhập ngày tháng tại B24 và enter qua B25 là Clear B4:B24 là được ạ.
File này là một cái bảng kê thôi, do mình làm biếng xóa tay nên nhờ các cao nhân có code hay cho mình xin ạ.

code đang viết:

Sub InG_N()

Dim form As Worksheet
Dim G_N As Worksheet

Set G_N = ThisWorkbook.Sheets("G_N")

''''''''''copy danh sach''''''''
Dim hang_cuoi As Long
hang_cuoi = G_N.Range("B2").Value + 4

G_N.Range("B" & hang_cuoi).Value = G_N.Range("B1").Value

''''''''iN DU LIEU'''''''
On Error GoTo baoloi:
G_N.Select
ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate:=True

baoloi:

''''''''XOA DU LIEU'''''''

End Sub

HUONGHCKT · 12/9/21

Ldh1984 đã viết:
2 bác ơi: mình có file Excel sau: nhờ 2 bác viết hộ code xóa tự động ạ.
yêu cầu:
- 1. số tứ tự không xóa.
- 2.chỉ xóa cột ngày khi nhập ngày tháng tại B24 và enter qua B25 là Clear B4:B24 là được ạ.
File này là một cái bảng kê thôi, do mình làm biếng xóa tay nên nhờ các cao nhân có code hay cho mình xin ạ.

code đang viết:

Sub InG_N()

Dim form As Worksheet
Dim G_N As Worksheet

Set G_N = ThisWorkbook.Sheets("G_N")

''''''''''copy danh sach''''''''
Dim hang_cuoi As Long
hang_cuoi = G_N.Range("B2").Value + 4

G_N.Range("B" & hang_cuoi).Value = G_N.Range("B1").Value

''''''''iN DU LIEU'''''''
On Error GoTo baoloi:
G_N.Select
ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate:=True

baoloi:

''''''''XOA DU LIEU'''''''

End Sub

chép đoạn code sau vào trong VbE của Sh G_N và chạy thử
Trúng-Chật -Hên - Sui

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$24" Then Range("B4:B24").ClearContents
End Sub

Ldh1984 · 13/9/21

HUONGHCKT đã viết:
chép đoạn code sau vào trong VbE của Sh G_N và chạy thử
Trúng-Chật -Hên - Sui

Mã:

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$24" Then Range("B4:B24").ClearContents End Sub

không ổn tí nào

HUONGHCKT · 13/9/21

Ldh1984 đã viết:
không ổn tí nào

sao vậy? Khi nhập đến ô B25 enter thì ns sẽ xóa hết Từ B4:B24 mà.

Xin các bác hỗ trợ giúp, mình muốn code "ClearContents" có điều kiện ạ!

Thành viên chính thức

File đính kèm

❆❆❆❆❆❆❆❆❆❆❆❆

Thành viên chính thức

❆❆❆❆❆❆❆❆❆❆❆❆

Thành viên chính thức

❆❆❆❆❆❆❆❆❆❆❆❆

File đính kèm

Thành viên chính thức

❆❆❆❆❆❆❆❆❆❆❆❆

Thành viên chính thức

Đăng ký hôm qua

Thành viên chính thức

Đăng ký hôm qua

Gội rồi mới Cạo

Đăng ký hôm qua

Gội rồi mới Cạo

Đăng ký hôm qua

Thành viên chính thức

File đính kèm

Zalo 0986997214

Thành viên chính thức

Zalo 0986997214