吕雄

---

2021

February

如此，多好！

---

烟雨红尘，谁愿一生凄美独舞？世上的遗憾很多很多，怕只怕多了些“物是人非事事休，欲语泪先流”的凄苦，怕只怕多了些“不见去年人，泪湿春衫袖”的哀伤。曾有烟波万里，残月孤照；曾有江心雾锁，渔火飘摇；曾有香炉焚稿，曾有冷风呼啸，于我，如此，便好！也有一日的风清，一日的月白，一日安静里读殷红浅碧，一日慈悲里看唐诗宋词，于我，如此，便好。蒹葭古老，山河清明，终有一刻，能顿悟到“是非成败转头空，青山依旧在，几度夕阳红”！

红尘所有的所有终会湮灭，如果我能让自己的心游走于山水间、休憩于云霞处，无论何时无论何地都能手捧一滴烟雨，熟捻一缕斜阳，便不负上天馈赐，不负本心期许！漫卷时光，摇曳在流年的往事，香染四季，多想就这样定格在这一昔回忆里，任岁月匆匆，任时光流逝，固守那份执着，安守那份自得。是否真看淡了世间纷扰，是否真期待高山流水？或许，是自己已慢慢习惯安静，渴求在时间里寻一份从容，在岁月中寻一份安逸，让浮躁的内心，返璞素静，如此、如此！放下内心的繁琐，忘却尘世的嘈杂，在流年缝隙中，在光阴渡口边，温一壶心事，感悟着过去的点点滴滴。岁月如此短暂，亦如此漫长，也曾想尝遍生活滋味，也曾想看遍世事风光。只如今，二十余年，此刻光阴，已倦于窗外云烟渺渺、淡雾疏雨；已安于拈花信步，诗茶作乐。

“拨开世上尘氛，胸中自无火焰冰竞；消却心中鄙吝，眼前时有月到风来。”一直偏爱婉约的宋词，一直留恋悠长的雨巷，一直迷恋这尘烟微澜、岁月沉淀的清香。静下心，看枚枚叶子无声飘落，看时光的安静装载所有喧嚣，也许，越安静，越美丽。若是，能在风烟流散的日子里，寻回曾经的自己，做好当下的自己，时不时舒眉敛目，归隐于云墨书林，想来，这样的一切，便是岁月最好的成全。

想想，经年之后，我还可以像如今一般没有怨怼，没有纠结举笔记下云水过往，这一切是多么的幸运，也许静落心间，便如我期许，自我周全，如此，如此！多好！

2021年02月08日 记

---

February 8 , 2021 昨日种种  阅读全文

---

2020

December

半生点点冰




秋尽 无凭

万山红叶飘零

冬临 雪侵

数家霜火荧荧

竹林 草径

别院深深影

事心 了心

半生点点冰

December 14 , 2020 樵林后子  阅读全文

---

September

白发倚孤灯




昨日身，今日尘

青草长林葬此生

一夜夜，一声声

泪满秋痕湿春枕

莫相思，莫相问

冷月风深人空恨

荣几分，忧几分

白发倚孤灯

空山悲故人

September 30 , 2020 昨日种种  阅读全文

---

python实现sumifs函数功能

import pandas as pd
#医疗生育表
dfyl=pd.read_excel('C:\\Users\\Administrator\\Desktop\\测试\\医疗.xls',encoding='utf-8')
print(dfyl.head())


# 汇总表
dfhz=pd.read_excel('C:\\Users\\Administrator\\Desktop\\测试\\汇总表.xlsx',encoding='utf-8')
print(dfhz["姓名"][1])
counts=dfhz['姓名'].count()-1
for i in range(0,counts): 
      dfhz["医疗单位补缴"][i] = dfyl[(dfyl.姓名 == dfhz["姓名"][i]) & (dfyl.做账期号 == dfhz["期间"][i])].医疗单位补缴.sum()
      dfhz["医疗单位"][i] = dfyl[(dfyl.姓名 == dfhz["姓名"][i]) & (dfyl.做账期号 == dfhz["期间"][i])].医疗单位.sum()
      
print(dfhz.head())
dfhz.to_excel('C:\\Users\\Administrator\\Desktop\\测试\\汇总表.xlsx', sheet_name='汇总表',index=False)

