- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 15
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-12
|
¦^´_ 8# sppk22 - Sub SetStart()
- Dim lRows As Long, lRow As Long
- Dim iI%
-
- lRows = Cells(Rows.Count, 1).End(xlUp).Row
-
- For lRow = 3 To lRows
- With Cells(lRow, 1)
- Select Case .Offset(, 5)
- Case "¦P"
- If Left(.Value, 1) <> "*" Then
- .Value = "*" & .Value
- .Offset(, 3) = .Offset(, 4) * 1.1
- End If
- Case "¥X"
- If Right(.Value, 1) <> "*" Then .Value = .Value & "*"
- End Select
- End With
- Next lRow
- End Sub
½Æ»s¥N½X- Sub ClrStart()
- Dim lRows As Long, lRow As Long
- Dim iI%
-
- lRows = Cells(Rows.Count, 1).End(xlUp).Row
-
- For lRow = 3 To lRows
- With Cells(lRow, 1)
- If Left(.Value, 1) = "*" Then
- .Value = Mid(.Value, 2)
- .Offset(, 3) = ""
- .Offset(, 5) = "" ' Y¤£·Q²M°£ "¥X" »P "¦P" «h§R°£¦¹¦æ
- ElseIf Right(.Value, 1) = "*" Then
- .Value = Left(.Value, Len(.Value) - 1)
- End If
- End With
- Next lRow
- End Sub
½Æ»s¥N½X |
|