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

😂😂无私奉献

外行人不会编译

@熙熙爸比 利好国产软件！

@蓝猫酱 代码好像还没写完，c8电脑没有存储空间了，所以，周一买啥知道了。。。

如何参加吧里的实盘比赛，有券商限制吗

周末好好休息，熙爸

老大，盘中富贵，盛和实在拿不住了也割了，通达周一有修复预期吗，

笑死，熙爸直接代码掏出来，把行外的人都看傻了

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

哈哈，今天凑合当冰点看吧，活跃资金永不休眠，总有杀不死的小强。