Excel 宏处理随笔

#将指定单元格内的数字文本转为数字

Sub 自动替换格式()

Dim nRow%‘定义一个名为nRow的变量
nRow = Range("a1048576").End(xlUp).Row ‘获得数据最后的行号

Range("a2:j" & nRow).Select‘选定指定范围内的单元格
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With

Range("h2:j" & nRow).Select
For Each xCell In Selection
xCell.Value = xCell.Value
Next xCell

End Sub

原文地址：https://www.cnblogs.com/95mz/p/8371622.html

时间： 2024-10-14 20:46:47

Excel 宏处理随笔的相关文章

1.VBA教程 VBA Excel宏

Excel VBA宏 在这一章中,让我们了解如何编写一个简单的宏.让我们一步一步来. 第1步:首先,让我们能够在Excel20XX'开发'菜单.做同样的,点击 File >> Option. 第2步:点击自定义功能区选项卡,并选中“Developer”,然后点击“OK”. 第3步:在“Developer”带状出现在菜单栏. 第4步:点击“Visual Basic”按钮以打开VBA编辑器. 第5步:现在,让我们通过添加一个按钮,启动脚本.点击“Insert”>>选择“button”.

利用Excel宏中文转拼音方法

日常工作中有许多时候需要将大量的中文名字转换为拼音,让后录入作为账号.当需要录入数量多的情况下工作量会特别多,而且对于拼音不好人更是容易出错.这里我们将使用ASCII码的原理快捷的将中文转换为拼音. 打开Excel后使用快捷键alt+f8打开宏,或点击视图-宏 创建一个宏名字为getpy,点击创建 点击创建后将原有的模块语句清空,粘贴新脚本 粘贴脚本后保存 最后在表格里使用=getpy(str)格式的命令,转换指定格的文字为拼音 转换脚本 Function pinyin(p As String)

Excel 宏编码实现，指定列的字符串截取

1.打开Excel凭证,启用宏,ALT+F11 或 菜单"视图"-"宏-查看宏" Sub 分割字符串1() Dim i As Integer Dim b() As String Dim length '用length表示数组的长度 Dim sublength Dim bb() As String '筛选日期 2 点 For i = 2 To 20000 b() = Split(Cells(i, 6).Value, "_") length = UB

调用Excel宏批量处理文件

'1.用户可以任意选择文件夹进行遍历 '2.限定遍历时仅搜索EXCEL文件(你可以改变文件类型) '这个程序要先在“引用”下选择"microsoft scripting runtime"库文件 Dim ArryFile() As String Dim nFile As Integer Sub Filelist() Dim fso As New FileSystemObject Dim fd As Folder Dim strFilePath As String Dim FolderSe

Excel宏打开URL 特殊字符#变了

首先打开EXCEL,点击左上角的"文件"按扭(07版的是的圆图标),打开选项,再点击自定义功能区(Customize Ribbon),在右边,把开发工具(Developer)前的打上勾,点确定打开开发工具. 在开发工具里选择insert一个按钮 https://jingyan.baidu.com/article/9113f81b0c19e22b3214c78e.html 按钮一的代码如下 ActiveWorkbook.FollowHyperlink Address:="htt

【Sharepoint工具】Excel宏读取Sharepoint列表数据（VBA）

第一.开发原因: 某些时候Sharepoint列表的操作并不方便,比如数据量大,需要批量处理数据的时候.通过服务器代码有太多限制,比如智能通过B/S发送给用户,速度慢且影响服务器性能.客户端代码同样有一些慢. 第二.具体界面: 第三具体代码: Private Sub GetListBut_Click() On Error GoTo ErrorHandler Application.ScreenUpdating = False Application.DisplayAlerts = False S

Excel宏开发之合并单元格

合并单元格 Sub 宏1() ' ' 宏1 宏 ' ' 快捷键: Ctrl+q ' Application.Goto Reference:="宏1" Application.VBE.MainWindow.Visible = True Application.DisplayAlerts = False For i = [A65536].End(3).Row To 2 Step -1 If Cells(i - 1, 1) = Cells(i, 1) Then Cells(i - 1, 1)

Excel函数学习随笔

2017/7/9 学习心得: vlookup函数: VLOOKUP(查找目标,查找范围,返回值的列数,精确OR模糊查找) 查找目标要在区域的第一列:查找范围要用绝对引用($A$3:$F$19):返回值列数以引用范围第一列为始:一般均使用精确查找(false/0) 查找目标的模糊搜索方法:"*" & 字符 & "*"(即搜索包含该字符内容的所有目标): 数字区间查找(模糊查找的应用):使用前提:引用数字区域必须是从小到大排列.使用效果:给一定数,函数会

Excel 宏 截图等大小

Sub Macro2()'' Macro2 Macro'' Keyboard Shortcut: Ctrl+d'    ActiveCell.Select    ActiveSheet.Paste    Selection.ShapeRange.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft    Selection.ShapeRange.ZOrder msoSendToBackEnd Sub