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

[µo°Ý] ¦Û°Ê¾É¤J«ü©w¸ê®Æªº»yªk¡C

[µo°Ý] ¦Û°Ê¾É¤J«ü©w¸ê®Æªº»yªk¡C

ªþ¥ó :   TEST_1021.rar (123.87 KB)

´Á¼Æ!
A1= RrngA         B1=RrngB
A2=1889           B2=1885
A3=1900           B3=" "
A4=1900-1902     B4=1897-1901

¥Ø«eªº¾Þ§@¨BÆJ¡G
¶}±Ò¥DÀÉ~
ÂI°õ¦æÁä(GO)¡÷·|¸õ¥X¶ñ¤J®Ø(§Yµ{¦¡½X¦C11ªºRrngA=)¡÷¶ñ¤J1889(=A2)¡÷
ÂI½T©w©Î«öEnterÁä¡÷¦A¸õ¥X¶ñ¤J®Ø(§Yµ{¦¡½X¦C13ªºRrngB=)¡÷¶ñ¤J1885(=B2)¡÷
ÂI½T©w©Î«öEnterÁä¡÷µ{¦¡¶}©lRun¡÷
·í­¶­±ªºLÄæ¦A¦¸Åã¥Ü¼Æ¦r®É~§Yªí¥Ü¥»¦¸ªº°õ¦æ°Ê§@¤w§¹²¦¡C

µM«á~
ÂI°õ¦æÁä(GO)¡÷·|¸õ¥X¶ñ¤J®Ø(§Yµ{¦¡½X¦C11ªºRrngA=)¡÷¶ñ¤J1900(=A3)¡÷
ÂI½T©w©Î«öEnterÁä¡÷¦A¸õ¥X¶ñ¤J®Ø(§Yµ{¦¡½X¦C13ªºRrngB=)¡÷ÂI½T©w©Î«öEnterÁä(=B3)¡÷
ÂI½T©w©Î«öEnterÁä¡÷µ{¦¡¶}©lRun¡÷
·í­¶­±ªºLÄæ¦A¦¸Åã¥Ü¼Æ¦r®É~§Yªí¥Ü¥»¦¸ªº°õ¦æ°Ê§@¤w§¹²¦¡C

µM«á~
ÂI°õ¦æÁä(GO)¡÷·|¸õ¥X¶ñ¤J®Ø(§Yµ{¦¡½X¦C11ªºRrngA=)¡÷¶ñ¤J1900-1902(=A4)¡÷
ÂI½T©w©Î«öEnterÁä¡÷¦A¸õ¥X¶ñ¤J®Ø(§Yµ{¦¡½X¦C13ªºRrngB=)¡÷¶ñ¤J1897-1901 (=B4)¡÷
ÂI½T©w©Î«öEnterÁä¡÷µ{¦¡¶}©lRun¡÷
·í­¶­±ªºLÄæ¦A¦¸Åã¥Ü¼Æ¦r®É~§Yªí¥Ü¥»¦¸ªº°õ¦æ°Ê§@¤w§¹²¦¡C
A5=" " ~°±¤î¾Þ§@¡C
¥H¤W¦@¥²¶·¾Þ§@3¦¸ªº­«½Æ°Ê§@
¹ê°È¤W±`±`»Ý­n­«½Æ¾Þ§@¦Ê¦¸¥ª¥k~«D±`§xÂZ¡C

»Ý¨D¡G
§Æ±æ¯à±N³¯¦C¦b´Á¼Æ!AÄæ©MBÄ檺¼Æ¦r~¯à¦p¤W­zªº¤è¦¡±N¼Æ¦r¾É¤J¨Ã¤À¦¸°õ¦æ~
¥H§Q¬Ù¥h¦h¦¸ªº­«½Æ°Ê§@¡C


½Ð°Ý¡GModule1ªºµ{¦¡½X­n«ç»ò½s¼g ?

¥H¤W  Àµ½Ð½ç±Ð¡I  ÁÂÁ¡I

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-10-22 00:03 ½s¿è

¦^´_ 1# ziv976688
1¼Óªºªþ¥ó§@¼o
·sªþ¥ó : TEST_1021.rar (123.77 KB)
ÁÂÁÂ !

PS :
¤]¤£ª¾¹D¦Û¤vªººc·Q¹ï¤£¹ï?
¦pªG¤£¾A¥Î¡A¥H¨ä¥Lªº¤è¦¡³£¥i¥H~
¥u­n¯à¦Û°Ê¤À¦¸¾É¤J~¥H§Q¬Ù«o¤H¤u§Y¥i¡C
ÁÂÁÂ !

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-10-22 05:40 ½s¿è

1#&2#¥þ³¡§@¼o

ªþ¥ó : TEST_1022.rar (170 KB)
»Ý¨D~
§Æ±æ¯à±N³¯¦C¦bDATA!SÄæ©MTÄ檺¼Æ¦r~¦Û°Ê¤À¦¸¾É¤J¨Ã¦Û°Ê¤À¦¸°õ¦æ~
¥H§Q¬Ù¥h¦h¦¸ªº­«½Æ°Ê§@¡C
¨ä¾l»¡©ú~½Ð¸Ô¨£ªþ¥ó¡C

½Ð°Ý¡GModule1ªºµ{¦¡½X­n«ç»ò½s¼g ?

¥H¤W  Àµ½Ð½ç±Ð¡I  ÁÂÁ¡I

PS :
¤]¤£ª¾¹D¦Û¤vªººc·Q¹ï¤£¹ï?¯à¤£¯à¹F¨ì»Ý¨D?
¦pªG¤£¾A¥Î¡A¥H¨ä¥Lªº¤è¦¡³£¥i¥H~
§Y¥u­n¯à±N­ì¨Ó¥H¤H¤u¶ñ¤J¡A
Âର¦Û°Ê±NSÄæ©MTÄ檺¸ê®Æ¤À¦¸¾É¤J¤À¦¸°õ¦æ~
¥H§Q¬Ù«o¤H¤u§Y¥i¡C
ÁÂÁÂ !

TOP

¦^´_ 1# ziv976688


¯à¦p¤W­zªº¤è¦¡±N¼Æ¦r¾É¤J¨Ã¤À¦¸°õ¦æ~   
>>¥Î¤@­Ó°j°é§Y¥i¡AÁÂÁÂ


Drr = Sheets("´Á¼Æ").Range([´Á¼Æ!b1], [´Á¼Æ!a65536].End(3))
For i = 2 To UBound(Drr)
      ....
      ...
     RrngA = Drr(i, 1)
     ....
     RrngB = Drr(i, 2)
    ...
    ...
    ActiveWindow.Close
   
Next
'...............
...
...

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-10-22 09:05 ½s¿è

¦^´_ 4# samwang
³Ì²×ºÝªº°ÝÃD¤]OK¤F
ÁÂÁ±zªº­@¤ß«ü¾É©M¼ö¤ßÀ°¦£~

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-10-22 10:13 ½s¿è

¦^´_ 4# samwang
¤£¦n·N«ä~¦³1­Ó¤p°ÝÃD~½Ð±z½ç¥¿!ÁÂÁ±z!
RrngA                              RrngB
1889                              1885
1900       
1900-1902                  1899-1901

EX :·íA3=1900¡F B3=""®É~
·|¶]¥X1900+1885ªº¸ê®Æ§¨¡A
§YB3·|©µÄòB2ªº´Á¼Æ¡C

½Ð°Ýµ{¦¡½X RrngB = Drr(i, 2) ­n«ç»ò§ï?
¤~¯à¶]¥X 1900 ªº¸ê®Æ§¨¡C
ÁÂÁ±z !

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2021-10-22 10:45 ½s¿è

¦^´_ 6# ziv976688


EX :·íA3=1900¡F B3=""®É~·|¶]¥X1900+1885ªº¸ê®Æ§¨¡A
>>¨S°ÝÃD¡ARrngB=""¦p·Ó¤ù¡A¦p«á¾Ç¤§«e´£ªº·|©µ¥Í¨ä¥L°ÝÃD¡A
­n±q¥Dµ{¦¡¤F¸Ñ»Ý¨DÀ³¥Î¡A¤~¥i¥Hª¾¹D¦p¦ó­×§ï¡AÁÂÁÂ


½Ð°Ýµ{¦¡½X RrngB = Drr(i, 2) ­n«ç»ò§ï?
¤~¯à¶]¥X 1900 ªº¸ê®Æ§¨¡C  
>> RrngB= Left( Drr(i, 2) ,4)
1.PNG

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-10-22 11:27 ½s¿è

¦^´_ 7# samwang
°ÝÃD³£¤w¸Ñ¨M
¸U¤À·PÁ±zªþ±a¹Ï¤ùªº¸Ô²Ó»¡©ú~¥½¾Ç¨ü´f¨}¦h~·P®¦

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD