吕雄

Private Sub Worksheet_Change(ByVal Target As Range)
' Developed by Contextures Inc.
' www.contextures.com
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
If Target.Count > 1 Then GoTo exitHandler

On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler

If rngDV Is Nothing Then GoTo exitHandler

If Intersect(Target, rngDV) Is Nothing Then
   'do nothing
Else
  Application.EnableEvents = False
  newVal = Target.Value
  Application.Undo
  oldVal = Target.Value
  Target.Value = newVal
  If Target.Column = 2 And Target.Row = 10 Then '此处选定第2列第10行(B10)的单元格为需要设置下拉多选的单元格
    If oldVal = "" Then
      'do nothing
      Else
      If newVal = "" Then
      'do nothing
      Else
        If InStr(1, oldVal, newVal) <> 0 Then  '重复选择视同删除
          If InStr(1, oldVal, newVal) + Len(newVal) - 1 = Len(oldVal) Then '最后一个选项重复
            Target.Value = Left(oldVal, Len(oldVal) - Len(newVal) - 1)
          Else
            Target.Value = Replace(oldVal, newVal & ",", "") '不是最后一个选项重复的时候处理逗号
          End If
        Else '不是重复选项就视同增加选项
        Target.Value = oldVal & "," & newVal
'      NOTE: you can use a line break,
'      instead of a comma
'      Target.Value = oldVal _
'        & Chr(10) & newVal
        End If
      End If
    End If
  End If
End If

exitHandler:
  Application.EnableEvents = True
End Sub

年终奖个人所得税计算方案：

方案一：年终奖单独计算，不分摊并入每月工资计算纳税

方案二：年终奖分摊并入每月工资计算纳税

![中华人民共和国个人所得税法实施条例](http://www.gov.cn/zhengce/content/2018-12/22/content_5351177.htm)

![中华人民共和国个人所得税法](http://www.chinatax.gov.cn/n810219/n810744/n3752930/n3752974/c3970366/content.html)

data
 - 目录一
   - 一些pdf或者word文件
 - 目录...
   - ...

February

Python批量提取PDF文件信息放入excel

程序运行逻辑：
   -->打开Excel文件按照指定的规则取得值
		
   -->遍历指定的PDF文件夹，将其名称与Excel中得到的进行匹配，若匹配成功，则保存该文件或文件夹的路径到folderList.txt中

   -->遍历上述文件夹内的按照指定规则获得的所有PDF文件并保存到pdfList.txt中

   -->解析上面获得的PDF文件并保存到PDF2Txt文件夹中
   
   -->按照指定的规则抽取d步骤获得的TXT文件中的内容

   -->把e步骤获得的内容写入到对应的Excel位置

   -->程序完成

配置规则：
  所有规则需要在运行程序前在KEYWORDS.txt文件中配置，包括：
  
  -->PDF文件夹所在路径
  -->Excel文件所在路径
  -->PDF文件的提取规则
  -->Excel抽取规则
  -->Excel写入规则
  -->抽取数据位置及写入Excel位置规则

#打包处理:
如选择，可在打包后直接在KEYWORDS.txt文件中填写路径以及规则，然后运行TOOL文件夹下的TOOL.exe

打包方法：
在没有安装Python开发包的电脑上运行的话，需要打包发布，Python提供了pyinstaller.exe程序来实现一键打包，首先下载安装pyinstaller模块，

>pip install pyinstaller

安装完成后搜索找到pyinstaller.exe 复制到你想要打包的文件的位置，也就是你的.py 文件的位置，然后使用命令行执行：

>cd 你的上述文件放置位置
>pyinstaller.exe 你的.py文件名称

比如pyinstaller.exe 放在了C:/Users/github/Python 路径下，同时里面还有一个TEST.py 的文件我想要打包成exe 程序，那么我的运行命令就是：

>cd C:/users/fanyu/desktop/Python
>pyinstaller.exe TEST.py

程序运行会在当前目录下生成dist 、build 、TEST.spec 、_pycache_ 的四个文件，需要的运行程序在dist 目录下，双击exe文件。

详细代码如下：

February 28 , 2020 阅读全文

---

Python批量给word添加（替换）页眉

##添加（替换）页脚页码将Headers替换为Footers
import win32com,os,sys,re 
from win32com.client import Dispatch, constants
 
# 打开新的文件 
suoyou = os.listdir('C:\\Users\\Administrator\\Desktop\\待添加')
#print suoyou
for i in suoyou:
  wenjian_name = os.path.join('C:\\Users\\Administrator\\Desktop\\待添加',i)
  #print wenjian_name
  if os.path.isfile(wenjian_name):  
    w = win32com.client.Dispatch('Word.Application') 
    w.Visible = 0
    w.DisplayAlerts = 0
    tianjia = 'C:\\Users\\Administrator\\Desktop\\待添加\\%s' % i #准备替换的文件夹
    wancheng = 'C:\\Users\\Administrator\\Desktop\\已完成\\%s' % i #替换完成后输出的目录
    doc = w.Documents.Open('C:\\Users\\Administrator\\Desktop\\标准模版.doc') 
    w.ActiveDocument.Sections[0].Headers[0].Range.Copy()
    wc = win32com.client.constants 
    doc.Close()
 
    doc2= w.Documents.Open(tianjia) 
    w.ActiveDocument.Sections[0].Headers[0].Range.Paste()
    w.ActiveDocument.SaveAs(wancheng)
    doc2.Close()
 
    doc3 = w.Documents.Open( 'C:\\Users\\Administrator\\Desktop\\标准模版.doc') 
    w.ActiveDocument.Sections[0].Footers[0].Range.Copy()
    doc3.Close()
 
    doc4= w.Documents.Open(tianjia) 
    w.ActiveDocument.Sections[0].Footers[0].Range.Paste()
    doc4.Close()
    try:
      w.Documents.Close()
      w.Quit()
    except:
      print("添加成功")

February 28 , 2020 阅读全文

---

十载清梦枕渔蓑

近来何事事如何，但觉闲身百感多。

老境光阴一瞬过，少年心事两蹉跎。

半生虚名抛客路，十载清梦枕渔蓑。

觅得草堂归卧去，风雨寻常任消磨！

February 23 , 2020 樵林后子  阅读全文

---