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

[µo°Ý] ¦Û°Ê½Æ»s«ü©w¦WºÙªºÀɮ׸ê®Æ

[µo°Ý] ¦Û°Ê½Æ»s«ü©w¦WºÙªºÀɮ׸ê®Æ

´ú¸ÕÀÉ¡J TEST.rar (210.24 KB)
³Æµù¡J
1_Arr = Array("¤C¬F","¤K¨ö","¤­¦æ","¤»¨R","¦X¼Æ","¥Í¨v","§¡­È","§À¼Æ")
2_®ÄªGÀÉ¥u¦C¥X"¤C¬F"©M"¥Í¨v"ªº³¡¤À¤º®e¤§½d¨Ò¡C
3_¬°¹F¨ì¬yµ{ªº§¹¾ã©M¬yºZ¡A©Ò¥H±N¦h¶µ»Ý¨D¤@¦¸´£¥X¡A©|½Ð¨£½Ì¡IÁÂÁ¡I

»Ý¨D¬yµ{¡J
1_¦bµ{¦¡ÀÉModule1ªº¦C16´¡¤J
[AZ2:AAZ231]§ó§ï¤é´Á®æ¦¡¬°"yyyy-mm-dd"(EX: 2020-07-17)ªºµ{¦¡½X¡C

2_³]¥ß¤@­Ó"InputBox"
XXXX = InputBox("½Ð¿é¤J¤é´Á(EX:2020-07-17) ", "¿é¤J¤é´Á")¡C

3_±N"InputBox"¶ñ¤Jªº¤é´Á(EX: 2020-07-17),½Æ»s->¿ï¾Ü©Ê¶K¤W->­È->Âà¸m¦bµ{¦¡Àɪº" Arr "µ¥¦U¤u§@ªíªºA1¡C

4_¨Ì¾Ú¶ñ¤J"InputBox"ªº¤é´Á(EX: 2020-07-17),±NDATAªºAÄæ¬Û¦P¤é´Á¤§¤U1¦CªºB:H¤º®e,½Æ»s->¿ï¾Ü©Ê¶K¤W->­È->Âà¸m¦b" Arr "µ¥¦U¤u§@ªíªºA3¡C.

5_¥H"¿òº|"+"µ{¦¡ÀÉ"ªº" Arr "µ¥¦U¤u§@ªí¦WºÙ+«e­z¦U¤u§@ªíªºBÄ涵¥Ø¤ÎCÄæ¦W¦¸µ¥¦UÃöÁä¦r,¹ï"µ{¦¡ÀÉ"¥H¥~ªº¨ä¥LÀɮצWºÙ°µ¤ÀÃþ·j´M_
µM«á±N¤W­z·j´M¨ìªº¹ïÀ³¤ÀÃþÀɮפ§AZÄæ="InputBox"ªº¤é´Á(EX: 2020-07-17)ªº"¤W1¦C¤§BA:BS¤º®e,½Æ»s->¿ï¾Ü©Ê¶K¤W->­È->Âà¸m_¦b"µ{¦¡ÀÉ"ªº" Arr "µ¥¦U¤u§@ªí¤§E2µ¥¬Û¹ïÀ³ªºÀx¦s®æ.

6_µ{¦¡ÀÉ"ªº" Arr "µ¥¦U¤u§@ªí¥H¤U½d³ò¤§Äæ¦C®æ¦¡_
                    Columns("A:W").Font.Name = "Arial"
                    Columns("A:W").HorizontalAlignment = xlCenter
                    Columns("A:W").EntireColumn.AutoFit
                    [A2].Select
                    ActiveWindow.FreezePanes = True
                    ActiveWindow.Zoom = 75

7_±Nµ{¦¡ÀÉ"ªº" Arr "µ¥¦U¤u§@ªí½Æ»s¿é¥X¬°1­Ó¿W¥ßÀÉ®×_ÀɮצWºÙ="¤j¼Ö³z_¿òº|ªÅÁ`²Î­pªí_¿é¤JInputBoxªº¤é´Á(EX: 2020-07-17)"

8_±Nµ{¦¡ÀÉ"ªº" Arr "µ¥¦U¤u§@ªí¥H¤U½d³ò¤§¤º®e²¾°£_
[A3:A9].ClearContents
[E2:W72].ClearContents

9_½Ð³]¥ß1­Ó­p®É¾¹¡A¨Ã°O¸ü¦@§¹¦¨½Æ»s¦h¤Ö­ÓÀÉ®×(¦p¥»´ú¸ÕÀɬ°¡¨¦@§¹¦¨½Æ»s12­ÓÀɮס¨)¡C

½Ð°Ý¡J¥H¤Wµ{¦¡ªº»Ý¨D»yªk(2003ª©)À³¸Ó¦p¦ó½s¼g¡H
ÁÂÁ¡I

¥»©«³Ì«á¥Ñ luhpro ©ó 2020-7-26 23:10 ½s¿è
´ú¸ÕÀÉ¡J
³Æµù¡J
1_Arr = Array("¤C¬F","¤K¨ö","¤­¦æ","¤»¨R","¦X¼Æ","¥Í¨v","§¡­È","§À¼Æ")
2_®ÄªGÀÉ¥u ...
.
»Ý¨D¬yµ{¡J
1_¦bµ{¦¡ÀÉModule1ªº¦C16´¡¤J
[AZ2:AAZ231]§ó§ï¤é´Á®æ¦¡¬°"yyyy-mm-dd"(EX: 2020-07-17)ªºµ{¦¡½X¡C
.
papaya µoªí©ó 2020-7-25 09:11


¨ä¹ê»Ý¨D1º¡Â²³æªº,
§A¥u»Ý­n§Q¥Î¿ý»s¥¨¶°¥\¯à´N¥i¥H±o¥X¤U¦¡:
Range("J7:L11").Select  ' ½d³ò¬OÀH·NÁ|¨Òªº
Selection.NumberFormatLocal = "yyyy/m/d;@"
¦A§â¥¦¨Ì¾Ú§Aªº»Ý¨D§ï¦¨:
Range("AZ2:AAZ231").NumberFormatLocal = "yyyy-mm-dd"
À³¸Ó´N¥i¥H¤F.

¦Ü©ó ²Ä2 »P ²Ä3: (§Ú°²³]§A¤é´Á®æ¦¡¤@¼Ë¬O­n¥Î yyyy-mm-dd)
  1.   Dim dDate As Date
  2.   Dim arr
  3.   Dim shName
  4.   
  5.   arr = Array("¤C¬F", "¤K¨ö", "¤­¦æ", "¤»¨R", "¦X¼Æ", "¥Í¨v", "§¡­È", "§À¼Æ")
  6.   dDate = InputBox("½Ð¿é¤J¤é´Á(EX:2020-07-17) ", "¿é¤J¤é´Á")
  7.   For Each shName In arr
  8.     With Sheets(shName).[A1]
  9.       .NumberFormatLocal = "yyyy-mm-dd"
  10.       .Value = dDate
  11.     End With
  12.   Next
½Æ»s¥N½X
---®É¶¡¤Ó±ß¤F,¨ä¥¦¨Ó¤£¤Î·Q¤F---

TOP

¦^´_ 2# luhpro
¥ý«ôŪ~¬Ý¯à¤£¯à®ø¤Æ
ÁÂÁ±z!

´Á¬ß±zªºÄò¸Ñ

TOP

¦^´_ 2# luhpro
¦³ª¦¤å¡A¦n¹³§Úªº»Ý¨D¬yµ{¶¶§Ç¦³ÂI°ÝÃD¡A
®e§Ú«ä¦Ò«á¡A¦A³Â·Ð±z~·P®¦ :D

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD