ExcelHome技术论坛

 找回密码
 免费注册
QQ登录 只需一步,快速开始
新浪微博登陆 只需一步, 快速开始
   
高效办公必会的Office99uu优优 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 国内首部Excel函数公式学习大典 职场充电黑科技, Office微99uu优优 免费下载Excel行业应用视频
300集Office 2010微99uu优优 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 201099uu优优学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 174|回复: 11
打印 上一主题 下一主题

[求助] 帮我处理,第四步我写不出来。

[复制链接]
TA的精华主题TA的得分主题
跳转到指定楼层
1
发表于 2017-9-12 21:10 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
详细内容见附件。第四步代码我老是写错了。第一步到第三步代码没错。
搜狗截图20170912162130.png (66.44 KB, 下载次数: 0)
搜狗截图20170912162130.png
2627.zip 57.24 KB, 下载次数: 6
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏2 分享分享 有用有用 无用无用 分享到新浪微博
TA的精华主题TA的得分主题
2
发表于 2017-9-12 21:20 | 只看该作者
TA的精华主题TA的得分主题
3
 楼主| 发表于 2017-9-12 21:23 | 只看该作者 |楼主
liulang0808 发表于 2017-9-12 21:20
使用right取右边一位判断即可

从第四步   根据M列的数据判断O列   Q列.这个问题我写不出来,想请大哥帮忙
TA的精华主题TA的得分主题
4
 楼主| 发表于 2017-9-12 21:28 | 只看该作者 |楼主
liulang0808 发表于 2017-9-12 21:20
使用right取右边一位判断即可

这个宏我写了一半,下面的宏是错误。
2627.png (50.65 KB, 下载次数: 0)
2627.png
TA的精华主题TA的得分主题
5
发表于 2017-9-12 21:50 | 只看该作者
爷们679 发表于 2017-9-12 21:23
从第四步   根据M列的数据判断O列   Q列.这个问题我写不出来,想请大哥帮忙

针对帖子里的截图,给的建议是使用right取一位即可
TA的精华主题TA的得分主题
6
发表于 2017-9-12 21:55 | 只看该作者
  • Sub test()
  •         mylastrow = Sheets("sheet3").Cells(Rows.Count, 9).End(xlUp).Row + 2
  •         arr = Sheets("sheet3").Range("I1:Q" & mylastrow)
  •         For h = 4 To mylastrow - 2
  •            p = Val(arr(h, 1))
  •            If p < 100 Then
  •               arr(h, 4) = Val(Right(p, 1))
  •              If Fix(p / 10) <> 0 Then
  •               arr(h, 3) = Fix(p / 10)
  •              Else
  •                arr(h, 3) = Empty
  •               End If
  •            End If
  •         Next h
  •         
  •         For h = 6 To mylastrow
  •             arr(h, 5) = arr(h - 2, 4) + arr(h - 1, 4)
  •             If arr(h, 5) < 7 Then
  •               arr(h, 7) = arr(h, 5)
  •               arr(h, 9) = 10 + arr(h, 5)
  •         
  •             ElseIf arr(h, 5) <= 10 Then
  •                 arr(h, 7) = arr(h, 5)
  •             ElseIf arr(h, 5) < 17 Then
  •                 arr(h, 7) = arr(h, 5) - 10
  •                 arr(h, 9) = arr(h, 5)
  •             Else
  •                 p = arr(h, 5) - 16
  •                 arr(h, 7) = p
  •                 arr(h, 9) = 10 + p
  •         
  •             End If
  •         
  •         Next h
  •     Sheets("sheet3").Range("I1:Q" & mylastrow) = arr
  • End Sub
  • 复制代码

    评分

    参与人数 1鲜花 +1 收起 理由
    爷们679 + 1 优秀作品
    查看全部评分
    TA的精华主题TA的得分主题
    7
    发表于 2017-9-12 22:03 | 只看该作者
  • Sub 按钮1_Click()
  •     Application.ScreenUpdating = False
  •     For j = 6 To Cells(Rows.Count, 13).End(3).Row
  •         If Cells(j, 13) <= 10 And Cells(j, 13) >= 7 Then
  •             Cells(j, "o") = Cells(j, 13)
  •         Else
  •             Cells(j, "o") = Right(Cells(j, 13), 1)
  •             Cells(j, "q") = 10 + Right(Cells(j, 13), 1)
  •         End If
  •     Next j
  •     Application.ScreenUpdating = True
  • End Sub
  • 复制代码

    评分

    参与人数 1鲜花 +1 收起 理由
    爷们679 + 1 优秀作品
    查看全部评分
    TA的精华主题TA的得分主题
    8
    发表于 2017-9-12 22:03 | 只看该作者
    看看是否满足需求吧
    2627.zip 76.44 KB, 下载次数: 1

    评分

    参与人数 1鲜花 +2 收起 理由
    爷们679 + 2 优秀作品
    查看全部评分
    TA的精华主题TA的得分主题
    9
     楼主| 发表于 2017-9-12 22:08 | 只看该作者 |楼主
    TA的精华主题TA的得分主题
    10
     楼主| 发表于 2017-9-12 22:23 | 只看该作者 |楼主
    您需要登录后才可以回帖 登录 | 免费注册 新浪微博登陆
    本版积分规则
    关闭

    最新热点上一条 /1 下一条

    关注官方微信,每天坐享新鲜教程
    手机版|关于我们|联系我们|ExcelHome    GMT+8, 2017-10-23 12:20 , Processed in 1.123808 second(s), 41 queries , Gzip On.
    Powered by Discuz! X3.3 © 2001-2017 Wooffice Inc.
        沪公网安备 31011702000001号 沪ICP备11019229号 本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师
    快速回复 返回顶部 返回列表
    99uu优优