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

userform¿z¿ïªº°ÝÃD

userform¿z¿ïªº°ÝÃD

¸Ô¦pªí³æ¤º®euserform1..

ªí³æ.rar (7.04 KB)

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2013-8-2 22:42): ½ÐÀˬd§Aªºªþ¥ó¡A¨ÃµLªí³æ¦s¦b

¦^´_ 1# sppk22


    ¨S¦³¤H¦^ÂЧÚ..­ü

TOP

¦^´_ 2# sppk22


    ¤£ª¾¬O§_§Ú°ÝÃD¦³Ãø«×..¯à§_¤j¤j´£­Ó恴¨£

TOP

¦^´_ 1# sppk22
¥ý³æ¯Â´N§A·Q­n§ä *a ©Î a* §Î¦¡¤å¦rªº»Ý¨D´£¨Ñ¤è¦¡:
§A¥i¥H¨Ï¥Î l = Instr(1, Àx¦s®æ, "a")
¦A§PÂ_­Y l = 1 «h¬° a* §Î¦¡
­Y l >1 «h¬° *a §Î¦¡

¦Ü©ó§A­º½g¸Ìªº±Ô­z,
§Ú¬Ý¤£¤ÓÀ´§Aªº»Ý¨D,
¥i§_´£¨Ñ¤@¨Ç½d¨Òµ²ªGµe­±,
¨Ò¦p§A¿é¤J¨Ç¤°»ò¤º®e,
¦Ó¿z¿ï¥Xªºµ²ªG·|Åã¥Ü¦b­þ¸Ì...

TOP

¦^´_ 5# luhpro


    ¨º¥Î¦¨³oºØ¤è¦¡©O???½Ð¤j¤jÀ°¦£..·P®¦

ª««~1.JPG (58.96 KB)

ª««~1.JPG

TOP

¦^´_  luhpro
    ¨º¥Î¦¨³oºØ¤è¦¡©O???½Ð¤j¤jÀ°¦£..·P®¦
sppk22 µoªí©ó 2013-8-6 23:27
  1. Sub nn()
  2.   Dim lRows As Long, lRow As Long
  3.   Dim iI%
  4.   
  5.   lRows = Cells(Rows.Count, 1).End(xlUp).Row
  6.   
  7. For lRow = 3 To lRows
  8.   With Cells(lRow, 1)
  9.     Select Case .Offset(, 5)
  10.     Case "¦P"
  11.       .Value = "*" & .Value
  12.       .Offset(, 3) = .Offset(, 4) * 1.1
  13.     Case "¥X"
  14.       .Value = .Value & "*"
  15.     End Select
  16.   End With
  17. Next lRow
  18. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# luhpro


    ÁÂÁ¤j¤j¡A¤p§Ì´ú¸Õ¤F¤@¤U¡A¦³ÂI°ÝÃD
¦¹µ{¦¡¦pªG°õ¦æ¦h¦¸¡A*·|¥X²{«Ü¦h¦¸¡A
¯à§_¥u¯à¥X²{¤@¦¸©O¡H
¥B²M°£¡§¥X¡¨©Î¡§¦P¡¨¯à§_¦^Âзíªìªº­È(没*¸¹¤Î²M°£*1.1)

TOP

¦^´_ 8# sppk22
  1. Sub SetStart()
  2.   Dim lRows As Long, lRow As Long
  3.   Dim iI%
  4.   
  5.   lRows = Cells(Rows.Count, 1).End(xlUp).Row
  6.   
  7. For lRow = 3 To lRows
  8.   With Cells(lRow, 1)
  9.     Select Case .Offset(, 5)
  10.     Case "¦P"
  11.       If Left(.Value, 1) <> "*" Then
  12.         .Value = "*" & .Value
  13.         .Offset(, 3) = .Offset(, 4) * 1.1
  14.       End If
  15.     Case "¥X"
  16.       If Right(.Value, 1) <> "*" Then .Value = .Value & "*"
  17.     End Select
  18.   End With
  19. Next lRow
  20. End Sub
½Æ»s¥N½X
  1. Sub ClrStart()
  2.   Dim lRows As Long, lRow As Long
  3.   Dim iI%
  4.   
  5.   lRows = Cells(Rows.Count, 1).End(xlUp).Row
  6.   
  7. For lRow = 3 To lRows
  8.   With Cells(lRow, 1)
  9.     If Left(.Value, 1) = "*" Then
  10.         .Value = Mid(.Value, 2)
  11.         .Offset(, 3) = ""
  12.         .Offset(, 5) = "" ' ­Y¤£·Q²M°£ "¥X" »P "¦P" «h§R°£¦¹¦æ
  13.     ElseIf Right(.Value, 1) = "*" Then
  14.       .Value = Left(.Value, Len(.Value) - 1)
  15.     End If
  16.   End With
  17. Next lRow
  18. End Sub
½Æ»s¥N½X

TOP

¦^´_ 9# luhpro


    ·PÁ¤j¤jªº¨ó§U...

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD