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

®É¶¡¸ê®Æ¤§²Î­p

¦^´_ 1# b9208
¦pªþÀÉ.
D1-ans.zip (12.37 KB)
¶·¯d·Nªº¬Oµ{¦¡¤¤±N ¦Û 00:00 ~ 09:59 (§t) ¶¡ªº®É¶¡³£µø¬° ²Ä¤G¤Ñ.

TOP

¦^´_  luhpro
½Ð±Ð¤U¦¡¤¤2.9999 ¥Nªí¬°¦ó
Cells(16, 2) = 2.9999
b9208 µoªí©ó 2011-11-11 14:57

¦]¬°Àx¦s®æªº®É¶¡¸ê®Æ¬O¥Î 1 ¥H¤Uªº¤p¼Æ¨Óªí¥Ü,
³o¥i¥H¥Î¥ý¦bÀx¦s®æ¤¤¿é¤J®É¶¡,
¦A±N¸ÓÀx¦s®æ®æ¦¡§ï¬° "G/³q¥Î®æ¦¡" §Y¥i±oª¾.

¦Ó­Y¥ý¿é¤J 1(©Î¤ñ1¤jªº¼Æ¦r) ¦A§ï¬°®É¶¡®æ¦¡,
«h·|µo²{¤º®eÅܦ¨¦³¤é´Á(¨Ò¦p¿é¤J 24:00 «h·|¦Û°ÊÂà´«¦¨ 1900/1/1 00:00:00)ªº±¡§Î.

¦b­º½g¥»¨ÒÀɮפ¤·|¥X²{ "¸ó¤é" ªº±¡§Î,
©Ò¥H Cells(16, 2) ªºªì³]·¥¤j¼Æ(¦]¬°¦¹®æ­n©ñ³Ì¤p®É¶¡, ©Ò¥H¨äªì­È¥²¶·«OÃÒ¤ñ©Ò¦³»Ý­n¤ñ¸ûªº®É¶¡¸ê®Æ³£¤j)¤£¯à¥u¤j©ó 1,
­ì¥ý¨Ó»¡­Y¥H 10:00 ¬°¹j¤é³Ì¤j®É¶¡¨Ó­pºâ,
«h¶È¶·³]¬°¤j©ó 1.416 §Y¥i,
§Ú³]¬° 2.9999 ¥u¬O­Ó¤H²ßºDÁ`¬O·|·Q¦h¹w¯d¤@¨Ç¾l¸Î½}¤F.

¦Ó¤]¦]¬°­Y¼Æ¦r¤j©ó 1 ®É·|¦h¥X²{«D¥²­nªº¤é´Á¸ê°T(¦³¼vÅT¤§«á­Y»Ý¤ñ¸û©Î­pºâªººÃ¼{),
©Ò¥H©³¤U¦h¤F¤@¬q¥h±¼¾ã¼Æ³¡¤À¥H½T«O¥u¯d¤U®É¶¡¸ê®Æ(¯Â¤p¼Æ)ªºµ{¦¡.

TOP

¦^´_ 6# b9208
  1.   For Each vValue In Range("B11:D18")
  2.     If vValue >= 1 Then
  3.       Cells(vValue.Row, vValue.Column) = vValue - Int(vValue)
  4.     End If
  5.   Next vValue
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD