View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
wuming[_7_] wuming[_7_] is offline
external usenet poster
 
Posts: 1
Default Excel VBA - Cells Counting using VBA codes and displaying results in msg box

Hi All

Previously i have asked in the forum for help in counting:
1. No. of rows
2. No. of columns
3. No. of numeric cells
4. No. of alphanumeric cells
5. No. of alphabetic cells
6. No. of NULL cells
The below are what i have used using excel meaning the results ar
shown in excel file format (displayed in cells):
1. COUNTA(Table!A:A))
2. COUNTA(Table!1:1))
3. COUNT(Table!B2:Z60000))
4. COUNTIF(Table!B2:Z60000,"*"))
5. CountAlphas(Table!B2:Z60000)) -- code below

Function CountAlphas(CountRange As Range) As Long
Dim cell As Range
Dim iCtr As Long

For Each cell In CountRange
If Not IsEmpty(cell) Then
If Not cell.Value Like "*[0-9]*" Then
iCtr = iCtr + 1
End If
End If
Next
CountAlphas = iCtr
End Function

6. COUNTBLANK(Table!B2:Z60000)

However the biggest problem now is that i have to switch fro
displaying in excel to using vba so that the user interface using m
program would look "nicer". I have created userforms that look lik
menus for the program, but i am unable to use the above coding as the
are not in vba codes. What i need now is them to be in vba codes and t
display the results in msg boxes thus enabling the program to look mor
professional. As i am totally new to excel vba, i can only hope tha
those that are more proficient in it can help out by posting th
solutions. Thanks in advanceD

--
Message posted from http://www.ExcelForum.com