乐云主机笔记

  • 首页
  • 主机优惠
  • 学习记录
  • 新手教程
  • 自用主机
  • 资源下载
  • 网赚项目
  • 其他
  • pingtest

  1. 首页
  2. 学习记录
  3. 正文

一个未完工的VBA备忘

2017年8月29日 1266点热度 0人点赞 0条评论
Sub cb1_Click()
Dim i, j, h As Integer
Dim r As Range
Dim str As String
Dim li, lj As Integer
lj = 1
'Worksheets(1).Range("c1:c40").Clear
For li = 0 To Sheet1.ListBox1.ListCount - 1

    'If Sheet1.ListBox1.Selected(i) Then msg = msg & Sheet1.ListBox1.List(i) & vbCrLf
    
    If Sheet1.ListBox1.Selected(li) Then
    
    'Sheet1.Cells(lj, 3) = Sheet1.ListBox1.List(li)
    str = Sheet1.ListBox1.List(li)
    lj = lj + 1
    End If
For Each r In Worksheets("设备检测表模").Range("b1:b35")
    If r.Value = str Then
        a = r.Row
        b = r.Column
    End If
'Next
'If r Is Nothing Then
'MsgBox "请检查输入的设备名称"
'End If

i = Worksheets("设备检测表模").Cells.Find("*", , , , xlByRows, xlPrevious).Row
j = Worksheets("设备检测表模").Cells(a, Columns.Count).End(xlToLeft).Column
j = j + 1
'Worksheets(1).Cells(2, 1) = str
Worksheets("设备检测表模").Select
Worksheets("设备检测表模").Cells(a, j) = Worksheets(1).Cells(4, 4)
Next r
Next li
End Sub
标签: 暂无
最后更新:2017年8月29日

letvps

这个人很懒,什么都没留下

打赏 点赞
< 上一篇
下一篇 >

文章评论

razz evil exclaim smile redface biggrin eek confused idea lol mad twisted rolleyes wink cool arrow neutral cry mrgreen drooling persevering
取消回复

分类
  • 主机优惠
  • 其他
  • 域名优惠
  • 学习记录
  • 新手教程
  • 网赚项目
  • 脚本源码
  • 自用主机
  • 资源下载
书签
  • AdvinServers.com
  • 猫云云计算

COPYRIGHT © 2021 Letcloud.cn. ALL RIGHTS RESERVED.

Theme Kratos Made By Seaton Jiang

粤ICP备15031609号-3