中国稀土，攻守易型的核心法宝！

兄弟们这篇帖子写一般电脑坏了，手机重新码字写的，质量估计一般，眼睛实在受不了，大家担待着看😂😂

合肥也炸了，弱转强？我杀的就是弱转强！！

没有，新凯来目前就是至纯，新莱应材，利和兴，凯美比较有辨识度

通富微电这个玩意奔跌停了你敢信。。。

创业板跌超4个点，市场还没出现明显恐慌，这不是什么好信号，说明还没杀够！

预期不高，充电桩竞价就投降了，今天负反馈最猛的就是这个方向

Option Explicit[淘股吧]

Sub Emotion()
  Dim tempValue As Long
  Dim totalValue As Long
  Dim i As Integer
  Dim t As Integer

  ThisWorkbook.Sheets("Main").Select
  t = Range("C65536").End(xlUp).Row
  totalValue = 0
  For i = 2 To t

‘  If Cells(i, 3).Value ＞ 1 Then
‘  tempValue = 30
‘  ElseIf Cells(i, 3).Value ＞ 0 And Cells(i, 3).Value = -1 Then
‘  tempValue = -20
‘  ElseIf Cells(i, 3).Value  1 Then
‘  tempValue = 30
‘  ElseIf Cells(i, 5).Value ＞ 0 And Cells(i, 5).Value = -1 Then
‘  tempValue = -20
‘  ElseIf Cells(i, 5).Value  6000 Then
‘  tempValue = 10
‘  ElseIf Cells(i, 6).Value ＞ 5000 And Cells(i, 5).Value  0 Then
‘  tempValue = 15
‘  ElseIf Cells(i, 7).Value  4500 Then
‘  tempValue = 20
‘  ElseIf Cells(i, 9).Value ＞ 2500 And Cells(i, 9).Value  1000 And Cells(i, 9).Value = 700 Then
‘  tempValue = -10
‘  ElseIf Cells(i, 9).Value  0 Then
  tempValue = Cells(i, 8).Value * 1
  End If
  totalValue = totalValue + tempValue ‘check shang zhang jia shu

‘  If Cells(i, 10).Value ＞ 4500 Then
‘  tempValue = -20
‘  ElseIf Cells(i, 10).Value ＞ 2500 And Cells(i, 9).Value  1000 And Cells(i, 9).Value = 700 Then
‘  tempValue = 10
‘  ElseIf Cells(i, 10).Value  0 Then
  tempValue = Cells(i, 10).Value * 10
  totalValue = totalValue + tempValue ‘check jingjia zhang ting jia shu
  End If

  If Cells(i, 11).Value ＞ 0 Then
  tempValue = Cells(i, 11).Value * -100
  totalValue = totalValue + tempValue ‘check jingjia die ting jia shu
  End If

  If Cells(i, 14).Value ＞ 0 Then
  tempValue = Cells(i, 14).Value * 20
  End If
  totalValue = totalValue + tempValue ‘check zhang ting 20cm

  If Cells(i, 15).Value ＞ 0 Then
  tempValue = Cells(i, 15).Value * 10
  End If
  totalValue = totalValue + tempValue ‘check zhang ting 10cm

  If Cells(i, 13).Value = 0 Then
  tempValue = 500
  Else
  tempValue = Cells(i, 13).Value * -100
  End If
  totalValue = totalValue + tempValue ‘check die ting

  If Cells(i, 24).Value ＞ 0 Then
  tempValue = Cells(i, 24).Value * 10
  End If
  totalValue = totalValue + tempValue ‘check lian ban jia shu

  If Cells(i, 25).Value ＞ 0 Then
  tempValue = Cells(i, 25).Value * 10
  End If

  totalValue = totalValue + tempValue ‘check zui gao ban

  Cells(i, 28).Value = totalValue
  totalValue = 0
  Next i


‘  Cells(i, 27).Value = totalValue
End Sub

兄弟们，明天思路和推演以及看盘要点发布了，大家注意查收，重点还是看量，目前市场就是混沌期无主线，短线很难做，消息刺激的轮动也没持续性，只有今天这存储明天看看能不能续强有个双头或者二波预期？另一个就是贵金属实在刹不住车，即使不做也要看看市场怎么演绎

不错，这些风险比较大的博弈性我现在比较慎重，不敢乱分享，哈哈

有你说的这个原因，天际要PK华建，合肥，安泰，甚至山子，抱团之间会互相争夺流动性