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

¥xªÑ¤ëÀ禬

¦^´_ 13# tsuneng
   :   ¬O³s±µ ¤U¤@­Ó µ{¦¡½X ªº²Å¸¹
¦P
  1. y$ = Range("B1")
  2. m$ = Range("C1")
  3. Ey$ = Range("D1")
  4. Em$ = Range("E1")    'B1&C1 ©l¦~¤ë E1&D1 ²×¦~¤ë
  5. x = 0
  6. Sheets.Add.Name = "sample"
  7. Sheets("sheet1").Select
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD