Google search

Basic and advanced computer skills like Excel with macros, How to speed up your PC, C, CPP, Java programming, HTML, JavaScript, PHP, Wordpress, all web tools, Android tutorials, MySQL Tutorials, WAMP server installation. etc.

Clear Excel Sheet using VBA

To clear the entered data in the current sheet of MS-Excel application follow the below simple steps.

 1. Click on " Developer" tab in MS-Excel as shown in below image.

 2. Click on "insert" and select "command Button", follow image.

 3. Drag the button on the sheet and right click on it, select properties->Caption->Enter text like "Empty Sheet" 

 4. After inserting button, now right click on button->"View Code", enter following code in it.

 Private Sub CommandButton1_Click()
Dim resp As Integer
resp = MsgBox("Are you sure you want to clear the sheet?", _
vbYesNo + vbQuestion, "Clear Sheet")
If resp = vbYes Then
    Cells.ClearContents
Else
  End If
End Sub

 5. Now enter some data in the sheet, just refer below image.

 6. Now, press F5 or Run the form or Click on "Empty Sheet" button and you'll see following image with confirm dialog box.

 7. After pressing "Yes" button on the message box, all the data which was entered in the sheet is removed and sheet looks new! (see below image).

 Note: To save your Macros for future use, please save as "Excel Macro-Enabled Workbook" in save as type drop down menu. 

  That's all for now! Happy reading! :) 

 You can also visit my other Excel Examples on Macros

No comments:
Labels: , , , ,

SPEED UP YOUR PC

To speed up your windows XP/7/8/8.1/8.2 PC, Just follow the below steps to make your PC running faster and reliable.

 1. Defragment your hard drive: After accessing and storing lots of files on your computer hard drive it is common that files or folders get scattered in memory.  
Click->Start->Accessories->System tools->Disk Defragmenter [follow below image]

2. Uninstall unused program: It is better to uninstall unused applications or programs.[follow below steps with image]
Start->Settings->Control Panel->Add or Remove Programs->Select any application that you want to uninstall and click on "Remove" button.

3. Cleanup you disk: This enables us to clean hard drive and allows it to run faster.
Start->Programs->Accessories->System Tools->Disk Cleanup


4. Delete unused files: Delete unwanted files.

5. Remove programs from startup: These are the program which set themselves to start with windows operating system automatically when you start your machine every time. 
Start->Run->Type "MSCONFIG" -> Press Enter [see below image]

 6. Scan with Genuine Anti virus: It is better to scan your PC with genuine anti-virus to clean all viruses to make PC faster.  
Start->Select your Anti-virus and run Complete scan

7. Disable indexing: It is better to disable indexing on selected drive to make system faster. Here are the steps.
Double click on "Computer" icon ->Select any drive ->Right Click -> Properties-> uncheck "Allow indexing service...." 

8. Remove Log files : to remove log files,  follow below steps with screen image
Start->Run->then type “eventvwr” select "Application" click on clear all events and also perform same steps for "System" option.
  
9. Delete temp folder files: Start -> Run -> type “%temp% then press enter and select all temp files then press “shift+Del”.


That's all for now, Happy Reading!

 Are you looking for academic projects on IT, Computer Science for BCA, Diploma, B.E., M.Tech, MCA and Management for BBM, MBA and PGDBM etc? Click here and you'll get complete project with all details. 
No comments:
Labels: , ,

COBOL Programs

1. COBOL program on Arithmetic Operation 
      *PROGRAM TO PERFRM ARITHMATIC OPERATIONS USING COMPUTE VERB.
       IDENTIFICATION DIVISION.
       PROGRAM-ID. AOP.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PIC 9(4).
       01 B PIC 9(4).
       01 SUM PIC 9(4).
       01 SUB PIC 9(4).
       01 MUL PIC 9(4).
       01 DIV PIC 9(4).99.
       PROCEDURE DIVISION.
       START-PARA.
           DISPLAY "ENTER THE VALUES OF A AND B".
           ACCEPT A.
           ACCEPT B.
           COMPUTE SUM = A + B.
           COMPUTE SUB = A - B.
           COMPUTE MUL = A * B.
           COMPUTE DIV = A / B.
           DISPLAY "SUM = ", SUM.
           DISPLAY "SUB = ", SUB.
           DISPLAY "MUL = ", MUL.
           DISPLAY "DIV = ", DIV.
           STOP RUN.
