网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
08月27日漏签0天
vba吧 关注:17,065贴子:66,763
  • 看贴

  • 图片

  • 吧主推荐

  • 游戏

  • 2回复贴,共1页
<<返回vba吧
>0< 加载中...

excel单元格,就不显示百分百进度的怎么办

  • 只看楼主
  • 收藏

  • 回复
  • mx656
  • 初涉江湖
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
求助贴吧各位,简单的几句代码,但是订单只要是百分百完成的,那个单元格就变成空白了,我改成千分制的话,也是空白不显示,没有头绪
Sub 判定进度()
Dim i As Integer
Dim x As Integer
Dim h As Integer
Dim max As Integer
max = Range("a12").End(xlDown).Row
h = 12
For h = 12 To max
x = 0
For i = 1 To 11
If ActiveSheet.Cells(h, 7 + i).Interior.Color = RGB(198, 224, 180) Or ActiveSheet.Cells(h, 7 + i).Interior.Color = RGB(208, 206, 206) Then
x = x + 1
Else
Cells(h, "G") = x / 11
Exit For
End If
Next
Next
End Sub


  • 跟着南哥混3天饿9顿
  • 初涉江湖
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
因为当你百分百完成的时候,代码不执行else后面的语句,相当于就是结果为空。你可以改为for i =1 to 12


2025-08-27 18:23:15
广告
不感兴趣
开通SVIP免广告
  • DwcCC
  • 人中龙凤
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
这表格显示不全,怎么才能知道你的 7 11 代表的是哪一行 那一列的数据。


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 2回复贴,共1页
<<返回vba吧
分享到:
©2025 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示