乐云主机笔记

  • 首页
  • 主机优惠
  • 学习记录
  • 新手教程
  • 自用主机
  • 资源下载
  • 网赚项目
  • 每天20分
乐尚云端
关注主机信息、建站技术的资深小白~白
  1. 首页
  2. 学习记录
  3. 正文

一个未完工的VBA备忘

2017年8月29日 777点热度 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

关注建站主机信息及技术的资深小白白~

点赞
< 上一篇
下一篇 >

文章评论

取消回复

主机商推荐

最新 热点 随机
最新 热点 随机
开源免费的WordPress个人博客主题推荐 自己用的一些常用一键脚本 Remove.bg: 免费的抠图工具 利用某论坛附件做免费图床 ShareX快捷上传存储 Discuz论坛 通用图片上传插件(油猴脚本) 宝塔googledrive备份插件(改进版) WordPress隔一段时间无法登陆/验证失败的解决方案/转载 关于宝塔/nginx反代CLOUDflare下的HTTPS站点问题收集汇总(待折腾)
SakuraPanel - 开源、基于 Frp 的内网穿透管理面板腾讯云cvm|轻量卸载监控方法关于宝塔/nginx反代CLOUDflare下的HTTPS站点问题收集汇总(待折腾)WordPress隔一段时间无法登陆/验证失败的解决方案/转载宝塔googledrive备份插件(改进版)Discuz论坛 通用图片上传插件(油猴脚本)利用某论坛附件做免费图床 ShareX快捷上传存储Remove.bg: 免费的抠图工具
Cloudflare动态域名解析设置全过程及二级域名ID的获取的方法 一键网络重装系统 - 魔改版(适用于Linux / Windows)MeowLove原创 绿云greencloudvps复活节放货了及6折优惠码 把$$(R)混进80端口,防止被土番的技术手段(转自LOC) [折腾干货]利用闲置手机做微阉割版的Centos服务器(chroot)并安装宝塔的教程 virmach黑五2C3G100G圣何塞中盘机bench测试报告 woothosting的超便宜车又发车1G/1H/20G/100M只需$6/年 国内外主要公共DNS服务器地址列表,及自用PC如何正确选用DNS加快上网速度
主机商推荐

书签
  • 猫云云计算

COPYRIGHT © 2020 乐云主机笔记. ALL RIGHTS RESERVED.

THEME KRATOS MADE BY VTROIS

粤ICP备15031609号-3