Sub Test()

    Dim r As Range

    Dim a As Integer

    a =

    For Each r In Range("b1:b6")

        If r.Font.Bold <> "True" Then

           a = a + r.Value

        End If

    Next r

    MsgBox (a)

End Sub

最新文章

1. 在vCenter5.5中为用户创建角色，管理虚拟机
2. Java-练习方法之模拟摇号抽奖
3. Android学习笔记——MixLayout
4. 深入探索AngularJS(持续更新)
5. 水题 HDOJ 4716 A Computer Graphics Problem
6. 带弹出列表的EditText
7. WPF布局系统[转]
8. Entity FrameWork知识点汇总
9. 我的Python成长之路---GitHub使用之注册GitHub并安装Git客户端
10. BIEE在creating domain步骤停止的解决的方法
11. Android Studio 如何使用jni
12. vs2015企业版密钥
13. php get_called_class()函数与get_class()函数的区别
14. VS2017调试器无法附加到IIS进程(w3wp.exe)
15. 周鸿祎IOT发布会思考
16. Python包下载超时问题解决
17. mysql 的indexof函数
18. [Dubbo实战]dubbo + zookeeper + spring 实战 （转）
19. 『PyTorch』第七弹_nn.Module扩展层
20. bzoj2458 最小三角形

热门文章

1. JavaScript的作用；JS常见的三种对话框；==和===的区别；函数内部参数数组arguments在函数内部打印实参；JS的误区:没有块级作用域
2. python 简单实现淘宝关键字商品爬取
3. TF-IDF In Scikit-Learn
4. [Luogu 3414]SAC#1 - 组合数
5. ●BZOJ 3926 [Zjoi2015]诸神眷顾的幻想乡
6. hdu 1754 线段树(Max+单点修改)
7. Gradle学习之构建java与web项目
8. 以太坊MetaMask钱包插件简介
9. javascript 手势（swipeLeft,swipeRight）滑动中使用css3动画卡顿，开启硬件加速
10. Failed to connect to GitHub to update the CocoaPods/Specs specs repo - Please check if you are offline, or that GitHub is down