新人初来乍到，刚学第一天，这个错误我打死都没有找到，求解答 - Excel/VBA论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 Excel/VBA论坛』 → 新人初来乍到，刚学第一天，这个错误我打死都没有找到，求解答

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1496 人关注过本帖

标题：新人初来乍到，刚学第一天，这个错误我打死都没有找到，求解答

取消只看楼主加入收藏

球球熊熊

等　级：新手上路
帖　子：5
专家分：0
注　册：2021-12-17
结帖率：50%

楼主

已结贴√ 问题点数：20 回复次数：1

新人初来乍到，刚学第一天，这个错误我打死都没有找到，求解答

我需要求出这个面积和体积单元格的数值，这样错了吗？

Option Explicit
Sub yuan()
Dim r1, s, v
Const P = 3.1415926

    r1 = Cells(3, 4)
    s = P * r1 * r1

    v = 4 / 3 * P * r1 * r1 * r1

    Cells(3, 5) = s
    Cells(3, 6) = v


End Sub

图片附件: 游客没有浏览图片的权限，请登录或注册

搜索更多相关主题的帖子: Sub　错误　 Dim　Const　End　

2021-12-17 15:20

球球熊熊

等　级：新手上路
帖　子：5
专家分：0
注　册：2021-12-17

第 2 楼

得分:0

回复楼主球球熊熊

谢谢谢谢大哥我太粗心了

非常感谢

2021-12-20 15:10

快速回复：新人初来乍到，刚学第一天，这个错误我打死都没有找到，求解答