Cách liên kết 2 ô với nhau trong excel khi một trong số chúng bỏ qua một đầu vào nhất định

Xin chào một chút trợ giúp ở đây, nơi tôi đang buộc để lấy một ô bắt chước một ô khác của khối A1 và khối B1 bằng cách nhập tất nhiên =B1 trong khối A1 trong công thức. Nhưng trong trường hợp này, tôi đang cố gắng thực hiện chính đầu vào đó của một công thức ngoại trừ.. trong trường hợp này, tôi đang cố gắng yêu cầu A1 bỏ qua một đầu vào nhất định là $0,00 nếu được nhập vào B2 và A1 sẽ giữ lại đầu vào trước đó nếu tôi nhập $0,00. Ví dụ đòn.

Xem ở đâu? Tôi đang cố gắng làm cho nó bỏ qua đầu vào $0,00 và chỉ sao chép các giá khác. Thnx nếu ai đó biết điều này hoặc nếu có thể. Một cái gì đó đơn giản như vậy, tôi sẽ nghĩ rằng excel có thể xử lý nó nếu tôi bỏ lỡ một nơi nào đó.

A B

1 $100,00 $100,00

Đã nhập bản sao

A B

1 $100,00 $0,00

Đã nhập

A B

1 $107,24 $107,24

Đã nhập bản sao

A B

1 $107,24 $0,00

Đã nhập

Câu trả lời:

Bạn không thể làm điều đó với một công thức, nó yêu cầu một chút VBA.

Bấm chuột phải vào tab trang tính.

Chọn 'Xem mã' từ trình đơn ngữ cảnh.

Sao chép đoạn mã sau vào mô-đun trang tính:

Private Sub Worksheet_Change(ByVal Target As Range)
Nếu không giao nhau(Phạm vi("B1"), Mục tiêu) thì không có gì
Nếu Phạm vi ("B1"). Giá trị <> 0 thì
Application.EnableEvents = Sai
Phạm vi("A1").Giá trị = Phạm vi("B1").Giá trị
Application.EnableEvents = True
kết thúc nếu
kết thúc nếu
kết thúc phụ

Chuyển về Excel.

Lưu sổ làm việc dưới dạng sổ làm việc hỗ trợ macro (.xlsm).

Đảm bảo rằng bạn cho phép macro khi mở sổ làm việc.

Câu trả lời:
Có, nó dường như hoạt động với 2 ô, có cách nào để sử dụng VBA được lập trình đó để xem xét nhiều như trong 100 hàng trong 2 cột của nhiều trang tính trong sổ làm việc không? (Quỹ tài chính lớn tôi điều hành) Whew..!

Câu trả lời:
Đây có phải là cột A và cột B trong TẤT CẢ các trang tính của sổ làm việc không?

Câu trả lời:
Chính xác là H và tôi và trên tất cả các trang tính trong sổ làm việc của tôi. 100 hàng trong đó. Nếu bạn biết VBA, tôi chắc chắn sẽ lưu nó vào một mẫu.. Thnx.

Câu trả lời:

Kích hoạt Visual Basic Editor (nhấn Alt+F11).

Bấm đúp vào ThisWorkbook bên dưới Đối tượng Microsoft Excel trong ngăn ở phía bên trái.

Sao chép đoạn mã sau vào mô-đun ThisWorkbook:

Workbook_SheetChange phụ riêng tư(ByVal Sh Là đối tượng, Mục tiêu ByVal là Phạm vi)
Làm mờ ô dưới dạng phạm vi
If Not Intersect(Sh.Range("I2:I" & Sh.Rows.Count), Target) Is nothing Then
Application.EnableEvents = Sai
Cho Mỗi ô Trong Giao Điểm(Sh.Range("I2:I" & Sh.Rows.Count), Target)
Nếu ô. Giá trị <> 0 thì
cell.Offset(0, -1).Value = cell.Value
kết thúc nếu
ô tiếp theo
Application.EnableEvents = True
kết thúc nếu
kết thúc phụ

Tôi đã giả định rằng bạn muốn loại trừ hàng 1 khỏi bị xử lý theo cách tương tự.

Nếu bạn cũng muốn mã áp dụng cho hàng 1, hãy thay đổi cả hai lần xuất hiện của I2 thành I1.

Nếu bạn muốn loại trừ nhiều hàng hơn, hãy điều chỉnh I2 cho phù hợp, ví dụ: nếu bạn muốn loại trừ các hàng từ 1 đến 3 và bắt đầu áp dụng mã ở hàng 4, hãy thay đổi cả hai lần xuất hiện của I2 thành I4.

Câu trả lời:
Ha .. Tôi tin rằng đó là mánh khóe. Chắc chắn sẽ thực hiện một số thao tác đọc VBA theo thời gian. Nền tảng tuyệt vời cho một bước đột phá lớn trong hoạt động ở đây tôi đã được nói trước khi hỏi. Thnx.