ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

Äæ¦ìÅÜ´«

Äæ¦ìÅÜ´«

¥»©«³Ì«á¥Ñ sillykin ©ó 2014-12-31 13:16 ½s¿è

¡]¸Ô¦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

»¡©úÀÉ.zip (11.44 KB)

Âà´«

¡]¸Ô¦p¡yÀÉ®×»¡©ú¡z¡^¦p¦ó¹B¥Î¦b¦¹µ{¦¡©O?????¡]¤£¤Ó·|¥[¡^;¦pªG¡y¨ú®ø¡z­n«ì´_­ì¨Ó­È
Dim lRows As Long, ...
sillykin µoªí©ó 2014-12-31 13:14

¬O³o¼Ë¶Ü?

Case "³æ¦ì¥DºÞ" °Ï¶ô¤¤ :
      .Offset(, 3) = .Offset(, 1)
§ï¦¨
     .Offset(, 2) = Mid(.Value, 2, Len(.Value) - 2) & "(" & .Offset(, 2) & ")"

µù :
Offset ¤¤ªº¦ì²¾¼Æ¦r­n¦©±¼¦Û¨­,
§Y¦Û¨­¥kÃ䨺Äæ¬O .Offset( ,1) ¦Ó¤£¬O .Offset( ,2)

TOP

¦^´_ 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???

TOP

¦^´_ 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??

TOP

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

TOP

§AÁÙ¬O´£¨Ñ§¹¾ãªº³øªí§a

    Select Case .Offset(, 16)
    Case "³æ¦ì¥DºÞ"
    Case "Á`°È"
    Case "¤å¦r"
....

.Offset(, 16) ¨º¤@¦æ®Ú¥»§ä¤£¨ì "³æ¦ì¥DºÞ", "Á`°È", "¤å¦r"...

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD