±ý¤¯Æ»¡¢Í褿ƻ

 
 

¿´¤¬¸«¤¨¤ë¸÷

  1. 08:06:35



¿´¤Ï¤É¤³¤Ë¤¢¤ë¤Î¤«¡£

º£¡¢»×¤¤É⤫¤Ù¤Æ¤¤¤ë¤³¤È¤Ï

¤³¤ÎÂΤÎÃæ¤Ë¤¢¤ë¤Î¤«¡¢Æ¬¤Î¾å¤Ç¤Õ¤ï¤Õ¤ï¤·¤Æ¤ë¤Î¤«¡£


¤¢¤ë¸÷Àþ¤òÅö¤Æ¡¢ÆÃ¼ì¤Ê¤á¤¬¤Í¤Ç¸«¤ë¤È¸«¤¨¤½¤¦¤Êµ¤¤¬¤¹¤ë¡£

¤½¤Î¾ì¹ç¡¢¤É¤³¤Î¹ñ¤Î¿Í¤Ç¤â¤¹¤Ù¤ÆÆ±¤¸¤è¤¦¤Ë¡¢

ľÀÜ¿´¤Ë´¶¤¸¤ë¤è¤¦¤Ë¸«¤¨¤Æ¤­¤½¤¦¤Êµ¤¤¬¤¹¤ë¤Ê¡£



¤È¤³¤í¤Ç¡¢µ­²±¤ä·Ð¸³¤ò»Ä¤·¤¿¤Þ¤ÞÂΤò¼ãÊ֤餷¤¿¤ê¡¢

ÀÖ¤Á¤ã¤ó¤Þ¤ÇÀ¸¤Þ¤ìÊѤï¤Ã¤¿¤ê¤¹¤ë¤Û¤¦¤Ë

¿Ê²½¤·¤Ê¤«¤Ã¤¿¤Î¤Ï¤Ê¤¼¤Ê¤ó¤Ç¤·¤ç¤¦¡£


¤Ê¤¼»Ò¶¡¤Ï¿Æ¤Î·Ð¸³¤ò°ú¤­·Ñ¤¬¤º¤ËÀ¸¤Þ¤ì¤Æ¤¯¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©



¤Ê¤¼¡ÖÎϡפȤ¤¤¦¤â¤Î¤¬¤³¤ÎÀ¤¤Ë¤¢¤Ã¤Æ

狼¤ò»ÙÇÛ¤·¤¿¤ê¡¢

¡ÖÍýÉԿԡפ¬¤Þ¤«¤êÄ̤俤ꤷ¤Æ¤·¤Þ¤¦¤Î¤Ç¤·¤ç¤¦


¤¢¤­¤é¤á¤º¤Ë¡¢¤·¤¿¤¤¤è¤¦¤Ë¤·¤¿¤¤¤Û¤¦¤Ë¸þ¤«¤¦¤³¤È¤¬¿Ê²½¤Ê¤é

µö¤µ¤ì¤Ê¤¤¤³¤È¤Ê¤ó¤«¤Ê¤¤¤È¤¤¤¦Á°Äó¤Ë¤Ê¤Ã¤Á¤ã¤¦¡£

°­¤¤¤³¤È¤ò·è¤á¤ë¤³¤È¤¬°­¤¤¤³¤È¤Ë¤Ê¤Ã¤Á¤ã¤¦¤Ê¤ó¤Æ¹Í¤¨¤Æ¤ß¤¿¤ê¡£

 
 
 
 

Êý¿ØºîÀ®¤Î¥Þ¥¯¥í

  1. 10:20:04


¥é¥Æ¥óÊý¿Ø¤òºî¤ëEXCEL¤Î¥Þ¥¯¥í¤ò¹Í¤¨¤Æ¤ß¤¿¡£


Option Explicit

'Êý¿ØºîÀ®³«»ÏÃÏÅÀ¤È¤·¤¿¤¤¥»¥ë¤ò¥¢¥¯¥Æ¥£¥Ö¤Ë¤·¡¢¼Â¹Ô¤¹¤ë¡£

Private Sub N¼¡¥é¥Æ¥óÊý¿ØºîÀ®()
Dim n As Integer

n = InputBox("²¿»þ¤Î¥é¥Æ¥óÊý¿Ø¤Ë¤·¤Þ¤¹¤«")

If ¥é¥Æ¥óÊý¿ØºîÀ®(n) = False Then
MsgBox "Êý¿ØºîÀ®¤Ë¼ºÇÔ"
Else
MsgBox "Êý¿ØºîÀ®À®¸ù"
End If

End Sub

Private Function ¥é¥Æ¥óÊý¿ØºîÀ®(ByVal n As Integer) As Boolean
On Error GoTo ErrorHandler

Dim i As Integer
Dim j As Integer

Dim intSCol As Integer
intSCol = ActiveCell.Column

Dim intRow As Integer
Dim intCol As Integer
intRow = ActiveCell.Row
intCol = ActiveCell.Column

For i = 0 To n - 1
For j = 1 To n
If j + i > n Then
Cells(intRow, intCol).Value = j - n + i
Else
Cells(intRow, intCol).Value = j + i
End If
intCol = intCol + 1
Next
intRow = intRow + 1
intCol = intSCol
Next

¥é¥Æ¥óÊý¿ØºîÀ® = True

Exit Function
ErrorHandler:
MsgBox "¥¨¥é¡¼È¯À¸"
¥é¥Æ¥óÊý¿ØºîÀ® = False
End Function


¤É¤¦¤Ç¤·¤ç¤¦¤«¡£

 
 
 
 

¤½¤·¤Æ¤½¤ó¤Ê¤³¤È¤ò¤¤¤Ã¤Æ¤ë¤ª¤ì¤Ï¤Ë¤»¤â¤Î¤À

  1. 22:02:08



¤ª¤ì¤Ï¤Û¤ó¤È¤¦¤Ï¤Ê¤ó¤Ë¤â¤â¤Ã¤Æ¤Ê¤¤¤ó¤À¤è

¤â¤Ã¤È¤â¤é¤·¤¤¤³¤È¤¤¤Ã¤Æ¤Æ¤â¤½¤ì¤Ï
¼Ú¤êʪ¤òÃΤäƤë¤È»×¤¤¤³¤ó¤Ç

¤Ê¤ó¤ó¤âÊ¢¤¬·è¤Þ¤Ã¤Æ¤Ê¤¯¤Æ


¤¿¤À¤Ó¤Ó¤Ã¤Æ




¤Ê¤ó¤À¤ª¤ì¤Ï¡ª


¤¤¤Ã¤¿¤¤¤Ê¤ó¤Ê¤ó¤À


¤Õ¤ê¤Ç¿Í¤ò¤ß¤Ê¤ò¤´¤Þ¤«¤·¤Æ¤ë¤À¤±¤¸¤ã¤Ê¤¤¤«


¤ª¤ì¤Ï¤Ê¤Ë¤ò¤â¤Ã¤Æ¤ó¤À




¤À¤±¤É¥¼¥í¤«¤é¤Ç¤â¤ä¤Ã¤Æ¤¯¤·¤«¤Ê¤¤

¾¯¤·¤º¤Ä¤Ç¤â¤ä¤Ã¤Æ¤¯¤·¤«¤Ê¤¤


¤´¤Þ¤«¤¹¤³¤È¤Ê¤¯

±³¤Ä¤¯¤³¤È¤Ê¤¯
±³¤Ê¤ó¤Æ¤¹¤°¸«Çˤé¤ì¤ë¤½¤ó¤Ê¤Î¤à¤Ê¤·¤¤¤À¤í
À¸¤­¤Æ¤ó¤À¤í¤ä¤Ã¤Æ¤¯¤·¤«¤Ê¤¤¤ó¤À¤í

º£Æüb¤Ï¿ì¤Ã¤¿¤Ê¤Ë¤â¤â¤¦¤Ê¤¤¤ª¤ì¤ÎÃæ¿È¤Ï¤«¤é¤Ã¤Ý¤À¤É¤¦¤·¤è¤¦¤â¤Ê¤Ê¤¤¼«Ê¬¤ò¤È¤³¤È¤ó±Þ¤À±Þ¤À

 
 
 
 

¤ª¤ì¤Ï¤Ê¤Ë¤ò¤µ¤¬¤·¤Æ¤ó¤À

  1. 21:57:08



¿Í¤Ï»×¤¤¤ÇÊѤï¤ë


¤Ê¤Ë¤ò¤â¤Ã¤Æ¿Í¤Ï¼«Ê¬¤ËËþ­¤¹¤ë¤ó¤À¡£

¤É¤³¤Þ¤Ç¤¤¤±¤Ð¤ª¤ì¤Ï¤½¤ì¤Ç¤è¤«¤Ã¤¿¤È»×¤¨¤ë¤ó¤À¤í¤¦¤«¡£


