Showing posts with label IT» Scripts and Tips Unleashed. Show all posts
Showing posts with label IT» Scripts and Tips Unleashed. Show all posts

Wednesday 14 June 2017

Excel Function: Rupees to Words

Excel Function to Convert Rupees in Figure to Rupees in Word

Following function convert ( Rupees in figure ) numeric value in a Microsoft Excel worksheet cell into its equivalent in (Rupees in Word ) English words.

e.g. =SpellNumber(2450) will display as Rupees Two Thousand Four Hundred Fifty Only

After copying following code, Enable macro and use above function.

How to create the sample function Called SpellNumber

Start Microsoft Excel.
Press ALT+F11 to start the Visual Basic Editor.
On the Insert menu, click Module.
Type the following code into the module sheet.


Function SpellNumber(amt As Variant) As Variant
Dim FIGURE As Variant
Dim LENFIG As Integer
Dim i As Integer
Dim WORDs(19) As String
Dim tens(9) As String
WORDs(1) = "One"
WORDs(2) = "Two"
WORDs(3) = "Three"
WORDs(4) = "Four"
WORDs(5) = "Five"
WORDs(6) = "Six"
WORDs(7) = "Seven"
WORDs(8) = "Eight"
WORDs(9) = "Nine"
WORDs(10) = "Ten"
WORDs(11) = "Eleven"
WORDs(12) = "Twelve"
WORDs(13) = "Thirteen"
WORDs(14) = "Fourteen"
WORDs(15) = "Fifteen"
WORDs(16) = "Sixteen"
WORDs(17) = "Seventeen"
WORDs(18) = "Eighteen"
WORDs(19) = "Nineteen"
tens(2) = "Twenty"
tens(3) = "Thirty"
tens(4) = "Fourty"
tens(5) = "Fifty"
tens(6) = "Sixty"
tens(7) = "Seventy"
tens(8) = "Eighty"
tens(9) = "Ninety"
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
FIGLEN = Len(FIGURE)
If FIGLEN < 12 Then
FIGURE = Space(12 - FIGLEN) & FIGURE
End If
If Val(Left(FIGURE, 9)) > 1 Then
SpellNumber = "Rupees "
ElseIf Val(Left(FIGURE, 9)) = 1 Then
SpellNumber = "Rupee "
End If
For i = 1 To 3
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
If i = 1 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " Crore "
ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " Lakh "
ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & " Thousand "
End If
FIGURE = Mid(FIGURE, 3)
Next i
If Val(Left(FIGURE, 1)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 1))) + " Hundred "
End If
FIGURE = Mid(FIGURE, 2)
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
FIGURE = Mid(FIGURE, 4)
If Val(FIGURE) > 0 Then
SpellNumber = SpellNumber & " Paise "
If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then
SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2)))
ElseIf Val(Left(FIGURE, 2)) > 19 Then
SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1)))
SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1)))
End If
End If
FIGURE = amt
FIGURE = Format(FIGURE, "FIXED")
If Val(FIGURE) > 0 Then
SpellNumber = SpellNumber & " Only "
End If
End Function

Wednesday 8 March 2017

Get Serial Number

from command prompt type:
wmic bios get serialnumber
returns the serial number of machine

Saturday 31 December 2016

Working with Shared Calendars in Outlook

Create meetings, inviting required attendees, resources, or yourself. Save as iCalendar Format, send to Employees and Track the changes
 

Eymantec Enterprise Vault: Exporting Single/ Bulk User to pst File and Deleting the Archive

Problem

How to export an archive in detail while removing items from the vault in order to expedite the delete archive process. The current process is to right click the archive and select delete. This will eventually remove the archive however this process could take up to 45 days to fully remove the archive. A faster way is described below.

Cause

Archives that are "Marked for deletion" can take 30 days or longer depending on the policy settings to actually delete the archive.

Solution

In order to delete existing archives in the shortest amount of time we must export the items to a PST while removing items from the vault.
use the PST Export wizard as outlined below to clear the archive of the archived items which will speed up the process of deleting the archives to free up needed storage.
1. Open the Enterprise Vault Console, right click on "Archives" then choose "Export". The Export wizard will open.


Select "Export Archives to PST", then click "Next"

2. Select the archive you wish to export then Click "Next".


 

3. Select the highlighted items to export all items under the root folder and remove the items from the archive. This will produce a 0 item archive that can be deleted quickly. Click "Next".


4. Choose the location to store the PST, keep in mind PST files can be rather large so ensure the destination drive has more than enough space available to store these PST files. Click "Next".



5. Select the size if you wish to burn CD media, or a single file. Also choose the type of PST to export, PSTs from Outlook 2003-2010 will us the Personal File Folder format. Click "Next".


 6. Review your PST export settings, click the "Back" button if changes need to be made. Else click "Next" to start the export.

7. After the export is complete a quick search of the archive should return "0" items exist in the vault. (From the EV server pen Internet Explorer and type this url:

http://localhost/enterprisevault/search.asp

Select the exported user archive, then click the "Search" button without entering any search criteria.

8. After verifying the archive has "0" items, then you can delete the archive.


9. Once the archive has been "Marked For Deletion" a quick restart of the storage service on the Ev server should remove the archive.



Friday 30 December 2016

Enable JavaScript in Windows

Enable JavaScript in Windows Internet Explorer

This is very much required to run several accessment tools; like to run RAP Tools successfully we require this to be enabled too.
To allow all websites within the Internet zone to run scripts within Internet Explorer:
  1. On the web browser menu, click Tools or the "Tools" icon (which looks like a gear), and select Internet Options.
  2. When the "Internet Options" window opens, select the Security tab.
  3. On the "Security" tab, make sure the Internet zone is selected, and then click on the "Custom level..." button.
  4. In the Security Settings – Internet Zone dialog box, click Enable for Active Scripting in the Scripting section.
  5. When the "Warning!" window opens and asks, "Are you sure you want to change the settings for this zone?" select Yes.
  6. Click OK at the bottom of the Internet Options window to close the dialog. 
  7. Click the Refresh button to refresh the page and run scripts.
To allow scripting on a specific website, while leaving scripting disabled in the Internet zone, add the specific Web site to the Trusted sites zone:

  1. On the web browser menu, click Tools, or the "Tools" icon (which looks like a gear) and select Internet Options.
  2. When the "Internet Options" window opens, select the Security tab.
  3. On the "Security" tab, select the Trusted sites zone and then click the Sites button.
  4. For the website(s) you would like to allow scripting, enter the address within the Add this website to the zone text box and click Add. Note: If the address does not begin with "https:", you many need to uncheck "Require server verification (https:) for all sites in this zone".
  5. Click Close and then click OK at the bottom of the Internet Options window to close the dialog.
  6. Click the Refresh button to refresh the page and run scripts.

Tuesday 31 May 2016

Simple GB Convertion in Excel

Format bytes a cell in Excel as KB, MB, GB etc?


Right click a particular cell, Format the cell and apply a Custom category and add to the 'Type' field [<1000000]0.00," KB";[<1000000000]0.00,," MB";0.00,,," GB"

works in office 2010 and above without any issues.

Tuesday 29 April 2014

Default attachment path in windows 7 and above email clients

Tips of the Day..!
you might sometimes wonder where does the attachments vanish in case you open an attachment and modify them directly from your email client like; Windows live mail or Microsoft outlook.
below is the path where you can search for.. simple way is to open any one of the attachment from your email client and click file save as, this will give you a clear idea of default source location.
Windows Live Mail default attachment cache location:
C:\Users\kt.rinith\AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.IE5\
Microsoft Outlook default attachment cache location:
C:\Users\kt.rinith\AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.Outlook

Scintillating Facts: Increase Speed on your Laptop (Windows 7 & Windows 8)

Scintillating Facts: This write-up is experience based as on how to Increase Speed on your Laptop (Windows 7 & Windows 8):
remove unused adwares after use.
Disable add-ons  from IE
Reliable third party tools which has been tested and rated above average will also do. For personal use free versions will do which are rated as virus free softwares. Few of them to pick-up are:
i) CCleaner  - available @http://www.piriform.com/ccleaner/download . This removes obsolete traces and reorders the system.
ii) Check the unwanted and suspicious services and disable if not required. Type MSConfig to review them.
iii) Block Adware pop-ups while access internet via Internet Explorer or other browsers. It's simple. Download Adblock Plus for IE and follow the quick steps.

Monday 23 September 2013

Mobile Operating Systems - Clearing Cache and Cookies

Clearing Cache and Cookies on Mobile Phones
Mobile Operating Systems
Operating System
Document Link

Android

iOS

webOS

Windows Phone

Sunday 22 September 2013

Clearing Browser Cache and Cookies

Clearing Windows Browser Cache and Cookies
This document explains where to find instructions on how to clear cache and cookies in your web browser.
Windows

Browser
Document Link

Internet Explorer 6

Internet Explorer 7

Internet Explorer 8

Internet Explorer 9 & 10

Firefox 3.5

Firefox

Chrome

Opera

Safari

Opera (Win) - Clearing Cache and Cookies

Opera (Win) - Clearing Cache and Cookies
This document explains how to clear the cache and cookies in Opera 9 through 11.
Opera 10.50, 11, and Newer
  1. Click on the Opera button in the top left corner > Settings > Delete Private Data...
  1. Click on Detailed Options to show the rest of the options. Make sure only the following are checked:
    • Delete temporary cookies
    • Delete all cookies
    • Delete entire cache
Click on the Delete button.
Opera 9 and Opera 10
  1. Click on Tools > Delete Private Data....
  1. Click on Detailed Options to show the rest of the options. Make sure only the following are checked:
    • Delete temporary cookies
    • Delete all cookies
    • Delete entire cache
Click on the Delete button.

Safari (Win) - Clearing Cache and Cookies

Safari (Win) - Clearing Cache and Cookies
This document explains how to clear the cache and cookies in Safari.
Safari 5
  1. Click on Tools (the gear icon) > Reset Safari....
  1. Check Empty the cache and Remove all cookies, then click on Reset.
Safari 4
  1. Click on Tools (the gear icon) > Reset Safari....
  1. Check Empty the cache and Remove all cookies, then click on Reset.
See Also:

Chrome (Win) - Clearing Cache and Cookies

Safari (Win) - Clearing Cache and Cookies
This document explains how to clear the cache and cookies in Safari.
Safari 5
  1. Click on Tools (the gear icon) > Reset Safari....
  1. Check Empty the cache and Remove all cookies, then click on Reset.
Safari 4
  1. Click on Tools (the gear icon) > Reset Safari....
  1. Check Empty the cache and Remove all cookies, then click on Reset.
See Also: