Рет қаралды 3,782
എക്സൽ ഫയലുകളിൽ 'Table of Contents' നിർമ്മിക്കാൻ സഹായിക്കുന്ന VBA പ്രോഗ്രാം. ഒരു എക്സൽ വർക്ക്ബുക്കിലെ എല്ലാ വർക്ക്ഷീറ്റുകളെയും ഒരു മാസ്റ്റർ ഷീറ്റിലേക്കു ലിങ്ക് ചെയ്യാൻ ഈ ടെക്നിക്ക് ഉപയോഗിക്കാവുന്നതാണ്.
How to create Table of Contents in Excel Workbook explained in Malayalam.
മൈക്രോസോഫ്റ്റ് എക്സൽ കോഴ്സിൽ എൻറോൾ ചെയ്യുന്നതിന് വേണ്ടിയുള്ള ലിങ്ക് ചുവടെ...
www.udemy.com/course/microsof...
Subscribe to the channel @AjayAnandXLnCAD for more.
/ ajayanandxlncad
Microsoft Word Beginner to Professional കോഴ്സിൽ എൻറോൾ ചെയ്യുന്നതിന് വേണ്ടിയുള്ള ലിങ്ക് ചുവടെ...
www.udemy.com/course/learn-mi...
VBA code to create Table of Contents in Excel
Sub TableofContents()
Dim a As Worksheet, b As Worksheet
Dim c As Range, d As Integer
d = 1
Worksheets(1).Select
For Each b In Worksheets
If b.Name = "ToC" Then
Application.DisplayAlerts = False
Worksheets("Toc").Delete
Application.DisplayAlerts = True
End If
ActiveSheet.Buttons.Add(400, 75, 75, 25).Select
With Selection
.OnAction = "Temp"
.Characters.Text = "Master Sheet"
End With
ActiveSheet.Next.Select
On Error Resume Next
Next
Sheets.Add.Name = "ToC"
Range("C3").Select
ActiveCell.Offset(-1, -1).Value = "S No."
ActiveCell.Offset(-1, 0).Value = "Sheet Name"
For Each a In ActiveWorkbook.Worksheets
If ActiveSheet.Name NET a.Name Then
ActiveCell.Offset(0, -1).Value = d
ActiveCell.Hyperlinks.Add Anchor:=Selection, _
Address:="", SubAddress:="'" & a.Name & "'" & "!A1", _
TextToDisplay:=a.Name
ActiveCell.Offset(1, 0).Select
d = d + 1
End If
Next a
Columns("C:C").EntireColumn.AutoFit
End Sub
Sub Temp()
Sheets("ToC").Select
End Sub
#excelmalayalam #excelmacro #malayalamtutorial