- 博客(1)
- 资源 (2)
- 收藏
- 关注
原创 一个超简单的密码记录管理工具。主要是为了记录自己的一堆记不住的密码。有简单的增删改查功能。密码没有加密,没有使用任何第三方库。
一个超简单的密码记录管理工具。 主要是为了记录自己的一堆记不住的密码。 有简单的增删改查功能。 密码没有加密,没有使用任何第三方库。
2024-07-29 11:03:08 233
换行单元格转真实行.bas
'调用过程
Sub 使用()
Dim 行, 列
'下面程序是 转换 第2行第5列到第2行第800列
'由于行一直在增加,所以实际并不会转换到原数据的800列
行 = 2
列 = 5
For 行 = 2 To 800 Step 1
Call 换行单元格转真实行(Cells(行, 列))
Next
End Sub
'过程
Sub 换行单元格转真实行(rng As Range)
'Dim rng As Range '处理的单元格
Dim str As String '消掉处理的单元格中所有换行符的文本
Dim i '处理的换行符个数 = 原单元格字符个数 - 处理后单元格字符个数 ( i 结果是多少 这个单元格就有 i+1 行)
Dim 行数 '处理单元格里面有多少行
Dim rngcol
rngcol = rng.Column '处理单元格在第几列
Dim rngstr As String
rngstr = rng.Value '处理单元格的内容
str = Application.WorksheetFunction.Substitute(rngstr, "" & Chr(10) & "", "")
i = VBA.Len(rng) - VBA.Len(str) '得到 单元格 里面 一共多少个 换行符 从而得到行数为i+1
If i > 0 Then '如果有换行符的话
行数 = i + 1 '得到行数
For i = 行数 To 2 Step -1 '有多少行循环多少次
Rows(rng.Row + 1).Insert '先在 处理的单元格下面插入一行
Cells(rng.Row + 1, rngcol) = Split(rngstr, "" & Chr(10) & "")(i - 1) '然后把最后一行内容给写进去,倒数第二行内容写进去…………第二行写进去
Next
Cells(rng.Row, rngcol) = Split(rngstr, "" & Chr(10) & "")(0) '然后把第一行内容写到原位置
End If
'Split(字符串, 分隔符)(第几个)
End Sub
2021-07-07
vba excel 一行excel数据打印一个标签
之前用金山表单收集内容
收集的内容金山表单可以直接生成实时同步的金山文档excel
工作上需要一个表单打印一个标签
金山文档没办法实现
所以用VBA写了个这个小玩意儿
用着还挺好用,现在天天都在用
由于工作场景的不同和收集内容的不同,应该没办法直接拿去使用
但是代码还是具有参考意义的,所以我把代码放上来,免费分享
使用条件:得有VBA功能的Excel
你需要做的更改:把需要打印的文件路径更改一下
我的使用场景:
金山表单收集-->自动汇集成的金山文档-->金山文档右上角的“WPS打开”按钮点击一下把云端数据自动下载到电脑端,然后直接关闭就行-->调出小工具输入打印的范围-->选择打印机-->打印成功
我的打印机打印 80*60的热敏标签
我留的有例行,如果要测试的话,把“打印标签”按钮事件里面的第一行Call 抓数据注释掉就行了
2021-06-14
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人