随笔分类 -  excel vba

摘要：Function pinyin(ByVal mystr As String, Optional types As Byte = 0) As StringDim temp As String, i As Long, j As Long, a, bWith CreateObject("Scripting.Dictionary").Add "a", "-20319".Add "ai", "-20317".Add "an", "-20304".Add " 阅读全文

摘要：Function hztopy(hzpy As String) As StringDim hzstring As String, pystring As StringDim hzpysum As Integer, hzi As Integer, hzpyhex As Integerhzstring = Trim(hzpy)hzpysum = Len(Trim(hzstring))pystring = ""For hzi = 1 To hzpysum hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1))) 阅读全文

摘要：VBA语句集(第1辑)定制模块行为(1) Option Explicit '强制对模块内所有变量进行声明Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示Option Compare Text '字符串不区分大小写Option Base 1 '指定数组的第一个下标为1(2) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息(3) On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置(4) On Error GoT 阅读全文

摘要：Private Sub CommandButton1_Click()Dim i, j As IntegerDim a As Datea = #10/1/2013#j = 2i = 2' If Worksheets("改后B").Range("a" & CStr(i)) = Worksheets("改后A").Range("a" & CStr(j)) And Worksheets("改后B").Range("b" & CStr(i)) = Wor 阅读全文

摘要：MATCH函数说明：MATCH(lookup_value,lookup_array,match_type)Lookup_value 为需要在数据表中查找的数值。Lookup_value 为需要在 Look_array 中查找的数值。例如，如果要在电话簿中查找某人的电话号码，则应该将姓名作为查找值，但实际上需要的是电话号码。Lookup_value 可以为数值（数字、文本或逻辑值）或对数字、文本或... 阅读全文

摘要：（1）99乘法表，以及为此表修改格式 Sub test() For x = 1 To 10 For y = 1 To 10 Cells(x, y).Value = x & "*" & y & "=" & x * y Next y Next x End Sub Sub test2() Dim cell As Variant Worksheets(1).Select For ... 阅读全文

摘要：在VBA代码中引用Excel工作表中单元格区域的方式小结 分类:ExcelVBA>>ExcelVBA对象模型编程>>常用对象>>Range对象 在使用ExcelVBA进行编程时，我们通常需要频繁地引用单元格区域，然后再使用相应的属性和方法对区域进行操作。所谓单元格区域，指的是单个的单元格、或者是由多个单元格组成的区域、或者是整行、整列等。下面，我们设定一些情形，以问答的形式对引用单元格区域的方... 阅读全文