- 博客(13)
- 收藏
- 关注
RSS订阅原创 excel折叠的一个prompt
Kimi: 以下是一个VBA宏示例，该宏将遍历Excel工作簿中的Sheet1中的每一行，找到有内容的行，并计算从C列开始到最后一个有值的单元格的数目，将其存储在变量a中。然后，它会在每个有内容的行下方插入a-1行，并将当前行的C+1列、C+2列、...、C+a-1列的单元格的值依次粘贴到从当前行开始的C列中，直到插入的行结束。User: 写一个vba，获取Sheet1中有内容的行中从c列开始往后有值的单元格格数，设为变量a（含c列单元格），在Sheet1中有内容的行下增加a-1行。
2024-04-12 19:55:48
504
原创 MACD制作方法
MACD涉及7个指标：日期 收盘价 EMA12 EMA26 DIFF DEA MACD12、26天的平均数之差与其九日平均数之差*2文件模板见共享链接：https://pan.baidu.com/s/11imsrNkT2ddVeI-eRLjWww提取码：t4io...
2022-01-31 15:51:43
643
原创 用excel实现工作日志的更新和汇总
工作日志包括类别、子任务、优先级和用时。把当日工作更新后点更新按钮，存到sheet2的“数据库”（其实就是复制sheet1的内容到2）代码如下：Sub q()Dim n, m As Integern = 1m = 30For a = 1 To 100 n = a * 30 + 1 m = a * 30 + 1 While WorksheetFunction.CountA("a" & n & ":b" & m) = 0 Sh
2020-07-30 11:49:14
2430
原创 用vba对数据进行合并计算、自动填写数据
合并计算：利用数组去重的方法把相同名称的行汇总计算Private Sub CommandButton1_Click()Set d = CreateObject("scripting.dictionary")myArray = SelectionDim nFor Each n In myArray If Not d.exists(n) Then d.Add n, Application.WorksheetFunction.Match(n, Selection, 0)Nextk
2020-07-19 15:47:20
2182
原创 用vba创建图表分析上市公司财报
表格界面，填写股票代码后点击“下载报表”。即下载财报到f盘，（此处需手动先打开下载好的文件）选择好要分析的科目，然后贴数据到主页面并生成折线图，可手动挪动图表行改分析的科目，嘻嘻。以下为两个按钮的代码。Sub dl()Dim code As StringDim kemu As Stringcode = Range("j3").ValueDim H, SSet H = CreateObject("Microsoft.XMLHTTP")H.Open "GET", "http://m
2020-07-19 13:22:34
837
原创 Python和Excel结合的一些应用
数据展现import xlrdimport pandas as pdimport numpy as npurl ="C:\\Users\\FCX\\Desktop\\君子供货台账 (2).xlsx"data = xlrd.open_workbook(url)sheets = ['营收指标完成情况汇总', '君子合作业务汇总表', '共管账户流水(680)', '共管账户流水(946)', 'DL20190801', 'DL20190802', 'GH20190805', 'DL2019
2020-07-19 11:30:26
1047
原创 批量打印文件
常常遇到doc和pdf不能直接拉选右键打印#批量打印文件import win32apiimport win32printimport os#b = ['1.txt','2.txt','3.txt','4.txt']url = "F:\\0党建工作\\0每日一学\\新建文件夹 (3)"fns = []for dirs in os.walk(url): fns.append(dirs)for fn in fns: win32api.ShellExecute(0,'prin
2020-07-19 10:44:08
474
原创 按照序号+单位命名文件
#按照序号+单位命名文件import pandas as pdimport difflibimport sysimport osimport shutilfname1 = ['1.txt','2.txt']url = "C:\\Users\\FCX\\Desktop\\000"fname0 = os.listdir(url)for fn1 in fname1: for fn0 in fname0: if fn0 == fn1: ...
2020-07-19 10:43:01
212
原创 用docxtpl填充文本模板
先在word给固定区域打标签{{}}from docxtpl import DocxTemplatedocurl = "C:\\Users\\FCX\\Desktop\\0君子\\test\\附件5：君子科技公司采购清单（包含成本价）.docx"savepathname = "C:\\Users\\FCX\\Desktop\\0君子行\\test\\demo.docx"a = "做啊"b="是多久"data_dic = {'ii':a,"jj":b}doc = DocxTempl
2020-07-19 10:41:06
847
1
原创 分析日志并可视化每天报错计数
# -*- coding:utf-8 -*-import refrom collections import Counterimport numpy as npimport matplotlib.pyplot as pltl = []patternForTime = r'(\d{4}[\D]\d{1,2}[\D]\d{1,2}[\D]?\d{2})' for j in range(1,30): if j <10: path = 'C:\\User...
2020-07-19 10:34:25
203
原创 收文文件放进文件夹
先上代码import difflibimport sysimport osimport shutilurl = "C:\\Users\\FCX\\Desktop\\000000"filenames = []for dirs in os.walk(url): filenames.append(dirs) for docname in filenames[0][2]: a = difflib.get_close_matches(docname, filena...
2020-07-19 10:22:11
119
原创 桌面背单词，单词图片做背景
#桌面背单词，单词图片做背景from PIL import Image,ImageFont,ImageDraw a = ['reed【【【【n.芦笛，牧笛','reef【【【【n.礁，礁石，暗礁','reel【【【【vt.卷，绕','referee【【【【n.(足球等)裁判员','refinery【【【【n.精炼厂，提炼厂','regime【【【【n.政体，政权；制度','re
2018-01-27 18:26:31
4517
3
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人