JenniferAmanda
- 浏览: 147171 次
- 性别:
- 来自: 西安
-
最新评论
-
zuogangju108：
你好问一下double[][] 是什么类型的数据 能举例说明 ...
jfreeChart 柱状图和折线图结合
文章列表
Public Sub 4_144()
Dim myRange As Range
Dim myFont As Font
Set myRange = Range("A1") '指定任意的单元格区域
Set myFont = myRange.Font
Cells.Clear '清除工作表数据
myRange.Value = "ExcelVBA实用技巧大全"
With myFont
.Name = "华文新魏"
.Size = 15
...
Excel_VBA 批量查找替换超链接
- 博客分类：
- Excel_VBA
Sub 替换超链接()
Dim sTobeReplaced As String
Dim sReplaceWith As String
sTobeReplaced = InputBox("输入你要查找的字符", "输入你要查找的字符")
sReplaceWith = InputBox("输入你要替换的字符", "输入你要替换的字符")
For Each Ws In Application.Worksheets '遍历工作表
For Each h In Ws.Hyperlinks '遍历超链接
If InStr ...
04080获取单元格区域的行数
Public Sub 4_080()
Dim myRange As Range
Set myRange = ActiveSheet.UsedRange '指定任意的单元格区域
MsgBox "指定单元格区域的行数为 " & myRange.Rows.Count
End Sub
04081获取单元格区域的列数：
Public Sub 4_081()
Dim myRange As Range
Set myRange = ActiveSheet.UsedRange '指定任意的单元格区域
...
Excel_VBA 写文件
- 博客分类：
- Excel_VBA
Function saveRecordsToTxt(ByVal records As String, ByVal path As String) As Boolean '写文件
If isNullOrEmpty(path) Then
saveRecordsToTxt = False
End If
Open path For Output As #1
Print #1, records
Close #1
saveRecordsToTxt = True
End Function
Excel_VBA 常用函数
- 博客分类：
- Excel_VBA
Val 函数
返回包含于字符串内的数字，字符串中是一个适当类型的数值。可以将字符串的数字型转换为数值。
语法
Val(string)
必要的 string 参数可以是任何有效的字符串表达式.
说明
Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进位制符号 &O（八进制）和 &H（十六进制）。空白、制表符和换行符都从参数中被去掉。
下面的返回值为 1615198：
Val(" 1615 198th Street N.E.")
在下面的代码中，Val 为 ...
清除单元格内容（ClearContents方法）， 清除格式（ClearFormats方法）以及同时清除内容和格式（Clear方法）
Excel_VBA 读取XML
- 博客分类：
- Excel_VBA
''读取xml文件，返回root节点
Function readXmlFile(ByVal fileName As String) As Object
Dim xmlFile As Object
Dim root As Object
Set xmlFile = CreateObject("MSXml2.DOMDocument")
xmlFile.async = False
xmlFile.Load (fileName) 'XML文件名，带上路径，比如c:\bbb.XML
xmlFile.setProperty ...
integer 变量的数据范围是-32768~ 32767，数据量超过32727就会报出错误6，溢出，建议超过32727的时就定义为Variant。
Excel VBA 优化(一)
- 博客分类：
- Excel_VBA
（一）关闭屏幕更新：
如果你的VBA程序前面三条做得比较差，则关闭屏幕更新是提高VBA程序运行速度的最有效的方法，缩短运行时间2/3左右。关闭屏幕更新的方法：
Application.ScreenUpdating= False
请不要忘记VBA程序运行结束时再将该值设回来：
Application.ScreenUpdating= True
exe4j是一款很经典的将Java类文件打包成.exe文件的软件，支持把jar class文件等编译成windows下能够直接运行的exe文件，还可以添加启动等待画面
第一次安装时会出现下面的对话框：
它要求系统有1.5版本以上的JDK，点Download在线下 ...