Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > microsoft.public.excel.programming > #108019

Re: Calendar manipulation

Show all headers | View raw

Hi Walter,

Am Mon, 21 Sep 2015 14:31:10 +0100 schrieb Walter Briscoe:

> I have a calendar on an Excel 2003 sheet.
> 
> 1) Column "A" is invisible for historical or hysterical reasons I can't
> remember. The sheet is not frozen. Selecting column "B" and the list of
> row numbers and doing Format/Columns/Unhide does nothing. In the
> Immediate pane of the Code window, commands such as
> columns(1).hidden=false also do nothing. This is unimportant, but I
> report it.
> 
> 2) Each month has 2 columns, the first is headed by a month name
> followed by day numbers, the second is free format to hold data.
> Currently columns("C:GJ") are hidden. I think I need a macro to unhide 2
> columns next to the unhidden columns. e.g.
> columns("GI:GJ").hidden=false. I am looking for an economical way to
> encode this. My current thinking is a loop to search for a hidden =
> false cell and make 2 previous cells hidden=true.
> 
> 3) I also show this file on my Android mobile phone or cellphone.
> cells("GK",1) is =DATE(2015,8,1) with format = "mmm"). On the phone,
> this appears as 2103 and sometime later is converted to "Aug". The app
> is "Sheets". Can anyone suggest a more efficient way to generate "Aug".

1) Put the cursor over the left column separator of column B until it
changes to a double arrow and drag it to the right.

2) Are other columns hidden than A and C:GJ? If not then try following
code to unhide the last two hidden columns:

Sub Test()
Dim RngAdr As String
Dim varRng As Variant

RngAdr = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Address
varRng = Split(RngAdr, ",")
varRng = Split(varRng(1), ":")
Range(varRng(0)).Offset(, -2).Resize(1, 2).EntireColumn.Hidden = False
End Sub

3) Another method is  =TEXT(DATE(2015,8,1),"MMM")
But I don't know if that is better for your Android mobile


Regards
Claus B.
-- 
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Back to microsoft.public.excel.programming | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

Calendar manipulation Walter Briscoe <wbriscoe@nospam.demon.co.uk> - 2015-09-21 14:31 +0100
  Re: Calendar manipulation Claus Busch <claus_busch@t-online.de> - 2015-09-21 16:12 +0200
    Re: Calendar manipulation Walter Briscoe <wbriscoe@nospam.demon.co.uk> - 2015-09-24 08:43 +0100

csiph-web