Date, Date Value, day, days360, today,weekday,year

Unless the answer isn't every function from absolute to year (is there a Z?), pivot tables, recorded Macros, VBA etc I'm not sure what the question is asking. Can you expand?

 Change value with Scroll bar or Spin button

Select a formula in the formula bar and press F9. this will calculate the formula but will not print it out in the cell

Option Explicit
Sub Diagonal()
    Dim i As Long
    Do
        i = i + 1
    Loop Until Range("A1").Offset(i, i) = ""
    Cells(1, 1).Resize(i, i).Select
End Sub
 

What about this one:

Sub GetDiagonal()
Dim lRowCt As Long
Dim lColCt As Long
Dim lCt As Long
With ActiveSheet.UsedRange
lRowCt = .Rows.Count
lColCt = .Columns.Count
For lCt = Application.Max(lRowCt, lColCt) To 1 Step -1
If .Cells(lCt, lCt) <> "" Then
ActiveSheet.Range(ActiveSheet.Range("A1"), ActiveSheet.Cells(lCt, lCt)).Select
Exit For
End If
Next
End With
End Sub

 Sub SelDiag()

ActiveSheet.Range("a1").Select

Do Until Selection.Value = Empty

    Selection.Offset(1, 1).Select

    Loop

DiagLen = Selection.Column - 2

ActiveSheet.Range("a1", Range("a1").Offset(DiagLen, DiagLen)).Select

End Sub

Public Sub selectDiagonal()
Dim c As Range, rDiagonal As Range
Dim i As Long

Set c = ActiveSheet.[b2]

While Not c.Column = Sheet1.Columns.Count
If LenB(c.Value2) <> 0 Then Set rDiagonal = c
Set c = c.Offset(1, 1)
Wend

ActiveSheet.Range([a1], rDiagonal).Select
Set c = Nothing
Set rDiagonal = Nothing
End Sub

=TEXT(WEEKDAY(TODAY()-DAY(TODAY()-1)),"dddd")

=TEXT(WEEKDAY(DATE(YEAR(NOW()),MONTH(NOW()),1)),"dddd")

=TEXT(TODAY()-DAY(TODAY())+1,"ddd, mmm dd, yyyy")

= DateSerial(Year(Date), Month(Date), 1)

=TEXT(MONTH(NOW),"DDDD") Thanks

=DATE(YEAR(TODAY()),MONTH(TODAY())+1,1)-1

dt = Year(Now()) & "/" & Month(Now()) & "/" & "1"

=IF(B2="","", VLOOKUP(B2,E2:F8,2,0))

Vlookup will allow you to search for an item in the 1st column.
The other will allow the seach param on any column

Vlookup must always return a value to the right of the lookup column. Using the Index and Match functions together, you can return a value to the left of the lookup column.

Functions that will trigger recalculations every time a calculation is performed, e.g. F9.

OFFSET
INDIRECT
VLOOKUP
HLOOKUP

Pivot Tables enables us to summarize & analyze data in Lists & Tables. They can automatically sort, count & total the data stored in one table or spreedsheet & creates a second table displaying the summarized data.
The user sets up & changes the structure by dragging a dropping fields graphically.
Saurabh Singh

Here is a hint:  the sum of squares of numbers from 1 to N is  N*(N+1)*(2*N+1)/6

Define a public constant -
Const N As Integer = 20

Add two buttons on the WorkSheet -
*-Jumble - Associate following code to it -
Public Sub Jumble()
For Each myCell In Worksheets("MyCustomSheet").Range("MyList")
Do
i = CInt(Rnd * N)
Loop While Cells(i + 2, 5) <> "" And i < N + 1
Cells(i + 2, 5) = myCell.Value
Next
End Sub

*-Find Issues - Associate following code to it -
Public Sub Findissues()
For i = 1 To N
flag = 1
For Each myCell In Worksheets("MyCustomSheet").Range("RandomList")
If myCell.Value = i And flag = 0 Then
flag = 2
End If
If myCell.Value = i And flag <> 2 Then
flag = 0
End If
Next
If flag = 1 Then
Cells(i, 10) = "Missing - " & i
End If

If flag = 2 Then
Cells(i, 10) = "Repeated - " & i
End If
Next
End Sub

Now in the Sheet itself define 1 to N numbers in consecutive cells, and define this as a named range - "MyList"

Now in 2 columns away.. define the entire column as a named range -"RandomList"

Now when you press the button Jumble you will get the list of 1st N numbers jumbled up in Named range "RandomList"

Now click on the Find issues.... it will populate the results in 10th column,... as to which elements are missing and which are repeated.