VLOOKUP函数 动态图解

2017年8月18日
VLOOKUP函数 动态图解已关闭评论

excel的lOOKUP函数 动态图解 最关键的是查找的第一个参数必须在首列,要查找到值最好也在查找范围的首列 这两个问题要是注意到了,基本就能成功,我查找不成功的重要原因就是这两个原因。

more...

软件技巧 浏览0 次

excel 提取单元格中数字的函数

2017年7月16日
excel 提取单元格中数字的函数已关闭评论

excel 提取单元格中数字的函数 因工作需要批量提取单元格中的数字,需要在excel的宏中插入模块,在声明中声明如下函数;然后像调用excel函数一样调用这个函数就行了。 代码如下: Function StrNum(ByVal myStr As String) ‘返回只有数字的函数 StrNum = “” For i = 1 To Len(myStr) If (Asc(Mid(myStr, i, 1)) >= 48 And Asc(Mid(myStr, i, 1)) <= 57) Or Asc(Mid(myStr, i, 1)) = 39 Then StrNum = StrNum & Mid(myStr, i, 1) Next End Function excel-pick-up-number 我在excel中运行的结果如上图! 有什么问题可以给我留言!!

more...

软件技巧 浏览3 次

Excel VBA单元格选取对话框

2017年5月3日
Excel VBA单元格选取对话框已关闭评论

   Excel VBA中引用单元格已经很简单了。但是如何像输入函数时一样,自由的选择单元格区域,以便更好地实现人机交互呢?    这里用到的函数 InputBox,里面的参数很简单,Type:=8意思是返回的值是Range,当然也可以是公式、数值或其他,具体可参见Help。    最后,通过Range的Column属性和Columns.Count属性,返回选择区域的列号及列数。有了行号、行数、列号、列数对该单元的的操作就很简单了。    附一段代码: Sub GetRange() Dim rng As Range On Error Resume Next Set rng = Application.InputBox(prompt:=”输入单元格区域或者直接选取单元格”, Type:=8) If rng Is Nothing Then    MsgBox “操作取消” Else    rng.Select       MsgBox “已选择单元格区域第一列的列号为” & rng.Column & “。共有” & rng.Columns.Count & “列。”       MsgBox “已选择单元格区域第一行的行号为” & rng.Row & “。共有” & rng.Rows.Count & “行。”    End If End Sub

more...

软件技巧 浏览3 次

excel查找一个值并复制到剪切板

2017年5月3日
excel查找一个值并复制到剪切板已关闭评论

Private Sub CommandButton1_Click() Dim c As Range jieguo = TextBox1.Value ‘jieguo = Application.InputBox(prompt:=”请输入要查找的值:”, Title:=”查找”, Type:=2) If jieguo = “False” Or jieguo = “” Then Exit Sub Application.ScreenUpdating = False Application.DisplayAlerts = False With ActiveSheet.Cells Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False) If Not c Is Nothing Then p = c.Address Do ‘查找下一个 c.Interior.ColorIndex = 4 q = q & c.Address & vbCrLf ‘ Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> p End If End With ‘MsgBox “查找数据在以下单元格中:” & vbCrLf & vbCrLf & q, vbInformation + vbOKOnly, “查找结果” ‘Application.DisplayAlerts = True a = “A” & c.Row & “:” & “F” & c.Row ‘复制A—F单元格到剪切板 ActiveSheet.Range(a).Select ‘选中单元格 ActiveSheet.Range(a).Copy ‘复制单元格到剪切板 ‘ ActiveSheet.Range(a).Active ‘复制单元格到剪切板 Application.ScreenUpdating = True ‘屏幕刷新 ActiveSheet.Range(a).Select ‘选中单元格 End Sub  

more...

软件技巧 浏览0 次

excel弹出输入值的对话框

2017年5月3日
excel弹出输入值的对话框已关闭评论

Sub Macro1() ‘ ‘ Macro1 Macro ‘ ‘ Dim jieguo As String, p As String, q As String Dim c As Range jieguo = Application.InputBox(prompt:=”请输入要查找的值:”, Title:=”查找”, Type:=2) End Sub

more...

软件技巧 浏览14 次