Hỏi bài toán tổng vùng được chọn bằng vba (2 người xem)

onecry · 14/11/16

Chào các Thầy trên diễn đàn
hiện tại em có một bài toán mong được các thầy giúp đỡ
em cần dùng vba để giải quyết một vấn đề

ví dụ: khi em dùng chuột chọn vùng từ A1 đến vùng B3

thì em sẽ được 2 cột kết quả

1 : tổng giá trị cột a là: ( = tổng từ A1 đến A3)
2 : tổng giá trị cột b là: ( = tổng từ B1 đến B3)

và khi em dùng chuột thay đổi vùng chọn thì kết quả cũng thay đổi theo vùng em chọn.

cảm ơn các thầy.

befaint · 14/11/16

onecry đã viết:
Chào các Thầy trên diễn đàn
hiện tại em có một bài toán mong được các thầy giúp đỡ
em cần dùng vba để giải quyết một vấn đề

ví dụ: khi em dùng chuột chọn vùng từ A1 đến vùng B3

thì em sẽ được 2 cột kết quả

1 : tổng giá trị cột a là: ( = tổng từ A1 đến A3)
2 : tổng giá trị cột b là: ( = tổng từ B1 đến B3)

và khi em dùng chuột thay đổi vùng chọn thì kết quả cũng thay đổi theo vùng em chọn.

cảm ơn các thầy.

Xin hỏi mục đích để làm gì?
Làm vầy được không?
Click phải chuột vào status bar của excel (Thanh trạng thái của excel ở dưới cùng), check vào dòng "Sum"
Giờ cứ lấy chuột quét chọn vùng nào đó thì ở thanh trạng thái nó hiện lên Sum: ketqua
với ketqua = tổng giá trị vùng quét chọn.

lehuong1409 · 14/11/16

befaint đã viết:
Xin hỏi mục đích để làm gì?
Làm vầy được không?
Click phải chuột vào status bar của excel (Thanh trạng thái của excel ở dưới cùng), check vào dòng "Sum"
Giờ cứ lấy chuột quét chọn vùng nào đó thì ở thanh trạng thái nó hiện lên Sum: ketqua
với ketqua = tổng giá trị vùng quét chọn.

Bạn ấy muốn quét 1 lần đc luôn 2 kết quả cơ anh ạ

onecry · 14/11/16

1. mục đích công việc em cần như thế, giải thích dài dòng lắm ạ
2. em đang cần kết quả 2 cột khác nhau, thanh trạng thái bên dưới chỉ cho 1 kết quả,
3. kết quả này cần hiển thị giá trị trong 1 cell, em còn dùng để kết hợp vs công thức khác nữa ạ.

befaint · 14/11/16

onecry đã viết:
1. mục đích công việc em cần như thế, giải thích dài dòng lắm ạ
2. em đang cần kết quả 2 cột khác nhau, thanh trạng thái bên dưới chỉ cho 1 kết quả,
3. kết quả này cần hiển thị giá trị trong 1 cell, em còn dùng để kết hợp vs công thức khác nữa ạ.

Gớm vậy cơ ah. Thử vầy xem:

Mã:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then Sheet1.Range("E1").Value = WorksheetFunction.Sum(Target.Value)
If Target.Column = 2 Then Sheet1.Range("E2").Value = WorksheetFunction.Sum(Target.Value)
End Sub

onecry · 14/11/16

đúng cái em cần, nhưng thầy sửa lại giúp em, nó thiếu thiếu gì nên kết quả chưa đúng ạ, em cảm ơn

befaint · 14/11/16

onecry đã viết:
đúng cái em cần, nhưng thầy sửa lại giúp em, nó thiếu thiếu gì nên kết quả chưa đúng ạ, em cảm ơn

Thiếu gì cơ?

Mã:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Columns.Count > 3 Then Exit Sub
On Error Resume Next
If Target.Column < 3 Then
If Target.Columns.Count = 1 Then Sheet1.Range("E" & Target.Column).Value = WorksheetFunction.Sum(Target.Columns(1).Value)
If Target.Columns.Count = 2 Then
Sheet1.Range("E1").Value = WorksheetFunction.Sum(Target.Columns(1).Value)
Sheet1.Range("E2").Value = WorksheetFunction.Sum(Target.Columns(2).Value)
End If: End If
End Sub

quanluu · 14/11/16

onecry đã viết:
1. mục đích công việc em cần như thế, giải thích dài dòng lắm ạ
2. em đang cần kết quả 2 cột khác nhau, thanh trạng thái bên dưới chỉ cho 1 kết quả,
3. kết quả này cần hiển thị giá trị trong 1 cell, em còn dùng để kết hợp vs công thức khác nữa ạ.

Code này vậy

Mã:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range, tonga, tongb As Double
If Target.Column < 3 Then
    For Each cel In Target
        If cel.Column = 1 Then
            tonga = tonga + cel
        Else
            tongb = tongb + cel
        End If
    Next
    [e1] = tonga: [e2] = tongb
End If
End Sub

befaint · 14/11/16

quanluu1989 đã viết:

Code này vậy

Mã:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range, tonga, tongb As Double
If Target.Column < 3 Then
    For Each cel In Target
        If cel.Column = 1 Then
            tonga = tonga + cel
        Else
            tongb = tongb + cel
        End If
    Next
    [e1] = tonga: [e2] = tongb
End If
End Sub

Chưa bẫy lỗi khi gặp "chữ".

quanluu · 14/11/16

befaint đã viết:
Chưa bẫy lỗi khi gặp "chữ".

Vậy thì thêm cái điều kiện vậy

Mã:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range, tonga, tongb As Double
If Target.Column < 3 Then
    For Each cel In Target
        If cel.Column = 1 And IsNumeric(cel) Then tonga = tonga + cel
        If cel.Column = 2 And IsNumeric(cel) Then tongb = tongb + cel
    Next
    [e1] = tonga: [e2] = tongb
End If
End Sub

onecry · 14/11/16

befaint đã viết:

Thiếu gì cơ?

Mã:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Columns.Count > 3 Then Exit Sub
On Error Resume Next
If Target.Column < 3 Then
If Target.Columns.Count = 1 Then Sheet1.Range("E" & Target.Column).Value = WorksheetFunction.Sum(Target.Columns(1).Value)
If Target.Columns.Count = 2 Then
Sheet1.Range("E1").Value = WorksheetFunction.Sum(Target.Columns(1).Value)
Sheet1.Range("E2").Value = WorksheetFunction.Sum(Target.Columns(2).Value)
End If: End If
End Sub

Thật vi diệu, vấn đề nan giải của em đã được giải quyết, em chân thành cảm ơn Thầy, chúc Thầy sức khỏe.

befaint · 14/11/16

quanluu1989 đã viết:

Vậy thì thêm cái điều kiện vậy

Mã:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range, tonga, tongb As Double
If Target.Column < 3 Then
    For Each cel In Target
        If cel.Column = 1 And IsNumeric(cel) Then tonga = tonga + cel
        If cel.Column = 2 And IsNumeric(cel) Then tongb = tongb + cel
    Next
    [e1] = tonga: [e2] = tongb
End If
End Sub

Thử chọn cả bảng tính xem chuyện gì xảy ra?

lehuong1409 · 14/11/16

Em tham gia tí cho xôm nhưng e chỉ làm sub thôi chứ k cho vào Change vì vụ đấy em hơi gà

HTML:

Sub tong()
Set myrange = Application.InputBox(prompt:="Vung", Type:=8)
Range("E1").Select
Selection.Formula = "=sum( A" & myrange.Row & ":A" & myrange.Rows.Count & ")"
Range("E2").Select
Selection.Formula = "=sum( B" & myrange.Row & ":B" & myrange.Rows.Count & ")"
End Sub

chucuoi92 · 14/11/16

Hi hi! nếu dữ liệu không nằm trong cột A:B thì teo huyền tèo.

Kiều Mạnh · 14/11/16

chucuoi92 đã viết:
Hi hi! nếu dữ liệu không nằm trong cột A:B thì teo huyền tèo.

vậy thì chơi kiểu chọn một vùng bất kỳ nó báo tổng cộng vùng đó = Méc xịt box = xx chẳng hạn

VD như hình kéo chọn một cái từ [A1:E15] = 10

chucuoi92 · 14/11/16

kieu manh đã viết:
vậy thì chơi kiểu chọn một vùng bất kỳ nó báo tổng cộng vùng đó = Méc xịt box = xx chẳng hạn

Sao không đưa vào StatusBar nhỉ

Kiều Mạnh · 14/11/16

chucuoi92 đã viết:
Sao không đưa vào StatusBar nhỉ

cái đó ông bill có rồi mà ... chỗ màu vàng ý

chucuoi92 · 14/11/16

kieu manh đã viết:
cái đó ông bill có rồi mà ... chỗ màu vàng ý

Bill chỉ có sum tổng thôi còn báo sum riêng của từng cột thì hổng có đâu.

onecry · 14/11/16

em xin phép đào topic này lên cái
ví dụ em cần sum 2 cột 15, 16
theo ngu kiến của em, em sửa code trên nhưng nó không chạy, Thày nào sửa giúp em với

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Columns.Count < 15 And Target.Columns.Count > 16 Then Exit Sub
On Error Resume Next

If Target.Column >= 15 And Target.Column <= 16 Then
If Target.Columns.Count = 15 Then
Sheet1.Range("t1").Value = WorksheetFunction.Sum(Target.Columns(15).Value)
Sheet1.Range("s1").Value = WorksheetFunction.Sum(Target.Columns(16).Value)

If Target.Columns.Count = 16 Then
Sheet1.Range("t1").Value = WorksheetFunction.Sum(Target.Columns(15).Value)
Sheet1.Range("s1").Value = WorksheetFunction.Sum(Target.Columns(16).Value)

End If
End If
End If
End Sub

chucuoi92 · 14/11/16

onecry đã viết:
em xin phép đào topic này lên cái
ví dụ em cần sum 2 cột 15, 16
theo ngu kiến của em, em sửa code trên nhưng nó không chạy, Thày nào sửa giúp em với

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Columns.Count < 15 And Target.Columns.Count > 16 Then Exit Sub
On Error Resume Next

If Target.Column >= 15 And Target.Column <= 16 Then
If Target.Columns.Count = 15 Then
Sheet1.Range("t1").Value = WorksheetFunction.Sum(Target.Columns(15).Value)
Sheet1.Range("s1").Value = WorksheetFunction.Sum(Target.Columns(16).Value)

If Target.Columns.Count = 16 Then
Sheet1.Range("t1").Value = WorksheetFunction.Sum(Target.Columns(15).Value)
Sheet1.Range("s1").Value = WorksheetFunction.Sum(Target.Columns(16).Value)

End If
End If
End If
End Sub

Sửa thì không biết sửa.
bạn tham khảo thêm cái này nhé!
Điều kiện là chọn vùng bất kỳ vời Ô >1 và cột <6( vì sợ rằng nhiều cột quá thì thanh Status bar không hiện hết.
Xem kết quả trên thanh Status bar nhé!

HTML:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim  i As Byte, tong As String
   Application.DisplayStatusBar = True
    Application.StatusBar = ""
    If Target.Cells.Count > 1 Then
       If Target.Columns.Count < 6 Then
            For i = 0 To Target.Columns.Count - 1
               tong = tong & Target.Offset(, i).Resize(, 1).Address(0, 0) & "=" & WorksheetFunction.Sum(Target.Offset(, i).Resize(, 1)) & "; "
            Next
            Application.StatusBar = tong
       End If
   End If
End Sub

Hỏi bài toán tổng vùng được chọn bằng vba (2 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

File đính kèm

|||||||||||||

RILY

Thành viên mới

|||||||||||||

Thành viên mới

|||||||||||||

Thành viên gắn bó

|||||||||||||

Thành viên gắn bó

Thành viên mới

|||||||||||||

RILY

Thành viên lười biếng

I don't program, I beat code into submission!!!

File đính kèm

Thành viên lười biếng

I don't program, I beat code into submission!!!

File đính kèm

Thành viên lười biếng

Thành viên mới

Thành viên lười biếng

Đếm ngược thời gian