作为一个从来没接触过写代码的非IT行业人员，也能在AI的帮助下，利用自己的行业知识和逻辑思维，写出可以实际应用的函数代码，简直是YYDS。

我必须与你们分享我今天的经历，我是如何利用AI，一步一步地学习、调教，并创建一个实用的代码函数的。（真小白，纯分享，IT大佬们轻嘲）

事情发生在我今天写一份技术文件并需要统计一个行业数据分析时，用excel进行了一系列的运算，然后就发现.....一不小心搞出3000多项数据.....

分析结果倒是出来了，关键这玩意我怎么放进文件里，打出来放附录？看了下打印预览，54页！还是算了吧！！这才一个数据呐！！

还好哥们灵机一动，能不能写一段代码，给这玩意儿搞成函数，一个公式直接出结果？？虽然哥们不会写代码（也看不懂），但哥们也是长期接触科技前沿的小潮人er，当即就想到让AI给我写一个。

说干就干，先随便打开一个AI，提出我的第一个问题，需要写出什么样的代码？开玩笑我作为尊贵的“IT小白 ”，压根连具体的需求都提不出来，所以我的第一个问题是：“我想让你建立一个函数代码来分析土地成本变化对新型房地产产品的性价比的影响，应该怎样向你提出准确的需求？”

果然魔法才能打败魔法，AI自己问自己，左脚踩右脚直接起飞。

按照AI大哥的要求，挨个回答问题的过程中，但是仍然提不出来，不过不急，有什么资料直接甩给它，自己分析，不懂再问我。

把资料发给AI后，经过一顿分析，然后它就懂了？？

直接开始写代码了，不过它可能懂了，但我还没懂啊，Python是什么？在哪下？要钱吗？算了，我只有Excel，要求AI通过Excel实现我的需求，于是我说：

好家伙，还真是手把手教学，连怎么打开软件都教了，还直接开始写代码了。这波我给9分，因为6翻了。

接下来，可以尝试着认真看这些代码了，不懂的地方就直接问，AI会非常耐心的逐一解答。

不懂的地方都问过一遍以后，像这种简单的代码基本能看懂其含义了，发现有不对的地方也直接指出。

经过几次调整，凭我浅薄的学识，看不出啥问题了。不过“实践出真知”，我们把代码放进编辑器里跑一下试试。

报错了不要慌，AI写的，有事情找它

知错能改，善莫大焉，代码终于能跑通了，不过输出结果嘛......仅仅差了365倍而已

接下来仔细检查代码的计算方式，看是哪里出了问题，能正确的跑通第一段代码就成功了80%了，然后再继续压榨AI，不断地提新要求，比如：

最后，所有问题顺利解决，所有需求全部满足，输出最终成果，并要求AI对每段代码做中文注释

看来只要自己有明确的需求和实现需求的逻辑，即使不懂IT，不懂语言，不懂编程也可以在AI的帮助下写出量身定制般代码。

各行各业的AI小白 观众老爷们学会了吗？还有什么不懂的可以评论区留言哦。

最后的最后，完整的代码放在这，全部添加中文注释后，IT小白看懂代码也毫无压力。

要注意：代码中的基础数据经过魔改，基础数据和输出结果不具有任何参考性，切勿相信。

Function PCD(P As Double) As Double    ' 定义固定参数    Const A As Double = 100000 '总建筑面积    Const B As Double = 70000  '可售住宅面积    Const C As Double = 4000   '四项成本    Const D As Double = 0.3    '资金成本的计算系数（30%）    Const E As Double = 0.08   '运营销售成本比例（8%）    Const F As Double = 0.1    '税金比例（10%）    Const Loan As Double = 100000000 '贷款金额（1亿）    ' 计算土地成本    Dim L As Double    L = P * B    ' 计算四项成本    Dim I As Double    I = C * A    ' 计算资金成本    Dim K As Double    K = (L + Loan) * D    ' 计算运营销售成本和税金    Dim O As Double    Dim T As Double    O = (L + I + K) * E    T = (L + I + K + O) * F    ' 计算总成本    Dim totalCost As Double    totalCost = L + I + K + O + T    ' 计算并返回每平方米的总成本    PCD = totalCost / BEnd FunctionFunction PTD(P As Double) As Double    ' 使用PCD函数的结果乘以100再除以85，得到普通套内面积单价    PTD = PCD(P) * 100 / 85End FunctionFunction XCD(P As Double) As Double    ' 定义固定参数    Const A As Double = 100000 '总建筑面积    Const B As Double = 70000  '可售住宅面积    Const C As Double = 4000   '四项成本    Const D As Double = 0.3    '资金成本的计算系数（30%）    Const E As Double = 0.08   '运营销售成本比例（8%）    Const F As Double = 0.1    '税金比例（10%）    Const Loan As Double = 100000000 '贷款金额（1亿）    ' 计算土地成本    Dim L As Double    L = P * B    ' 计算四项成本，这里做了1.3倍的调整    Dim I As Double    I = C * A * 1.3    ' 计算资金成本    Dim K As Double    K = (L + Loan) * D    ' 计算运营销售成本和税金    Dim O As Double    Dim T As Double    O = (L + I + K) * E    T = (L + I + K + O) * F    ' 计算总成本    Dim totalCost As Double    totalCost = L + I + K + O + T    ' 计算并返回每平方米的总成本    XCD = totalCost / BEnd FunctionFunction XTD(P As Double) As Double    ' 使用XCD函数的结果除以1.2，得到新型套内面积单价    XTD = XCD(P) / 1.2End FunctionFunction CDB(P As Double) As String    ' 计算新型与普通的产权面积单价比值，减1得到性价比，乘以100转化为百分比，使用Format函数保留两位小数    Dim ratio As Double    ratio = PCD(P) / XCD(P) - 1    CDB = Format(ratio, "0.00%")End FunctionFunction TDB(P As Double) As String    ' 计算新型与普通的套内面积单价比值，减1得到性价比，乘以100转化为百分比，使用Format函数保留两位小数    Dim ratio As Double    ratio = PTD(P) / XTD(P) - 1    TDB = Format(ratio, "0.00%")End Function