[Hỏi]Lựa chọn 1 vùng ô có điều kiện trong 1 bảng liên tục

vandong_pr · Đăng lúc 14/8/2014 09:32

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Bạn phải đăng nhập để xem được nội dung, nếu bạn chưa có tài khoản? hãy Đăng ký mới

x

Anh em cho em hỏi, em có file thống kê móng

2.MONG.xls (102.5 KB, Lượt tải về: 13)

tranhoe · Đăng lúc 14/8/2014 10:34

Ví dụ Em chọn ô M1 (móng 1), ô này đã Merge rồi. Để biết Số Dòng đang Merge, địa chỉ vùng ô đang Merge thì em tạo Macro như sau, chạy nó

[Visual Basic] 纯文本查看 复制代码

Sub Tim()
     Dim SoDong As Integer
     Dim DiaChi As String
     If ActiveCell.MergeCells Then
          SoDong = ActiveCell.MergeArea.Rows.Count
          DiaChi = ActiveCell.MergeArea.Address
          MsgBox "So Dong dang MergeCells la: " & SoDong & "dong" _
               & Chr(13) & "Dia Chi vung chon la: " & DiaChi
     End If
End Sub

vandong_pr · Đăng lúc 14/8/2014 18:11

Em cảm ơn anh nhiều nhưng ý của em là trong bảng thống kê thép móng,em đặt chuột bất kỳ trong bảng thống kê thép từ M1-M6 ("A6 : L60") mà có cách nào đó mình dò được vị trí trong bảng thống kê thép của móng M1 ("A6:A14"), sau đó em di chuyển vùng chọn rồi sử dụng công thức range("n6").formula=" =SUMIF(E6:E14,"<=10",J6:J14)" để thống kê cho thép <=f10

tranhoe · Đăng lúc 14/8/2014 23:49

vandong_pr gửi lúc 14/8/2014 18:11
Em cảm ơn anh nhiều nhưng ý của em là trong bảng thống kê thép móng,em đặt chuột bất ...

Macro mình viết là cái cơ bản. Em thêm mắm muối vào để có tổng hợp thép của M1 thôi. Đã biết vị trí của cell gốc, cần di chuyển đi đâu thì dùng Offset, số dòng cũng biết rồi thì resize số dòng. Cái hàm MsgBox mình đưa ra cho vui (để thấy kết quả) chứ thực tế không cần đến nó (kể cả địa chỉ Vùng Merge đang chọn cũng không cần luôn).Vậy là xong 1 Sub.
Vì M1-M6 khác nhau về số dòng nên cứ mỗi móng Bạn chạy Sub 1 lần sẽ tổng hợp thép cho riêng móng đó (kết quả thể hiện ở cột N và cùng dòng với ActiveCell.
Bạn tự thêm mắm muối vào nhé!. Dễ mà.

vandong_pr · Đăng lúc 16/8/2014 09:15

em thử là như anh hướng dẫn mà không biết code sai chỗ nào
Sub Tim()
   Dim SoDong As Integer
   Dim DiaChi As String, duongkinh As Range, tongkhoiluong As Range
   If ActiveCell.MergeCells And Cells(6, 13).Value = "M1" Then
      SoDong = ActiveCell.MergeArea.Rows.Count
      duongkinh = Range(Cells(6, 1), Cells(6, i + 6)).Offset(0, 3)
      tongkhoiluong = Range(Cells(6, 1), Cells(6, i + 6)).Offset(0, 14)
      range("n6").formula="=SUMIF("duongkinh","<=10","tongkhoiluong")"
   End If
End Sub

Tài khoản		Ghi nhớ?	Quên mật khẩu
Mật khẩu			Đăng ký mới

[Hỏi]Lựa chọn 1 vùng ô có điều kiện trong 1 bảng liên tục

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Cảm ơn!

Cảm ơn!

Cảm ơn!

Đánh giá