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

[µo°Ý] ½Ð°Ý¸Ó¦p¦ó¥ÎVBA¦Û°Ê¤Æ¥XªÑ²¼K½u¹Ï©O¡H

¦^´_ 10# j1221
À³¸Ó¬OSELECTªº°ÝÃD
  1.     With Sheets("data")
  2.                 .Cells(1, 1).EntireRow.Copy
  3.                 Sheets.Add After:=Sheets("data")
  4.                 ActiveSheet.Cells(1, 1).PasteSpecial
  5.                 ThisWorkbook.ActiveSheet.Name = c & op
  6.    End With
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 11# Hsieh


    ·P¿E¤j¤j....¤@¤ÁOK¤F¡I¡I:D
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

TOP

¦^´_ 11# Hsieh


Hsieh¤j¡A©êºp¤S¨Ó¥´ÂZ¤F....

¥i¥H¨Ï¥Î¤§«á¡A§ÚÁÙ·Q¦A¥[¤@­Ó¡u¿é¤J©M¬ù¤ë¥÷¡vªº¹ï¸Ü®Ø¡A³o¼Ë¥i¥H¿ï¾Ü»Ý­n¬D¥Xªº¤ë¥÷

§Ú¬O³o¼Ë¼gªº

    f = Application.InputBox(prompt:="½Ð¿é¤J¦X¬ùµ²ºâ¤ë¥÷(®æ¦¡¡Gyyyymm)")
µM«á¦b¬D¨ú¸ê®Æªº®É­Ô

If Sheets("data").Cells(i, 3).Value = f

¥i¬O¦n¹³excel»{¤£¥X¨Ó³o­Ó f  ¡A©Ò¥H§ÚµLªk§â¸ê®Æ¬D¿ï¥X¨Ó¡A¥i§_½Ð°Ý±z¬°¤°»ò¶Ü¡H

½Ð±z°Ñ¦Òªþ¥ó¡A·PÁÂ:D

test.rar (223.79 KB)
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

TOP

¦^´_ 13# j1221


    Sheets("data").Cells(i, 3).Value = Val(f)
¦]¬°inputbox¦ì«ü©wÅܼƫ¬ºA«h·|¥H¦r¦ê§ÎºAÀq»{
©Ò¥Hf¬O¤@­Ó¼Æ¦r²Õ¦Xªº¦r¦ê
¦ý¬O¡A§A¤u§@ªíªº¦~¤ë¬O³q¥Î®æ¦¡¡A©Ò¥H³Q»{¬°¬O¼Æ値
©Ò¥H§PÂ_¦¡¼Æª½¬O¤£¥i¯à¸ò¦r¦ê¬Ûµ¥
¬G¦¹±Nf¨Ï¥ÎVAL¨ç¼ÆÂର¼Æ­È§Y¥i
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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