[6] Weekly Tips - Smiley generator in VBA (absolute and relative references)

Опубликовано: 20 Февраль 2026
на канале: Weekly Tips by Robert Stempkowski

#VBA #fun #Excel

Below you can find VBA code for smiley generator:

Sub Smile()
'
' Smile Macro
' Weekly Tips

Dim x As Integer
Dim R As Range
Dim y, z As Integer

'select smile size
x = InputBox("Select smile size :)", "Smile!", 1)
'start range, top left
Set R = Range(ActiveCell, ActiveCell.Offset(x - 1, x - 1))

R.Offset(0, x).Interior.ThemeColor = 2
R.Offset(0, 3 * x).Interior.ThemeColor = 2
R.Offset(2 * x, 2 * x).Interior.ThemeColor = 2
R.Offset(3 * x, 0).Interior.ThemeColor = 2
R.Offset(4 * x, x).Interior.ThemeColor = 2
R.Offset(4 * x, 2 * x).Interior.ThemeColor = 2
R.Offset(4 * x, 3 * x).Interior.ThemeColor = 2
R.Offset(3 * x, 4 * x).Interior.ThemeColor = 2

ActiveCell.Columns(1).Resize(, 5 * x).ColumnWidth = 3
End Sub