manbet网

 找回密码
 注册

QQ登录

只需一步,快速开始

楼主: 兰色幻想
打印 上一主题 下一主题

VBA80集第12集作业上交贴:非空行

  [复制链接]
2861#
发表于 2020-10-1 20:49 | 只看该作者

2862#
发表于 2020-10-1 23:16 | 只看该作者
学习。。。。。。。。。。
2863#
发表于 2020-10-8 22:59 | 只看该作者
看看答案
2864#
发表于 2020-10-13 22:51 | 只看该作者
Sub 非空儲存格標著()
   Sheets("工作表1").Activate
   Dim x As Integer
    Fori = 3 To 10
       x = Range("A" & i).End(xlToRight).Column
       If (x > 1 And x <= 4) Then
           With Range("A" & i)
                .Value = "1"
                .Interior.ColorIndex = 6
           End With
       End If
   Next i

End Sub

2865#
发表于 2020-10-14 16:18 | 只看该作者
不会做,过来找答案
查看详细资料
2866#
发表于 2020-10-19 19:21 | 只看该作者
提示有不良信息,代码不知道包含啥不良信息了
2867#
发表于 2020-10-29 21:23 | 只看该作者
OK看看答案
2868#
发表于 2020-11-1 17:07 | 只看该作者
新人前来报道,最近开始学习VBA,感觉好难啊。
您需要登录后才可以回帖 登录 | 注册 发新帖

本版积分规则

小黑屋|手机版|Archiver|manbet ( )

GMT+8, 2020-11-5 00:12 , Processed in 0.060000 second(s), 3 queries , Gzip On, Redis On.

Powered by X3.4

© 2001-2017

快速回复 返回顶部 返回列表