2. COBOL Program to display SUM and Average values
      *PROGRAM TO FIND SUM AND AVERAGE OF 6 NUMBERS.
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SUM-AVG.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 N1  PIC 9(4).
       01 N2  PIC 9(4).
       01 N3  PIC 9(4).
       01 N4  PIC 9(4).
       01 N5  PIC 9(4).
       01 N6  PIC 9(4).  
       01 SUM PIC 9(6).
       01 AVG PIC 9(4).99
       PROCEDURE DIVISION.
       START-PARA.
           DISPLAY "ENTER VALUES FOR 6 NUMBERS".
           ACCEPT N1.
           ACCEPT N2.
           ACCEPT N3.
           ACCEPT N4.
           ACCEPT N5.
           ACCEPT N6.
           COMPUTE SUM = N1 + N2 + N3 + N4 + N5 + N6.
           COMPUTE AVG = SUM / 6.
           DISPLAY "SUM      = ", SUM.
           DISPLAY "AVERAGE  = ", AVG.
           STOP RUN.
3. COBOL Program to find Largest of Two Numbers
      *PROGRAM TO FIND LARGEST OF 2 NUMBERS.
       IDENTIFICATION DIVISION.
       PROGRAM-ID. LARGEST2.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A  PIC 9(4).
       01 B  PIC 9(4).
       PROCEDURE DIVISION.
       START-PARA.
           DISPLAY "ENTER THE VALUE OF A AND B".
           ACCEPT A.
           ACCEPT B.
           IF A > B
           DISPLAY "A IS LARGEST",
           ELSE
           DISPLAY "B IS LARGEST.
           STOP RUN.
4. COBOL Program to display Largest of 3 Numbers
      *PROGRAM TO LARGEST OF 3 NUMBERS.
       IDENTIFICATION DIVISION.
       PROGRAM-ID. LARGE3.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PIC 9(4).
       01 B PIC 9(4).
       01 C PIC 9(4).
       PROCEDURE DIVISION.
       START-PARA.
           DISPLAY " ENTER A ".
           ACCEPT A.
           DISPLAY " ENTER B ".
           ACCEPT B.
           DISPLAY " ENTER C ".
           ACCEPT C.
           IF ( A > B )
           DISPLAY " A IS LARGEST ",
           ELSE IF ( B > C )
           DISPLAY " B IS LARGEST ",
           ELSE
           DISPLAY " C IS LARGEST ".
           STOP RUN.
5. COBOL Program to calculate Simple Interest
      *PROGRAM TO FIND SIMPLE INTEREST.
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SI.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 P PIC 9(4).
       01 T PIC 9(4).
       01 R PIC 9(4).
       01 SI PIC 9(4).99.
       PROCEDURE DIVISION.
       START-PARA.
           DISPLAY "ENTER PRINCIPLE AMOUNT : P".
           ACCEPT P.
           DISPLAY "ENTER TIME PERIOD : T".
           ACCEPT T.
           DISPLAY "ENTER RATE OF INTEREST : R".
           ACCEPT R.
           COMPUTE SI = P * T * R / 100.
           DISPLAY "SIMPLE INTEREST = ", SI.
           STOP RUN.
6. COBOL program to calculate Compound Interest
      *PROGRAM TO CALCUTE COMPOUND INTEREST.
       IDENTIFICATION DIVISION.
       PROGRAM-ID. CI.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 P PIC 9(4).
       01 R PIC 9(4).
       01 N PIC 9(4).
       01 CI PIC 9(5).99.
       PROCEDURE DIVISION.
       START-PARA.
           DISPLAY "ENTER PRINCIPLE AMOUNT : P".
           ACCEPT P.
           DISPLAY "ENTER RATE OF INTEREST : R".
           ACCEPT R.
           DISPLAY "ENTER PERIOD OF LOAN : N ".
           ACCEPT N.
           COMPUTE CI = P * ( 1 + R / 100 ) ** N - P.
           DISPLAY "COMPOUND INTEREST = ", CI.
           STOP RUN.
7. COBOL Program to find the entered number is EVEN or ODD.
      *PROGRAM TO FIND NUMBER IS EVEN 0R ODD.
       IDENTIFICATION DIVISION.
       PROGRAM-ID. EVEN-ODD.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 N PIC 9(4).
       01 REM PIC 9(4).
       PROCEDURE DIVISION.
       START-PARA.
           DISPLAY "ENTER NUMBER".
           ACCEPT N.
           DIVIDE N BY 2 GIVING N REMAINDER REM. 
           IF REM = 0
           DISPLAY " NUMBER IS EVEN ",
           ELSE
           DISPLAY " NUMBER IS ODD".
           STOP RUN.

8. COBOL Program to REVERSE the entered Number.
        IDENTIFICATION DIVISION.
        PROGRAM-ID. REV.
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 N PIC 9(6).
        01 REM PIC 9(4).
        01 REV PIC 9(6) value 0.
        PROCEDURE DIVISION.
        START-PARA.
              DISPLAY " ENTER THE NUMBER TO BE REVERSED ".
              ACCEPT N.
              PERFORM REV-PARA UNTIL N = 0.
              DISPLAY " REVERSED NUMBER = ", REV.
              STOP RUN.
        REV-PARA.
              DIVIDE N BY 10 GIVING N REMAINDER REM.
              COMPUTE REV = REV * 10 + REM.

9. COBOL Program to display Multiplication Table of Entered Number.
        IDENTIFICATION DIVISION.
        PROGRAM-ID. MTAB.
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 N PIC 9(2).
        01 I PIC 9(2) VALUE 0.
        01 P PIC 9(4).
        PROCEDURE DIVISION.
        START-PARA.
           DISPLAY " ENTER THE NUMBER ".
           ACCEPT N.
           PERFORM MUL-PARA 10 TIMES.
           STOP RUN.
        MUL-PARA.
           ADD 1 TO I.
           COMPUTE P = N * I.
           DISPLAY N " * " I " = " P.

 10. COBOL Program to SWAP Two Numbers.
      *PROGRAM TO SWAP TWO NUMBERS.
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SWAP.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PIC 9(2).
       01 B PIC 9(2).
       PROCEDURE DIVISION.
       START-PARA.
           DISPLAY " ENTER THE VALUE OF A & B ".
           ACCEPT A.
           ACCEPT B.
           DISPLAY " THE VALUE OF A BEFORE SWAPPING ", A.
           DISPLAY " THE VALUE OF B BEFORE SWAPPING ", B.
           COMPUTE A = A + B.
           COMPUTE B = A - B.
           COMPUTE A = A - B.
           DISPLAY "-------------------------------".
           DISPLAY " THE VALUE OF A AFTER SWAPPING ", A.
           DISPLAY " THE VALUE OF B AFTER SWAPPING ", B.
           STOP RUN.

11. COBOL Program to find SUM of N Numbers.
      *PROGRAM TO FIND SUM OF N NUMBER.
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SUM-OF-N.
       AUTHOR. MIT.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 N    PIC 9(3).
       01 SUM  PIC 9(6) VALUE IS 0.
       PROCEDURE DIVISION.
       START-PARA.
           DISPLAY "PROGRAM TO FIND SUM OF N NUMBERS".
           DISPLAY "ENTER THE RANGE".
           ACCEPT N.
           PERFORM SUM-PARA N TIMES.
           DISPLAY " SUM = ", SUM.
           STOP RUN.
       SUM-PARA.
           COMPUTE SUM = SUM + N.
           COMPUTE N = N - 1.

12. COBOL program to find Factorial of Given Number.
       Identification division.
       Program-id. Fact.
       Author. MIT.
       Environment division.
       Data division.
       Working-storage section.
       01 n pic 9(3).
       01 x pic 9(8) value 1.
       01 i pic 99.
       procedure division.
       Start-para.
            display "Enter the no whose factorial is to calculated :".
            accept n.
            perform para-1  varying i from 1  by 1 until  i > n.
                display "The factorial of " n " is " x.
                stop run.
       para-1.
                compute  x  =  x  * i.
No comments:

Pivot Table using Excel

Pivot table is used to sort, count or give the average of the data stored in a spreadsheet, Pivot tables are also useful for converting rows to columns etc.

 Here are the steps to create a pivot table.

 Step 1:  Start MS Excel Application

 Step 2: Enter some data as following screen shot.

Step 3: Select your all data then click on "Insert" Tab and select "Pivot Table", follow below image.

Step 4: Select "range of data or cells" with sheet, follow the below screen.

Step 5: Drag the fields as per following screen shot to summarize your all data.

Step 6: Chart can be created without much effort, just click on "chart" and it will opens different chart type and select "Column" type[for this example only] and the chart is ready!. [refer below screen shot]

Advantages of Pivot table:-

1) A pivot table will quickly summarizes the data by any column, calculate average, sum, count, percentage etc.

2) Data can presented in a chart.

3) Data can grouped by year, category wise or date etc.


 <<  Macro Example 


No comments:
Labels: , , ,
Subscribe to: Posts (Atom)