网络蛀虫

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

more...

虫子 软件技巧 浏览0 次

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中引用单元格已经很简单了。但是如何像输入函数时一样，自由的选择单元格区域，以便更好地实现人机交互呢？    这里用到的函数 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...

虫子 软件技巧 excel 浏览3 次

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...

虫子 软件技巧 excel 浏览0 次

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...

虫子 软件技巧 excel 浏览14 次