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

[µo°Ý] ½Ð¦U¦ì¤j¤jÀ°¦£!

[µo°Ý] ½Ð¦U¦ì¤j¤jÀ°¦£!

¤p§Ì¥H¿ý»s¥¨¶°ªº¤è¦¡±N­ì©lÀɤ¤¤§¬Y¨ÇÄæ¦ì
¿ï©w¯S©wªºÀx¦s®æ¼Æ¥Ø¤§«á
¶K¨ìA1¤u§@ªíªº¯S©wÀx¦s®æ¤¤

¦ý¬O¦]¬°¨C¦¸©Ò¿ï©wªº¦C¼Æ¤£¤@©w¤@¼Ë
©Ò¥H·Q½Ð±Ð¦U¦ì¤j¤j
¯à§_¦bSheet1¤¤ª½±µ³]©w§Ú©Ò­n¿ï¨ú­ì©lÀɪº¦C¼Æ(Ä檺³¡¤À³£©T©w)
¦Ó§Ú©Ò³]©wªº¼Æ­È¯àª½±µ¼vÅT¥¨¶°¸Ì­±ªºµ{¦¡½X
¶i¦Ó¨Ï¥¨¶°¯à°÷½Æ»s§Ú©Ò·Q­nªºÀx¦s®æ¼Æ¥Ø¨ìA1ªí®æ¤¤

¸Ô²Ó±¡§Î¦pªþ¥ó©Ò­z

·PÁ¦U¦ì¤j¤jÀ°¦£!

TEST.rar (76.69 KB)

TEST

¤p§Ì³o´X¤Ñªá¤F¤@¨Ç®É¶¡¥hÆp¬ã¤j¤jµ¹ªººô¯¸
Á¿¸Ñªº¤è¦¡ªº½TÅý¤H¤ñ¸û©öÀ´
Á`¤ñ¦b®Ñ§½¤@¥»¤@¥»ªºÂ½
«oÁ٧䤣¨ì¾A¦X¦Û¤vªº®Ñ

·PÁ¤j¤j

TOP

¦P·N¼Ó¤W
ªì¾Çvba®É¤]¶R¹L®Ñ
¤£¹L¨S°ò¦¤]¬Ý¤£¤U¥h
­n¥Î®É½¹M¤F¤]§ä¤£¨ì¦X¥Îªº½d¨Ò
ª½¨ì²{¦b¨º¥»®ÑÁÙ¬O·sªº

TOP

¦^´_ 5# koiiven


    ¥i¥H¥ý¤£¶R®Ñ
   ¤¤¥x¬ì§Þ¤j¾Çªº¨p©Ð±Ð®v¼Æ¦ì¾Ç²ß¨t²Î ¬Ý¤@¬Ý
   ¹ï§A¦b¾ÇVBA·|©ÒÀ°§U
   http://estudy.ctust.edu.tw/estudy/html/excel2003vba.html

    µ¥¬Ý§¹«á ¦A¥h®Ñ§½¶R®Ñ ¬Ý­þ¨ÇªF¦è¬O¤W­±¨S¦³ªº¦A¶R
   
   ³Ì«á®Ñ¬O¦ººw­ò~ ¦³°ÝÃD¥i¥Hª¦ª¦¤å~ °Ý°ÝÃD~ ³o¼Ë¤~¯à¤F¸Ñ§O¤Hªº·Qªk»P¼gªk~
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

·PÁÂhugh0620¤j¤jªº¦^µª
µ{¦¡°õ¦æ³£OK

ÁÂÁ¤j¤jªº¸gÅç
¤p§Ì­è±µÄ²VBA
ı±o¯uªº«Ü¦³½ì
¤]¬O·Q­n¥h¶R®Ñ¨Ó¤F¸ÑVBAªº°ò¥»Æ[©À
±q³Ì°ò¥»ªº¶}©l¾Ç°_

·PÁ¤j¤jªº«jÀy

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2011-3-11 13:37 ½s¿è

¦^´_ 3# koiiven


    Q1:¤p§Ì¦³¸Õ¹LRange("B & j:D" & k).Select
            ©MRange("B:D"  & j & k).Select¦ý¦n¹³³£¤£¦æ
   A1: ¼gªk¿ù»~  (§Ú¥H«e¤]¦³³o¼Ëªº¿ù»~,¦h½m²ß+µ§°O ´N¦n¤F~)
       Range("B" & J & ":D" & k).Select <---¥¿½Tªº¼gªk

   Q2:¦¹¥~,¦pªG·Q­n³]©w¿é¤J¦C¦ìªº­È¦Û°Ê+4
                 Á|¨Ò¨Ó»¡ ¿é¤J¦C¦ì­È1,µ{¦¡Åª¨ú¨ìªº¦C¦ì­È«h¬°5,«h»Ý­n¦b¦ó³B§@­×§ï©O?
     A2:¥[¤J¤@­Ó©T©w°Ñ¼Æ­È+4
          ¨Ò:Range("B" & J+4 & ":D" & k).Select
              ³o¼Ëªº¸Ü,·í§A¿é¤J¦C¼Æ=1®É,¦C¼Æ­È¹ê»Ú¤W¹Bºâ«áªºµ²ªG1+4=5

      ­Ó¤H¦b¾ÇVBA®É,¤£·|¥Î¿ý»s¥¨¶°,³æ¯Âª½±µ¼¶¼gµ{¦¡½X
    «á¨Ó·|¥Î¿ý»s¥¨¶°ªº®É­Ô,³o­Ó¥\¯àÅܦ¨§Ú»Ý­n¬YºØ¥\¯à¦ý¬O¤£ª¾¹Dµ{¦¡½X«ç»ò¼g®Éªº¤p¤u¨ã
    ¤@­Ó¨BÆJ¤@­Ó¨BÆJ¿ý¬O¥i¥H¸Ñ¨M°ÝÃD,¦ýÁÙ¬O­n¥ý±q°ò¥»ªºÆ[©À¶}©l¾Ç
    ³o¼Ë¤~¯à¤F¸Ñµ{¦¡½X­n«ç»ò§ï­ò~
                                                       §Ú¤]¬O­Ó§C¶¥¼¶¼gªÌ  »P±z¦@«j¤§
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¥»©«³Ì«á¥Ñ koiiven ©ó 2011-3-11 12:58 ½s¿è

·PÁÂHsieh¤j¤jÀ°¦£
°õ¦æOK

¤p§Ì·Q¹êÅç¬Ý¬Ý¦pªG¦b¦Û¦æ¥[¤W
j = InputBox("¿é¤J°_©l¦C¦ì", , 0)
k = InputBox("¿é¤J³Ì²×¦C¦ì", , 532)
      Sheets("­ì©lÀÉ").Select
      Range("B5:D" & k).Select

Range¬A¸¹¤ºªºµ{¦¡½X¸Ó¦p¦ó½s¼g©O?
¤p§Ì¦³¸Õ¹LRange("B & j:D" & k).Select
            ©MRange("B:D"  & j & k).Select
¦ý¦n¹³³£¤£¦æ

¦¹¥~
¦pªG·Q­n³]©w¿é¤J¦C¦ìªº­È¦Û°Ê+4
Á|¨Ò¨Ó»¡ ¿é¤J¦C¦ì­È1
             µ{¦¡Åª¨ú¨ìªº¦C¦ì­È«h¬°5
«h»Ý­n¦b¦ó³B§@­×§ï©O?

·PÁÂ!

TOP

¦^´_ 1# koiiven
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. '

  5. '
  6. k = InputBox("¿é¤J³Ì²×¦C¦ì", , 532)
  7.     Sheets("­ì©lÀÉ").Select
  8.     Range("B5:D" & k).Select   '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
  9.     Selection.Copy
  10.     Sheets("A1").Select
  11.     Range("C7").Select
  12.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  13.         :=False, Transpose:=False
  14.     Sheets("­ì©lÀÉ").Select
  15.     Range("H5:H" & k).Select   '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
  16.     Application.CutCopyMode = False
  17.     Selection.Copy
  18.     Sheets("A1").Select
  19.     Range("F7").Select
  20.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  21.         :=False, Transpose:=False
  22.     Sheets("­ì©lÀÉ").Select
  23.     Range("G5:G" & k).Select   '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
  24.     Application.CutCopyMode = False
  25.     Selection.Copy
  26.     Sheets("A1").Select
  27.     Range("G7").Select
  28.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  29.         :=False, Transpose:=False
  30.     Sheets("­ì©lÀÉ").Select
  31.     Range("I5:I" & k).Select   '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
  32.     Application.CutCopyMode = False
  33.     Selection.Copy
  34.     Sheets("A1").Select
  35.     Range("H7").Select
  36.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  37.         :=False, Transpose:=False
  38.     Application.WindowState = xlNormal
  39.     Range("A7").Select
  40.     Application.CutCopyMode = False
  41.     ActiveCell.FormulaR1C1 = "1"
  42.     Range("A8").Select
  43.     ActiveCell.FormulaR1C1 = "2"
  44.     Range("A7:A8").Select
  45.     Selection.AutoFill Destination:=Range("A7:A" & k + 2), Type:=xlFillDefault '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
  46.     Range("I7").Select
  47.     ActiveCell.FormulaR1C1 = "500"
  48.     Range("I7").Select
  49.     Selection.AutoFill Destination:=Range("I7:I" & k + 2), Type:=xlFillDefault '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
  50.     Range("J7").Select
  51.     ActiveCell.FormulaR1C1 = "=IF(RC[-2]>RC[-1],""¬O"",""§_"")"
  52.     Range("J7").Select
  53.     Selection.AutoFill Destination:=Range("J7:J" & k + 2), Type:=xlFillDefault '¬O§_¯à¦bExcelÀx¦s®æª½±µ¿é¤J¼Æ¦r½d³ò¦Óª½±µ±a¤JRange()?
  54.    
  55. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD