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

[µo°Ý] ½Ð°Ý­n¦p¦ó §ï³oµ{¦¡½X©O?(¤£¦Pworksheets¶¡ªº³]©w)(¤w¸Ñ¨M)

[µo°Ý] ½Ð°Ý­n¦p¦ó §ï³oµ{¦¡½X©O?(¤£¦Pworksheets¶¡ªº³]©w)(¤w¸Ñ¨M)

¥»©«³Ì«á¥Ñ icestormer ©ó 2012-5-3 12:31 ½s¿è

Sub ±N²Ä30µ§¤W¦â()'¥D­n¬O¦b¤u§@ªí(worksheets("¥D­¶")¤U ¹ï °Æ­¶ ¶i¦æ ²Ä30µ§¤W¦âªº°Ê§@
Dim °Æ­¶ As Worksheet
Set °Æ­¶ = Worksheets("¬d¸ß")


With °Æ­¶

        ³Ì«á¤@µ§¦ì¸m = .Cells(65536, 115).End(xlUp).Row

        .Range(.Cells(³Ì«á¤@µ§¦ì¸m, 115), .Cells(³Ì«á¤@µ§¦ì¸m, 115).End(xlToRight))'.Select '<<°ÝÃD¥X¦b³o¸Ì

                                                                              '¨Sªk¦b ¥D­¶ ¤U ¶i¦æ ¹ï °Æ­¶ ªº¤W¦â°Ê§@ ¦n¹³¥d¦b ¥Îselect  ¥²»Ý¥ý¤Á´«¨ì °Æ­¶¥h¤~¤£·|¥X¿ù
                                                                              '¤£ª¾¦³¨S¦³¨ä¥¦¤èªk¥i¦b ¤£¥Î¤Á´«±¡ªp¤U ¥þ¿ï²Ä30¦æ«á¤W¦â?ÁÙ¬O¥²­n¤Á´«¤~¦æ¤F?
        
        
            With Selection.Interior
                .ColorIndex = 45
               
            End With
        
End With

¦^´_ 1# icestormer


    ¤£­nSelectª½±µ¥Î¡A¸Õ¸Õ¬Ý
  1.   .Range(.Cells(³Ì«á¤@µ§¦ì¸m, 115), .Cells(³Ì«á¤@µ§¦ì¸m, 115).End(xlToRight)).Interior.ColorIndex = 45
½Æ»s¥N½X
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 2# kevin681024


  ¦n ·PÁ§A ±ß¨Ç¸Õ¬Ý¬Ý§Aªº¤èªk^^

¥t¥~§Ú·Q½Ð°Ý¤@­Ó°ÝÃD ,¦p¤U¹Ï ¬O¤@­Ó¦Û­qªí³æ  ¬O¥ÎTEXTBOX1
§Ú¦³¼g¤@­Ó°}¦C ¬O³æ¯Â¼Æ¦r §Ú¬O·Q§â°}¦C¤ºªº¼Æ¦r ±Æ§Ç¦p¤U ¨ÃÅã¥Ü¦b TextBox1(¤£ª¾¥Î³o­Ó¦nÁÙ¬O¦³¨ä¥¦§ó¦nªºªí¥Ü¤èªk)
¦ý§Ú¤£ª¾­n«ç¤U¤â¼g.(¦pªG¬O¼g¦bEXCELÀx¦s®æ¤W§Ú´N·|..),¥i§_±Ð§Ú¤@¤U
PS:§Ú¦³³]¥¦¬°MultiLine=true

10
9
8
7
6
5



TOP

¦^´_ 3# icestormer


    §Ú·|¥Î³o¼Ë¤lªº¼gªk¡A¦p¤U
  1. Dim MyArr(), Str As String
  2. MyArr = Array(10,9,8,7,6,5)
  3. For i = 0 To UBound(MyArr)
  4.     Str = Str & MyArr(i) & vbNewLine
  5. Next
  6. TextBox1.Text = Str
½Æ»s¥N½X
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 4# kevin681024


   ·PÁ¤F ¥i¦æ §Ú¦b¨Ó§â¥¦§ï¤@¤U´N§¹¥þ¦X¥Î¤F ÁÂÁ§A

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD