昨晨8度，不幸的事照常来了，香港冻s了5人。
花开有时，花落有时，徒叹奈何。

今天大年初四，天气和暖 (今天17～24度)，毕竟立春已过了十多天，应该和暖了。
下午看了一套内地电影，"天才雀妈" ,估计不是原名，因为广东人才管 "麻将" 叫 "麻雀" 。电影里，管 "出冲" 叫 "点炮" , 管 "叫胡" 叫 "听胡"，打出的牌在面前排得整整齐齐的，对白好像是 "川普" ，不确定。

大佬能教一下VBa遍历工作簿吗

历遍当前文件夹里的工作簿名称
Sub test1()
p = ThisWorkbook.Path
f = Dir(p & "\*.xls*")
Do While Len(f) > 0
MsgBox f
f = Dir()
Loop
End Sub
===================
还是当前工作簿里的工作表名称
Sub test2()
Dim s As Worksheet
For Each s In Sheets
MsgBox s.Name
Next
End Sub

近来在玩并图（puzzle)，最近砌了一幅梵高的cafe terrace，2000片，由于是山寨画家画的，画工很粗糙，很难并，我花了将近二个月时间才砌完。

分列循环，这个代码有什么问题吗，他运行不了

这株树在2018-09-16让台风 <山竹> 吹倒，是一株罕见的黄木棉。

过后一株约一米的小树竖了起来，到如今已过二年半，没见过木棉花开，可能不是木棉了。

大佬你好，能请教一个问题吗？如果想在单元格里面固定设置一个公式怎么整，就是在这个单元格输入这个数字它就会自己运算，得我想要的结果，例如我输入1000，我就想要得到的是1000÷12的结果这种？谢谢，万分感谢

眨了两眼2021就要离我而去，不舍得也得舍。
数日前游了海洋公园，数年前山上有数枝红木绵如今不见了，而多了十多枝樱花，只看见数朵半开半谢的樱花，未到开花时候，阴历新年再去看看。

四天前，早上气温骤降至9度，正式把香港带入冬天，可是只冷了一天，又把一直以来的18，19度还给香港，这度数不错，穿秋天衣服不累赘。