¤¤¤Ã¤¿¤¤¤ª¤ì¤Ï¤Ê¤Ë¤òµá¤á¤Æ¤ë¤ó¤À¤í¤¦¤«¡£


¤è¤Ã¤Ñ¤é¤Ã¤Æ·î¤òį¤á¤Ê¤¬¤é


¤ª¤ì¤Ï¹Í¤¨¤ë¤ó¤À¡£


¤Ê¤Ë¤¬¡¡¤ª¤ì¤òư¤«¤·¤Æ¤ó¤Î¤«


¤ª¤ì¤Ï¤Ê¤¼¤³¤³¤Ë¤¤¤Æ

¤Ê¤Ë¤òõ¤·¤Æ

¤Ê¤ó¤Ç¤À

 
 
 
 

¤¤¤ë¤â¤Î¤¤¤é¤Ê¤¤¤â¤Î

  1. 20:11:57



¿Í¤Ë¤È¤Ã¤Æ¤Îɬ¼ûÉʤϡ¢¤â¤¦¿È¶á¤Ë¤Ï¤Û¤È¤ó¤É·¤Ã¤Æ¤¤¤ë¡£

ºÇ¶á¤Î¿·À½Éʤϡ¢¤¢¤ì¤Ð¤¤¤¤¤±¤É¤Ê¤¯¤Æ¤âÊ̤ˤȤ¤¤¦´¶¤¸¤À¡£

¤Ê¤ó¤È¤«Àú¤í¤¦¤È¤·¤Æ¤â¡¢ÉÔ¶·²¼¤Ç¤Ï¸Â³¦¤â¤¢¤ë¡£


·ÈÂÓÅÅÏäϡ¢¤½¤ì¤¬¤Ê¤¤¤È»Å»ö¤Ë¤Ê¤é¤Ê¤¤¤Þ¤Ç¤Î¥¤¥ó¥Õ¥é¤Ë¤Ê¤Ã¤¿¡£

¤½¤ì¤Ï¼Ò²ñ¤¬Í׵ᤷ¤¿¤«¤é¤À¡£É¬¼ûÉʤˤ·¤¿¤«¤é¤À¡£


º£ÅÙ¤ÏÅŵ¤¼«Æ°¼Ö¤Ê¤É¡¢¥¨¥³¤ò¼Ò²ñŪ¤ËɬÍפʤâ¤Î¤È·è¤á¡¢

¤½¤ì¤Ç¤Ê¤¤¤È¤¤¤±¤Ê¤¤¤È¤¤¤¦´Ñǰ¤òÍ¿¤¨¤Æ¤¤¤ë¡£

Ãϥǥ¸¤Ë³¤­¡¢¤Ê¤¼¤½¤³¤Þ¤Ç¤È»×¤¦¡£


¤½¤ì¤Ë¤è¤Ã¤Æ¸ÛÍѤ¬¡¦·ÐºÑ¤¬¤È¤¤¤¦¤Î¤â¤ï¤«¤é¤ó¤Ç¤â¤Ê¤¤¤¬¡¢

¤¸¤ã¤¢¤º¤Ã¤È¤½¤ó¤Ê¤³¤È¤ò·«¤êÊÖ¤¹¤Î¤«¡£


ɬ¼ûÉÊ¤Ë°Ï¤Þ¤ì¤Æ¡¢¤½¤ì¤Ê¤ê¤ËÊë¤é¤¹¤³¤È¤òÁªÂò¤Ç¤­¤ë¼Ò²ñ¡¢

¶¥Á褷¤Ê¤¯¤Æ¤â¤¤¤¤¼Ò²ñ¤Ë¤Ï¤Ê¤é¤Ê¤¤¤Î¤«¡£


¿Í´Ö¤ÏÀ®Ä¹¤·Â³¤±¤ëɬÍפϤʤ¤¤ó¤¸¤ã¤Ê¤¤¤«¤Ê¤È¤â»×¤¦¡£

 
 
 
 

DTI¥Ö¥í¥°¤Ã¤Æ¡©

  1.  
 
 
¥Û¡¼¥à¤Ø
¥Û¡¼¥à
¼¡¤Î¥Ú¡¼¥¸¤Ø
¼¡¤Î¥Ú¡¼¥¸¤Ø

copyright © 2006
Powered By DTI¥Ö¥í¥°
allrights reserved