总结第一个项目"种粉网"的失败

本文回顾了作者创建种粉网的过程,从构想到技术实现再到最终决定放弃的原因。种粉网旨在解决普通用户在社交媒体上的发声问题,通过独特机制让用户自主积累并使用粉丝资源。虽然项目最终未能继续,但作者从中获得了宝贵的经验教训和技术成长。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

第一个项目“种粉网” www.zhongfans.com 失败了,这里总结下。

这是今年3月份萌生的一个想法,看到新浪微博上大V的传播的速度,看到很多草根发出声音,就得不到转发,于是就想解决草根粉丝传播力度的问题。首先设定了个规则,用户可以在这个平台上主动的增加(抓取)粉丝,但是每天都有个上限;发消息的时候需要选择消耗多少粉丝,把消息发送给他们,这些粉丝就没了,需要重新累积。

完成这个东西,从4月开始学习WEB技术,采用RUBY语言,配合RAILS框架,在6月份成型,又修改了一个月。考虑到之前都没学过WEB方面的东西,每天花的时间大概是2-3个小时(有时候晚上加班太迟就断了),自己对这个速度还算满意。

宣布它失败是因为有个地方发现想错了,首先我想做个传播平台,传播平台意味着你的人要多,人多意味着你要有内容。那么要填充什么内容才能使得和门户网,微博不一样呢?似乎没有。门户网的内容是互联网最早的表现形式,而微博以短消息+名人 使消息变得快速和互动,这是个档次上的提升。也就是说,如果我想做,那要找到另一个档次的内容,并且这个内容还能和种粉网的游戏法则匹配。可惜没想到,这个是放弃之一;之二,东西太大了,虽然对自己的热情和理想化信心满满,但是其他方面,就比如拿人脉来说吧,可怜得可怜。 两个原因下,放弃了。 明显,选择一个偏产品而不是平台的方面,更适合初次的自己。 不过,一番做下来,得到的东西还是蛮多的。

1)定位了自己的职业天赋:
起初对程序感兴趣,是因为有种创造感。我相信这种感觉大多数人类都有,但是他们不知道这个意味着什么,只是觉得很享受。结果来到社会后,我发现程序根本无法主导这个创造感,会导致你有很多想法无法实现(即使想法是垃圾的)。那么程序在这里有两个分歧,要么做一个很牛逼的纯技术。经过分析,我觉得我是没机会了,没环境,没参加过ACM,没进过顶级学府,没机会参与谷歌、阿里巴巴、微软这种顶级公司的创立过程(其实这点最重要). 那怎么办呢? 只好当极客,我自己给极客的定义是,有一定的牛逼技术,并且有创新的产品想法,而且热衷实现出来。我觉得我适合做这种极客,符合自己技术追求,符合自己创造需求,符合一些极端的思想。


2)学到一个大技能:初级完成术
就是当你有一个想法,即使它不是你擅长方面的,也没人督促你,完全是靠兴趣,你还是带着憧憬把它实现完成,再给朋友评价。我以前基本上都是靠嘴遁,这回做出来,是对自己的一个激励。这个是非常重要的,你能体会到,你该怎么去做一件事情,然后去验证想法,最后得到这个东西。有了这次完成的经验,我会接着做第二个,第三个。


3)学到一个小技能:看了几本书,怎么看书
《结网》《引爆点》《定位》
《结网》这本书是讲糗事百科的构成。提到的内容繁多,还是坚持看完了。其实很多内容对我现阶段没什么帮助,比如要怎么更好的画思维导向图,怎么观测数据,还有很多细的东西。所以,把他做为一种提纲先放脑袋里;

《引爆点》《定位》讲的是一种社会规律,受益良多。只要你能先总结中里面规律,然后结合例子,剩下的内容都可以先放着。

总结了一个快速看这类工具书的方法,马上找出你能够验证的,投入练习,发现问题,再回到书里,一定会发现其他知识点,如此迭代。只有不断练习才是对一些知识点和规律的最好锤炼和吸收。


