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

¶ñº¡

¶ñº¡

¦U¦ì«e½ú§A­Ì¦n!
¡@¡@      «e½ú!°ÝÃD¦pªþÀÉ®×»¡©ú¡@
          ¡@½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

Leov8.rar (9.95 KB)

¦^´_ 1# myleoyes
  1. Sub ¶ñº¡()
  2.     Dim E&, i&
  3.     E = Cells(ActiveCell.Row, 1).End(xlDown).Row
  4. Again:
  5.       ZZ = Application.InputBox("½Ð¿é¤J¦C¼Æ", "½Ð¿é¤J¶ñº¡¶¡¹j¦C¼Æ", 10, Type:=2)
  6.       If ZZ <= 0 Or ZZ = "" Then
  7.         MsgBox "¶¡¹j¦C¼Æ¤£±o¤p©ó¢°¦C¡I¡I¡I", , "¦C¼Æ¿ù»~½Ð­«·s¿é¤J ¡I¡I"
  8.         GoTo Again
  9.       End If
  10.       Range("A1") = ZZ
  11.     For i = ActiveCell.Row To E Step ZZ
  12.         With Cells(i, 2).Resize(, 20).Interior
  13.             .Pattern = xlSolid
  14.             .PatternColorIndex = xlAutomatic
  15.             ' .ThemeColor = xlThemeColorAccent3
  16.             ' .TintAndShade = 0.799981688894314
  17.             ' .PatternTintAndShade = 0
  18.             '2003 ¨S¦³³o¨ÇÄÝ©Ê
  19.         End With
  20.     Next
  21. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!¤S³Â·Ð§A...ÁÂÁ¦A¤T!!

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD