Đếm hình (1 người xem)

[ExcelQN]

Tôi có file ex, gồm 100 sheet, trên mỗi sheet có một píc đều có tên là chuky tôi muốn đếm số pic có tên chuky trong file này thì làm sao. Nhờ các ACE giúp. Xin cảm ơn.

 

[NguyenThien Nhan]

Gửi file lên......... đi pạn

 

[befaint]

Tôi có file ex, gồm 100 sheet, trên mỗi sheet có một píc đều có tên là chuky tôi muốn đếm số pic có tên chuky trong file này thì làm sao. Nhờ các ACE giúp. Xin cảm ơn.

Còn phải làm thế nào nữa đâu. Kết quả = 100 pic.
Nếu trong 100 sheets mà không phải sheet nào cũng có 01 pic tên chuky thì bác chép đoạn sau vào 1 module rồi chạy thử xem:

Sub dem_pic()
Dim sSheet As Worksheet, t&
Dim sShapes As Shape
    t = 0
    With ActiveWorkbook
        For Each sSheet In Sheets
            For Each sShapes In sSheet.Shapes
                If sShapes.Name = "chuky" Then
                t = t + 1
                End If
            Next sShapes
        Next sSheet
    End With
    MsgBox "Workbook có : " & t & " picture voi tên chuky.", vbInformation, "Thông báo"
End Sub

 

[ExcelQN]

Được rồi bạn befaint. Nhờ bạn tí nữa: giả sử trong 100 sh có 100 pic chuky, nhưng có 80 pic chuky ẩn, 20 hiện ra. Làm sao tính sô pic hiện ra. (Code của bạn nó tính cả ẩn và cả hiện).

 

[alodie123]

Sub dem_pic()
Dim sSheet As Worksheet, t&
Dim sShapes As Shape
t = 0
With ActiveWorkbook
For Each sSheet In Sheets
For Each sShapes In sSheet.Shapes
If sShapes.Name = "chuky" And sShapes.Visible = True Then
t = t + 1
End If
Next sShapes
Next sSheet
End With
MsgBox "Workbook có : " & t & " picture voi tên chuky.", vbInformation, "Thông báo"
End Sub

 

[ExcelQN]

Cảm ơn alodie123 nhé. OK lắm.

 

[ndu96081631]

Tôi nghĩ bài này chỉ cần 1 vòng lập là đủ
Ai rảnh thử xem