-
-
1=COUNTIF(CK1:CK900,AG20) 统计某列出现的次数的个数 忽略错误值的话可以 用 if(iserror(原公式),"",原公式) =CONCATENATE(F18000,G180
-
0ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, _ Address:="C:\Windows\System32\Calc.exe", ScreenTip:="按下我,就会开启Windows
-
0Set ecl = CreateObject("Excel.Application") ExcelVersion = ecl.Version Set ecl = Nothing MsgBox ExcelVersion
-
0MsgBox "2006年5月15日至2006年8月22日之间的天数(按每月30天计)为:" _ & WorksheetFunction.Days360("2006-5-15", "
-
0Application.Calculation = xlCalculationAutomatic '自动计算 MsgBox "已经切换为自动计算" Application.Calculation = xlCalculation
-
0Dim myStr As String myStr = Application.InputBox("请输入字符:") Select Case True Case myStr Like "*A*": MsgBox "该
-
0x = Range("d65536").End(xlUp).Row 'd列最后一个非空单元格的行数 k = range("iv11").end(xltoleft).column '第十一行
-
0程序(单元格) Sub 连接相邻两列数据() '循环直到活动单元格为空 Do While ActiveCell <> "" ActiveCell.Offset(0, 1).FormulaR1C
-
0Public Sub 技巧15_001() Dim i As Long, k As Long Dim j As Single ActiveSheet.Cells.Clear For i = 1 To 10 Cells(i, 1) = i Next i k = 1 For j
-
0下面是是选定区域、选定整行的排序,order1:的值为1升序、2降序 Range(Cells(2, 1), Cells(k, 11)).Sort Key1:=Range("b2"), order1:=1, Ke
-
0Application.EnableEvents = False [c3:h10000].ClearContents n = Sheet1.[a65536].End(xlUp).Row Sheet1.Range("A1:F" & n).Advanced
-
0Dim i As Long Dim tmpRange As Range Dim strS As String For Each tmpRange In Range([c1], [d10]) strS = tmpRange.Text For i = 1 To Len(strS) I
-
0Application.Dialogs(1).Show是调用打开对话框 Application.Dialogs(5或145).Show是调用另存为对话框, Application.Dialogs(6).Show是删除文档 Appli
-
0Dim myRange As Range Set myRange = Range("1:1,3:3,5:5") myRange.Select Set myRange = Nothing
-
0统计所选区域中包含公式、文本或数字的单元格数 在Excel中,您能使用定位对话框来选取工作表中某单元格区域所包含的公式、 文本或数字的单元格,即 1.
-
0Application.ReferenceStyle = xlA1 'A1引用样式 MsgBox "已经切换为A1引用样式" Application.ReferenceStyle = xlR1C1 'R1C1引用
-
0判断指定单元格有无数据 Sub macro1() MsgBox IIf(Len([B1]), "B1有内容,类型:" & TypeName([B1].Value), "B1没内容") End S
-
0Dim myRange1 As Range, myRange2 As Range, myRange3 As Range Dim myIntersectRange As Range Set myRange1 = Range("A2:D10") Set myRan
-
0Range("A:A").Find(Application.WorksheetFunction.Max(Range("A:A"))).Activate
-
01.放在ThisWorkbook里: Private Sub Workbook_BeforeClose(Cancel As Boolean) Call DeleteButton End Sub Private Sub Workbook_Open() Call Create
-
0Public Sub 技巧12_008() Dim mydata As String, mytable As String, SQL As String Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim i A
-
0让计算机连续响三声。 Dim I For I = 1 To 3 ' 循环 3 次。 Beep ' 发出一声。 Next I
-
0在点击单元格的时候自动运行宏 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Row = 1 And ActiveCell.Column = 1 Th
-
0Sub DeleteVBA() '批量删除所有宏 Dim filename As Variant Dim thisbook As Object Application.DisplayAlerts = False Application.ScreenUpdat
-
0Public Sub 技巧14_015() Dim myArray As Variant myArray = Array("姓名", "性别", "通讯地址", "联系电话"
-
0MsgBox "模板保存的默认路径是: " & Application.TemplatesPath
-
0MsgBox "打开Excel文件时使用的默认路径是: " & Application.DefaultFilePath
-
0MsgBox "启动Excel的路径是: " & Application.StartupPath
-
0MsgBox "当前的当前操作系统的名称和版本号是: " & Application.OperatingSystem
-
0Dim myTemp As Long Dim myDrive As String If Left(CurDir, 1) = Application.PathSeparator Then myTemp = InStr(3, CurDir, Application.PathSepar
-
0打开文件对话框 Dim myFileName As String myFileName = Application.GetOpenFilename Range("A1") = myFileName 或 Application.FindFile
-
0打开指定路径的任意文件 Dim myFilename As String, myPath As String ChDir Application.DefaultFilePath myPath = "C:\WINDOWS\Temp\" &#
-
0Public Sub 技巧18_016() Dim myFolder As String myFolder = ThisWorkbook.Path & "\hhh" '指定文件夹名称 If Len(Dir(myFolder,
-
0Public Sub 技巧2_033() Dim wb As Workbook Set wb = Workbooks.Add wb.SaveAs Filename:="c:\windows\temp\hhh.xls" MsgBox "已经创
-
0Dim y '变量声明-需保存工作表的路径和名称 [M1] = ActiveWorkbook.FullName '单元格M1=当前工作簿的路径和名称 y = cells(1, 14) 'Y=单
-
0Public Sub 技巧1_042() Application.EnableEvents = False ActiveWorkbook.Save Application.EnableEvents = True End Sub 关闭不保存,不显示警告信
-
0(135) UserForms.Add(MyForm).Show ‘添加用户窗体MyForm并显示 (136)TextName.SetFocus ‘设置文本框获取输入焦点 (137) SpinButton1.Value=0 ‘将数
-
0Public Sub 技巧6_011() Dim B As Variant Dim myShape As Shape Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(1) '指定工作表 MsgBox
-
0IsNumeric函数 一、题目: 要求编写一段代码,运用IsNumeric函数,返回一个变量是否为一个数值。 二、代码: Sub 示例_1_21() Dim bl,bl1 bl = 530.25
-
0Len函数 一、题目: 要求编写一段代码,运用Len 函数来得到指定字符串的长度。 二、代码: Sub 示例_1_026() Dim Ryzfc$, Mycdu RYzfc = "HELLO
-
0(1) Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不
-
0Option Explicit Dim i, Temp, counter As Long Dim Random(20) As Long Dim finished As Boolean Sub cq() counter = 0 Range("F3:G12").S
-
0Dim myChr As Characters Dim myRange As Range Set myRange = Range("A1") '指定任意单元格 Set myChr = myRange.Characters(Start:=2
-
0Dim myRange As Range Set myRange = Range("A1") '指定任意单元格 MsgBox "单元格" & myRange.Address & "的
-
0=TEXT(SMALL(IF(COUNTIF(BHV:BHY,ROW($1:$100)-1),999,ROW($1: $100)-1),ROW(BJF1)),"[<100]00;")
-
0=TEXT(SMALL(IF(COUNTIF(B$1:M$10,ROW($1:$100)-1)>10,ROW($1: $100)-1,4^8),ROW($A1)),"[>100] ;00")
-
0=IF(ROW(A1)>SUM(N(COUNTIF($H$8:$CNW$8,ROW($1:$10)-1) >200)),"",RIGHT(LARGE(IF(COUNTIF($H$8:$CNW$8,ROW($1:$10)-1) >200,COU
-
0if(iserror(原公式),"",原公式)
-
0=COUNTIF(CK1:CK900,AG20)
-
0Dim mySh As Shell32.Shell Set mySh = CreateObject("Shell.Application") mySh.Explore ThisWorkbook.Path '指定文件夹 Set mySh = N