八大癌症“免死金牌”
[
2012/05/23 23:18 | by 吕进 | Via 本站原创 ]
2012/05/23 23:18 | by 吕进 | Via 本站原创 ]
1、胃癌“免死金牌”——大蒜
2、肝癌“免死金牌”——蘑菇
3、胰腺癌“免死金牌”——菜花
4、肺癌“免死金牌”——菠菜
5、肠癌“免死金牌”——茭白
6、乳腺癌免死金牌——海带
7、皮肤癌“免死金牌”——芦笋
8、宫颈癌“免死金牌”——黄豆
2、肝癌“免死金牌”——蘑菇
3、胰腺癌“免死金牌”——菜花
4、肺癌“免死金牌”——菠菜
5、肠癌“免死金牌”——茭白
6、乳腺癌免死金牌——海带
7、皮肤癌“免死金牌”——芦笋
8、宫颈癌“免死金牌”——黄豆
免费下载《细节绝对成败》
[ 2012/04/04 14:49 | by 白燕湾 | Via 本站原创 ]
2012/04/04 14:49 | by 白燕湾 | Via 本站原创 ]
下载文件
电子书《职业经理人素质训练教程》
[ 2012/03/31 12:18 | by 吕进 | Via 本站原创 ]
2012/03/31 12:18 | by 吕进 | Via 本站原创 ]
破译加密大小锅盖卫星 收看精彩电视
[ 2012/01/12 16:12 | by 白燕湾 | Via 本站原创 ]
2012/01/12 16:12 | by 白燕湾 | Via 本站原创 ]
家里安装卫星天线（俗称大锅）的朋友们，你们还在为不能收到中央五，中央六等精品频道而烦恼吗？还为那些加密节目而“望台兴叹”吗？现在这种愿望完全可以实现了！只要动动你的手指，按几下遥控器就大功告成了！
步骤如下：先在菜单中找到“转发器设置”再按“新增转发器”将“下行频率”设置为03881“符号率”设置为27500，“极性”变为水平即可收到中央五六等。
还想要更多频道吗？将下行频率设置为04061，符号率变为27500，极性变为垂直即可收到“央视精品”，“风云音乐”等频道，同样精彩！
更多频道请接着往下看。下面，我按“下行频率”“符号率”“极性”的顺序分别告诉大家：03981，27499，垂直；04021，27499，垂直；04141，27500，垂直；03921，27500，水平
注意：我说的是中星六卫星。
敬告：不同品牌的大锅不一定按照我的步骤，希望大家能会变通（我还见过一种，如果你家遥控器最下面有四个彩色键，按红色的就可以找到）有的朋友担心会失去原有的频道，我会告诉你，这只能添加不能减少！
Excel：按颜色求单元格的和（或个数）
[ 2011/02/09 20:54 | by 吕进 | Via 本站原创 ]
2011/02/09 20:54 | by 吕进 | Via 本站原创 ]
1、打开Excel；
2、按组合键 Alt+F11；
3、在VBAProject－模块1中
输入下列函数代码：
5、保存并返回Excel
4、在相应单元格键入公式：=Countcolor(B1,A1:A10) 求个数
=sumcolor(B1,A1:A10) 求带颜色的单元格的和
5、保存
如果再看不明白，我也没办法了。
2、按组合键 Alt+F11；
3、在VBAProject－模块1中
输入下列函数代码：
Function Countcolor(col As Range, countrange As Range)
Dim icell As Range
Application.Volatile
For Each icell In countrange
If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
Countcolor = Countcolor + 1
End If
Next icell
End Function
Function Sumcolor(col As Range, sumrange As Range)
Dim icell As Range
Application.Volatile
For Each icell In sumrange
If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
Sumcolor = Application.Sum(icell) + Sumcolor
End If
Next icell
End Function
Dim icell As Range
Application.Volatile
For Each icell In countrange
If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
Countcolor = Countcolor + 1
End If
Next icell
End Function
Function Sumcolor(col As Range, sumrange As Range)
Dim icell As Range
Application.Volatile
For Each icell In sumrange
If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
Sumcolor = Application.Sum(icell) + Sumcolor
End If
Next icell
End Function
5、保存并返回Excel
4、在相应单元格键入公式：=Countcolor(B1,A1:A10) 求个数
=sumcolor(B1,A1:A10) 求带颜色的单元格的和
5、保存
如果再看不明白，我也没办法了。