September 20 , 2020 阅读全文

---

Python内引用excel函数

#xls转换为xlsx格式
import win32com.client as win32
fname = "C:\\Users\\Administrator\\Desktop\\测试\\医疗.xls"
excel = win32.gencache.EnsureDispatch('Excel.Application')
wb = excel.Workbooks.Open(fname)
wb.SaveAs(fname+"x", FileFormat = 51)    #FileFormat = 51 is for .xlsx extension
wb.Close()                               #FileFormat = 56 is for .xls extension
excel.Application.Quit()
#引用EXCEL函数
from openpyxl import load_workbook 

workbook = load_workbook("C:\\Users\\Administrator\\Desktop\\测试\\医疗.xlsx")
sheet = workbook["Sheet1"]
sheet["G1"] = "补缴" #查找后补充至该字段
for i in range(2,sheet.max_row+1): 
    # sheet[f"G{i}"] = f'=VLOOKUP(A{i},$K$1:$L$5,2,0)'
    sheet[f"G{i}"] = f'=SUMIFS(L:L,K:K,A{i})'
workbook.save(filename = "C:\\Users\\Administrator\\Desktop\\测试\\医疗VLOOKUP.xlsx")
print("取数完成")

September 20 , 2020 阅读全文

---

June

何处觅春踪

陌上雨，花露浓。

经雨长篱短寒松。

枝头月，岭边风。

倚风疏叶矮梧桐。

人间虚胜景。

何处觅春踪？

绿杨村巷外，茅舍小园中。

桃红十万丛，李红十万丛！

June 27 , 2020 樵林后子  阅读全文

---

VBA跨excel工作簿提取首个工作表数据

Sub Collectwk()

    'ExcelHome VBA编程学习与实践

    Dim Trow&, k&, arr, brr, i&, j&, book&, a&

    Dim p$, f$, Rng As Range

    With Application.FileDialog(msoFileDialogFolderPicker)

    '取得用户选择的文件夹路径

        .AllowMultiSelect = False

        If .Show Then p = .SelectedItems(1) Else Exit Sub

    End With

    If Right(p, 1) <> "\" Then p = p & "\"

    '

    Trow = Val(InputBox("请输入标题的行数", "提醒"))

    If Trow < 0 Then MsgBox "标题行数不能为负数。", 64, "警告": Exit Sub

    Application.ScreenUpdating = False '关闭屏幕更新

    Cells.ClearContents '清空当前表数据

    Cells.NumberFormat = "@" '设置单元格格式为文本

    ReDim brr(1 To 200000, 1 To 1)

    '定义装汇总结果的数组brr，最大行数为20万行

    f = Dir(p & "*.xls*")

    '开始遍历指定文件夹路径下的每个工作簿

    Do While f <> ""

        If f <> ThisWorkbook.Name Then '避免同名文件重复打开出错

            With GetObject(p & f)

            '以\'只读\'形式读取文件时，使用getobject方法会比workbooks.open稍快

                Set Rng = .Sheets(1).UsedRange

                If IsEmpty(Rng) = False Then '如果工作表非空

                    book = book + 1 '标记一下是否首个Sheet,如果首个sheet，BOOK=1

                    a = IIf(book = 1, 1, Trow + 1) '遍历读取arr数组时是否扣掉标题行

                    arr = Rng.Value '数据区域读入数组arr

                    If UBound(arr, 2) > UBound(brr, 2) Then

                    '动态调整结果数组brr的最大列数，避免明细表列数不一的情况。

                        ReDim Preserve brr(1 To 200000, 1 To UBound(arr, 2))

                    End If

                    For i = a To UBound(arr) '遍历行

                        k = k + 1 '累加记录条数

                        For j = 1 To UBound(brr, 2) '遍历列

                            brr(k, j) = arr(i, j)

                        Next

                    Next

                End If

                .Close False '关闭工作簿，不保存。

            End With

        End If

        f = Dir '下一个工作簿

    Loop

    If k > 0 Then

        [a1].Resize(k, UBound(brr, 2)) = brr

        MsgBox "汇总完成。"

    End If

    Application.ScreenUpdating = True '恢复屏幕更新

End Sub

源文件

June 2 , 2020 阅读全文

---