get paid for amazon reviews
- appointment calendar
- jay walkenbach
- erlandsen data consulting
- tools including:
create a large calendar (a4) for each month or a small
calendar (pocket) for a whole year. the calendar automatically
formats some holidays (included easter sunday etc.), you might
need to customize the workbook to suit your needs. updated
4.7.1999.
- microsoft
templates
- calendar macro
sub makecalendarplanner()
'this variation leaves a space
'for putting in appointments
'evelyn woolston
dim numcells as range
dim rownum as integer
dim colnum as integer
dim myyear, mymonth
dim myyear, mymonth
dim dayname as range
dim daynums as range
dim daysinmonth as integer
dim startdate as date
myyear = inputbox("enter the year" & chr(10) & "for which you want acalendar ")
mymonth = inputbox("enter the month" & chr(10) & "for which you want a calendar ")
range("d1").value = mymonth & myyear
startdate = range("d1").value
mycal = range("d1").value
set daynums = range("b4:h10")
'format daynums
daynums.numberformat = "d"
set dayname = range("b3:h3")
dayname(1).value = "mon"
range("b3").select
with selection
.autofill destination:=range("b3:h3"), type:=xlfilldefault
end with
end with
'fills cells with days of week
range("d1:e1").mergecells = true
'put month and year into merged cell
'it automatically formats itself as a date ie the first of the month
'find day of week on which month starts
firstday = weekday(mycal, 2)
'put 1 under the correct day
do while month(mycal) = month(startdate)
daynums(firstday).value = mycal
firstday = firstday + 1
mycal = mycal + 1
loop
'format calendar
'insert 1 row between each line of numbers
for insertingrows = 5 to 13 step 2
rows(insertingrows).select
selection.insert shift:=xldown
next insertingrows
'put a border around d1:e1
range("d1:e1").borderaround linestyle = xlborderlinestylecontinuous
range("b3:h3").select
'formats the day names as blue with a white font
with selection.font
.name = "arial"
.fontstyle = "bold"
.size = 10
.colorindex = 2
end with
with selection.interior
.colorindex = 23
.pattern = xlsolid
.patterncolorindex = xlautomatic
end with
'put a border around b3 to h15
range("b3:h15").borderaround linestyle = xlborderlinestylecontinuous
'insert a border around blocks of 2 cells
set numcells = range("b4:h15")
for colnum = 1 to 7
for rownum = 1 to 12 step 2
numcells(rownum, colnum).range("a1:a2").borderaround linestyle = xlborderlinestylecontinuous
'a useful way of referring to a range of cells within a
'named range . the a1:a2 means e.g. numcell(1,1) and 'numcell(2,1)
next rownum
next colnum
end sub
links verified 19 april, 2009