คำตอบที่ได้รับเลือกจากเจ้าของกระทู้
ความคิดเห็นที่ 2
Sub countRangeImg()
Cnt = 0
For Each shp In ActiveSheet.Shapes
If Not Application.Intersect(Range("C2 : D17"), shp.TopLeftCell) Is Nothing Then Cnt = Cnt + 1
Next
MsgBox Cnt
End Sub
ลองดูตามนี้
Cnt = 0
For Each shp In ActiveSheet.Shapes
If Not Application.Intersect(Range("C2 : D17"), shp.TopLeftCell) Is Nothing Then Cnt = Cnt + 1
Next
MsgBox Cnt
End Sub
ลองดูตามนี้
แสดงความคิดเห็น
สอบถามวิธีนับจำนวน รูปภาพ ใน excle หรือ word ค่ะ
เราลองใช้วิธีกด F5 แล้วเลือกแค่วัตถุ เพื่อดูที่ นับจำนวน มุมล่างของโปรแกรมมันก็ทำไม่ได้
มีใครพอทราบวิธีมั้ยคะ ขอบคุณมากค่ะ