Äæ¦ìÅÜ´«

sillykin

¡]¸Ô¦p¡yÀÉ®×»¡©ú¡z¡^¦p¦ó¹B¥Î¦b¦¹µ{¦¡©O?????¡]¤£¤Ó·|¥[¡^;¦pªG¡y¨ú®ø¡z­n«ì´_­ì¨Ó­È
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(, 16)
    Case "³æ¦ì¥DºÞ"
      If Left(.Value, 1) <> "*" Then
        .Value = "*" & .Value

         .Offset(, 14) = .Offset(, 15)
           .Offset(, 3) = .Offset(, 1)
      End If
      
    Case "¤å¦r"
      If Right(.Value, 1) <> "*" Then .Value = .Value & "*"
   
       .Offset(, 14) = .Offset(, 15)
    Case "Á`°È"
            
      .Offset(, 14) = .Offset(, 15) * 1.1
         
   Case ""
            
      .Offset(, 14) = .Offset(, 15)
            
    End Select
   
  End With
Next lRow
      
End Sub

sillykin

¦^´_ 2# luhpro
ÁÂÁ¤j¤jªº¦^ÂÐ
¬O³o­Óµª®×¡D¡D¡D¦ý°õ¦æ²Ä¤G¦¸´N²Ö¥[¡D¡D¯à§_¤£Åý¥L¤@ª½²Ö¥[«¬ºA¡H
¦pªG­n¡y¦^ÂЦ¨­ì¥»«¬ºA¡z.­n¦p¦ó¥h³]©w©O???

sillykin

¦^´_ 3# sillykin


     .Offset(, 2) = Mid(.Value, 2, Len(.Value) - 2) & "(" & .Offset(, 2) & ")"
¦pªG­n³]©w¡y¨ú®ø¡z¤W­zÅܦ^­ì¨Óªº¡y­È¡z...­n¦p¦ó¥h³]©w©O??

sillykin

¨º¦ì¤j¤j¯à§_À°¸Ñ©O????