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

¦³Ãö´¡¤J¹Ï¤ùªº°ÝÃD

¦³Ãö´¡¤J¹Ï¤ùªº°ÝÃD

¦U¦ì¥ý¶i¤j®a¦n¡I
        ¤£¦n·N«ä¡I¤p§Ì¤S¨Ó¥´ÂZ¤F¡C¤p§Ìªº°ÝÃD¬O¡G§Ú¦b¬¡­¶Ã¯¸Ì´¡¤J«Ü¦h±i¦P¼Ëªº¹Ï¤ù¡]¾Ç®Õªº®ÕÀ²¡^¡A¨C¹j´X¦æ´N·|¥X²{¤@±i¡A¦ý¬O¦b»yªk¸Ì¦³ÁôÂææ¦Cªº»yªk¡G
    .Cells.Rows.Hidden = False
    .Range("a" & 1 + 26 * k, .Range("a1041")).EntireRow.Hidden = True
    .Range("a1041", Range("a1041").End(xlDown)).EntireRow.Hidden = True
°ÝÃD¦b©ó¡A¦³¹Ï¤ùªº¦æ¦C³QÁôÂáA¤@¥¹¤S³Q¨ú®øÁôÂ䧫á¡A´N·|µo²{¹Ï¤ù³QÀ£ÁY¤F¡C¤£ª¾³o­Ó°ÝÃD¦p¦ó¸Ñ¨M©O¡H

Àɮצb¦¹¡A¬O³Ì¥kÃä¡u¦¨ÁZ³æ¡v³o­Ó¬¡­¶Ã¯¡A¦A¦¸·PÁ¡I
http://www.funp.net/653900

TOP

¤£¦n·N«ä¡I¤p§Ì¤w¸g¦bºô¸ô¤W©M®Ñ¤W§ä¨ì¸Ñ¨Mªº¤èªk¡C´N¬O¥ý¤£­n½Æ»s¹Ï¤ù¡Cµ¥¨ìÁôÂÃÀx¦s®æªº»yªk¶]§¹¡C¦A¨Ó¶]½Æ»s¹Ï¤ùªº»yªk¡C³o¼Ë¹Ï¤ù´N¤£·|³QÀ£ÁY¤F¡C

TOP

¦^´_ 1# skyutm
¸Õ¸Õ¬Ý


TOP

¦^´_ 4# GBKEE
­ü§r¡I§Ú«ç»òªá¶O³o»ò¦h®É¶¡¦b³o¨à¡A­ì¨Ó¥u­n§â¿ï¶µ§ï¤@§ï´N¦n¤F¡A®`§Ú¼g¤F¤@°ï»yªk¡C¤£¹L§Ú¤]±q¤¤¾Ç¤F¤@¨Ç¡C
¹³³o¼Ë¥ý§R°£¹Ï¤ù¡A¥H§K²Ä¤G¦¸¶}¬¡­¶Ã¯´N·|¥X²{¹Ï¤ù¤j°ïÅ|
    ActiveSheet.Shapes.SelectAll
    Selection.Delete
¦A¨Ó´N¬O¦b¥t¤@­Ó¬¡­¶Ã¯¶K¹Ï¡A±q¨º¨à½Æ»s¹L¨Ó
     Sheets("sheet1").Shapes(1).Copy
     ActiveSheet.Paste Destination:=Sheets("¦¨ÁZ³æ").Range("a" & 1 + 26 * j)

TOP

¦^´_ 4# GBKEE
ª©¥D¤j¤j¡A¯u¬O·PÁ¡A¤£¹L¥t¥~¤p§Ì¤S¦³¤@¨Æ¬Û¨D¡A´N¬O§Ú·QÀç³y¦L³¹ªº·Pı¡C
1.­ì¥»¬O§Q¥Î¤å¦rÃÀ³N®v¡A¨Ò¦p¿é¤J ¤ý¤j©ú¡A´N·|¥X²{
¤ý¤j
©ú¦L
¦ý¬O¤å¦rÃÀ³N®vµLªk±j­¢´«¦æ¡A©Ò¥H°µ½}¡I¤å¦rÃÀ³N®v¥u¯à¥X²{  ¤ý¤j©ú¦L¡A­n´«¦æ­n¤â°Ê¥h½Õ¾ã®Ø®Ø¤j¤p
2²Ä¤G§Ú¬O¥ÎÀx¦s®æ¤j¤p»P¦Û°Ê´«¦æ¨Ó³]©w¡A¦ý¬O¨ì¤F­n¿é¥XªºÀx¦s®æ¡A¤S·|¦Û¤v§ïÅܮ榡¡A©Ò¥HÁÙ¦b¥t·Q¿ìªk¡A¥i§_¥H°ª²`ªº¥\¤O¬Û§U¡H.

TOP

¦^´_ 6# skyutm

¼Ò¥é¦L³¹?

   
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-10-6 08:19 ½s¿è

¦^´_ 6# skyutm
¬O³o¼Ë¶Ü?
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Sh As Worksheet, ·Ó¤ù¦ì¸m As Range
  4.     Set Sh = ActiveSheet
  5.     Set ·Ó¤ù¦ì¸m = Sh.[d5]
  6.     With Sh
  7.         .Pictures.Delete                                    '§R°£¤u§@ªí¥þ³¡¹Ï¤ù(¦pÁÙ¦³¨ä¾l¼Ë¦¡ªº Shape ·|¤@¨Ö§R°£)
  8.         With .[IV1]
  9.             .FormulaR1C1 = "§õ¤j" & Chr(10) & "©ú¦L"
  10.             .Font.Size = 14
  11.             .Font.ColorIndex = 3
  12.             .Font.Name = "µØ±d¥j¦LÅé(P)"                    '­×§ï§APC¤Wªº¦rÅé
  13.             .HorizontalAlignment = xlCenter
  14.             .VerticalAlignment = xlCenter
  15.             .WrapText = True
  16.             .MergeCells = False
  17.             .Copy
  18.         End With
  19.         With .Pictures.Paste
  20.             .Placement = xlMoveAndSize
  21.             .PrintObject = True
  22.             .Top = ·Ó¤ù¦ì¸m.Top                             '¹Ï¤ù:³»ºÝ¦ì¸m
  23.             .Left = ·Ó¤ù¦ì¸m.Left                           '¹Ï¤ù:¥ªÃä¦ì¸m
  24.             .ShapeRange.Fill.Visible = msoTrue              '¹Ï¤ù­I´º Åã¥Ü
  25.            ' .ShapeRange.Fill.ForeColor.SchemeColor = 41    '­I´ºÃC¦â
  26.              .ShapeRange.Line.Visible = msoTrue             '¹Ï¤ùÃä®Ø Åã¥Ü
  27.             .ShapeRange.Line.Weight = 0.75                  'Ãä®Ø.«p«×
  28.           '  .ShapeRange.Line.Visible = msoTrue
  29.             .ShapeRange.Line.ForeColor.SchemeColor = 10     '¹Ï¤ùÃä®Ø.ÃC¦â
  30.          '   .ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
  31.         End With
  32.         .[IV1] = ""
  33.     End With
  34. End Sub
½Æ»s¥N½X

TOP

¦^´_ 8# GBKEE
«z«¢«¢¡I²×©óÅý§Ú¦³¾÷·|¡u¯Zªù§Ë©ò¡v°Õ¡C
¤p§Ì¤£¤~¡A¦ý¬OÅý§Ú§ä¨ì¤Fmid¨ç¼Æ¡A§Ú§Q¥Îmid±N©m¦W¦r¦ê¤À³Î¡C©Ò¥H´N¥[¤F¤@¨Ç»yªk¡G
Option Explicit
Sub Worksheet_Activate()
    Dim a, b, c As String, Sh As Worksheet, Pr As Range
    a = Sheets("°ò¥»³]©w").Range("i5").Value  '¤w¿é¤Jªº©m¦WÄæ
    b = Mid(a, 1, 2)    '¤À³Î©m¦W
    c = Mid(a, 3, 1)    '¤À³Î©m¦W
    Set Sh = Sheets("¦L³¹")
    Set Pr = Sh.[b1]
    With Sh
        With .[a10]
             .FormulaR1C1 = b & Chr(10) & c & "¦L"      '§â©m¦W«e¨â¦r©M³Ì«á¤@¦r¥[¤W¦L±j­¢´«¦æ
             .Font.Size = 15
             .Font.ColorIndex = 3
             .Font.Name = "µØ±d¥j¦LÅé(P)"
             .HorizontalAlignment = xlCenter
             .VerticalAlignment = xlCenter
             .WrapText = True
             .MergeCells = False
             .Copy
        End With
        With .Pictures.Paste
             .Placement = xlMoveAndSize
             .PrintObject = True
             .Top = Pr.Top
             .Left = Pr.Left
             .ShapeRange.Fill.Visible = msoFalse
             .ShapeRange.Line.Visible = msoFalse
             .ShapeRange.Line.Weight = 1
             .ShapeRange.Line.ForeColor.SchemeColor = 10
             .Select
        End With
        .[a10] = ""
    End With
End Sub

TOP

¤£¹LÁÙ¬O­n·PÁ¶W¼ö¤ßªº¨â¦ìª©¤j¡A³o¯u¬O¨ä¥L½×¾ÂµLªk¤ñÀÀªº¡I

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD