- ©«¤l
- 323
- ¥DÃD
- 79
- ºëµØ
- 0
- ¿n¤À
- 407
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-10-22
- ³Ì«áµn¿ý
- 2022-1-18
|
[µ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ºÙ+«ez¦U¤u§@ªíªºBÄ涵¥Ø¤ÎCÄæ¦W¦¸µ¥¦UÃöÁä¦r,¹ï"µ{¦¡ÀÉ"¥H¥~ªº¨ä¥LÀɮצWºÙ°µ¤ÀÃþ·j´M_
µM«á±N¤Wz·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 |
|