Tự động chèn row và tính tổng (3 người xem)

[mamaxito]

EM CÓ GỬI MỘT FILE ĐÌNH KÈM, XIN NHỜ CÁC CAO THỦ CHỈ DẪN.
VẤN ĐỀ CỦA EM LÀ KHI TA NHẬP DỮ LIỆU VÀO CỘT 1 THÌ LẬP TỨC SẼ CÓ MỘT ROW ĐƯỢC CHÈN VÀO NGAY TRÊN ROW DỮ LIỆU TA VỪA NHẬP, VÀ CŨNG TRÊN ROW ĐÓ, SẼ TỰ ĐỘNG TÍNH TỔNG ĐƯỢC NHỮNG CON SỐ Ở CỘT 3. EM CÁM ƠN CÁC ANH CHỊ.
CÁC ANH CHỊ XEM HÌNH ĐỠ, EM KHÔNG HIỂU TẠI SAO EM LẠI KHÔNG ĐÍNH KÈM FILE DC, CHÁN.
http://s285.photobucket.com/albums/ll48/Mamaxito/?action=view&current=Untitled1.jpg

Hix...hix....sao ko có cao nhân nào ghé wa đây hết vậy nè....hix...hix...

 

[TrungChinhs]

Chắc chắn là đã có nhiều người ghé qua đây (trước tôi đã có 32 người) nhưng không trả lời bài của bạn có thể vì các lý do:
1. Không ai nhận mình là cao thủ.
2. Không hiểu yêu cầu của bạn:
- KHI TA NHẬP DỮ LIỆU VÀO CỘT 1 THÌ LẬP TỨC SẼ CÓ MỘT ROW ĐƯỢC CHÈN VÀO NGAY TRÊN ROW DỮ LIỆU TA VỪA NHẬP. Tôi nghĩ điều này có thể làm được
- CŨNG TRÊN ROW ĐÓ, SẼ TỰ ĐỘNG TÍNH TỔNG ĐƯỢC NHỮNG CON SỐ Ở CỘT 3 - nghĩa là sao ? cộng các số phía trên row đó ? phía dưới row đó ? cả trên và dưới row đó ? nếu là cao thủ thì cũng "bó tay.com".

 

[mamaxito]

Chắc chắn là đã có nhiều người ghé qua đây (trước tôi đã có 32 người) nhưng không trả lời bài của bạn có thể vì các lý do:
1. Không ai nhận mình là cao thủ.
2. Không hiểu yêu cầu của bạn:
- KHI TA NHẬP DỮ LIỆU VÀO CỘT 1 THÌ LẬP TỨC SẼ CÓ MỘT ROW ĐƯỢC CHÈN VÀO NGAY TRÊN ROW DỮ LIỆU TA VỪA NHẬP. Tôi nghĩ điều này có thể làm được
- CŨNG TRÊN ROW ĐÓ, SẼ TỰ ĐỘNG TÍNH TỔNG ĐƯỢC NHỮNG CON SỐ Ở CỘT 3 - nghĩa là sao ? cộng các số phía trên row đó ? phía dưới row đó ? cả trên và dưới row đó ? nếu là cao thủ thì cũng "bó tay.com".

theo góp ý của anh Trung Chinh thì em xin có vd như thế này:
bây giờ ta sẽ nhập vào cột 1 là 00003, thì lập tức sẽ có 1 row chèn ngay trên 00003 đó và tính tổng của 2 row thuộc 00002, tức là bằng 40.
em đã mất ăn mất ngủ mấy ngày nay vì cái vụ này. ai biết xin hướng dẫn em nhé. xin cám ơn.

 

[ChanhTQ@]

Đọc văn phong của bạn mới thấy đúng là mất ăn mất ngủ mấy bữa nay rồi!

Thì em xin có vd như thế này:
bây giờ ta sẽ nhập vào cột 1 là 00003, thì lập tức sẽ có 1 row chèn ngay trên 00003 đó và tính tổng của 2 row thuộc 00002, tức là bằng 40.

(*) Cột 1 thì biết là cột 'A' rồi đó, nhưng tới hơn 65500 dòng lựng, biết dòng nào đây?
(*) Bạn nhập làm gì lắm số 0 đằng trước con số ba là gì vậy?
(*) Chuyện nhập trị vô 1 ô nào đó & ngay sau đó thêm dòng trên nó là khả thi tấp lự.
Còn chuyện tính tổng 2 dòng thuộc 00002 là hơi mơ hồ.
(*) Con số 40 bạn lấy đâu ra nhanh thế, trong khi bọn mình chưa kịp hoàn hồn!

Khuyên bạn húp tý cháo & đi ngủ đi 1 giấc; Chỉ sau đó bạn hãy viết lại yêu cầu của mình!

Hẹn gặp!

 

[ndu96081631]

EM CÓ GỬI MỘT FILE ĐÌNH KÈM, XIN NHỜ CÁC CAO THỦ CHỈ DẪN.
VẤN ĐỀ CỦA EM LÀ KHI TA NHẬP DỮ LIỆU VÀO CỘT 1 THÌ LẬP TỨC SẼ CÓ MỘT ROW ĐƯỢC CHÈN VÀO NGAY TRÊN ROW DỮ LIỆU TA VỪA NHẬP, VÀ CŨNG TRÊN ROW ĐÓ, SẼ TỰ ĐỘNG TÍNH TỔNG ĐƯỢC NHỮNG CON SỐ Ở CỘT 3. EM CÁM ƠN CÁC ANH CHỊ.
CÁC ANH CHỊ XEM HÌNH ĐỠ, EM KHÔNG HIỂU TẠI SAO EM LẠI KHÔNG ĐÍNH KÈM FILE DC, CHÁN.
http://s285.photobucket.com/albums/ll48/Mamaxito/?action=view&current=Untitled1.jpg

Bạn cho hỏi tí:
- Nếu bạn gõ.. gì gì đó vào cell A1 thì chèn... vô đâu
Tôi có thể giúp bạn làm bằng... tay được
1> Bạn chọn cell nào đó mà bạn.. thích
2> Gõ dấu =
3> Gõ chử SUM(
4> Quét chọn cell hoặc khối cell nào đó mà bạn... thích
5> Gõ dấu )
6> Nhấn nút Enter
Ổn chứ!
Ẹc... Ẹc...
(Sư phụ Trung Quốc thông cảm, em cũng chưa cơm cháo gì)

 

[mamaxito]

mấy anh chị thông cảm, em mất ăn mất ngủ mấy ngày nay cho nên câu văn nó không được trôi chảy và logic cho lắm. để em viết lại cho nó logic hơn ah.
em làm việc trên cột "MÃ HÀNG" VÀ "SL", nguyện vọng của em là khi ta nhập một bill mới vô, thì lập tức sẽ có một row mới xuất hiện ngay trên số bill mới và tự động tính tổng cột "SL" của bill 01 lun, tức là bằng 15.
Nói theo lý thuyết dông dài là khi ở cell A4, ta nhập vô "02" thì lập tức sẽ có một row được chèn ngay trên A4 này, và khi đó số bill "02" sẽ nằm ở cell A5. C4 lúc này sẽ là cell SUM của C2 và C3. phù phù....Mong anh chị hiểu được em nói gì. Haha...Đuối như chái chúi....
Hoặc anh chị nào có lòng tốt, dành chút ít thời gian quý báu cho em cái nick Y!M, để em có thể được hướng dẫn cụ thể hơn. xin cám ơn!http://s285.photobucket.com/albums/ll48/Mamaxito/?action=view&current=trouble.jpg

 

[sealand]

Mình cố đoán và bạn thử xem có đúng không

 

[ndu96081631]

Mình cố đoán và bạn thử xem có đúng không

Ôi... nếu đúng như anh Sealand dự đoán thì thà làm bằng SUBTOTAL còn nhanh hơn! (lại cực chính xác)

 

[sealand]

Nhưng ý bạn ấy là muốn tự động thêm khi nhập dữ liệu cơ.SubTotal thì nhập xong ta mới làm được

 

[mamaxito]

ủa sao em down về rồi nhưng khi nhập vô thì không có hiện tượng gì xuất hiện ah?! Mong anh Sealand chỉ em với.

 

[sealand]

Bạn đã đặt Security ở mức low chưa, nếu không nó chặn không cho chay code rồi.(Hiện tượng là trên dòng Bill 002 thêm dòng Sum of 001 và Tổng)

 

[ChanhTQ@]

Thử tham gia 1 con macro, nhưng sẽ khó vận hành

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 On Error GoTo EndSub
 With Target
   If .Cells.Count = 1 Then
   If Not Intersect(Target, Columns("A:A")) Is Nothing And .Value <> "" _
      And .Offset(-1) = "" Then
      
      .Offset(1) = .Value:          .Value = ""
      Target.Offset(, 2) = Application.WorksheetFunction. _
         Sum(Range(.Offset(-1), .End(xlUp)).Offset(, 2))
   End If:        End If
 End With
EndSub:     End Sub

 

[TrungChinhs]

Bạn xem thử File đính kèm xem đã đúng ý bạn chưa ?
Hướng dẫn sử dụng:
1. Vùng nhập mã đang giả lập từ B5:B100 nếu bảng của bạn khác thì vào code sửa lại vùng này
2. Trong vùng B5:B100, sau khi nhập mã, Bạn nhập con trỏ vào bất kỳ ô nào đã có mã thì code sẽ chạy và cộng số lượng cho mã đó.

Nếu chưa đúng ý bạn thì bạn tiếp tục trao đổi hoặc gửi file mẫu để sửa trực tiếp.

 

[mamaxito]

Cả anh sealand và trung chinh đã làm đúng rồi đó ah, nhưng cách thức làm thế nào thì bày cho em với. để em có thể tự làm được.

 

[sealand]

Không biết khả năng VBA của bạn ở mức nào, nên mình sơ bộ bạn xem. Tất cả cách sử lý của mình dựa vào sự kiện sheet1 thay đổi và ở code sau:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim so As String
Dim dg As Long
dg = Target.Row
Application.EnableEvents = False
If Target.Column = 1 And Target.Text <> "" Then
If Target.Row <= 2 Then Exit Sub
For i = Target.Row - 1 To 1 Step -1
If Sheet1.Cells(i, 1) <> "" Then
so = Sheet1.Cells(i, 1)
Exit For
End If
Next
Range(Target.Address, Target.Offset(0, 3).Address).Insert Shift:=xlDown
Sheet1.Cells(dg, 1) = "Sum of " & so
Sheet1.Cells(dg, 3).Formula = Application.WorksheetFunction.Sum(Range(Sheet1.Cells(dg - 1, 3), Sheet1.Cells(i, 3)))
[COLOR=Blue]End If[/COLOR]
Application.EnableEvents = True
[COLOR=Red]Sheet1.Cells(dg + 1, 2).Select[/COLOR]
End Sub

Bạn cứ phân tích từng dòng lệnh để hiểu, mắc đâu mình giải thích thêm.
Bạn chuyển giúp mình dòng màu đỏ lên trên dòng màu xanh, vận hành mới ổn định.

 

[mamaxito]

dạ thưa anh SEALAND, khả năng VBA của em là bằng "0" ah. haha...cái này chỉ có thể giải quyết bằng VBA thôi hả anh!?

 

[ndu96081631]

dạ thưa anh SEALAND, khả năng VBA của em là bằng "0" ah. haha...cái này chỉ có thể giải quyết bằng VBA thôi hả anh!?

Như tôi nói ở bài trước! Bài này dùng SUBTOTAL là hay nhất! Tôi thấy lạ tại sao bạn không dùng nhỉ? (SUBTOTAL trong menu Date\Subtotal)
Cần gì đến code chứ!

 

[mamaxito]

dùng Subtotal hả anh NDU?! vậy để em dùng thử, chứ VBA la xong rồi đó. kaka...

 

[global]

tự động chèn dòng và thêm dữ liệu

tôi đang loay hoay với một vấn đề mong các anh chị giúp đỡ.

tôi có 2 sheet: sheet1 và sheet2. dữ liệu ở 2 cột ở sheet2 lấy từ sheet1 bởi hàm =sheet1!địa chỉ ô.
bây giờ tôi phải chèn thêm dòng ở sheet1 để thêm dữ liệu mới và tôi muốn ở sheet2 cũng tự động chèn 1 dòng cho tất cả các cột và dữ liệu ở vị trí dòng,cột tương ứng.
ví dụ:
sheet1 A B C
1 A01 MÌ 3KG
2 A02 BỘT 1G " dòng ta chèn và nhập dữ liệu mới vào
3 B01 NƯỚC 1L

sheet2 A B C D E F
1 =SHEET1!A1 =SHEET1!B1 =SHEET1!C1 =SUM(E1:F1)
2 =SHEET1!A2 =SHEET1!B2 =SHEET1!C2 =SUM(E2:F2) " dòng tự động thêm.
3 =SHEET1!A3 =SHEET1!B3 =SHEET1!C3 =SUM(E3:F3)

 

[sealand]

Bạn thêm dòng ở sheet1 và kiểm tra cột A và cột B sheet 2 xem có đạt không