JenniferAmanda
- 浏览: 147170 次
- 性别:
- 来自: 西安
-
最新评论
-
zuogangju108：
你好问一下double[][] 是什么类型的数据 能举例说明 ...
jfreeChart 柱状图和折线图结合
文章列表
ExtJs panel的边框属性
- 博客分类：
- ExtJs
style:'border-left: 1px solid #8db2e3;',
bodyBorder:false,
border:false,
FileWriter追加文本内容
- 博客分类：
- java_基础篇
package com.huawei.autofact.business;
import java.io.BufferedWriter;
import java.io.File;
import java.io.FileOutputStream;
import java.io.FileWriter;
import java.io.IOException;
import java.io.OutputStreamWriter;
import java.io.PrintWriter;
public class FileWriterDemo {
void writeMyFile() {
t ...
rowCount = Worksheets("sheet1").UsedRange.Rows.Count
Excel_VBA 计算数组的长度
- 博客分类：
- Excel_VBA
UBound 函数
返回一个 Long 型数据，其值为指定的数组维可用的最大下标。
LBound 函数
返回一个 Long 型数据，其值为指定数组维可用的最小下标。
计算数组的长度：
length = UBound(a) - LBound(a) + 1
Excel_VBA 根据列号获取列字母
- 博客分类：
- Excel_VBA
Function getColumnLetter(ByVal myCol As Integer) As String '获取单元格列标的字母
Dim columnName As String
Dim k As Integer
k = (myCol - 1) \ 26
Select Case k
Case 0
Case Else
columnName = columnName & Chr(64 + k)
End Select
columnName = columnName & ...
Excel_VBA 向单元格输入分数
- 博客分类：
- Excel_VBA
Public Sub 技巧4_127()
Range("A1:A5").Clear '清除单元格数据
'输入一位分数
Range("A1").NumberFormatLocal = "?/?"
Range("A1").Value = "1/3"
'输入二位分数
Range("A2").NumberFormatLocal = "??/??"
Range("A2").V ...
Excel_VBA 获取文件的上级目录
- 博客分类：
- Excel_VBA
Sub test()
p = ThisWorkbook.Path
p = Mid(p, 1, InStrRev(p, "\"))
Debug.Print p
End Sub
Excel_VBA 判断语句
- 博客分类：
- Excel_VBA
If…Then…Else语句
If condition Then [statements][Else elsestatements]
如1：If A>B And C<D Then A=B+2 Else A=C+2
如2：If x>250 Then x=x-100
或者，可以使用块形式的语法：
If condition Then
[statements]
[ElseIf condition-n Then
[elseifstatements] ...
[Else
[elsestatements]]
End If
如1:
If Number < 10 Then
D ...
Public Sub 13_008()
Dim Filename As Variant, myText, mArr() As String
Dim i As Long, j As Long
Filename = ThisWorkbook.Path & "\myStudents.csv" '指定文件字符串
j = 1
With Worksheets("sheet1")
.Cells.ClearContents
Open Filename For Input As #1 ...
Public Sub 4_156()
Dim myRange As Range
Dim myHyps As Hyperlinks
Set myRange = Range("A1") '指定任意的单元格
Set myHyps = myRange.Hyperlinks
With myHyps
.Delete '删除已经存在的超连接
'插入指向本工作簿外部的超连接
.Add Anchor:=myRange, Address:="C:\ index.html", ...
Excel_VBA 逐行读取文件
- 博客分类：
- Excel_VBA
逐行读取文件
使用下面的语句来逐行读取Autoexec.bat或者其它任何顺序文件里的内容：
Line Input #filenumber, variableName
#filenumber是用Open语句打开文件时使用的数字，variableName是个String或者Variant变量，用来储存读取的行。
Line Input #语句仅读取一开启顺序文件里的一行并且储存在一变量里。记住，Line Input # 语句一次读取顺序文件里的一个字符，直到它遇到回车字符（Chr(13)）或者回车-换行字符（Chr(13) & Chr(10)）。这些字符（回车，换行）在读取过程中返回的文本 ...
‘浏览文件和文件夹清单
Application.FileDialog(msoFileDialogFilePicker).Show
‘浏览文件夹清单
Application.FileDialog(msoFileDialogFolderPicker).Show
FileDialog 打开文件夹或文件
Dir 判断文件存在
Sub 按钮1_Click()
'选择单一文件夹
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
'File ...
Excel_VBA 检查文件存在性
- 博客分类：
- Excel_VBA
Sub 按钮3_Click()
Dim fileName As String
fileName = "C:\recsFn.txt"
If Dir(fileName) = "" Then '文件不存在
Debug.Print "文件不存在";
Else
Debug.Print "文件存在"
End If
End Sub
Public Sub 4_085()
Dim ColumnName As String
Dim myCol As Integer
Dim myRange As Range
myCol = 55 '指定列标号
Set myRange = Cells(1, myCol) '指定该列标号的任意单元格
ColumnName = Left(myRange.Range("A1").Address(True, False), _
InStr(1, myRange.Range("A1"). ...