总结完毕,种粉网只是暂时的失败,因为觉得种粉网想表达的一个东西真的很有趣,大家每天上线阅读下信息,积累粉丝,需要的时候消耗粉丝发出自己的声音。避免依赖大V,传统媒体的喉舌。下一个要做的东西也已经构思好了,
内容概要:文章基于4A架构(业务架构、应用架构、数据架构、技术架构),对SAP的成本中心和利润中心进行了详细对比分析。业务架构上,成本中心是成本控制的责任单元,负责成本归集与控制,而利润中心是利润创造的独立实体,负责收入、成本和利润的核算。应用架构方面,两者都依托于SAP的CO模块,但功能有所区分,如成本中心侧重于成本要素归集和预算管理,利润中心则关注内部交易核算和获利能力分析。数据架构中,成本中心与利润中心存在多对一的关系,交易数据通过成本归集、分摊和利润计算流程联动。技术架构依赖SAP S/4HANA的内存计算和ABAP技术,支持实时核算与跨系统集成。总结来看,成本中心和利润中心在4A架构下相互关联,共同为企业提供精细化管理和决策支持。 适合人群:从事企业财务管理、成本控制或利润核算的专业人员,以及对SAP系统有一定了解的企业信息化管理人员。 使用场景及目标:①帮助企业理解成本中心和利润中心在4A架构下的运作机制;②指导企业在实施SAP系统时合理配置成本中心和利润中心,优化业务流程;③提升企业对成本和利润的精细化管理水平,支持业务决策。 其他说明:文章不仅阐述了理论概念,还提供了具体的应用场景和技术实现方式,有助于读者全面理解并应用于实际工作中。
<think>好的,我现在需要帮用户解决一个Excel VBA宏的问题。用户的需求是根据status列的内容以及日期和时间列与当前时间的比较来改变行的背景色。具体来说,当status是ongoing时,如果对应的日期和时间在当前时间的18到48小时之前,填充色;超过48小时则填充黄色。 首先,我要确认用户的数据结构。用户提到有state列,但后面又说是status列,可能这里需要确认列名是否正确。不过根据描述,列名应该是status,内容为ongoing。然后有年月日列和时间列,格式分别是2025/2/5和14:28:30。需要将这两列合并成完整的日期时间,再与当前时间比较。 接下来,考虑如何在VBA中处理。可能需要遍历每一行,检查status是否为ongoing。如果是,就合并日期和时间,计算与现在的时间差。然后根据时间差的范围设置背景色。 需要注意的几个点:日期和时间列的格式是否正确,合并后的日期时间是否正确转换。例如,年月日列是文本还是日期格式?时间列是否也是时间格式?在VBA中,可能需要使用CDate函数将字符串转换为日期类型。 然后计算时间差,用Now函数获取当前时间,减去合并后的日期时间,得到小时数。如果时间差在18到48小时之间,填充色;超过48小时,填充黄色。注意时间差可能是负数,如果日期时间在未来,这时候可能不需要处理,所以需要判断是否大于当前时间。 另外,设置单元格背景色需要使用Interior.Color属性,色可能是RGB(255, 192, 203),黄色是RGB(255, 255, 0)。需要确保没有其他条件干扰,可能需要先清除原有颜色,或者按条件顺序设置。 还有循环的范围,需要确定数据从哪一行开始,比如假设数据从第2行开始,到最后一个有数据的行。可以用UsedRange或者查找最后一列的方法来确定行数。 可能的错误处理:比如日期或时间列有空值,或者格式不正确,导致转换失败,这时候需要跳过处理或者给出错误提示。 最后,将宏绑定到一个按钮或者快捷键,方便用户触发。同时测试不同情况,确保条件判断正确,颜色填充准确。 总结步骤: 1. 遍历每一行数据。 2. 检查status是否为ongoing。 3. 合并日期和时间列,转换为日期类型。 4. 计算与当前时间的时间差。 5. 根据时间差设置背景色。 6. 处理可能的错误,如无效日期。</think>以下是根据需求编写的Excel VBA宏代码及分步说明: ```vba Sub HighlightRowsBasedOnTime() Dim ws As Worksheet Dim lastRow As Long Dim i As Long Dim statusCol As Long, dateCol As Long, timeCol As Long Dim targetTime As Date, timeDiff As Double '设置工作表对象 Set ws = ThisWorkbook.Worksheets("Sheet1") '改为你的工作表名 '获取列号(根据实际列名修改) statusCol = ws.Rows(1).Find("status", LookAt:=xlWhole).Column dateCol = ws.Rows(1).Find("年月日", LookAt:=xlWhole).Column timeCol = ws.Rows(1).Find("时间", LookAt:=xlWhole).Column '获取最后一行 lastRow = ws.Cells(ws.Rows.Count, statusCol).End(xlUp).Row Application.ScreenUpdating = False For i = 2 To lastRow '假设标题在第1行 If ws.Cells(i, statusCol).Value = "ongoing" Then '合并日期时间 If IsDate(ws.Cells(i, dateCol).Value) And IsDate(ws.Cells(i, timeCol).Value) Then targetTime = CDate(ws.Cells(i, dateCol).Value) + CDate(ws.Cells(i, timeCol).Value) '计算时间差(小时) timeDiff = DateDiff("h", targetTime, Now()) '清除原有颜色 ws.Rows(i).Interior.Pattern = xlNone '设置颜色条件 If timeDiff > 48 Then ws.Rows(i).Interior.Color = RGB(255, 255, 0) '黄色 ElseIf timeDiff >= 18 Then ws.Rows(i).Interior.Color = RGB(255, 192, 203) '色 End If End If End If Next i Application.ScreenUpdating = True End Sub ``` **操作步骤说明:** 1. 打开Excel开发工具(按 `Alt+F11`) 2. 插入新模块(右键项目 → 插入 → 模块) 3. 粘贴上述代码 4. 修改代码中的工作表名称(默认"Sheet1") 5. 按 `F5` 运行宏 **代码关键点解释:** 1. `Find` 方法自动定位列号,确保列名匹配 2. `DateDiff("h",...,...)` 计算小时差 3. 颜色设置使用标准RGB值: - 色:`RGB(255, 192, 203)` - 黄色:`RGB(255, 255, 0)` 4. 自动跳过无效日期格式数据 5. 先清除原有颜色再设置新颜色 **注意事项:** 1. 确保日期列和时间列的数据有效性 2. 日期时间合并使用`CDate`转换 3. 建议设置自动触发(可通过Worksheet_Change事件) 4. 时间计算基于本地计算机时钟 **扩展建议:** 1. 可添加条件格式自动更新功能 2. 可自定义颜色阈值参数 3. 可添加错误处理(On Error语句) 4. 可优化列定位逻辑为动态匹配
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值