[[20050222100822]]@wF‚ª“h‚ç‚ê‚Ä‚¢‚½‚禂ðo—Í‚·‚é‚É‚ÍHxiƒoƒoƒ“ƒMƒ_j@ƒy[ƒW‚ÌÅŒã‚É”ò‚Ô

[ ‰‚ß‚Ä‚Ì•û‚Ö | ˆê——(ÅVXV‡) | ‘S•¶ŒŸõ | ‰ß‹ŽƒƒO ]

@

wF‚ª“h‚ç‚ê‚Ä‚¢‚½‚禂ðo—Í‚·‚é‚É‚ÍHxiƒoƒoƒ“ƒMƒ_j

	1—ñ	2—ñ	3—ñ	4—ñ
1s	¦	1—ÎF	a	‚ 
2s	¦	2—ÎF	bÔ	‚¢
3s		3	g	‚¤
4s	¦	4	dÔ	‚¦
5s		5	a	‚¨

ã}‚̂悤‚ÉAs‚ÉF‚ª“h‚ç‚ê‚Ä‚¢‚éƒZƒ‹‚ª‚ ‚Á‚½‚çA
1—ñ–ڂɦ‚ª“ü‚é‚悤‚É‚µ‚½‚¢‚Ì‚Å‚·‚ªcB
•û–@‚Í‚ ‚è‚Ü‚·‚©H
‚æ‚낵‚­‚¨Šè‚¢‚µ‚Ü‚·B


 F‚Å‚Í‚È‚­ƒf[ƒ^(1,2‚âb,d‚È‚Ç‚ÌðŒ)‚ðŒ³‚ÉŽ®‚ð쬂³‚ꂽ‚Ù‚¤‚ªŠÈ’P‚Å‚Í‚È‚¢‚Å‚µ‚傤‚©B
 (–³–¼)

—ñ‚ª‚©‚Ȃ肽‚­‚³‚ñ‚ ‚Á‚Ä’†g‚̃f[ƒ^‚àŽí—Þ‚ª–L•x‚ÅAŽ®‚É‚·‚é‚Ì‚Í
‚¿‚å‚Á‚Ɠ‚¢‚©‚È‚Æ‚¢‚¤‚Æ‚±‚ë‚È‚ñ‚Å‚·B

 ‘‚¢‚©‚Ç‚¤‚©‚í‚©‚è‚Ü‚¹‚ñ‚ªA
‘}“ü¨–¼‘O‚Ì’è‹`‚Å
—Ⴆ‚ÎuFv‚Æ‚µ‚Ä
=GET.CELL(63,Sheet1!B1)
‚Æ‚µ‚Ä‚¨‚«‚Ü‚·B
F1‚É
=F
‚Æ“ü—Í‚µ‚ăRƒs[‚µ‚Ü‚·B
‚±‚ê‚ÅSheet1‚ÌB1‚ÉF‚ª‚ ‚é‚©‚È‚¢‚©”»’f‚Å‚«‚Ü‚·B
‚ÅA‚»‚ê‚ðŒ³‚É”»’f‚³‚ê‚Ä‚Í‚Ç‚¤‚Å‚·‚©H
=IF(SUM(F1:H1),"¦","")
A@@@@@B@@@@C@@@@@D@@@E@@@@@F@@@@G@@@@@H
¦	1—ÎF	a	‚ 		46	0	0
¦	2—ÎF	bÔ	‚¢		43	46	0
	3	g	‚¤		0	0	0
¦	4	dÔ	‚¦		0	46	0
	5	a	‚¨		0	0	0
‚±‚¤‚È‚è‚Ü‚µ‚½B
‚Ç‚¤‚Å‚µ‚傤H
iSoulManj

 ”wŒiF‚ðŽèì‹Æ‚É‚µ‚Ä‚¢‚é‚Ì‚È‚çAì‹Æ‚ð‹t‚É‚µ‚Ä‚Í‚Ç‚¤‚Å‚µ‚傤‚©B
ðŒ•t‘Ž®‚Åu1—ñ–ڂɦ‚ª“ü—Í‚³‚ê‚Ä‚¢‚½‚çs”wŒiF‚ðÔ‚É‚·‚év‚Ì‚Ù‚¤‚ª
ŠÈ’P‚¾‚ÆŽv‚¢‚Ü‚·‚¯‚ÇB
i‚Ý‚â‚Ù‚è‚ñj


 Ž¸—炵‚Ü‚·BƒOƒ‹ƒOƒ‹‚Á‚Ɖñ‚µ‚Ä‚¢‚­‚̂Ńf[ƒ^‚ª‘½‚¢‚ÆŽžŠÔŠ|‚©‚é‚©‚à‚Å‚·B
@
Sub Test()
Set MyRange = Range("B1").CurrentRegion
With MyRange
    RCnt = .Rows.Count
    CCnt = .Columns.Count
    For MyR = 1 To RCnt
        For MyC = 2 To CCnt
            If Cells(MyR, MyC).Interior.ColorIndex > 0 Then
                Cells(MyR, 1).Value = "¦"
                Exit For
            End If
        Next MyC
    Next MyR
End With
End Sub

 iì–숼‘¾˜Yj


‚Å‚«‚Ü‚µ‚½I
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·II

ƒRƒƒ“ƒg•ÔMF

[ ˆê——(ÅVXV‡) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.