How to Count the Number of Word, Row and images in Excel sheet

Question

2.25/5 (4 votes)

See more:

Hi,

My requirement is that I have to count the total number of row is used in excel // total number of word in excel // and total number of images in excel. Please, give me a sample code for all 3 requirement of excel.
~~its urgent~~

Posted 2-Sep-11 0:51am

SACHIN KAPOOR from Hyderabad

Updated 2-Sep-11 0:53am

Prerak Patel

v2

Add a Solution

Comments

Simon Bang Terkildsen 2-Sep-11 6:58am

"Please, give me a sample code for all 3 requirement" yeah that's going to happen.
Do some research and come back when you run into an issue.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Md. Marufuzzaman · Answer 1 · 2011-09-04T18:28:00

Hi A sample VBA code below may be help you.

VB

Sub countRows()
    Dim lngRowsProject As Long
    lngRowsProject = Columns("AG:AG").SpecialCells(xlVisible).Rows.Count ' returns me 21 (column AH has 21 rows, but column AG has just 2)
    lngRowsProject = Range("AG").CurrentRegion.Rows.Count ' returns me 43 (the total numbers of rows in the spreadsheet are 43)
    MsgBox "The number of rows is " & lngRowsProject
End Sub