只有注册用户登录后才能阅读该文。 阅读全文

摘要： 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 阅读全文

摘要： 得到当前月份的天数 =DAY(DATE(YEAR(TODAY()),MONTH(TODAY())+1,0)) 阅读全文

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

摘要： 有时浏览.aspx 页时会出现一下错误！“/WebSite”应用程序中的服务器错误。 -------------------------------------------------------------------------------- 未能创建 Mutex。 说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关... 阅读全文

摘要： 下面开始讲解：HtmlInputHidden控件 定义和用法 HtmlInputHidden控件用来控制元素。在HTML中，此元素用来建立一个隐含的input域。 属性和事件 属性说明 Attributes 返回此元素所有属性名和属性值 Disabled 指明此控件是否被禁止的一个布尔值。默认值是false id 此控件的唯一id Name 此元素的名称 runat ... 阅读全文

摘要： 回发或回调参数无效。在配置中使用 或在页面中使用 启用了事件验证。出于安全目的，此功能验证回发或回调事件的参数是否来源于最初呈现这些事件的服务器控件。如果数据有效并且是预期的，则使用 ClientScriptManager.RegisterForEventValidation 方法来注册回发或回调数据以进行验证。 我的解决办法： 1，当页面中有多个FORM标记时会出现,我把服务器运行的FOR... 阅读全文