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

[µo°Ý] ¤@Áä¦Û°ÊÁôÂÃ

[µo°Ý] ¤@Áä¦Û°ÊÁôÂÃ

½Ð±Ð¤j®v­Ì
            ¥i§_¥Î¥¨¶°³]©w¬°«ö¦¨ ¡½³sÄò¼Ò«á 7~14¦C¾ã¦C¦Û°ÊÁôÂæb               µ²ªG¦bSheet2¡C    kai~14.rar (17.06 KB)

¥»©«³Ì«á¥Ñ mark15jill ©ó 2012-10-25 14:39 ½s¿è
½Ð±Ð¤j®v­Ì
            ¥i§_¥Î¥¨¶°³]©w¬°«ö¦¨ ¡½³sÄò¼Ò«á 7~14¦C¾ã¦C¦Û°ÊÁôÂæb               µ²ªG¦bShe ...
kai6929 µoªí©ó 2012-10-25 14:29


­Y »Ý 7~ X ¦C(¤£§C©ó7 ¡A ¥i¥Î ¦r¦ê§PÂ_  ÂǦ¹¼W¥[)

            If Left(K, 1) = "¡¼" Then
                .Characters.Text = "¡½³sÄò¼Ò"
                M = False
                Rows("7:14").Select
                Selection.EntireRow.Hidden = True

            Else
                .Characters.Text = "¡¼¤uµ{¼Ò"
                M = True
                Rows("7:14").Select
                Selection.EntireRow.Hidden = False

            End If

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

«z  ·PÁ¤j®vªº¦^ÂÐ ´N¬O³o¼ËÁÂÁ¤F

TOP

«z  ·PÁ¤j®vªº¦^ÂÐ ´N¬O³o¼ËÁÂÁ¤F
kai6929 µoªí©ó 2012-10-25 15:19


§Ú¬O·s¤â~ ¤£¬O¤j®v~ ¤j®v¬O ª©¥D¥L­Ì..
¸Ü»¡ ¨ä¹ê ¨º¨â¦æ §AÀ³¸Ó·|~ ¥u¬OÀ³¸Ó¨S·Q¨ì¦Ó¤w

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

«z  ·PÁ¤j®vªº¦^ÂÐ ´N¬O³o¼Ë  ÁÂÁ¤F

TOP

¦^´_ 5# kai6929
  1. Sub check()
  2.     Dim K As String, M As Boolean
  3.     With ActiveSheet.Shapes(Application.Caller)
  4.         With .TextFrame
  5.             K = .Characters.Text
  6.             If Left(K, 1) = "¡¼" Then
  7.                 .Characters.Text = "¡½³sÄò¼Ò"
  8.                 M = False
  9.             Else
  10.                 .Characters.Text = "¡¼¤uµ{¼Ò"
  11.                 M = True
  12.             End If
  13.             .Characters(1, Len(K) + 1).Font.Size = 30
  14.             .Characters(1, 1).Font.Size = 30
  15.         End With
  16.         .TopLeftCell.Offset(, 1) = M
  17.         .TopLeftCell.Offset(, 2) = IIf(CSng(M) = 0, 0, 1)
  18.     End With
  19.       If Application.CountA(Range("A7:A65536")) > 0 Then Range("A7:A65536").SpecialCells(xlCellTypeConstants).EntireRow.Hidden = M
  20. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁ¤G¦ì¤j®vªº¨ó§U,¦ý³o¤GºØ¤èªk¬Ý°_¨Óªºµ²ªG³£¬O¤@¼Ë,¦ý¤£ª¾³o¤GªÌ¦³¦ó¤£¦P½Ð±Ð¤@¤UHsieh

TOP

¦^´_ 7# kai6929


        
    §Úªº¨º­Ó¤èªk ¬O¥u­­©w   7~14 ¦C

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

·PÁÂ!!·PÁÂ

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD