Spring whisperings…

Upon reaching the Sakuranomiya JR (Osaka) station, the reports that the cherry blossoms (Sakura) were appearing slightly later than average this year proved quite true.  However, pleasantly, my visit was not greeted with complete disappointment. While strolling through the Sakura Kema Sakuranomiya Park (毛馬桜之宮公園), I was elated when I spotted .. faintly .. here and there … a few peeping cherry blossoms, shyly unfolding their translucent pinkish wings … quietly whispering the beginning of the Sakura season .. for the Osaka region ..

With renewed determination … I quickened my steps and finally … right before me … in one end of the park, a lone sakura tree blooming prettily ….. and catching quite a few passersby’s admiration and smiling photo snaps indeed !! 

Date: 29 Mar 2017

Advertisements

Hong Kong International A Cappella Festival 2017

2017 HKFYG Jockey Club Hong Kong International a cappella Festival

International a cappella Festival brings harmonious sounds to the community

Since 2011, The Hong Kong Jockey Club Charities Trust has been supporting the “HKFYG Jockey Club Hong Kong International a cappella Festival”, which uses the power of the human voice to develop the creative potential of young people. Now in its seventh year, this annual music event has been expanded to include the wider community. A new addition this year has been the “a cappella camp”, which gives young people of different musical backgrounds the rare opportunity for mutual exchange and sharing. Don’t miss these incredible a cappella performances – mark the date!

2017香港青年協會賽馬會香港國際無伴奏合唱節
國際無伴奏合唱節 將動人和聲傳遍社區

香港賽馬會慈善信託基金自2011年起,連續七年支持「香港青年協會賽馬會香港國際無伴奏合唱節」,以音樂激發青年人的創作潛能。今年無伴奏合唱節繼續將獨特音樂推廣至社區,更新增「無伴奏合唱營」,給予不同音樂背景的青年人互相交流及分享的難得機會。萬勿錯過連場精采的無伴奏合唱表演,立即記下活動日子!

Date: 24 Mar 2017

 

 

Excel VBA – Check if your workbook exist or not?

Before opening your workbook, you will need to verify if the workbook exists or not, so that it won’t return error or the VBA will stop improperly.

If the workbook exists, it will return “TRUE“.

If the workbook doesn’t exist, it will return “FALSE“.

Function DoesWorkBookExist(ByVal wbPath As String, ByVal WBName As String) As Boolean

Dim i As Integer
Dim FileCheck As String

FileCheck = wbPath & “\” & WBName

If Dir(FileCheck) <> “” Then
‘MsgBox (“Workbook – ” & wbName & ” exists”)
DoesWorkBookExist = True
Else
‘MsgBox (“Workbook – ” & wbName & ” doesn’t exist”)
DoesWorkBookExist = False
End If

End Function

Lights show in Hong Kong Flower Show 香港花卉展覽燈光 2017


Themed “Blossoms of Love”, the Hong Kong Flower Show 2017 showcases the rose as its spotlight flower and Hong Kong as a beautiful city of love. The installation will combine lighting effects, 3D effects and multi-media.

今年香港花卉展覽主題為「愛‧賞花」, 並以美麗可愛的玫瑰為主題花,展現香港是一個美麗充滿愛的城市。為配合大會的主題,展品運用燈光效果、互動元素、三維(立體)藝術效果及多媒體以配合展品,以增加花展的吸引力。

Date: 16 Mar 2017

Excel VBA – Text to Columns feature

It is a subroutine and can be executed directly via the Macro list.  The function is to modify delimited text into separate columns, so you can manipulate data better and easily.

objRange1 is the definition of the range within a worksheet, you can specify.

Destination:=Range(“A3”) is the location where the output will be appeared, you can specify.

Sub Split2Col()

Dim objRange1 As Range

‘Set up the ranges
Set objRange1 = Range(“A1:A20”)

‘Do the first parse
objRange1.TextToColumns _
Destination:=Range(“A3”), _
DataType:=xlDelimited, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=True, _
OtherChar:=”|”

End Sub

Hong Kong Flower Show 2017…

It is the entrance of the Hong Kong Flower Show 2017, the logo comes with different color LED, please come and visit the show in Victoria Park, Causeway Bay…

The Hong Kong Flower Show is a major event organised by the Leisure and Cultural Services Department to promote horticulture and the awareness of greening. Every year, it provides a good opportunity for hundreds of thousands of local citizens and horticulture lovers all over the world to appreciate the beauty of flowers and share their experiences in the cultivation of flowers. Hong Kong Flower Show 2017 will be held from 10 to 19 March 2017 at Victoria Park in Causeway Bay. With “Blossoms of Love” and the adorable “Rose” as its theme and theme flower respectively, the Hong Kong Flower Show 2017 will project Hong Kong as a beautiful city where love is in the air. Featuring “Rose” as its theme flower, the event will showcase this exquisite plant and a rich profusion of exquisite potted plants, beautiful floral arrangements and gorgeous landscape displays by organizations from local, the Mainland and overseas. There will also be commercial stalls selling flowers and other horticultural products.

香港花卉展覽是康樂及文化事務署推廣園藝和綠化意識的重點項目。每年為數十萬本港市民和世界各地的園藝愛好者提供一個賞花和交流種花經驗的良機。二零一七年香港花卉展覽將於二零一七年三月十日至十九日在香港銅鑼灣維多利亞公園舉行。大會以「愛.賞花」為主題,並以美麗可愛的「玫瑰」為主題花,展現香港是一個美麗和充滿愛的城市。市民除了可以欣賞到顏色奪目的主題花「玫瑰」及各地的花卉之外,更可以觀賞到來自本地、內地及海外園藝機構展出悉心栽培的盆栽、造型優美的花藝擺設,以及色彩繽紛的園景設計。會場更設有售賣花卉及其他園藝產品的銷售攤位。

Date: 13 Mar 2017

Mac – How to capture your screen?

Do you know the simple method to capture your screen in Mac OS?

Click to System Preferences > Keyboard > Shortcuts > Screen Shots, and you will find the shortcut keys to perform different style of screen captures,

– Save picture directly or copy picture to clipboard with your whole screen

– Save picture directly or copy picture to clipboard with your selected areas

^ means <alt/option> key

Screenshots shortcuts

Chinese Lion Dance for shops… 紅磡紅青堂醒獅賀商舖

https://www.facebook.com/儒釋道三聖寶林紅青堂-126064110806119

Chinese Lion Dance in Hunghom, Hong Kong, this is celebration to surrounding shops, restaurants, and wish them good luck and good business.

by 紅青堂醒獅

在香港,舞獅又稱醒獅,逢年過節,如天后誕辰,或是店鋪開業,都有醒獅表演的傳統。

醒獅被認為是驅邪避害的吉祥瑞物,每逢節慶,或有重大活動,必有醒獅助興,長盛不衰,歷代相傳。

Date: 11 Mar 2017

Excel VBA – How to create User-Defined Type…

You can create your own User-Defined Type in VBA, which you can group the common variables in this type “RowColumn”.

In this “RowColumn” variable, it will contain Row, Column Number, Column Letter and the Address (range reference for the specified range, this can speed up in calculation).

Now you will be able to define your own “RowColumn” as variable,

e.g. Dim infoRowColumn As RowColumn

Option Explicit

Public Type RowColumn
xRow As Long
xColumn As Integer
xColumnName As String
xAddress As String
End Type