[ ‰‚ß‚Ä‚Ì•û‚Ö | ˆê——(ÅVXV‡) | ‘S•¶ŒŸõ | ‰ß‹ŽƒƒO ]
@
w¼—ï`˜a—ï‚Ì•ÏŠ·@‚ ‚é‚¢‚ÍŒn•ˆ}‚Ìì¬@‰ü‘èxi‚Í‚ñ‚É‚áj
¡Sheet1 B—ñ‚ɼ—ï‚ ‚é‚¢‚͘a—‚ê‚©‚̃f[ƒ^(‡•s“¯j‚ª‚ ‚è‚Ü‚·B Sheet2 A—ñ‚ɘa—ï”N†AB—ñ‚ɘa—ï”N@‚³‚ç‚ÉC—ñ‚ɼ—ï‚ð‡‚É‹LÚ‚µ‚½‚¢B
]ŒËŒãŠú‚æ‚èƒf[ƒ^‚ª‚ ‚肤‚éB ”N‚Æ‚µ‚Ä‚ÌŒ`Ž®‚Í‚P900ˆÈ‘O‚͎󂯕t‚¯‚È‚¢‚Ì‚Å ƒf[ƒ^‚Ì”N‚͉‚ß‚©‚ç@’P‚È‚éKyy.mm.dd ‚ ‚é‚¢‚Íyyyy.mm.dd ‚Ì•¶Žš—ñ‚É “ü—Í‚µ‚½•û‚ª—Ç‚¢‚Å‚µ‚傤B
ƒf[ƒ^‚ð‚ǂ̂悤‚É•ÏŠ·‚µ‚Ä‹LÚ‚·‚é‚Å‚µ‚傤‚©H
Sheet1 A B@'Œ³”N‚P”N–Ú Ž–¼ ¶”N ’NX@Š°‰i2.2.2 dare 1751.3.3 sheet2 A B C Š° Œ³”N 1748 ‰„ 2 1749 3 1750 •ó Œ³”N 1751 —ï @—ª
‚È‚¨Aƒ}ƒNƒ‚Å@‹ß”N‚̧–ñ‚Å‚Í@‚Í‚È‚³‚ñ‚Ì•Œ¾‚ňȉº‚ÌŽg‚Á‚Ä‚¢‚Ü‚·Bi‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·jB‚»‚̧–ñ‚ðL‚°‚½‚¢B
With Sheets("Sheet1") tbl1 = .Range("A1").Resize(.Range("A" & Rows.Count).End(xlUp).Row + 1, 5) 'D—ñ–v”N‘}“ü nn = Year(Application.Min(.Range("B:B"))) - 1 'nn = Sheet1‚Ì’a¶“ú‚ÌŌÔN‚Ì‘O”N End With ReDim y(1 To Year(Date) - nn + 1, 1 To 3) 'Œ»Ý‚Ü‚Å y(1, 3) = nn y(1, 2) = Format(y(1, 3) & "/1/1", "e") y(1, 1) = Format(y(1, 3) & "/1/1", "ggg") For i = 2 To UBound(y, 1) y(i, 3) = y(i - 1, 3) + 1 y(i, 2) = Format(y(i, 3) & "/1/1", "e") If y(i, 2) < y(i - 1, 2) Or y(i, 2) Mod 10 = 0 Then y(i, 1) = Format(y(i, 3) & "/1/1", "ggg") End If Next With Sheets("Sheet2") —ª .Cells.ClearContents .Range("A1").Resize(UBound(y, 1), 3) = y .Range("D1").Resize(UBound(y, 1), xc + 3) = x ' C—ñ‚ɼ—ï‚ð“ü‚ê‚邽‚ßC1¨D1‚É .Range("C1").Resize(UBound(y, 1), 1).Copy .Range("D1").Cells(1, xc + 5) End With
‚æ‚낵‚@
i‚Í‚ñ‚É‚áj
‚±‚ñ‚É‚¿‚ÍB‚©‚Ý‚¿‚á‚ñ@‚Å‚·B
> ]ŒËŒãŠú‚æ‚èƒf[ƒ^‚ª‚ ‚肤‚éB > ”N‚Æ‚µ‚Ä‚ÌŒ`Ž®‚Í‚P900ˆÈ‘O‚͎󂯕t‚¯‚È‚¢‚Ì‚Å
‘¼‚ÌŒfŽ¦”‚ŋ°k‚Å‚·‚ªAÌAˆÈ‰º‚̂悤‚ȃXƒŒƒbƒh‚ŃRƒƒ“ƒg‚³‚¹‚Ä‚¢‚½‚¾‚¢‚½‚±‚Æ‚ª‚ ‚è‚Ü‚·B http://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200608/06080150.txt
”‘z‚Ì“]Š·‚ª•K—v‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ªA‰½‚©‚ÌŽQl‚É‚È‚ê‚΂Ǝv‚¢‚Ü‚·B
(‚©‚Ý‚¿‚á‚ñ) 2009-06-27 16:45
‚È‚©‚È‚©“‚¢‚±‚Æ‚¾‚Æ‚í‚©‚è‚Ü‚µ‚½B ŽQl‚É‚µ‚Ä@ƒR[ƒh‚ɒljÁ‚µ‚Ä‚Ý‚½‚¢‚ÆŽv‚¢‚Ü‚·B ŽÀÛ‚É@‘½‚‚Ì“ü—Í‚ÍŒ³†‚Å@‚»‚ê‚ð”N•\Œn•ˆ‚ż—ï‚É‚µ‚Ä•`‚‚Æ‚¢‚¤‚±‚Æ‚É‚È‚é‚Å‚µ‚傤
@–“ú–{_˜b‚Ì”N”‚Ü‚ÅŠY“–‚·‚él‚ª‚¢‚é‚Æ‚Í‹Á‚«‚Å‚·B_˜b‚Ì’†‚Åo‚Ä‚‚é‚Ì‚Å‚µ‚傤‚©H ¬¶‚É‚ÍŒ»¢@‹ß¢‚ÌŒn•ˆ‚Å‚·‚©‚ç@‚·‚±‚µ‚»‚ê‚æ‚è‚È‚‚È‚é‚悤‚Å‚·B
@1Ž–¼@2¶”N¼—ï 3Œ³†@4˜a—ï@5–v”N¼—ï@6Œ³†@7˜a—ï ÓìŽn @@–¾Ž¡ 16.12.22@@@@@º˜a@35.10.10 [“¡‘ò]‰³—@1960.10.9 1950.2.2 Ó엕Žq ? ? ˆÈŒã—ª
’@”N”‚ÌŠù’m‚Ìê‡@¼—ï‚©˜a—‚ê‚©‚ðŽè“ü—Í‚·‚éB ¶”NA–v”N•s–¾‚Ìê‡@H‚Ƽ—ï—“‚É‹L‚·B “ú•t‚ƈê‚ȃf[ƒ^‚ÌA‚±‚̂悤‚È•\Œ»‚Í•¶Žš—ñ‚É‚È‚é‚Å‚µ‚傤‚©H ˜a—ï‚Ì3Œ³†‚Æ4˜a—ï‚ƈê‚Ì‹Lq‚Å‚à‰Â‚Å‚·B•Ê“r‚É‚µ‚½ˆ—‚ª‚µ‚â‚·‚¢‚©‚Ɖ¼‚É‚µ‚Ü‚µ‚½B
Œ‹‰Ê‚Í@H‚𜂢‚ÄA¼—ïA˜a—ï‚ðŠ·ŽZ‚µA‹ó—“‚É‹L“ü‚·‚邱‚Æ‚ðŠú‘Ò‚µ‚Ü‚·B ”N”‚Ì݂蓾‚éŌÂÍ999 ’·•ÛŒ³”N‚Æ‚µ‚Ü‚·B
Excel‚É‚ÍŠÖ”‚Æ‚©@VB‚ł̃R[ƒh‚Æ‚©@Function‚Æ‚©‚¢‚ë‚¢‚ë‚ ‚é‚悤‚Å‚·‚ª ‚Ç‚ê‚ð‚‚©‚Á‚½‚ç‚æ‚¢‚Å‚µ‚傤‚©H ‚ǂ̂悤‚ȃR[ƒh‚Å‚µ‚傤‚©H@‚²‹³Žö‚¨‚Ë‚ª‚¢‚µ‚Ü‚·B (‚Í‚ñ‚É‚á
«‘OƒXƒŒ@‚æ‚èA•ÏŠ·‚𖼖ڂɈø‚Á‰z‚µ‚Ä—ˆ‚Ü‚µ‚½B [[20090619072025]]w‰ü‘è‚Q@Sheet1‚ÌŽ–¼A¶”NA–v”N “™gŠÖŒW“™‚ðSheet‚Q‚Ì”NŽ²•\‚É‹LÚxi‚Í‚ñ‚É‚áj
‚Ü‚¸A˜a—屮—ï@‚Æ@¼—礼a—ï@‚̑Ήž•\‚ª•K—v‚Å‚·B u‘Ήž•\v‚Æ‚¢‚¤ƒV[ƒg‚É A,B—ñ‚ðŽg—p‚µ‚Ä@˜a—屮—ï@‚Ì•\ @A—ñ‚ÉA˜a—ï @B—ñ‚ÉAŒ³”N‚ª‘Ήž‚·‚é¼—ï ‚ð“ü—Í‚µ‚ĉº‚³‚¢B
”N‚Ɉ˂Á‚Ä‚ÍA˜a—“ñ‚—L‚éꇂª—L‚è‚Ü‚·‚ª Sheet1‚É‚Ç‚¿‚ç‚Å“ü—Í‚³‚ê‚é‚©Œˆ‚Ü‚Á‚Ä‚¢‚È‚¢ê‡‚Í —¼•û‹Lq‚µ‚ĉº‚³‚¢B
C—ñ‚ðˆê—ñ‹ó‚¯‚ÄAD,E—ñ‚É@¼—礼a—ï@‚Ì•\ @D—ñ‚ÉA¼—ï @E—ñ‚ÉA˜a—ï ‚ð“ü—Í‚µ‚ĉº‚³‚¢B
‚±‚¿‚ç‚Ì•\‚ÍAD—ñ‚ª¸‡‚ɬ‚Á‚Ä‚¢‚é•K—v‚ª—L‚è‚Ü‚·B ‚Ü‚½A˜a—ï‚Í•\Ž¦‚³‚¹‚½‚¢•û‚Ì”N†‚ð‘‚¢‚Ä‚à‚炦‚Ηǂ¢‚Å‚·‚ª Œ³”N‚̘a—ï‚ƑΉž‚µ‚Ä‚¢‚é@‚ÆŒ¾‚¤ƒ‹[ƒ‹‚Å‚·‚Ì‚ÅA—Ⴆ‚Î 1384 Œ³’†1/ŽŠ“¿1 1385 Œ³’†2/ŽŠ“¿2 1386 Œ³’†3/ŽŠ“¿3 1387 Œ³’†4/‰ÃŒc1 1388 Œ³’†5/‰ÃŒc2 1389 Œ³’†6/N‰ž1 1390 Œ³’†7/–¾“¿1 1391 Œ³’†8/–¾“¿2 1392 Œ³’†9/–¾“¿3 1393 –¾“¿4 ‚±‚Ì•”•ª‚ÍA’ˆÓ‚ª•K—v‚Å‚·B iŒ³’†‚ÍA10”N‚ª—L‚è‚Ü‚¹‚ñ‚µA1393”N‚Í–¾“¿4”N‚Å‚·‚©‚çBj
Sheet1‚Ö‚Ì“ü—Í‚Í @A—ñ@Ž–¼ @B—ñ@¶E”N† @C—ñ@¶E”NŒŽ“ú @D—ñ@–vE”N† @E—ñ@–vE”NŒŽ“ú @F—ñ@«•Ê @G—ñ@ŠÖŒW ‚̇‚Å“ü—Í‚µ‚ĉº‚³‚¢B
“ü—Í‚Ì‹ï‘Ì—á‚͈ȉº‚Ì—l‚ɬ‚è‚Ü‚·B [B] [C] [1] ¶”N† ¶”NŒŽ“ú [2] 1930.10.9 [3] º˜a 16.12.22 [4] º˜a H ”N†‚¾‚¯“ü—Í‚ª—L‚éꇂÍAŒ³”N‚Ì”N‚Æ‚µ‚Ĉµ‚¢‚Ü‚·B
‹”N‚ÍA–v”N|¶”N{‚P@‚ÅŒvŽZ‚µ‚Ü‚·‚Ì‚Å ŽÀÛ‚Ì”N—î‚Ƃ͈ê’v‚µ‚È‚¢ê‡‚ª—L‚è‚Ü‚·B
'------ Sub nenpyokeifu_8() Dim tbl1, totbl, x, y Dim nr As Range, sr As Range Dim xc As Long, xr As Long, nn As Long Dim i As Long, ii As Long Dim fyi As Long, cyi As Long, mcy As Long Dim p1(6), p2(6) Dim sb As String
With Sheets("ƒf[ƒ^•\") tbl1 = .Range("A1").Resize(.Range("A" & Rows.Count).End(xlUp).Row + 1, 12) End With
With Sheets("”N†‘Ήž•\") totbl = .Range(.Range("A2"), .Range("A" & Rows.Count).End(xlUp)).Resize(, 2) Set nr = .Range(.Range("E2"), .Range("E" & Rows.Count).End(xlUp)) Set sr = .Range(.Range("D2"), .Range("D" & Rows.Count).End(xlUp)) End With
Call snsr(tbl1, nn, totbl) If nn <= 999 Then MsgBox "999”NˆÈ‘O‚̃f[ƒ^‚ª—L‚è‚Ü‚·B" Exit Sub End If
ReDim y(1 To Year(Date) - nn, 1 To 3) Call np(y, nn, nr, sr)
ReDim x(1 To UBound(y, 1), 1 To Columns.Count) xc = 2 'ì}‚̶’[D—ñ‚©‚ç For i = 2 To UBound(tbl1, 1) If tbl1(i, 1) = "" Then If tbl1(i - 1, 1) <> "" Then fyi = psn(nn, p1(2), p2(2)) xr = fyi - nn + 1 x(xr, xc) = p1(0) & knm(p1(3), p1(1)) & "===" & p2(0) & knm(p2(3), p2(1)) x(xr + 1, xc + 1) = sngpse(p1(2), p1(3), p1(4), p1(5), p1(6)) x(xr + 2, xc + 3) = sngpse(p2(2), p2(3), p2(4), p2(5), p2(6)) 'e‚ÌŒn•ˆü If fyi > nn Then x(xr - 1, xc) = "b" End If x(xr + 1, xc) = "b" x(xr + 2, xc) = "b" 'Žq‚ÌŒn•ˆü If xr < mcy Then For ii = xr + 2 To mcy + 1 If x(ii, xc + 2) = "" Then x(ii, xc + 2) = "b" End If Next End If xc = xc + 5 ' ƒRƒƒ“ƒg@‚±‚̒ljÁ”Žš‚ªŒn•ˆ• fyi = 0: cyi = 0 Erase p1: Erase p2 mcy = 0 End If Else If tbl1(i, 6) Like "*[•ƒ,•v]*" Then sb = "¢" Call pd(tbl1, i, sb, p1, p2) ElseIf tbl1(i, 6) Like "*[•ê,È]*" Then sb = "¥" Call pd(tbl1, i, sb, p1, p2) Else If tbl1(i, 8) = "" Or tbl1(i, 8) = "H" Or tbl1(i, 8) = "?" Then MsgBox "’a¶“ú‚ª–¢“ü—Í‚Å‚·B" & vbLf & tbl1(i, 1) Else cyi = tbl1(i, 8) xr = cyi - nn + 1 If tbl1(i, 6) Like "*[‘§Žq]*" Then sb = "¢" ElseIf tbl1(i, 6) Like "*[–º]*" Then sb = "¥" Else 'ŠÖŒW‚ª–³‹LÚ sb = "" End If If x(xr, xc + 3) <> "" And x(xr - 2, xc + 3) = "" Then x(xr - 2, xc + 3) = x(xr, xc + 3) x(xr, xc + 3) = "" End If If x(xr, xc + 3) <> "" And x(xr - 2, xc + 3) = "" Then x(xr - 2, xc + 3) = x(xr, xc + 3) x(xr, xc + 3) = "" End If x(xr, xc + 2) = sb & knm(tbl1(i, 9), tbl1(i, 1)) x(xr + 1, xc + 3) = sngpse(tbl1(i, 8), tbl1(i, 9), tbl1(i, 10), tbl1(i, 11), tbl1(i, 12)) mcy = Application.Max(xr, mcy) End If End If End If Next With Sheets("Œn•ˆ}") .Cells.ClearContents .Range("A1").Resize(UBound(y, 1), 3) = y .Range("D1").Resize(UBound(y, 1), xc + 3) = x ' C—ñ‚ɼ—ï‚ð“ü‚ê‚邽‚ßC1¨D1‚É .Range("C1").Resize(UBound(y, 1), 1).Copy .Range("D1").Cells(1, xc + 5) End With Set nr = Nothing Set sr = Nothing End Sub '====== Private Function knm(bngp, nm) If nm = "" Then knm = "á•s–¾â" Else If bngp <> 1 Then knm = "ŒÌ_" & nm Else knm = nm End If End If End Function '====== Private Function sngpse(ss, se, tngp, bngp, nr) If tngp = "" Then sngpse = "á•s–¾â`" Else sngpse = tngp & "`" End If If bngp = "" Then sngpse = sngpse & á•s–¾â Else sngpse = sngpse & bngp End If If nr = Empty Then sngpse = sngpse & "‹”N" & se - ss + 1 End If End Function '====== Private Function psn(nn, fys, mys) If fys <> "" Then If fys = "?" Then psn = nn Else psn = fys End If Else If mys = "?" Or mys = "" Then psn = nn Else psn = mys End If End If End Function '====== Private Sub pd(tbl1, i, sb, p1, p2) If p1(0) = Empty Then p1(0) = sb p1(1) = tbl1(i, 1) p1(2) = tbl1(i, 8) p1(3) = tbl1(i, 9) p1(4) = tbl1(i, 10) p1(5) = tbl1(i, 11) p1(6) = tbl1(i, 12) Else p2(0) = sb p2(1) = tbl1(i, 1) p2(2) = tbl1(i, 8) p2(3) = tbl1(i, 9) p2(4) = tbl1(i, 10) p2(5) = tbl1(i, 11) p2(6) = tbl1(i, 12) End If End Sub '====== Private Sub np(y, nn, nr, sr) Dim i As Long, ti As Long y(1, 3) = nn ti = Application.Match(y(1, 3), sr) y(1, 1) = Application.Index(nr, ti) y(1, 2) = nn - Application.Index(sr, ti) + 1 For i = 2 To UBound(y, 1) y(i, 3) = y(i - 1, 3) + 1 ti = Application.Match(y(i, 3), sr) y(i, 2) = y(i, 3) - Application.Index(sr, ti) + 1 If y(i, 2) = 1 Or y(i, 2) Mod 10 = 0 Then y(i, 1) = Application.Index(nr, ti) End If If y(i - 1, 2) = 1 Then y(i - 1, 2) = "Œ³”N" End If Next End Sub '====== Private Sub snsr(tbl1, nn, totbl) Dim dic As Object Dim i As Long, ii As Long Dim kn Set dic = CreateObject("scripting.dictionary") nn = Year(Date) For i = 1 To UBound(totbl, 1) dic(totbl(i, 1)) = totbl(i, 2) Next For i = 2 To UBound(tbl1, 1) For ii = 0 To 1 tbl1(i, 2 + ii * 2) = Trim(tbl1(i, 2 + ii * 2)) tbl1(i, 3 + ii * 2) = Trim(StrConv(tbl1(i, 3 + ii * 2), vbNarrow)) kn = Split(tbl1(i, 3 + ii * 2) & ".", ".")(0) If tbl1(i, 2 + ii * 2) = "" Then tbl1(i, 8 + ii) = kn If kn = "?" Or kn = "" Then tbl1(i, 8 + ii) = kn Else tbl1(i, 8 + ii) = Replace(kn, "?", 0) End If Else If dic.exists(tbl1(i, 2 + ii * 2)) Then If kn = "?" Or kn = "" Then tbl1(i, 8 + ii) = dic(tbl1(i, 2 + ii * 2)) Else tbl1(i, 8 + ii) = dic(tbl1(i, 2 + ii * 2)) + Val(Replace(kn, "?", 0)) - 1 End If Else tbl1(i, 8 + ii) = kn End If End If If Val(tbl1(i, 8 + ii)) > 1 Then nn = Application.Min(nn, tbl1(i, 8 + ii)) End If tbl1(i, 10 + ii) = tbl1(i, 2 + ii * 2) & tbl1(i, 3 + ii * 2) If tbl1(i, 2 + ii * 2) & kn Like "*[?]*" Or tbl1(i, 8 + ii) = "" Then tbl1(i, 12) = 1 End If Next Next nn = nn - 4 Set dic = Nothing End Sub '------
ãŽè‚“®‚‚Æ—Ç‚¢‚Å‚·‚Ë`BiÎj
(HANA) @@nenpyokeifu_4 ¨ nenpyokeifu_5 2009/7/4 19:49 @@nenpyokeifu_5 ¨ nenpyokeifu_6 2009/7/4 23:35 @@nenpyokeifu_6 ¨ nenpyokeifu_7 2009/7/6 22:40 @@nenpyokeifu_7 ¨ nenpyokeifu_8 2009/7/9 0:51
‘Ήž•\‚Å A—ñB—ñ‚͈ȉº‚̂悤‚É쬂µ‚Ü‚µ‚½B ’Ž‚Ì—Ç‚¢i‰¡’…j‚ÆŽ¶‚ç‚ê‚é‚â‚É‚¨‚à‚Á‚½‚Ì‚Å‚·‚ªA
D,E—ñ‚Í999‚©‚çˆê”N–ˆ@
999@’·•Û‚P 1000 ’·•Û‚Q ‚Æ@Œ»Ý‚܂łÂÁ‚Æ‘‚‚Ì‚Å‚µ‚傤‚©H
¼—†‚ÌŒ³”N{˜a—ï”N\1@(‚»‚¿‚ç‚̃R[ƒh‚ª‚Ç‚±‚ªŠY“–‚©—‰ð•s‘«‚Å‚·‚ª‘½•ªj
‚̂悤‚ÉA@
˜a—ï¼—ïŠY“–”͈͂ÌŬ”NiY)‚ÌŒ³†@‚Æi¼—ï\Y{‚Pj
‚̂悤‚É@A‚ÆB—ñ‚Å@Sheet2‚𓾂邱‚Æ‚Í‚Å‚«‚Ü‚¹‚ñ‚Å‚¹‚¤‚©H
@
A‚P˜a—† B1Œ³”N‘Ήž¼—ï C‚PŽž‘ã D1@¼—ï E1˜a—ï ’·•Û 999 •½ˆÀŽž‘ã(794¨) 999 ’·•Û Š°O 1004 1004 Š°O ’·˜a 1012 1012 ’·˜a Š°m 1017 1017 Š°m “r’†—ª Œc‰ž 1865 1865 Œc‰ž –¾Ž¡ 1869 –¾Ž¡Žž‘ã(1868¨) 1869 –¾Ž¡ ‘å³ 1912 ‘峎ž‘ã(1912¨1926) 1912 ‘å³ º˜a 1926 º˜aŽž‘ã(1926¨1989) 1926 º˜a •½¬ 1989 •½¬Žž‘ã(1989¨)@ 1989 •½¬
‚æ‚낵‚@‚¨‚Ë‚ª‚¢‚µ‚Ü‚·
‚¦‚Á‚ÆAŠî–{“I‚ɂ͉º‘¤‚ÉÚ‚¹‚Ä‚¨‚ç‚ê‚é—l‚É uŒ³”Nv‚Ì•¨‚¾‚¯‘‚¢‚Ä‚ ‚é‘Ήž•\‚ð 쬂µ‚Ä‚¨‚¢‚Ä‚à‚炦‚Ηǂ¢‚Å‚·‚ªH
‚»‚µ‚ÄAˆê‚‘‚«–Y‚ê‚Ä‚¢‚Ü‚µ‚½B ‚Ç‚¿‚ç‚àA1s–Ú‚ÍŒ©o‚µs‚É‚µ‚Ä 2s–Ú‚©‚ç•\‚É‚µ‚ĉº‚³‚¢B
“ú–{Œê‚ª•ª‚©‚è‚É‚‚¢‚©‚à’m‚ê‚Ü‚¹‚ñ‚ª „B—ñ‚ÉAŒ³”N‚ª‘Ήž‚·‚é¼—ï ‚Å‚·‚©‚ç A2‚É@“V•Û‚Æ“ü‚ê‚Ä B2‚É‚Í@Œ³”N‚ª‘Ήž‚·‚é¼—ï@999@‚ð“ü—ÍB A3‚É@Š°O‚Æ“ü‚ê‚Ä B3‚É‚Í@Œ³”N‚ª‘Ήž‚·‚é¼—ï@1004@‚ð“ü—Í@‚Å‚·B
˜a—屮—ï@‚Æ@¼—礼a—ï@‚Ì “ñ‚‚̕\‚ª•K—v‚È‚Ì‚Í ˆê‚‚̼—ï‚Řa—“ñ‚‚ ‚éꇂª—L‚éˆ×‚Å‚·B
—Ⴆ‚ÎA Œ³’†4.1.1‚Æ“ü—Í‚³‚ꂽ‚ç 1387.1.1‚ÆŒ©‚È‚µ ‰ÃŒc1.1.1‚Æ“ü—Í‚³‚ê‚Ä‚à 1387.1.1‚ÆŒ©‚È‚·•K—v‚ª—L‚è‚Ü‚·B
‚Å‚·‚©‚çA˜a—屮—ï@‚Ì•û‚Ì•\‚É‚Í Œ³’† 1384iŒ³”N‚Ì”Nj‚ƉÌc 1387iŒ³”N‚Ì”Nj “™A•¡”—L‚éꇂÍ@‚»‚ꂼ‚ê‚̘a—ï‚ɑ΂µ‚Ä ‘Ήž‚·‚鼗“ü—Í‚³‚ê‚Ä‚¢‚é•K—v‚ª—L‚è‚Ü‚·B
‚µ‚©‚µA¼—礼a—ï@‚Ì•û‚Í ˆê‚‚̼—ï‚ɑ΂µ‚Ĉê‚‚̘a—ï‚Å‚È‚¢‚Æ@ˆ—‚ª–Ê“|‚Å‚·‚µ •\Ž¦‚³‚¹‚é‚Æ‚±‚ë‚à—L‚è‚Ü‚¹‚ñ‚æ‚ËB
1387”N‚ÍA‚Ç‚¿‚ç‚ð•\Ž¦‚³‚¹‚½‚¢‚Ì‚©@‚»‚¿‚ç‚ÅŒˆ‚߂ĉº‚³‚¢B —Ⴆ‚ÎAŒ³’†4‚Æ•\Ž¦‚³‚¹‚½‚¢‚È‚ç D,E—ñ‚É‚Í@1384 Œ³’†@‚Ì•û‚¾‚¯‚ð‘‚¢‚Ä ‰ÃŒc‚Ì•û‚Í“ü—Í‚µ‚È‚¢B
‰ÃŒc1‚Æ•\Ž¦‚³‚¹‚½‚¢‚È‚çA1387 ‰ÃŒc@‚Ì•û‚ð‘‚¢‚Ä Œ³’†‚Í‘‚©‚È‚¢Bi‚Ü‚ŸA‚»‚ê‚Ü‚Å‚ÍŒ³’†‚Å—Ç‚¢‚Á‚Ä‚È‚ç ‘‚¢‚Ä‚à‚ç‚Á‚Ä‚à—Ç‚¢‚Å‚·‚ªEEEEBj
‚»‚Ì—l‚ÉŒˆ‚ß‚Ä‚¢‚‚ÆAD,E—ñ‚̃f[ƒ^”‚Í@A,B—ñ‚Ì•¨‚æ‚è‚à ‚È‚‚È‚é‚ÆŽv‚¢‚Ü‚·‚æB
ˆÓ–¡‚ª•ª‚©‚è‚Ü‚·‚©H
Ä“x‘‚¢‚Ä‚¨‚«‚Ü‚·‚ªAŒ³”N‚ª‘Ήž‚·‚é¼—ï‚ð‘‚« ‚È‚¨‚©‚ÂAD,E—ñ‚Í@¼—¸‡‚ɬ‚Á‚Ä‚¢‚È‚¢‚Æ ³‚µ‚¢Œ‹‰Ê‚ª“¾‚ç‚ê‚Ü‚¹‚ñB
A—ñ‚É•\Ž¦‚³‚¹‚鎞‚É‚Ç‚¤‚¹Œ¾‚í‚ê‚Ä‚à•ª‚©‚ç‚È‚¢‚©‚çA ˜a—ï‚Í‚¨‚¨‚æ‚»‘‚¢‚Ä‚ ‚ê‚Ηǂ¢‚æ i–{“–‚ÍAŒ³’†10”N‚Í–³‚¢—l‚Å‚·‚ª@‚»‚Ì—l‚É•\Ž¦‚³‚ê‚Ä‚à‘債‚½–â‘è‚É‚µ‚È‚¢j ‚ÆŒ¾‚¤Ž–‚Å‚ ‚ê‚ÎA‚Ç‚¿‚ç‚Ì”N†‚ðŽg‚¤‚©@‚ÆŒ¾‚¤Ž–‚ÉŠÖ‚µ‚Ä‚Í ‚»‚ñ‚È‚É‹C‚É‚µ‚È‚‚Ä‚à—Ç‚¢‚Ì‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ªBBB
(HANA)
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B
‚ÅŒ»Ý‚Ì󋵂Í@¶”N[–v”N‚É‚Í@˜a—ï[˜a—ïA˜a—ï[¼—ïA¼—ï[¼—ïA¼—ï[˜a—ï
‚Ì‘g‚݇‚킹‚ª‚ ‚èA
‚»‚ê‚É‚æ‚邽‚ß‚©@‚Í‚Á‚«‚肵‚È‚¢‚Ì‚Å‚·‚ª@ˆÈ‰º‚̂悤‚ÈŒ‹‰Ê‚Å‚·B
‚à‚¿‚ë‚ñ@‚±‚ñ‚È‘g‚݇‚킹‚ªŽ©—R‰ß‚¬‚é‚悤‚Å‚ ‚ê‚ÎA“¯‚¶“¯Œ^‚Ì—ï”N•\Ž¦‚É‚µ‚Ü‚·‚ª
‚Å‚«‚ê‚Ίˆ‚©‚µ‚½‚¢B
•s“s‡‚ȉӊ‚ðŽæ‚èo‚µ‚Ü‚µ‚½iƒRƒs[‚ª‚¤‚Ü‚‚¢‚‚©‚ÈHjB‚»‚Ì“à—e‚ÍH‚Ì‹^–â‚Å‚·B
sheet1
ÓìŽn “V•Û 12.22 Œc‰ž 2.10.19 M ‘¾˜Y‚Ì•ƒ [“¡‘ò]‰³— –¾Ž¡ 19.9.1 1901.10.11 F ‘¾˜Y‚Ì•ê —•Žq 1960.10.1 º˜a 45.1.1 F ‘¾˜Y 1961.10.1 @ Žn‚ÌŽq
Ó쑾˜Y 1961.10.1 M ‘g‚Ì•v [•ÄŽq]‘g 1947.3.1 F ‘¾˜Y‚ÌÈ
Ó엕Žq 1960.10.1 1970.1.1 F ‘åŽR‚ÌÈ [•ÄŽq]‘åŽR 1950.5.3 M ”‚Ì•ƒ ” 1966.10.2
´…@•xŽm Œc‰ž 2.3 –¾Ž¡ 2.4.4 M ‰³—‚Ì•ƒ H H –¾Ž¡ 3.2.1 ‰³—‚ÌÈ @‰³— 1870.1.2 1901.10.11 F •xŽm‚ÌŽq
•ÄŽq@H H 1960.10.9 M ‘g‚Ì•ƒ [’¹]–º 1940.12.2 F ‘g‚Ì•ê @‘g 1947.3.1 F ‘åŽR 1950.5.3 M –º‚ÌŽq
sheet2
Œc‰ž 1 1865 ¢Ã“ìŽn===¥ŒÌ_[“¡‘ò]‰³— 2 1866 b á•s–¾â`@‹”NF1 3 1867 b b á•s–¾â`1901.10.11@‹”NF1902
¶”N‚Ì“Ç‚Ü‚È‚¢H
34 1959 b 1960.10.1`@‹”NF-1959 35 1960 ¥—•Žq
–v”N‚ð“Ç‚Ü‚È‚¢H ŒÌ‚ª’…‚©‚È‚¢H@Žq‹Ÿ‚Ì‚Æ‚«B–v”N‚ð‚æ‚Ü‚È‚¢‚©H
b ¢´…@•xŽm===¥H b Œc‰ž 2.3` b b H@`
–v”N‚ð“Ç‚Ü‚È‚¢H
sheet1 @‰³— –¾Ž¡ 20.10.9 1901.10.11 ‚Ì‚Æ‚« , " ’a¶“ú"‚ª–¢“ü—Í‚Å‚·@‚Æ‚È‚éH
Šó–]‚ðŒ¾‚¦‚ÎA 1: ˜a—ï“ü—Í‚Í@Œ³”N‚à1.2.30‚̂悤‚É‚»‚낦‚½‚¢B 2: Œ³†‚P”N‚ÍŒ³”N‚Æ•\‹L‚µ‚½‚¢B“Á‚ÉB—ñ‚ÅB@
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·
sheet1 1A1Ž–¼@@•s–¾‚ÍHŒn•ˆŠÔ‚͈ês‹ó”’@@@@@@@@ 2B1 ¶”N@@˜a—ï‚ÍŒ³†A¼—ï‚Í‹ó”’ 3C‚P@¶”N.ŒŽ.“ú@@@@@¼E˜a—’ÊA•s–¾‚ÍH 4D1 –v”N@˜a—ï‚ÍŒ³†A¼—ï‚Í‹ó”’ 5E1–v”N.ŒŽ.“ú@@@@@¼E˜a—’ÊA•s–¾‚ÍH 6F1«@@@@@M.F.?.–¢‹LÚ 7G1•ƒ•ê/•v•w‰½‚ê‚©@–³‹LÚ‚ÍŽq‚ÆŒ©‚È‚·@ Žg‚¢•ûF@ƒV[ƒg‚P‚ÉeŽqŠÖŒW‚ðŒn•ˆ–ˆ‚É‹L‚µAALT{F8,@then +R‚ð‰Ÿ‚µAŽŸƒV[ƒg‚Q‚ÅŒn•ˆ‚𓾂éBŽ‚Æ–¼‚ÌŠÔ‚ð‹ó‚¯‚Ä‚à‰ÂBŠeŒn•ˆŠÔ‚Ì¥ˆ÷ì}‚ÍVŒn•ˆ‚Ì–¼‘OƒZƒ‹‚ðƒJƒbƒg‚µAŒ³‚Ì–¼‘OƒZƒ‹‚Æ’u‚«Š·‚¦A’·‚ð’²®‚·‚éB‘oŽqA—{Žq“™‚Ì‹Lq–@HŒ‹¥“úA–v”N‚È‚ÇŒn•ˆüã‚É–v”N~ˆó‚Æ“úŽž‹LÚ–¢Š®ASheet2‚Ì‘Ž®‚Í•¶Žš—ñ‚Æ‚·‚é‚Æhh‚à“ü‚éB
ÓìŽn “V•Û 12.22 Œc‰ž 2.10.19 M ‘¾˜Y‚Ì•ƒ [“¡‘ò]‰³— –¾Ž¡ 19.9.1 1901.10.11 F ‘¾˜Y‚Ì•ê —•Žq 1960.10.1 º˜a 45.1.1 F ‘¾˜Y 1961.10.1 @ Žn‚ÌŽq
Ó쑾˜Y 1961.10.1 M ‘g‚Ì•v [•ÄŽq]‘g 1947.3.1 F ‘¾˜Y‚ÌÈ
Ó엕Žq 1960.10.1 1970.1.1 F ‘åŽR‚ÌÈ [•ÄŽq]‘åŽR 1950.5.3 M ”‚Ì•ƒ ” 1966.10.2
´…@•xŽm Œc‰ž 2.3 –¾Ž¡ 2.4.4 M ‰³—‚Ì•ƒ H H –¾Ž¡ 3.2.1 ‰³—‚ÌÈ @‰³— 1870.1.2 1901.10.11 F •xŽm‚ÌŽq
•ÄŽq@H H 1960.10.9 M ‘g‚Ì•ƒ [’¹]–º 1940.12.2 F ‘g‚Ì•ê @‘g 1947.3.1 F ‘åŽR 1950.5.3 M –º‚ÌŽq
‚»‚ê‚ÆŠÖŒW‚·‚é‘Ήž•\‚͈ȉº‚Ì‚Æ‚¨‚è‚Å‚·
A‚P ˜a—ï Œ³† B1 Œ³”N ¼—ï C‚P Žž‘ã D1@ ¼—ï @@Œ³”N E1 ˜a—ï Œ³† •¶ 1818 1818 •¶ “V•Û 1830 1830 “V•Û O‰» 1844 1844 O‰» ‰Ã‰i 1848 1848 ‰Ã‰i ˆÀ 1854 1854 ˆÀ –œ‰„ 1860 1860 –œ‰„ •¶‹v 1861 1861 •¶‹v Œ³Ž¡ 1864 1864 Œ³Ž¡ Œc‰ž 1865 1865 Œc‰ž –¾Ž¡ 1869 –¾Ž¡Žž‘ã(1868¨) 1869 –¾Ž¡ ‘å³ 1912 ‘峎ž‘ã(1912¨1926) 1912 ‘å³ º˜a 1926 º˜aŽž‘ã(1926¨1989) 1926 º˜a •½¬ 1989 •½¬Žž‘ã(1989¨)@ 1989 •½¬
“ì–k’©‚Ì2dŒ³†‚Ìê‡@‘Ήž•\‚ð
‰i“¿ 1381 1381 ‰i“¿ Œ³’† 1384 1384 Œ³’†1/ŽŠ“¿1 ŽŠ“¿ 1384 1385 Œ³’†2/ŽŠ“¿2 ‰ÃŒc 1387 1386 Œ³’†3/ŽŠ“¿3 N‰ž 1389 Žº’¬Žž‘ã(1392¨1491) 1387 Œ³’†4/‰ÃŒc1 –¾“¿ 1390 1388 Œ³’†5/‰ÃŒc2 ‰ž‰i 1394 1389 Œ³’†6/N‰ž1 ³’· 1428 1390 Œ³’†7/–¾“¿1 ’·‹ 1429 1391 Œ³’†8/–¾“¿2 ‰Ã‹g 1441 1392 Œ³’†9/–¾“¿3 •¶ˆÀ 1444 1393 –¾“¿4 •ó“¿ 1449 1394 ‰ž‰i
‚Æ‚µ‚Ä‚æ‚¢‚Å‚µ‚傤‚©B ‚»‚Ì‘O‚É E—ñ‚̘a—ï‚͉i“¿1A‰ž‰i1‚̂悤‚É‚P‚ð“ü‚ê‚Ä‚¨‚•K—v‚ª‚ ‚é‚Å‚µ‚傤‚©B @‚±‚Ì‚½‚ß‚É@‘O‚̃Gƒ‰[‚ª‚Å‚é‚Ì‚©‚à‚µ‚ê‚È‚¢‚Æ@“V•ÛˆÈŒã“V•Û1‚Æ‚µ‚½‚ªA‚»‚ê‚Å‚à“¯‚¶‚Å‚ ‚Á‚½B
‚»‚Ì‘OŒã‚Ì
‚¨‚©‚µ‚¢‚Å‚·‚ËA‚±‚¿‚ç‚Å‚Í‚»‚Ì—l‚ɂͬ‚è‚Ü‚¹‚ñ‚ªB
“ü—Í‚·‚é—ñ‚ª‚¸‚ê‚Ä‚¢‚Ü‚¹‚ñ‚©H ˆ½‚¢‚ÍASheet1‚Ì@B1 ¶”N@‚É“ü‚ꂽ•¶Žš‚Æ ‘Ήž•\‚ÌA—ñ‚É“ü‚Á‚Ä‚¢‚镶Žš‚Í Š®‘S‚Ɉê’v‚µ‚Ä‚¢‚Ü‚·‚©H
Sheet1‚ÌB,D—ñ‚É’¼Ú“ü—Í‚·‚é‚Ì‚Å‚Í‚È‚ ‘Ήž•\‚ÌA—ñ‚ÌŠY“–ƒZƒ‹‚©‚ç ƒRƒs[‚µ‚Ä“\‚è•t‚¯‚Ä‚Ý‚é‚Æ‚Ç‚¤‚Å‚µ‚傤H
‚È‚¨AC,E—ñ‚Í@”N.ŒŽ.“ú@‚Æ‚R‚‘µ‚¦‚Ä“ü—Í‚·‚é‚© uHvˆ½‚¢‚Í@–¢“ü—Í‚É‚µ‚ĉº‚³‚¢B @@’A‚µAŽq‚Ìꇂ͓ü—Í‚ª•K—v‚Å‚·B
Œ³”N‚ÌꇂÍA1@‚Æ‚ ‚ç‚킵‚Ä“ü—Í‚µ‚ĉº‚³‚¢B —Ⴆ‚ÎA•½¬Œ³”N12ŒŽ31“ú¶‚Ü‚ê‚Ìê‡‚Í @B—ñ‚É@•½¬ @C—ñ‚É@1.12.31 ‚Æ“ü—Í‚µ‚Ü‚·B
„“ì–k’©‚Ì2dŒ³†‚Ìê‡@‘Ήž•\‚ð „EEEi’†—ªjEEE „‚Æ‚µ‚Ä‚æ‚¢‚Å‚µ‚傤‚©B o—ˆ‚Ü‚¹‚ñB
„E—ñ‚̘a—ï‚͉i“¿1A‰ž‰i1‚̂悤‚É‚P‚ð“ü‚ê‚Ä‚¨‚•K—v‚ª‚ ‚é‚Å‚µ‚傤‚©B A,B—ñ‚àAD,E—ñ‚à@“ü—Í‚·‚éƒf[ƒ^‚Í uŒ³”N‚ª‘Ήž‚·‚é¼—ïv‚Å—L‚邱‚Æ‚Í•Ï‚í‚è‚Ü‚¹‚ñB
‚»‚µ‚ÄAA—ñ‚É“ü—Í‚µ‚Ä‚¢‚é‚悤‚É ‰i“¿@‰ž‰i@‚ÆA”N†‚¾‚¯‚ð“ü—Í‚µ‚ĉº‚³‚¢B
‚‚܂èA¼—礼a—ï‚̑Ήž•\‚Í A,B—ñ‚É“ü—Í‚µ‚½ƒf[ƒ^‚Ì“à @”N‚ªd‚È‚ç‚È‚¢‚悤‚ÉAŠŽ‚Â@Œ³”N‚̃f[ƒ^‚Ì‚Ý ‚ð‘I‚ñ‚Å쬂µ‚Ä‚‚¾‚³‚¢B
1393”N‚Í–¾“¿4”N‚Ƭ‚Á‚Ä‚¢‚Ü‚·‚ªAD,E—ñ‚É 1393@–¾“¿@‚Æ‘‚‚ÆA1393”N‚ª–¾“¿Œ³”N‚Å‚ ‚é‚ÆŒ©‚È‚µ‚Ü‚·‚Ì‚Å ‹C‚ð•t‚¯‚ĉº‚³‚¢B
(HANA)
–Y‚ê‚Ä‚¢‚Ü‚µ‚½B
„2: Œ³†‚P”N‚ÍŒ³”N‚Æ•\‹L‚µ‚½‚¢B“Á‚ÉB—ñ‚ÅB Sheet2‚ÌB—ñ‚Í‚»‚Ì—l‚É•ÏX‚µ‚Ü‚µ‚½B ‚Ü‚½A“¯‚¶•”•ª“à‚Å–â‘肪Œ©‚‚©‚è‚Ü‚µ‚½‚Ì‚Å ‚»‚¿‚ç‚àC³‚µ‚Ü‚µ‚½B
•ÏX‚µ‚½‚Ì‚ÍuPrivate Sub np(y, nn, nr, sr)v‚Ì•”•ª‚¾‚¯‚Å‚·‚ª ƒ}ƒNƒ–¼‚ðV‚½‚Éi5j‚µ‚Ü‚µ‚½‚Ì‚Å ‚à‚¤ˆê“x“\‚è•t‚¯’¼‚µ‚Ä’¸‚¯‚ê‚΂Ǝv‚¢‚Ü‚·B
(HANA) 2009/7/4 19:49
Œ³†‚ÌŒã‚ë‚É”¼ŠpƒXƒy[ƒX‚ª‚ ‚Á‚½‚Ì‚ð‚ЂƂ‚ЂƂœ‚«‚Ü‚µ‚½B
³‚µ‚@“Ç‚ß‚Ä@•\‹L‚³‚ê‚Ü‚µ‚½B
‘Ήž•\‚ÌD,E—ñ‚ª‚Ü‚¾—‰ð‚Å‚«‚Ä‚¢‚È‚¢‚Å‚·B 1381 ‰i“¿ 1384 Œ³’†/ŽŠ“¿ 1385 Œ³’†2/ŽŠ“¿2 1386 Œ³’†3/ŽŠ“¿3 1387 Œ³’†4/‰ÃŒc1 1388 Œ³’†5/‰ÃŒc2 1389 Œ³’†6/N‰ž1 1390 Œ³’†7/–¾“¿1 1394 ‰ž‰i ¼—ï[˜a—ï‘Ήž‚Å‚Í@Œ³’†‚©A•ÊŒ³†‚©‰½‚ê‚©‚ð‘I‘ð‚µ‚È‚¢‚Æ‚¢‚¯‚È‚¢‚Æ‚¢‚¤‚±‚Æ‚Å‚µ‚傤‚©H ‚à‚µ@‚»‚¤‚È‚çi“ì–k‚Ç‚¿‚炪‚Ç‚¤‚©l‚¦‚¸‚Éj@•Ï‰»‚Ì‚È‚¢Œ³’†‚ð‘I‚Ñ‚Ü‚·B
ƒ}ƒNƒi‚Tj‚ª‹LÚ‚³‚ê‚Ä‚¢‚È‚¢‚Ì‚Å‚·‚ª@
„¼—ï[˜a—ï‘Ήž‚Å‚Í@Œ³’†‚©A•ÊŒ³†‚©‰½‚ê‚©‚ð‘I‘ð‚µ‚È‚¢‚Æ‚¢‚¯‚È‚¢‚Æ‚¢‚¤‚±‚Æ‚Å‚µ‚傤‚©H ‚»‚¤‚Å‚·B
u1387”N‚ÍA‚Ç‚¿‚ç‚ð•\Ž¦‚³‚¹‚½‚¢‚Ì‚©@‚»‚¿‚ç‚ÅŒˆ‚߂ĉº‚³‚¢B @—Ⴆ‚ÎAŒ³’†4‚Æ•\Ž¦‚³‚¹‚½‚¢‚È‚ç @D,E—ñ‚É‚Í@1384 Œ³’†@‚Ì•û‚¾‚¯‚ð‘‚¢‚Ä @‰ÃŒc‚Ì•û‚Í“ü—Í‚µ‚È‚¢ @‰ÃŒc1‚Æ•\Ž¦‚³‚¹‚½‚¢‚È‚çA1387 ‰ÃŒc@‚Ì•û‚ð‘‚¢‚Ä @Œ³’†‚Í‘‚©‚È‚¢Bv ‚Å‚·B
„‚à‚µ@‚»‚¤‚È‚çi“ì–k‚Ç‚¿‚炪‚Ç‚¤‚©l‚¦‚¸‚Éj@•Ï‰»‚Ì‚È‚¢Œ³’†‚ð‘I‚Ñ‚Ü‚·B ‚Å‚µ‚½‚çA @@1381 ‰i“¿ @@1384 Œ³’† @@1394 ‰ž‰i ‚Æ“ü‚ê‚ĉº‚³‚¢B
‚½‚¾‚µA‚±‚Ì—l‚É‚·‚é‚Æ Sheet2‚É‚Í@ŽÀÛ‚É‚Í–³‚¢@Œ³’†10@‚ª•\Ž¦‚³‚ê‚Ü‚·B
‚¢‚‚‚©”N†‚ªd•¡‚·‚éŠúŠÔ‚ª‚ ‚é’†‚Å@Ž„‚ª‚±‚Ì•”•ª‚ðˆø—p‚µ‚½‚Ì‚Í ‚±‚ÌuŒ³’†10v‚ª–â‘è‚É‚È‚è‚»‚¤‚ÉŽv‚Á‚½ˆ×‚Å‚·B
æ‚É‘‚¢‚½•”•ª‚Å‚·‚ª uA—ñ‚É•\Ž¦‚³‚¹‚鎞‚É‚Ç‚¤‚¹Œ¾‚í‚ê‚Ä‚à•ª‚©‚ç‚È‚¢‚©‚çA @˜a—ï‚Í‚¨‚¨‚æ‚»‘‚¢‚Ä‚ ‚ê‚Ηǂ¢‚æ @i–{“–‚ÍAŒ³’†10”N‚Í–³‚¢—l‚Å‚·‚ª@‚»‚Ì—l‚É•\Ž¦‚³‚ê‚Ä‚à‘債‚½–â‘è‚É‚µ‚È‚¢j @‚ÆŒ¾‚¤Ž–‚Å‚ ‚ê‚ÎA‚Ç‚¿‚ç‚Ì”N†‚ðŽg‚¤‚©@‚ÆŒ¾‚¤Ž–‚ÉŠÖ‚µ‚Ä‚Í @‚»‚ñ‚È‚É‹C‚É‚µ‚È‚‚Ä‚à—Ç‚¢‚Ì‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ªBBBv ‚±‚Ì•”•ª‚Ì‚±‚Æ‚Å‚·‚ªEEE‰ü‚߂ēǂނƈӖ¡‚ª’Ê‚¶‚Ü‚·‚©H @ @ @ „1: ˜a—ï“ü—Í‚Í@Œ³”N‚à1.2.30‚̂悤‚É‚»‚낦‚½‚¢B ‚±‚ê‚Íu”N†‚¾‚¯“ü—Í‚ª—L‚éꇂÍAŒ³”N‚Ì”N‚Æ‚µ‚Ĉµ‚¢‚Ü‚·Bv ‚ð“Ç‚ñ‚Å‚Ì‚±‚Æ‚¾‚Á‚½‚Ì‚Å‚·‚ËB
‚±‚±‚ÍA‚»‚¤‚¢‚Á‚½ˆÓ–¡i1”N‚ÌꇂÍÈ—ª‚µ‚Ä@ŒŽ“ú‚Ì‚Ý“ü—Í‚·‚éj‚Å‚Í‚È‚ ‚½‚Æ‚¦‚ÎA1000”N¶‚Ü‚ê‚Ìl‚ª‹‚½‚Æ‚µ‚Ü‚·‚ËB ‚»‚µ‚ÄAº˜a¶‚Ü‚ê‚Ìl‚ª‹‚½‚Æ‚µ‚Ü‚·‚ËB º˜a¶‚Ü‚ê‚Ìl‚ÍAº˜a¶‚Ü‚ê‚Å‚ ‚鎖‚¾‚¯‚ª•ª‚©‚Á‚Ä‚¢‚Ä ‰½”N‚̉½ŒŽ‚¾‚Á‚½‚Ì‚©‚Ü‚Å‚Í@‚í‚©‚ç‚È‚©‚Á‚½‚Æ‚µ‚Ü‚·B
¶”NŒŽ“ú•”•ª‚ð@H@‚Æ‚µ‚Ä‚µ‚Ü‚¤‚ÆA¶”NŒŽ“ú•s–¾‚ňês–Ú‚É•\Ž¦‚³‚ê‚Ä‚µ‚Ü‚¢‚Ü‚·‚ËB –{“–‚ÍA‚à‚Á‚Ɖºi900s’ö“x‰ºj‚É”z’u‚³‚ê‚ê‚Ηǂ¢‚Ì‚ÉBBB
‚»‚¤‚¢‚Á‚½ê‡‚ÍA¶”N†‚Éuº˜av‚Æ“ü‚ê‚Ä ”NŒŽ“ú‚ðuHv‚ ‚é‚¢‚Í–¢“ü—Í‚É‚µ‚Ä‚¨‚‚Æ º˜aŒ³”N‚ɶ‚܂ꂽ‚Æ‚µ‚Ĉµ‚¢‚Ü‚·B iŽq‚Å‚È‚A˜A‚ꇂ¢‚æ‚èã‚É“ü—Í‚³‚ê‚Ä‚¢‚½‚çA @º˜aŒ³”N‚É“ñl‚Ì–¼‘O‚ð•À‚ׂéj
‚Æ‚¢‚¤ˆÓ–¡‚Å‚µ‚½B
‚Ì‚Å‚·‚ªBBB•ª‚©‚è‚Ü‚·‚©BBBH
‚¿‚È‚Ý‚ÉA”NŒŽ“ú‚Ì•û‚Í@u.v‚Å•ª‚¯‚½Å‰‚Ì‹æØ‚è‚ð ”N‚Æ‚µ‚Ĉµ‚¢‚Ü‚·B
‚½‚Æ‚¦‚ÎA“V•Û@12.22@‚ÍA“V•Û12”N@‚Æl‚¦‚Ü‚·B
„ƒ}ƒNƒi‚Tj‚ª‹LÚ‚³‚ê‚Ä‚¢‚È‚¢‚Ì‚Å‚·‚ª@ ƒR[ƒh‚ª’·‚¢‚Ì‚ÅAã‚̃R[ƒh‚ð’¼Ú•ÏX‚µ‚Ä ƒR[ƒh–¼‚à•ÏX‚µ‚Ü‚µ‚½B
¶”NŒŽ“ú‚ª‚»‚ë‚Á‚Ä‚¢‚é‚©‚ÌŠm”F‚É@LEN()>=7 ‚ðŽg‚Á‚Ä‚¢‚Ü‚µ‚½‚ª –â‘肪‚ ‚é—l‚È‚Ì‚ÅA‚±‚Ì•”•ª‚ÌC³‚ð‚µ‚½‚à‚Ì‚ð nenpyokeifu_6‚Æ‚µ‚ÄAã‚ÉÚ‚¹‚Ä‚¨‚«‚Ü‚·B
‚»‚µ‚ÄA¡ ‹C‚¢‚½‚Ì‚Å‚·‚ªA999”N¶‚Ü‚ê‚Ìl‚ª“ü—Í‚³‚ê‚½ê‡ Sheet2‚Ì1s–Ú‚Í998”N‚É‚È‚è‚Ü‚·‚Ì‚Å@‘Ήž‚·‚é”N†‚ª •K—v‚É‚È‚è‚Ü‚·B ‚»‚±‚ÅA‘Ήž•\‚Ì2s–Ú(D,E—ñ)‚Í@995 ’·“¿@‚©‚çŽn‚߂ĉº‚³‚¢B
(HANA) 2009/7/4 23:35
1392 Œ³’†9/–¾“¿3 1393 –¾“¿4
‚â‚Á‚Æ‚í‚©‚è‚Ü‚µ‚½BŒ³’†‚Í9”N‚Å‚¨‚í‚Á‚ÄA–¾“¿‚S”N’P“Æ‚É‚È‚Á‚½‚Ì‚ÅA‚»‚±‚¾‚¯ 2d‚Å‚È‚‚È‚Á‚½B‚»‚ê‚Å‚Í@ŽŠ“¿@‰ÃŒc‚ç‚Ì•û‚ð‹LÚ‚µ‚Ü‚·B
”N†‚Ì‚Ý‹LÚ‚Ì‚±‚Æ‚à‚í‚©‚è‚Ü‚µ‚½B ‚±‚ê‚Å‚Í@ŽÀۂ̃f[ƒ^‚ð‚¢‚ê‚Ä@ì}‚µAŽè‚Å“‡‚µ‚Ă݂悤‚ÆŽv‚¢‚Ü‚·B
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½
Žq‹ŸŒnü‚Í@‚»‚Ì—¼e‚ª–³‚‚È‚ê‚Î@L‚Ñ‚È‚¢‚Ì‚ÅÅŒã‚Ì–v”N‚Ü‚ÅA•Ðe‚ª‹‚ê‚ÎŒ»Ý‚Ü‚Å•`‚«AXˆó‚ð‚‚¯‚邱‚Æ‚ð‚µ‚Ä‚Ý‚æ‚¤‚ÆŽv‚¢‚Ü‚·B ƒR[ƒh‚ð’ljÁ‚µ‚Ă݂悤‚Æ‚ª‚ñ‚΂Á‚Ä‚Ý‚Ü‚·B‰ó‚³‚È‚¢‚悤‚ɃRƒs[‚ÆŽæ‚Á‚Ä‚â‚è‚Ü‚·B @“|‚êAŽ©—Í‚Å—§‚¿ã‚ª‚ê‚È‚¢‚Æ‚«‚É‚Í‚Ü‚½‰‡•‚ð‚¨‚Ë‚ª‚¢‚µ‚Ü‚·B ‚Å‚Í@‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B
‚»‚µ‚ăR[ƒh‚ð‚©‚¦‚Ü‚µ‚½B
cyi = tbl1(i, 8) xr = cyi - nn + 1 @@'If tbl1(i, 6) = "M" Then If tbl1(i, 7) Like "*[‘§Žq]*" Then sb = "¢" ElseIf tbl1(i, 7) Like "*[–º]*" Then sb = "¥" Else 'ŠÖŒW‚ª–³‹LÚ sb = "" End If If x(xr, xc + 3) <> "" And x(xr - 2, xc + 3) = "" Then x(xr - 2, xc + 3) = x(xr, xc + 3) x(xr, xc + 3) = "" End If
‚±‚ê‚Í–³Ž–‚É“®ì‚µ‚Ä‚¢‚Ü‚·B‚»‚±‚Å@«•Ê—“‚𜂫A6—ñ‚µ‚©Žg‚í‚È‚¢‚±‚Æ‚É‚µ‚½‚¢‚Ì‚Å‚·B
tbl1(i, X)‚Í@is‚ÌX—ñ–¼‚̃f[ƒ^‚Å‚Í‚È‚¢‚Å‚µ‚傤‚©H ‹³‚¦‚Ä’¸‚«‚½‚¢‚Ì‚Í@tbl1(i, ‚W)`tbl1(i, 11)‚Ü‚Å‚ ‚é‚Ì‚Å‚·‚ª@‚±‚ê‚ÍSheet1•\‚̃f[ƒ^‚Å‚µ‚傤‚©? Å‘å7—ñ‚µ‚©‚È‚¢‚ÆŽv‚Á‚Ä‚¢‚é‚Ì‚Å‚·‚ªA¬¶¬—‚µ‚Ä‚¢‚Ü‚·B
‚Í‚ñ‚É‚á
‚¢‚Ü@sheet1@
51 ˆÀ“cŠ¨Žµ ? ? –¾Ž¡ 10.6.23 •v 52uדcváÁ ? ? ˆÀ 6.8.5 È 53 ŽŸ‘¾˜Y ˆÀ 2.11.3 ‘å³ 3.10.26 ‘§Žq 54 55 ˆÀ“c´‘¾˜Y ? ? –¾Ž¡ ? •v 56 –F–¼•sÚ ? ? ˆÀ ? È
‚Í@sheet2 ‚É(‚±‚Ò[‚ª•sˆÀj
¢ŒÌ_ˆÀ“cŠ¨Žµ===¥ŒÌ_uדcváÁ ¢ŒÌ_ˆÀ“c´‘¾˜Y===¥ŒÌ_–F–¼•sÚ b ?@`–¾Ž¡10.6.23 b ?@`–¾Ž¡? b b ?@`ˆÀ6.8.5 b ?@`ˆÀ? b
‚Å‚·‚ªA‚³‚ç‚É@
57 Žs‘ “V•Û 5.9.18 ‘å³ 9.8.18 ‘§Žq ‚ð’ljÁ‚·‚é‚Æ@ƒGƒ‰[@ƒCƒ“ƒfƒbƒNƒX‚͈̔͊O‚Å‚ ‚éA‚Æo‚Ü‚·B ‚Ç‚¤‚µ‚Ä‚Å‚µ‚傤‚©H
‚±‚ê‚ð‹@‰ï‚É‚¨‚µ‚¦‚Ä‚‚¾‚³‚¢BƒGƒ‰[@‚ ‚é‚¢‚̓ƒbƒZ[ƒW‚ªo‚½‚Æ‚«‚̃R[ƒh‚̈ʒu‚Í
ˆÈ‘O@‰©F•\Ž¦‚Å‚Å‚½‚悤‚É‹L‰¯‚µ‚Ä‚¢‚é‚Ì‚Å‚·‚ªA‚¢‚‚̂܂ɂ©@o‚È‚‚È‚Á‚½‚Ì‚Å‚·‚ª
@‚ǂ̂悤‚É‚µ‚½‚ç@o‚Ä‚‚é‚Å‚µ‚傤‚©HH
‚Ü‚¸ nenpyokeifu_7‚ð쬂µ‚Ä‚Ý‚Ü‚µ‚½B ‚±‚ê‚Í „57 Žs‘ „‚ð’ljÁ‚·‚é‚Æ@ƒGƒ‰[@ƒCƒ“ƒfƒbƒNƒX‚͈̔͊O‚Å‚ ‚éA‚Æo‚Ü‚·B ‚±‚ÌŽž‚É‹N‚«‚Ä‚¢‚é‚ÆŽv‚í‚ê‚é–â‘è‚ðC³‚µ‚Ä‹‚Ü‚·B
nenpyokeifu_6–˜‚ÍAˆê”Ô¬‚³‚¢”N‚Ì1”N‘O‚ð ”N•\‚ÌŠJŽn”N‚Æ‚µA“¯Žž‚É‚Ý‚È‚µ‚Ì’a¶”N‚ÉŽg—p‚µ‚Ä‹‚Ü‚µ‚½‚ª ‚±‚ê‚ð4”N‘O‚É‚·‚鎖‚É‚µ‚Ü‚µ‚½B
ƒGƒ‰[‚ªo‚éƒf[ƒ^‚ðÚ‚¹‚Ä‚à‚ç‚¢‚Ü‚µ‚½‚ª ‚»‚Ì‘¼‚̃f[ƒ^‚ª‚Ç‚Ì—l‚É“ü‚Á‚Ä‚¢‚é‚Ì‚©•ª‚©‚è‚Ü‚¹‚ñ‚Ì‚Å –â‘è‚ÍA¡‰ñ„‘ª‚µ‚½“_‚Ƃ͈ႤŠ‚É—L‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñB
ƒGƒ‰[‚ª‰ðÁ‚³‚ê‚È‚¢—l‚Å‚ ‚ê‚ÎAƒGƒ‰[‚ªo‚鬂³‚ȃf[ƒ^‚ð 쬂µAÚ‚¹‚ĉº‚³‚¢B i51s–Ú‚©‚ç‚̃f[ƒ^‚Å‚·‚Ì‚ÅA50s–Ú–˜‚ª @‚ǂ̂悤‚É‚È‚Á‚Ä‚¢‚é‚Ì‚©‚í‚©‚è‚Ü‚¹‚ñB @‚Å‚·‚Ì‚ÅA2s–Ú‚©‚çƒf[ƒ^‚ð”z’u‚µ‚ÄAƒGƒ‰[‚É‚È‚é‚悤‚È @ƒTƒ“ƒvƒ‹ƒf[ƒ^‚ð쬂µ‚Ä‚¢‚½‚¾‚¯‚ê‚΂Ǝv‚¢‚Ü‚·Bj
‚»‚Ì•ÏX‚ª1“_‚ÆA‚à‚¤1“_ „«•Ê—“‚𜂫A6—ñ‚µ‚©Žg‚í‚È‚¢‚±‚Æ‚É‚µ‚½‚¢‚Ì‚Å‚·B ‚±‚¿‚ç‚É‚à‘Ήž‚³‚¹‚Ü‚µ‚½‚Ì‚ÅA«•Ê‚Ì—ñ‚Í휂µ‚ÄŽŽ‚µ‚ĉº‚³‚¢B
‚È‚¨A‚±‚ê‚ÉŠÖ‚·‚é•ÏX“_‚Í@tbl1(i, 7) ¨ tbl1(i, 6) ‚Ö ’uŠ·‚µ‚½‚¾‚¯‚Å‚·B
„ƒGƒ‰[@‚ ‚é‚¢‚̓ƒbƒZ[ƒW‚ªo‚½‚Æ‚«‚̃R[ƒh‚̈ʒu‚͈ȑO „‰©F•\Ž¦‚Å‚Å‚½‚悤‚É‹L‰¯‚µ‚Ä‚¢‚é‚Ì‚Å‚·‚ªA‚¢‚‚̂܂ɂ©@o‚È‚‚È‚Á‚½‚Ì‚Å‚·‚ª „‚ǂ̂悤‚É‚µ‚½‚ç@o‚Ä‚‚é‚Å‚µ‚傤‚©HH Ž„‚ÍAo‚È‚‚È‚Á‚½Ž–‚ª–³‚¢‚Ì‚Å•ª‚©‚è‚Ü‚¹‚ñB
ƒGƒ‰[‚Ì•\Ž¦‚ª‚³‚ꂽŽž‚É [I—¹(E)] [ƒfƒoƒbƒO(D)] [ƒwƒ‹ƒv(H)]‚Ì ‚R‚‚̃{ƒ^ƒ“‚ª‰Ÿ‚¹‚éó‘Ô‚¾‚ÆŽv‚¢‚Ü‚·‚ªA‚±‚Ì‚¤‚¿ [ƒfƒoƒbƒO(D)] ‚ð‰Ÿ‚µ‚Ä‚àAŠY“–‰ÓŠ‚ª‰©F‚¬‚è‚Ü‚¹‚ñ‚©H
[I—¹(E)] ‚ð‘I‚ñ‚¾‚Ì‚Å‚ÍA‰©F‚¬‚è‚Ü‚¹‚ñB
‚È‚¨AWebã‚ð’T‚¹‚Î@–³—¿‚Ńtƒ@ƒCƒ‹‚ðÚ‚¹‚ç‚ê‚éꊂª‚¢‚‚‚©—L‚è‚Ü‚·B ‚±‚¿‚ç‚ÌŒfŽ¦”‚ÅA•¶Í‚Å‚Ì‚²à–¾‚Æ‹¤‚É@‚»‚Ì—l‚ÈŠ‚ð’T‚µ —˜—p‚µ‚Ä’¸‚‚Ì‚à—Ç‚¢‚ÆŽv‚¢‚Ü‚·B
Šî–{“I‚É‚ÍA“¯‚¶ƒR[ƒh‚ðŽg—p‚µ‚Ä‚¢‚ÄASheet1‚ª“¯‚¶‚È‚ç Sheet2‚Ö‚ÍA“¯‚¶Œ‹‰Ê‚ª“¾‚ç‚ê‚é‚ÆŽv‚¢‚Ü‚·‚Ì‚Å Sheet2‚Ìó‘Ô‚ÍÚ‚¹‚Ä‚à‚ç‚í‚È‚‚Ä‚à‘åä•v‚ÆŽv‚¢‚Ü‚·B
‚½‚¾‚µAuSheet1‚ª“¯‚¶‚È‚çv‚ªðŒ‚Å‚·‚Ì‚Å ¡‰ñASheet1‚Ì51s–Ú‚©‚ç‚̃f[ƒ^‚ðÚ‚¹‚Ä‚¨‚ç‚ê‚é—l‚Å‚·‚ª ‚±‚Ì•”•ª‚ð2s–Ú‚©‚ç”z’u‚µ@ŽÀs‚µ‚Ä‚Ý‚½Žž‚Ì Šó–]‚ƈقȂ铮‚«‚âA•s‹ï‡‚È‚Ç‚ð‹³‚¦‚Ä’¸‚¯‚ê‚΂Ǝv‚¢‚Ü‚·B
(HANA) 2009/7/6 22:40
‘O‚U”Å‚ÅAƒGƒ‰[‚ª‚Å‚È‚¢‚悤‚Ƀf[ƒ^‚ð‰¼’u‚«‚µ‚Ä@“®‚©‚Ü‚µ‚½B‚»‚̃f[ƒ^‚Å‚V”Å‚à“®‚«‚Ü‚µ‚½B
±×‚È‚±‚Æ‚Å‚·‚ª@ŌÔN‚Ì•\Ž¦(˜a—ï”Nj‚ª•s“s‡iˆê”N‰ÁŽZj‚Å‚µ‚½B
“V–¾ 3 1782 3 1783 4 1784
Sheet–¼‚Ì•ÏXA‹”N•\‹Li—]”’‚Æ"F"j‚Ìíœ‚ð‚µ‚Ü‚µ‚½B With Sheets("ƒf[ƒ^•\") With Sheets("”N†‘Ήž•\") With Sheets("Œn•ˆ}") sngpse = sngpse & "‹”N" & se - ss + 1
æ‚̃f[ƒ^•s—Ç‚É‚æ‚éIndex”͈͊O‚̃Gƒ‰[‚Ío‚È‚‚È‚è‚Ü‚µ‚½B ‚»‚Ìã‚ÅAŒÃ‚¢‘cæ‚≓‰‚̃f[ƒ^‚É‚Í•s–¾‚ª‘½‚AŽ–¼‚Í•sÚ•¶ŽšAŒŽ“ú‚ÍX.?.?‚Å–â‘è‚È‚¢‚Ì‚Å‚·‚ª Œ³†‚â”N”‚ª•s–¾‚Ìꇂ͉¼‚̃f[ƒ^‚É‚µ‚È‚¢‚ÆiŌÔN‚⌳”N‚Å‚à—Ç‚¢‚ªA–{“–‚©‚Ç‚¤‚©Œã“ú•s–¾‚É‚È‚éj”@‰½‚Æ‚à‚µ‚ª‚½‚¢B‚»‚±‚ÅA –v”N‚àŠÜ‚ß‚ÄAh‰¼h‚Ì“ü—Í‚ð‚µ‚Ä@‚»‚ÌŽ|‚ðŒ‹‰Ê‚ÉhŒc‰žHh‚Æ‚©hŒc‰ž3?.?.?h‚Ì”@‚•\‹L‚µ‚½‚Ì‚Å‚·‚ª@”@‰½‚Å‚µ‚傤‚©B ‚æ‚낵‚@‚¨‚Ë‚ª‚¢‚µ‚Ü‚·BGoogle‚ ‚½‚è‚Ƀtƒ@ƒCƒ‹‚ðÚ‚¹‚é‚悤‚Él‚¦‚Ü‚·B
@
'y(1, 2) = nn - Application.Index(sr, ti) + 1 'ˆê”N‰ÁŽZ‚³‚ꂽ y(1, 2) = nn - Application.Index(sr, ti)
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·
[2]’·“c(V’¬)•¶”V• ? ? “V–¾ 7.7.20 •ƒ [3]–F–¼•sÚ ? ? •¶‰» 13.8.27 •ê [4]ˆÉ‰E‰q–å(’·»‰Æ •¶‰» 1.3.10 ˆÀ 4.6.30 ‘§Žq [5] [6]’·“cˆÉ‰E‰q–å(’·»‰Æ •¶‰» 1.3.10 ˆÀ 4.6.30 •ƒ ˆÈ‰º—ª
‚í‚©‚è‚Ü‚µ‚½BŒ©Š|‚¯‚Í’P‚ÉhHh‚È‚Ì‚Å‚·‚ª@‚Ç‚¤‚µ‚½‚킯‚©hƒXƒy[ƒXHh‚Å‚ ‚Á‚½‚Ì‚Å
ƒXƒy[ƒX‚ð‚Æ‚Á‚½‚ç@‚¤‚²‚«‚Ü‚µ‚½B
Œ³†‚Ì‚Æ‚«‚à‚»‚¤‚Å‚µ‚½BƒXƒy[ƒX‚ª–¾Ž¦‚³‚êA—eˆÕ‚É‹C‚‚悤‚É‚©@“ü‚ç‚È‚¢‚悤‚É‚·‚é•û–@‚Í‚ ‚é‚Ì‚Å‚µ‚傤‚©@
Ž„‚ÍA‚Í‚ñ‚ɂႳ‚ñ@ˆ½‚¢‚Í Œˆ‚ß‚ç‚ꂽƒ‹[ƒ‹‚É‘¥‚Á‚Ä“ü—Í‚ªo—ˆ‚é•û ‚ªŽg—p‚·‚é‚ÆŽv‚Á‚ăR[ƒh‚ð‘‚¢‚Ä‚¢‚Ü‚·‚ª ‚»‚Ì“_‚Í‚²—‰ð’¸‚¯‚Ä‚¢‚Ü‚·‚©H
‘OƒXƒŒ‚̉‚Á‚Ï‚È‚É‚à ŸŒäŽg—p‚ɬ‚ç‚ê‚éꇂÍAƒ‹[ƒ‹‚É‘¥‚Á‚½ƒf[ƒ^‚ð @—pˆÓ‚µ‚Ä‚¨‚¢‚Ä‚à‚炤•K—v‚ª—L‚è‚Ü‚·B Ÿ‚ ‚‚Ü‚Å‚àuŠ®àø‚È•¨v‚Å‚Í‚ ‚è‚Ü‚¹‚ñ‚Ì‚Å @•K—v‚ÈŠ‚Í‘‚«o‚µ‚½Œã‚ÅAŽè’¼‚µ‚ð‚µ‚Ä‚‚¾‚³‚¢B ‚Æ‘‚«‚Ü‚µ‚½‚ªAƒR[ƒh“I‚É‚à‚»‚Ì’ö“x‚Ì•¨‚Å‚·B
‚µ‚©‚àA‚±‚ê‚Á‚Ä@Žg‚¢ŽÌ‚Ä‚Å‚·‚æ‚ËH ƒ}ƒNƒ‚ðŽÀs‚µ‚ÄAŒn•ˆ}‚ð쬂µAƒŒƒCƒAƒEƒg‚𮂦‚Ä‚à Ä“xŽÀs‚·‚é‚ÆAƒŒƒCƒAƒEƒg‚ð‘S‚Ä®‚¦’¼‚·•K—v‚ªo‚Ä‚«‚Ü‚·‚Ì‚Å “ñ‰ñ–Ú‚ÌŽÀs‚Ío—ˆ‚È‚¢‚ÆŽv‚¢‚Ü‚·B
‚»‚ñ‚È‚É‘òŽR‚ÌŒn•ˆ}‚ð쬂·‚é—\’肪—L‚é‚킯‚Å‚à–³‚¢‚Ì‚Å‚·‚æ‚ËH
ƒR[ƒh‚͈ꉞAnenpyokeifu_8‚ð쬂µ‚Ü‚µ‚½B
„Œ³†‚â”N”‚ª•s–¾‚Ìꇂ͉¼‚̃f[ƒ^‚É‚µ‚È‚¢‚Æ ‚±‚ꂪ‚Ç‚Ì—l‚È“ü—Í‚ð‘z’肵‚Ä‹‚ç‚ê‚é‚Ì‚©—Ç‚•ª‚©‚è‚Ü‚¹‚ñ‚ª ‚±‚Ì—l‚È“ü—͂ւ̑Ήž‚ð‘z’肵‚Ü‚µ‚½B ”N† ”NŒŽ“ú Œc‰ž ? @Œc‰žŒ³”Nˆµ‚¢ Œc‰ž 3?.?.? @Œc‰ž30”Nˆµ‚¢ 19??.?.? @1900”Nˆµ‚¢
„ŌÔN‚Ì•\Ž¦(˜a—ï”Nj‚ª•s“s‡iˆê”N‰ÁŽZj‚Å‚µ‚½B ‚±‚¿‚ç‚ÍC³‚µ‚Ü‚µ‚½B
„ƒXƒy[ƒX‚ª–¾Ž¦‚³‚êA—eˆÕ‚É‹C‚‚悤‚É‚©@“ü‚ç‚È‚¢‚悤‚É‚·‚é•û–@ ƒR[ƒh“à‚ÉTrim‚ð’ljÁ‚µ‚Ü‚µ‚½B
(HANA)@2009/7/9 0:51
Žg‚¢ŽÌ‚Ä‚Å‚Í‚È‚¢‚©‚Æ‚Ì‹^”O‚Í‚à‚Á‚Æ‚à‚Å‚·‚ªA‚»‚ñ‚È‚à‚Á‚½‚¢‚È‚¢‚±‚Æ‚ð
‚·‚é‚‚à‚è‚Í‚ ‚è‚Ü‚¹‚ñiHana‚³‚ñ‚ÉŽ¸—ç‚Å‚·‚µA¬¶Ž©g‚à‚»‚ê‚È‚è‚̃Gƒlƒ‹ƒM‚ð
”ï‚₵‚Ä‚¢‚邱‚Æ‚à‚ ‚è‚Ü‚·jB‚È‚‚Æ‚àg“à‚Å‚±‚ê‚Í•Ö—˜‚Æ”F‚ß‚Ä‚¢‚éi‚±‚ê‚©‚ç‚Ì‚±‚Ç‚à‚Ì“à‚Å”F‚ß‚é‚Å‚ ‚낤j
ŽÒ‚É‚Í@‘å‚¢‚ÉL‚ß‚Äs‚±‚¤‚Æl‚¦‚Ä‚¢‚Ü‚·B
‚»‚Ì‚½‚ß‚É‚à@‚¿‚å‚Á‚Æ‚Å‚àŽg‚¢‚â‚·‚¢‚à‚Ì‚Æ@‚¢‚ë‚¢‚남Šè‚¢‚µ‚Ä‘å‚¢‚Ȃ邲Žw“±‚𒸂¢‚½‚±‚Æ‚ðŠ´ŽÓ‚µ‚Ü‚·B
@
ƒXƒy[ƒXƒ~ƒX‚ɂ‚¢‚Ä@‚»‚é‚Ù‚ÇTrim‚Æ‚¢‚¤•Ö—˜‚È‹@”\‚ð’ljÁ’¸‚«@‚ ‚肪‚½‚¢‚Å‚· ‘æˆês”Ni@Œ‹‰Ê@“V–¾‚Qj‚Í@¶”NA–v”Nƒf\ƒ^‚ÌŌÔNiƒf[ƒ^@“V–¾7”Nj‚©‚ç Œˆ‚Ü‚Á‚½‚Æ‚¨‚à‚¤‚Ì‚Å‚·‚ªA5”N‘O‚Æ‚·‚郋[ƒ‹‚Å‚µ‚傤‚©H(ˆÈ‘O‚Éà–¾‚ª‚ ‚Á‚½‚©‚à‚µ‚ê‚È‚¢‚Ì‚Å‚·‚ª@‹L‰¯‚Æ‹L˜^‚ª‚½‚Ç‚ê‚È‚‚·‚Ý‚Ü‚¹‚ñj
ƒf[ƒ^‚Ì“ü—͂̓‹[ƒ‹‚É]‚¢Aƒ~ƒX‚ð‚È‚‚·‚±‚Æ‚ð‘O’ñ‚ÉŽg‚¢‚½‚¢‚Æ‚ÍŽv‚¢‚Ü‚·B
‚½‚¾ƒf[ƒ^Ž©‘Ì‚ª@‰“‰‚â@‘cæ‚É‚Í•s–¾‚Ìꇂª‘½‚A
‚»‚¤‚©‚Æ‚¢‚Á‚Ä@Œ©‚È‚µ‚ÌŒ‹‰Ê‚ðŒã‚©‚ç“Ç‚ñ‚¾‚Æ‚«‚ÉA‚»‚Ì‚Æ‚¨‚è‚Æ“`‚í‚é‚Ì‚Í”ð‚¯‚½‚¢‚Æ
‚©‚ñ‚ª‚¦‚Ü‚µ‚½i‚±‚ê‚È‚Ç@ʼn‚©‚ç‚ÌŽd—l‚ª•s‘«‚Å‚µ‚½jB
”N† ”NŒŽ“ú Œc‰ž ? @Œc‰žŒ³”Nˆµ‚¢ Œc‰ž 3?.?.? @Œc‰ž30”Nˆµ‚¢ 19??.?.? @1900”Nˆµ‚¢ 197?.?.?@@‚Í@1970”Nˆµ‚¢ ‚±‚ê‚ç‚Í‘å•Ï‚ ‚肪‚½‚¢•\‹L‚Å‚·
‚±‚Ì”N†Ž©‘Ì‚ª•sŠmŽÀ‚ȃf[ƒ^‚Ìê‡ ”N†•\‹L@Œc‰žH‚Æ‹LÚ‚³‚ê‚é‚Æ—Ç‚¢‚Ì‚Å‚·‚ª@‚¢‚©‚ª‚Å‚µ‚傤‚© (¼—ï‚Ì•\‹L‚ð‚‚©‚¤‚±‚Æ‚Å@‚»‚Ì‘å‚Ü‚©‚³‚ðŽ¦‚·‚±‚Æ‚ª‚Å‚«‚é‚Ì‚Å‚·‚ªj
‚»‚µ‚Ä@@Œn•ˆ}‚ð쬌ãA‚»‚ê‚ðƒRƒs[‚µ‚Ä“‡Œn•ˆ}‚Æ‚µ‚Ä
ŠeŒn•ˆŠÔ‚ÌŒq‚ª‚è@¥ˆ÷‚ÌŽ–¼‚ÅC&P‚ð‚µ‚Ä@—ÝŒn‚ðŒq‚°‚Ü‚·B
Œ©‚Ä‚à‚炤‚ׂ«@Googledocs‚É“ü‚ꂽ‚Ì‚Å‚·‚ª@“–‘R‚ ‚È‚½‚¾‚¯‚É‚Ý‚Ä‚à‚炤‚Æ‚¢‚¤‚±‚Æ‚Í
ƒVƒXƒeƒ€ã‚Å@‚ ‚È‚½‚̃AƒhƒŒƒX‚ª‚ ‚é‚Æ—Ç‚¢‚悤‚Å‚·‚ªA‚¢‚©‚ª‚Å‚µ‚傤‚©B
‚È‚É‚©Žè‚ª‚ ‚ê‚Î@‚æ‚¢‚Ì‚Å‚·‚ªB‚È‚¯‚ê‚Î@–¼‘O‚ð‘‚«’¼‚µ‚Ä@ã‚°‚Ü‚·B
‚»‚µ‚Ä@PublishingŒöŠJ‚É‚µ‚Ü‚·B
@ „“–‘R‚ ‚È‚½‚¾‚¯‚É‚Ý‚Ä‚à‚炤‚Æ‚¢‚¤‚±‚Ƃ̓VƒXƒeƒ€ã‚Å@‚ ‚È‚½‚̃AƒhƒŒƒX‚ª‚ ‚é‚Æ—Ç‚¢‚悤‚Å‚·‚ªA‚¢‚©‚ª‚Å‚µ‚傤‚©B @ ‚±‚̂悤‚ÈꊂÅA“Á’è‚ÌŒÂlˆÈŠO‚ð’u‚«‹Ž‚è‚É‚·‚é‚Ì‚Í—]‚è—Ç‚¢sˆ×‚ÆŒ¾‚¦‚È‚¢‚悤‚ÉŽv‚¢‚Ü‚·B i¡Œ»ÝA‚Í‚ñ‚ɂႳ‚ñ‚ÌŽ¿–â‚ɉž‚¶‚Ä‚¢‚é‚Ì‚ÍŒ‹‰Ê“I‚É‚ÍHANA‚³‚ñ‚¾‚¯‚Å‚·‚ªj @ „–¼‘O‚ð‘‚«’¼‚µ‚Ä@ã‚°‚Ü‚·B‚»‚µ‚Ä@PublishingŒöŠJ‚É‚µ‚Ü‚·B @ ‚Æ‚·‚é‚Ì‚ª—Ç‚¢‚Ì‚Å‚Í‚È‚¢‚Å‚µ‚傤‚©B “š‚¦‚ç‚ê‚È‚‚Ä‚àA•×‹‚µ‚½‚¢l‚Í‚¢‚é‚Ì‚Å‚·B
i‚Æ‚¨‚è‚·‚ª‚èj
‚»‚¤‚Å‚·‚ËA–Ê“|‚Å‚·‚ª „–¼‘O‚ð‘‚«’¼‚µ‚Ä@ã‚°‚Ü‚·B‚»‚µ‚Ä@PublishingŒöŠJ‚É‚µ‚Ü‚·B ‚É‚µ‚Ä‚¢‚½‚¾‚‚Ì‚ª—Ç‚¢‚ÆŽv‚¢‚Ü‚·B
‘¼‚Ì•û‚©‚ç u‚±‚¤‚â‚Á‚½•û‚ª@ˆ—‚àŠÈ’P‚¾‚µ”Ä—p«‚à—L‚é‚æv ‚È‚ñ‚ăRƒƒ“ƒg‚ª—L‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚Ì‚ÅB
‚»‚ê‚©‚çA—L‚é’ö“x–â‘è‚È‚“®‚¢‚Ä‚¢‚é‚悤‚Å‚·‚ª ‘½‚‚Ìl‚ªŽg‚¤‚Ì‚Å‚ ‚ê‚ÎA“–‘Rs‚Á‚Ä‚¨‚‚Ì‚ª—Ç‚¢ ‚ÆŽv‚í‚ê‚é—l‚ȃGƒ‰[ˆ—‚Å‚³‚¦@s‚Á‚Ä‚¢‚Ü‚¹‚ñB
‚à‚µ‚àA‚Í‚ñ‚ɂႳ‚ñ‚Ì–Ú‚Ì“Í‚©‚È‚¢Š‚Å‚ÌŽg—p‚ð l‚¦‚Ä‹‚ç‚ê‚é‚Ì‚Å—L‚ê‚ÎA‚»‚Ì•Ó‚è‚ɂ͈ê‚‚¸‚ ƒGƒ‰[ˆ—‚ð“ü‚ê‚Ä‚¢‚•K—v‚ª—L‚é‚Ì‚Å‚Í‚È‚¢‚©‚ÆŽv‚¢‚Ü‚·B i‚»‚ê‚ÉŽQ‰Á‚·‚é‚‚à‚è‚Í—L‚è‚Ü‚¹‚ñ‚ªBj
„‚±‚Ì”N†Ž©‘Ì‚ª•sŠmŽÀ‚ȃf[ƒ^‚Ìê‡ „”N†•\‹L@Œc‰žH‚Æ‹LÚ‚³‚ê‚é‚Æ—Ç‚¢‚Ì‚Å‚·‚ª@‚¢‚©‚ª‚Å‚µ‚傤‚© ‹Â‚Á‚Ä‹‚ç‚ê‚éˆÓ–¡‚ª‚æ‚•ª‚©‚è‚Ü‚¹‚ñB ‚Ç‚±‚Ö‹LÚ‚ð‚·‚éŽž‚̘b‚Å‚µ‚傤H
„‘æˆês”Ni@Œ‹‰Ê@“V–¾‚Qj‚Í@¶”NA–v”Nƒf\ƒ^‚ÌŌÔNiƒf[ƒ^@“V–¾7”Nj‚©‚ç „Œˆ‚Ü‚Á‚½‚Æ‚¨‚à‚¤‚Ì‚Å‚·‚ªA5”N‘O‚Æ‚·‚郋[ƒ‹‚Å‚µ‚傤‚©H ŌÔN‚Ì”N‚ð“ü‚ê‚é‚Æ5”N‘O “ü‚ê‚È‚¢‚Æ4”N‘O‚Å‚·B
‚±‚Ì•ÏX‚ÅA‚à‚¤ˆê‰ÓŠ•ÏX‚Ì•K—v‚ª—L‚Á‚½‚Ì‚ð–Y‚ê‚Ä‚¢‚Ü‚µ‚½B Call snsr(tbl1, nn, totbl) ‚̉º‚Í If nn + 4 < 999 Then MsgBox "999”N‚æ‚è‘O‚̃f[ƒ^‚ª—L‚è‚Ü‚·B" Exit Sub End If ‚É‚µ‚ĉº‚³‚¢B
¶”Nˆ½‚¢‚Í–v”N‚ª999”N‚Ìl‚ª‹‚½ê‡ ”N•\‚Í995”Ni’·“¿Œ³”Nj‚©‚çŽn‚Ü‚è‚Ü‚·B
ŌÔN‚ª“V–¾7”N‚Å‚µ‚½‚çA”N•\‚Í“V•Û3”N‚©‚çŽn‚Ü‚é‚ÆŽv‚¢‚Ü‚·B ‚à‚¤ˆê“xAƒR[ƒh‚ƃf[ƒ^‚ðŠm”F‚µ‚ÄŽÀs‚µ‚Ă݂ĉº‚³‚¢B
(HANA)
Private Function knm(bngp, nm) If nm = "" Then knm = "á•s–¾â" Else If bngp <> "" Then knm = "ŒÌ_" & nm Else knm = nm End If End If End Function
‚±‚ñ‚Ç‚Í‚·‚±‚µˆá‚¢‚Ü‚·B‚»‚êŒÌ‚©@–¼‘O‚Ì‘O‚Ɍ̂ª‚‚«‚Ü‚·B
@‚»‚ê‚Æ@¶”N‚Å@2009.7.7 ‚╽¬ 21.7.7 ‚ªIndexŠO‚Å‚Í‚¢‚è‚Ü‚¹‚ñB
•½¬‚P‚X”N@‚Q‚O‚O‚V”N‚Ü‚Å‚Í@‚Í‚¢‚è‚Ü‚·B‚Ç‚±‚©‚ŧŒÀ‚ª‚ ‚é‚Ì‚Å‚µ‚傤‚©H
@‚»‚ê‚Å‚Í–¼‘O‚ð‚¿‚å‚Á‚Æ•Ï‚¦‚½ƒf[ƒ^‚Ńtƒ@ƒCƒ‹‚ðPublishing‚É‚µ‚Ü‚·B
@‚ ‚ª‚Á‚½‚ç˜A—‚µ‚Ü‚·‚Ì‚Å@‚Ý‚Ä‚‚¾‚³‚¢B
@
>ƒGƒ‰[‚Ì•\Ž¦‚ª‚³‚ꂽŽž‚É [I—¹(E)] [ƒfƒoƒbƒO(D)] [ƒwƒ‹ƒv(H)]‚Ì ‚R‚‚̃{ƒ^ƒ“‚ª‰Ÿ‚¹‚éó‘Ô‚¾‚ÆŽv‚¢‚Ü‚·‚ªA‚±‚Ì‚¤‚¿ [ƒfƒoƒbƒO(D)] ‚ð‰Ÿ‚µ‚Ä‚àAŠY“–‰ÓŠ‚ª‰©F‚¬‚è‚Ü‚¹‚ñ‚©H
Index”͈͊O‚̃ƒbƒZ[ƒW‚ª‚Å‚é‚Æ‚«A‚¢‚ë‚¢‚ë’T‚µ‚Ä‚¢‚Ü‚·B@ã‚Ì•\Ž¦‚ªVB‚̃ƒbƒZ[ƒWBoxiOK‚ƃLƒƒƒ“ƒZƒ‹j‚Å‚à‚È‚¢‚µ
Excel(Fƒtƒ@ƒCƒ‹‚Ì‘±‚«j‚Å‚à‚Ý‚ ‚½‚ç‚È‚¢‚Ì‚Å‚·B
@VB‚ÌWindow([ƒfƒoƒbƒO(D)]‚Í@‚‚¬‚Éc’·‚É‚¢‚ë‚¢‚ë‚̃ƒjƒ…‚¤[iƒXƒeƒbƒvƒCƒ“‚È‚Çj‚ª‚Å‚Ü‚·‚ª@‚»‚Ì‚Ç‚ê‚ð‘I‚ׂ΂悢‚Å‚µ‚傤‚©B
•s–¾‚È‚Æ‚« Œc‰ž@”N†•s–¾‚Í@Œc‰ž‚ÌŽŸ—“‚ÉH‚ð“ü‚ê‚é‚Æ@Œ³”Nˆµ‚¢‚Å@•\Ž¦‚ÉŒc‰žH‚Æ‚È‚è‚Ü‚·B @ˆê•ûŒc‰žŽ©‘Ì‚ª•sŠm‚©‚È‚Æ‚«‚É‚àƒf[ƒ^‚ð“ü‚ꂽ‚¢B‚»‚µ‚Ä@Œ‹‰Ê•\Ž¦‚ÉŒ³”N‚ ‚‚©‚¢‚Æ‚µ‚Ä‚à@—Ⴆ‚ÎŒc‰ž‰¼‚Æ‚©‚Ì•\Ž¦‚𓾂½‚¢‚Å‚·B @“Á‚É’·‚¢”N†‚Ì‚Æ‚«‚É@Œ³”N‚Å‚Í‚©‚¯‚Í‚È‚ê‚é‚Ì‚Å@‚ ‚é’ö“x—\‘z‚µ‚Ä•s–¾”N‚ð‚¢‚ê‚½‚¢B ‚»‚±‚Å‚S‚T‰¼.H.H‚̂悤‚É‚Å‚«‚È‚¢‚Å‚µ‚傤‚©H@‚SH.?.?‚ð‚S‚ODH.?‚Ƃ̈µ‚¢‚Ì‹æ•Ê‚ª’…‚©‚È‚¢‚Ì‚±‚Æ‚à‚ ‚èA‚S‚T‰¼‚Æ‚¢‚¤‚悤‚É‚Å‚«‚é‚Æ—Ç‚¢‚Å‚·‚ËB
–{“–‚É@‚¢‚ë‚¢‚ë‚Ì•s–¾“ü—͂ɑΉž‚·‚é‚Ì‚Í@‘å•Ï“‚¢‚±‚Æ‚ð‚µ‚è‚Ü‚µ‚½B‚¢‚Ü‚³‚ç‚Å‚·‚ª@‚¨Šè‚¢‚Å‚«‚½‚ç‚ ‚肪‚½‚¢‚Å‚·B
ŒŸØ•s‘«‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ª ‚PD–¼‘O‚Ì‘O‚Ɍ̂ª‚‚«‚Ü‚·B Private Function knm(bngp, nm) If nm = "" Then knm = "á•s–¾â" Else If bngp <> "" Then knm = "ŒÌ_" & nm Else knm = nm End If End If End Function ‚É‚µ‚ĉº‚³‚¢B
‚QD¶”N‚Å@2009.7.7 ‚╽¬ 21.7.7 ‚ªIndexŠO‚Å‚Í‚¢‚è‚Ü‚¹‚ñB ReDim y(1 To Year(Date) - nn, 1 To 3) ‚ð ReDim y(1 To Year(Date) - nn + 4, 1 To 3) ‚É‚µ‚Ă݂ĉº‚³‚¢B
‚RDIndex”͈͊O‚̃ƒbƒZ[ƒW‚ª‚Å‚é‚Æ‚«A‚¢‚ë‚¢‚ë’T‚µ‚Ä‚¢‚Ü‚·B Ï‚Ý‚Ü‚¹‚ñA‚à‚¤‚µ•ª‚©‚è‚â‚·‚¢•¶Í‚ð‘‚¢‚Ä’¸‚¯‚ê‚΂Ǝv‚¢‚Ü‚·B ‰½‚ð’T‚µ‚Ä‚¢‚é‚Ì‚Å‚·‚©H „ã‚Ì•\Ž¦‚ªVB‚̃ƒbƒZ[ƒWBoxiOK‚ƃLƒƒƒ“ƒZƒ‹j‚Å‚à‚È‚¢‚µ ã‚Ì•\Ž¦‚Á‚ĉ½‚Ì‚±‚ÆH‰½‚©•\Ž¦‚Í‚Å‚é‚ÌHo‚È‚¢‚ÌH ‰½‚ªo‚Ä‚¢‚ÄA‰½‚ªŒ©‚¦‚Ä‚¢‚é‚Ì‚Å‚·‚©H
‡˜—§‚Ä‚Äà–¾‚µ‚Ä‚à‚ç‚í‚È‚¢‚ÆA‰½‚ÌŽ–‚â‚炳‚Á‚ς蕪‚©‚è‚Ü‚¹‚ñB
V‚µ‚¢ƒuƒbƒN‚ÅŠÈ’P‚ȃR[ƒh‚ð쬂µA‚â‚Á‚Ä‚Ý‚½‚ç‚Ç‚¤‚È‚è‚Ü‚·‚©H
‚SD‚»‚±‚Å‚S‚T‰¼.H.H‚̂悤‚É‚Å‚«‚È‚¢‚Å‚µ‚傤‚©H „‚µ‚Á‚©‚èl‚¦‚Ü‚µ‚½B „@‚PD1900”NˆÈ‘O‚Ì”NŒŽ“ú‚É‚à‘Ήž „@‚QD¶ŠU”N”‚̒ljÁ „‚ÅŠ®—¹‚Æ‚µ‚Ü‚·B ‚ÆŒ¾‚¤‚¨Œ¾—t‚𒸂¢‚Ä‚¢‚½‚ÆŽv‚¢‚Ü‚·B
u‚æ‚l‚¦‚Ä‚‚¾‚³‚¢v‚Å‚ÍA‚æ‚l‚¦‚ç‚ê‚È‚¢‚悤‚Å‚·‚Ì‚Å ƒf[ƒ^•\‚ðŠ®¬‚³‚¹A‚»‚Ì’†‚©‚çƒpƒ^[ƒ“‚ð‘I‚Ño‚µ ‚²Ž©g‚ňê“xuŒn•ˆ}v‚ð쬂µ‚ÄŒ©‚ç‚ê‚é‚Ì‚ª—Ç‚¢‚ÆŽv‚¢‚Ü‚·B
›Œc‰ž 3?.?.? ›‚S‚T‰¼.H.H “™‚Ì“ü—Í‚ª—L‚Á‚½•û‚ª•Ö—˜‚È‚±‚Æ‚Í‚»‚̉ߒö‚Å”Šo‚µ‚Ä‚¢‚½‚ÆŽv‚¢‚Ü‚·‚µ ŽÀÛ‚Éì‹Æ‚ð‚µ‚Ä‚Ý‚é‚ÆA‘¼‚Ì‚²—v–]‚àŒ©‚‚©‚é‚©‚à’m‚ê‚Ü‚¹‚ñB
(HANA)
‚³‚«‚Ù‚Ç@GoogleDocs‚ÌURL‚ð‹LÚ‚µ‚½‚‚à‚肪@o‚Ü‚¹‚ñB Ä“x@‘‚«‚Ü‚·B http://spreadsheets.google.com/ccc?key=t-AQD_JlWb2o-2Cz7wr9neQ&hl=en ”@‰½‚Å‚µ‚傤‚©H@‚±‚ê‚Í‚±‚̃[ƒ‹‚ðŽó‚¯‚é‘O‚Éã‚°Ú‚¹‚Ä‚à‚Ì‚Å‚·B @‚PC‚Q€‚ÌC³‚Í‚Ü‚¾‚È‚Á‚Ä‚¢‚Ü‚¹‚ñ‚ªA‚±‚Ì“_‚Í‚È‚¨‚µ‚Ä@Ä“xã‚°Ú‚¹‚È‚¨‚µ‚Ü‚·B
‚Í‚¢A•sŠm’è‚È”N†A”N”‚Ì“ü—ÍŽ–—á‚Í@‚â‚Á‚Ä‚¢‚邤‚¿@ŽÀÛ‚ ‚Á‚Ä@Šó–]‚µA
‘Š’k‚µ‚½‚à‚Ì‚Å‚·iÝŒv‚ª•s\•ª‚Å‚µ‚½jB‰¼‚̈ʒu‚Í“––ʼ—ï‚ÅH‚ð‚‚¯‚Ä‚¢‚ê‚Ü‚·B@ ‚»‚̊ԕ׋‚µ‚Ü‚·B ‚Ç‚¤‚µ‚Ä‚àNG‚Ì‚Æ‚«‚Í@‹ï‘Ì“I‚ÈŽ¿–â‚Å@Œî‚¤‚悤‚É‚µ‚Ü‚·B
Index‚̃Gƒ‰[ŠY“–•\Ž¦‚à@Ú‚µ‚¢à–¾‚ª(‘½•ªjƒ~ƒX‚Å@Ú‚¹‚ç‚ê‚Ü‚¹‚ñ‚Å‚µ‚½B Ä“x‘‚«‚Ü‚·B >ƒGƒ‰[‚Ì•\Ž¦‚ª‚³‚ꂽŽž‚É [I—¹(E)] [ƒfƒoƒbƒO(D)] [ƒwƒ‹ƒv(H)]‚Ì‚R‚‚̃{ƒ^ƒ“ ‚ª‰Ÿ‚¹‚éó‘Ô‚¾‚ÆŽv‚¢‚Ü‚·‚ªA ‚±‚Ì‚¤‚¿ [ƒfƒoƒbƒO(D)] ‚ð‰Ÿ‚µ‚Ä‚àAŠY“–‰ÓŠ‚ª‰©F‚¬‚è‚Ü‚¹‚ñ‚©H
ã‚Ì‚R‚‚̃{ƒ^ƒ“‚Í‚Ç‚ÌWindow‚É‚Å‚é‚Ì‚Å‚µ‚傤‚©B ‚Ü‚¸@ƒGƒ‰[•\Ž¦‚ÌVisualBasic‚̃ƒbƒZ[ƒWBox‚̓{ƒ^ƒ“•\Ž¦‚ªuOKv‚ÆuHelpv‚Ì‚Q‚‚ÅA VisualBasicƒR[ƒh‚ÌWindow‚̓ƒjƒ…[ƒ{ƒ^ƒ“iƒo[j‚ª ¶‚©‚çƒtƒ@ƒCƒ‹iF)A•ÒWiE)‚È‚Ç‚Å‚·B‚±‚±‚ɃfƒoƒbƒOiD)‚Í‚ ‚è‚Ü‚·‚ªA ‚‚¬‚̃ƒjƒ…[‚̓XƒeƒbƒvƒCƒ“‚È‚Ç‚Å‚·B‘½•ªˆá‚¤‚悤‚Å‚·BŒã‚ÍExcel–{‘Ì‚ÌWindow‚Å‚·B ‚È‚¨”Å‚ÍOffice Excel2003@‚Å‚·B ‚ ‚é‚¢‚Í@ƒGƒ‰[•\Ž¦‚Ìó‘Ô‚Å@Key[D‚ð‰Ÿ‚µ‚Ä‚àAALT+D‚Å‚àACtrl+D‚Å‚à@‚©‚í‚ç‚È‚¢B ƒGƒ‰[•\Ž¦‚ª‚Å‚½‚Ü‚Ü‚Å‚Í@VisualBaisc‚ÌWIndow‚ª@Ŭ‚Ì‚Ü‚Ü‚Å@•\Ž¦‚³‚ê‚È‚¢B@
‚æ‚낵‚@‚¨‚Ë‚ª‚¢‚µ‚Ü‚·
‚±‚ꂪ‚ ‚½‚炵‚¢URL‚Å‚·B ‚Ç‚¤‚©@HANA‚³‚ñ@‚Æ‚¨‚è‚·‚ª‚肳‚ñ@‚æ‚낵‚•Œ¾‚‚¾‚³‚¢B ‚»‚¿‚ç‚Å“ü—Í‚ð•Ï‚¦‚Ă݂邱‚Æ‚Í‚Å‚«‚Ü‚·‚©H
Ï‚Ý‚Ü‚¹‚ñ‚ªAÚ‚¹‚ĉº‚³‚Á‚½ƒtƒ@ƒCƒ‹‚ÌŽg—p•û–@‚ª•ª‚©‚è‚Ü‚¹‚ñB ƒGƒNƒZƒ‹ƒtƒ@ƒCƒ‹‚ð‚»‚Ì‚Ü‚ÜÚ‚¹‚Ä‚¢‚½‚¾‚¯‚é‚Æ—Ç‚¢‚Ì‚Å‚·‚ªB
ƒGƒ‰[•\Ž¦‚̃EƒBƒ“ƒhƒE‚ÉuƒfƒoƒbƒOv‚ª–³‚¢‚Ì‚Í‚æ‚•ª‚©‚è‚Ü‚¹‚ñB @‘S‚ẴuƒbƒN‚ð•Â‚¶‚ÄAV‚µ‚¢ƒuƒbƒN‚ðŠJ‚« @ƒGƒ‰[‚ªo‚é‚悤‚ȃ}ƒNƒ‚ð쬂µŠm”F ‚µ‚Ä‚à@–â‘è‚̉ӊ‚͉©F‚¬‚ç‚È‚¢‚Ì‚Å‚µ‚傤‚©H
‚Ü‚½A‚»‚̃Gƒ‰[•\Ž¦‚̉摜‚Å‚à@Ú‚¹‚Ä‚¨‚¢‚Ä‚¢‚½‚¾‚¯‚é‚Æ—Ç‚¢‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ËB
ƒf[ƒ^•\‚ÍŠ®¬‚µ‚Ü‚µ‚½‚©H u‚â‚Á‚Ä‚¢‚邤‚¿@ŽÀÛ‚ ‚Á‚Ä@Šó–]‚µA‘Š’k‚µ‚½‚à‚Ì‚Å‚·v ‚±‚ñ‚ÈŽ–‚Í‘½X‚ ‚è‚Ü‚·B —L‚é’ö“x‚ÍŽd•û‚È‚¢‚ÆŽv‚¢‚Ü‚·B ‚µ‚©‚µAƒR[ƒh‚É‚·‚é‘O‚É@ŽÀÛ‚ð‘z’肵‚Ä–Ê“|‚Å‚àì‹Æ‚ð‚â‚Á‚Ä’¸‚¯‚Ä‚¢‚ê‚Î ‚»‚Ì’iŠK‚Å[•ª—v–]‚Æ‚µ‚Äo‚Ä‚«‚½‚±‚Æ‚¾‚ÆŽv‚¢‚Ü‚·B
Œ»ÝA‰½‚ª•s‹ï‡‚Æ‚µ‚ÄŽc‚Á‚Ä‚¢‚é‚Ì‚©•ª‚©‚è‚Ü‚¹‚ñ‚ª ”N‚ÌŒˆ’è‚Í@˜a—ï—ñ‚ÆA”NŒŽ“ú—ñ‚Ìʼn‚Ìu.vˆÈ‘O‚ÅŒˆ‚Ü‚è‚Ü‚·B
˜a—ï—ñ‚É‚ÍA”N†‘Ήž•\‚É—L‚é˜a—ï@ˆ½‚¢‚ÍuHvˆÈŠO‚Í“ü—Í•s‰Â‚Å‚·B ‚Ü‚½A”NŒŽ“ú—ñ‚Ìʼn‚Ìu.vˆÈ‘O‚ÍA”Žšˆ½‚¢‚ÍuHvˆÈŠO‚Í“ü—Í•s‰Â‚Å‚·B i“ü—Í•s‰Â@‚Æ‚ÍAŒ»Ý‚Ì‚Ü‚Ü‚Å‚ÍŠó–]‚·‚錋‰Ê‚ª“¾‚ç‚ê‚È‚¢@‚ÆŒ¾‚¤Ž–‚Å‚·j
‚½‚¾‚µA”NŒŽ“ú—ñ‚Ìʼn‚Ìu.v‚æ‚èŒã‚Í@‰½‚ª‚Ç‚Ì—l‚É“ü‚Á‚Ä‚¢‚Ä‚à@ŠÖŒW—L‚è‚Ü‚¹‚ñB
—Ⴆ‚Î@uŒcœä@@3.?.?‰¼v‚ÍAŒcœä3”Nˆµ‚¢‚Å Œn•ˆ}‚É‚Íu Œcœä3.?.?‰¼ v‚Æ•\Ž¦‚³‚ê‚Ü‚·B
“–‘RAŒŽ“ú‚à•s–¾‚È‚Ì‚Å‚Í‚È‚¢‚©‚ÆŽv‚¢‚Ü‚·‚ªuŒcœä@3.‰¼v“™‚Å‚à ƒGƒ‰[‚ɂͬ‚炸AŒcœä3”Nˆµ‚¢‚ɬ‚è‚Ü‚·B ‚±‚Ì•Ó‚è‚ÅŽè‚ð‘Å‚Á‚Ä‚Í‚Ç‚¤‚Å‚µ‚傤H
ŒvŽZ‚Å‚«‚é”N‚ª“ü—Í‚³‚ê‚Ä‚¢‚½‚çA‹”N‚ªŒvŽZ‚³‚ê‚Ü‚·B ‚à‚µ‚àu‰¼v‚ª“ü‚Á‚Ä‚¢‚½‚çA‹”N‚ðo‚³‚È‚¢Ž–‚É‚·‚é ‚ÆŒ¾‚¤ƒ‹[ƒ‹‚É‚·‚é‚È‚çAƒR[ƒh‚Í‚µ•ÏX‚ª•K—v‚ɬ‚è‚Ü‚·‚ËB
(HANA)
‚Ç‚¤‚Å‚µ‚傤‚©H http://www.mediafire.com/myfiles.php http://www.mediafire.com/?sharekey=4e725c67a82634db4c17ca8801618ef7e04e75f6e8ebb871
“ç’呾˜Y ? ? ? •ƒ •½v‚«‚Ý ? ? ? •ê –ž ‘å³ ? ? –º e ‘å³ ? ? ‘§Žq ^Ë–k ‘å³ ? ? –º
‚Å‚Í@ŒÌl‚É‚È‚ç‚È‚¢
‚Æ‚µ ‘å³ 3.11.22 º˜a ? –º
‚Å‚ÍŒÌl‚É‚È‚éBH‚Ì‚Æ‚«‚Í@”N†‚ª‚È‚¢‚ƌ̂̕¶Žš‚ª“ü‚ç‚È‚¢B ‹ó—“‚Ͷ‘¶ŽÒ‚Å‚·‚ª@H‚Ì‹LÚ‚Í–v”N•s–¾‚ÅŒÌl‚É‚µ‚½‚¢‚Ì‚Å‚·‚ª@ ‚¢‚©‚ª‚Å‚µ‚傤‚©H
‚È‚é‚Ù‚Ç@ „—Ⴆ‚ÎuŒcœä@@3.?.?‰¼v‚ÍAŒcœä3”Nˆµ‚¢‚ÅA Œn•ˆ}‚É‚Íu Œcœä3.?.?‰¼ v‚Æ•\Ž¦‚³‚ê‚Ü‚·B „ @ ‚Í@—Ç‚¢‚Å‚·B‰¼‚Í”N†‚â”NŽ©‘Ì‚ð‰¼‚Æo—ˆ‚È‚¢‚ªA‰¼‚Ì•¶Žš‚Í‘S‘Ì‚ð‰¼‚Æ‚·‚éˆÓ–¡‚É‚«‚ß‚Ä Žg‚¢‚Ü‚·B‚»‚µ‚Ä@ „u‰¼v‚ª“ü‚Á‚Ä‚¢‚½‚çA‹”N‚ðo‚³‚È‚¢Ž–‚É‚·‚éA ‚ÆŒ¾‚¤ƒ‹[ƒ‹‚É‚·‚é‚È‚çAƒR[ƒh‚Í‚µ•ÏX‚ª•K—v‚ɬ‚è‚Ü‚·‚ËB
‚Í‚¢Aƒf[ƒ^‚𒲸‚µ‚È‚ª‚ç‚̃\ƒtƒgì‚è‚Å@Ž¸—ç‚È‚±‚Æ‚É‚È‚Á‚½‚©‚Æ‚¨‚à‚¢‚Ü‚·B
‚¨‚ä‚邵‚‚¾‚³‚¢B
ƒGƒ‰[•\Ž¦‚̉æ–Ê‚Í‚È‚ñ‚Æ‚©‹L˜^‚µ‚Ä@‚Ü‚½ƒtƒ@ƒCƒ‹‚ðã‚°‚Ü‚·B
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½Bi‚Í‚ñ‚É‚áj
>ƒGƒ‰[•\Ž¦‚̃EƒBƒ“ƒhƒE‚ÉuƒfƒoƒbƒOv‚ª–³‚¢‚Ì‚Í‚æ‚•ª‚©‚è‚Ü‚¹‚ñB hppt://www.mediafire.com/myfiles.php ‚²‚ç‚ñ‚É‚È‚ê‚Ü‚·‚©?@‚±‚ê‚Í@ƒf[ƒ^•s—Ç‚ÅIndex@ƒGƒ‰[‚ª‚Å‚½‚Æ‚±‚ë‚Å‚·B ”Å‚ªˆá‚¤‚Ì‚Å‚µ‚傤‚©H@¬¶‚Ì‘å‚¢‚È‚é—‰ð•s‘«‚Å‚µ‚傤‚ªB
‚È‚¨AƒR[ƒh•s—ǂŃRƒ“ƒpƒCƒ‰@ƒGƒ‰[‚Ì‚Æ‚«‚Í@‰©F‚Ì•\Ž¦‚ª‚Å‚Ü‚µ‚½BŠó–]‚̓f[ƒ^i‚ ‚é‚¢‚̓R[ƒhj‚ª•s“KØ‚Å@ƒGƒ‰[‚ªo‚Ä@ƒvƒƒOƒ‰ƒ€‚ª“r’†‚Å‚Æ‚Ü‚é‚悤‚ȃGƒ‰[•\Ž¦‚ª‚Å‚½ê‡A‰©F‚ÌŠY“–‰ÓŠ‚Ì–¾Ž¦‚ª‚ ‚é‚Ì‚ðŠú‘Ò‚µ‚Ä‚¢‚Ü‚·B
h•½¬Xh‚Ì“ü—Í‚Å‚Í@ƒƒbƒZ[ƒWBOX‚É@h999”NˆÈ‘O‚̃f[ƒ^‚ª‚ ‚è‚Ü‚·h‚Æo‚éB ˆê•û@h’a¶“ú‚Ì“ü—Í‚ª–³‚¢ê‡‚Í@Ž–¼‚ªo‚Ü‚·hB‚±‚̂悤‚É ŠY“–Ž–¼‚ªo‚é‚Æ—Ç‚¢‚Ì‚Å‚·‚ªB h999”NˆÈ‘O‚̃f[ƒ^‚ª‚ ‚è‚Ü‚·h‚Ìê‡‚à‚»‚ê‚ðŠú‘Ò‚µ‚ÄA MsgBox "999”NˆÈ‘O‚̃f[ƒ^‚ª—L‚è‚Ü‚·B" & vbLf & tbl1(i, 1)
‚ÆC³‚µ‚Ü‚µ‚½B‘S‘̂𒲂×AÅŒÃnn‚ɂ‚¢‚Ä‚¾‚©‚ç@‚±‚̃R[ƒh‚ͳ‚µ‚‚È‚¢‚悤‚Å‚·B ƒf[ƒ^‚ð“Ç‚ÝŽæ‚é‚Æ‚«‚É’²‚ׂȂ¢‚Æ‚¢‚¯‚È‚¢B @Ä“xŒŸ“¢‚µ‚Ü‚·B
Œ»‹µ‚Í@
–v”N‚Å@º˜aH@ ‚’q º˜a? 9.11.18 º˜a 4.9.24 •v @=>@ƒCƒ“ƒfƒbƒNƒX‚ª”͈͊O
‚’q º˜a? ?9.11.18 º˜a 4.9.24 •v @=>@Œ^‚ªˆê’v‚µ‚Ü‚¹‚ñB
‚’q º˜a? ?.11.18 º˜a 4.9.24 •v @‚ͳí@º˜a??.11.18`º˜a4.9.24‚Ì•\‹L
‚’q º˜a? º˜a 4.9.24 •v @‚ͳí@º˜a??.11.18`º˜a4.9.24‚Ì•\‹L
‚’q º˜a? º˜a 4.9.24 •v @‚ͳí@º˜a?`º˜a4.9.24
‚’q º˜a? º˜a 4.9.24@‹ó—“ @=>@’a¶“ú‚ª–¢“ü—Í‚Å‚·@‚’q@ @‚Í•s“KØ@
‚’q º˜a? º˜a 4.9.24 •v @‚ͳí@º˜a??.11.18`º˜a4.9.24‚Ì•\‹L ‚Í@Œë‚è‚Å@Index”͈͊O‚Å‚µ‚½B
‚’q º˜a? ‹ó—“@@º˜a@4.9.24 •v ‚Í@³í@º˜a?`º˜a4.9.24 ‚Å‚µ‚½B
“¯‚¶“ü—Í‚ð‘‚¢‚ÄA‘O‚ÌŒ‹‰Ê‚ªŠÔˆá‚Á‚Ä‚¢‚Ü‚µ‚½B@
ƒtƒ@ƒCƒ‹‚ðŒ©‚¹‚Ä‚¢‚½‚¾‚«‚Ü‚µ‚½B
ƒGƒ‰[MSGBOX‚ðÚ‚¹‚Ä‚¢‚½‚¾‚¢‚½•û‚Í Œ©‚ê‚È‚©‚Á‚½‚Ì‚Å‚·‚ªBBB
‚PDƒGƒ‰[ŽžƒR[ƒh‚ªƒnƒCƒ‰ƒCƒg‚³‚ê‚È‚¢Œ‚ÉŠÖ‚µ‚Ä‚Í
ƒR[ƒh‚ðu•W€ƒ‚ƒWƒ…[ƒ‹v‚É‘‚¢‚Ä‚‚¾‚³‚¢B Œ»Ý‚ÍASheet2iŒn•ˆ}j‚̃V[ƒgƒ‚ƒWƒ…[ƒ‹‚É‘‚¢‚Ä‚ ‚è‚Ü‚·‚ËB
‚QDH‚Ì‚Æ‚«‚Í@”N†‚ª‚È‚¢‚ƌ̂̕¶Žš‚ª“ü‚ç‚È‚¢B
‚ ‚¿‚ç‚ðC³‚·‚é‚ÆA‚±‚¿‚ç‚É–â‘肪BBB‚Á‚Ä󋵂ł·‚ËBiÎj '====== Private Sub snsr(tbl1, nn, totbl) Dim dic As Object Dim i As Long, ii As Long Dim kn Set dic = CreateObject("scripting.dictionary") nn = Year(Date) For i = 1 To UBound(totbl, 1) dic(totbl(i, 1)) = totbl(i, 2) Next For i = 2 To UBound(tbl1, 1) For ii = 0 To 1 tbl1(i, 2 + ii * 2) = Trim(tbl1(i, 2 + ii * 2)) tbl1(i, 3 + ii * 2) = Trim(StrConv(tbl1(i, 3 + ii * 2), vbNarrow)) kn = Split(tbl1(i, 3 + ii * 2) & ".", ".")(0) If tbl1(i, 2 + ii * 2) = "" Then tbl1(i, 8 + ii) = kn If kn = "?" Or kn = "" Then tbl1(i, 8 + ii) = kn Else tbl1(i, 8 + ii) = Replace(kn, "?", 0) End If Else If dic.exists(tbl1(i, 2 + ii * 2)) Then If kn = "?" Or kn = "" Then tbl1(i, 8 + ii) = dic(tbl1(i, 2 + ii * 2)) Else tbl1(i, 8 + ii) = dic(tbl1(i, 2 + ii * 2)) + Val(Replace(kn, "?", 0)) - 1 End If Else If tbl1(i, 2 + ii * 2) = "?" Then tbl1(i, 8 + ii) = tbl1(i, 2 + ii * 2) Else tbl1(i, 8 + ii) = kn End If End If End If If Val(tbl1(i, 8 + ii)) > 1 Then nn = Application.Min(nn, tbl1(i, 8 + ii)) End If tbl1(i, 10 + ii) = tbl1(i, 2 + ii * 2) & tbl1(i, 3 + ii * 2) If tbl1(i, 2 + ii * 2) & kn Like "*[?]*" Or tbl1(i, 8 + ii) = "" Then tbl1(i, 12) = 1 End If Next Next nn = nn - 4 Set dic = Nothing End Sub '------ @‚±‚ê‚É•ÏX‚µ‚Ä‚‚¾‚³‚¢B
‚Ü‚½A¡‰ñ‚ÌŒ‚Æ‚Í’¼ÚŠÖŒW‚ ‚è‚Ü‚¹‚ñ‚ª«‚à•ÏX‚µ‚Ä‚¨‚¢‚Ä’¸‚¯‚ê‚΂Ǝv‚¢‚Ü‚·B '====== Private Function sngpse(ss, se, tngp, bngp, nr) If tngp = "" Then sngpse = "á•s–¾â`" Else sngpse = tngp & "`" End If sngpse = sngpse & bngp If nr = Empty Then sngpse = sngpse & "‹”N" & se - ss + 1 End If End Function '======
‚RD„Œ»‹µ‚Í
‚ÆAƒf[ƒ^‚ðÚ‚¹‚Ä‚‚¾‚³‚Á‚Ä‚¢‚Ü‚·‚ª •\‚ÍAƒGƒNƒZƒ‹‚Å쬂µA“\‚è•t‚¯‚Ä‚‚¾‚³‚¢B
‚SD„ h•½¬Xh‚Ì“ü—Í‚Å‚Í@ƒƒbƒZ[ƒWBOX‚É@h999”NˆÈ‘O‚̃f[ƒ^‚ª‚ ‚è‚Ü‚·h‚Æo‚éB
‚Ç‚Ì—l‚È“ü—Í‚ðŒ¾‚Á‚Ä‚¨‚ç‚ê‚é‚Ì‚©‚í‚©‚è‚Ü‚¹‚ñB
(HANA)
ª‚Ìusngpsev‚̃R[ƒh‚Í‘‚«‘Ö‚¦‚Ü‚µ‚½B Šù‚ÉŠm”FŒã‚Å‚µ‚½‚çA‚à‚¤ˆê“x•ÏX‚µ‚Ä‚¢‚½‚¾‚¯‚ê‚΂Ǝv‚¢‚Ü‚·B
(HANA)
‹ð’sh‘’© •ÔŽ–‚ð‘‚¢‚½‚‚à‚肪@ŒfÚ‚³‚ê‚È‚¢B‚½‚Ñ‚½‚ÑŽ¸”s‚µ‚Ä‚¢‚é‚Ì‚É –”‚¾Ih
‚³‚Ä‘O‚̃Gƒ‰[MSGBOX‚Í@@
http://www.mediafire.com/myfiles.php http://www.mediafire.com/imageview.php?quickkey=wtzcyywtikz&thumb=4 ‚Å‚·B ‚â‚Á‚Æ@•W€ƒ‚ƒWƒ…[ƒ‹‚Æ‚¢‚¤‚Æ‚±‚ë‚É@‘}“ü‚ŃR[ƒh‚ð“ü‚ê‘Ö‚¦‚Ü‚µ‚½B ‚·‚é‚Æ@ƒGƒ‰[‚Ì‚Æ‚«‚ÍA‹³‚¦‚ç‚ꂽ‚悤‚È•\Ž¦‚ªo‚ÄAƒfƒoƒbƒOƒ{ƒ^ƒ“‚Å@ŠY“–ƒR[ƒhs‚ª‰©F‚É‚È‚è‚Ü‚µ‚½B‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½BŠî–{‚ð‚µ‚ç‚È‚¢l‚É‹³‚¦‚ç‚ê‚é‚Ì‚Í@‘å•Ï‚È•‰’S‚Å‚µ‚傤BŠ´ŽÓ‚µ‚Ü‚·B
V‚µ‚¢ƒR[ƒh‚à‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B‚±‚ê‚ɂ‚¢‚Ä‚Í@Œã‚Ù‚ÇŽŽs‚µ‚Ä@
®—‚µ‚Ä@f‚Ä‚à‚炦‚ê‚΂ ‚肪‚½‚¢‚Å‚·B
‚Í‚ñ‚É‚á
@
http://www.mediafire.com/myfiles.php http://www.mediafire.com/download.php?lmojmynziti
Œ»‹µ‚̃R[ƒh‚Å‚·B ˆê•”‘‚«Š·‚¦‚½‚Æ‚±‚ë‚̓Rƒƒ“ƒg‚ª‚ ‚è‚Ü‚·B ƒf[ƒ^‚ÌÅŒã‚ð•Ï‚¦‚Ä@‚²——‚É‚È‚é‚ƈȉº‚ª‚Å‚é‚Í‚¸‚Å‚·B Œ»‹µ‚Å‚Í@Žn‚߂̉ۑè‚Ì‚Ý‚ª@‹”N‚P‚ª‚ł邱‚Æ‚Ì‚Ý‚Å‚·
Œ»‹µ‚Í@ A B C D E F ‚’q @ @ º˜a 4.9.24 ‚’q‚Q º˜a 59.11.18 º˜a 4.9.24 ‘§Žq [ác]ç º˜a 43.8.30 È
@=>@MsgBox•v/È–¢“ü—Íi‚±‚ê‚ͳíj @=>Œ‹‰Ê‚Í@
¥[ác]ç=§=á•s–¾â º˜a43.8.30` b <•s–¾>`‹”N1 @=>@‰Û‘è@‚’q‚ª•v‚©Žq‚©•s–¾‚È‚Ì‚Å@á•s–¾â‚Å—Ç‚¢‚ªAŒÌ‚ªo‚È‚¢B‚Ü‚½@–v”N‚ª•\Ž¦‚Åo‚È‚¢B@‹”N‚P‚Æo‚éB¶”N@–v”N•s–¾‚Ìê‡@–³‹LÚ‚©‹”N•s–¾‚Æ‚©@‚µ‚½‚¢B @=>@‰Û‘è‚Q@ƒR[ƒh‚ð•Ï‚¦‚¸A³‚µ‚¢“ü—Í‚ð‚·‚é‚Æ@Œ‹‰Ê‚ͳí‚Å‚·B@‚±‚ê‚Å‰ðŒˆ‚Æ‚·‚éB
‚’q‚Q º˜a 59.11.18 º˜a 4.9.24 ‘§Žq ‚’q @ @ º˜a 2.9.24 •v [ác]ç º˜a 43.8.30 È
b ¢ŒÌ_‚’q=§=¥[ác]ç <•s–¾>`º˜a2.9.24 b º˜a43.8.30`
A B C D E F ‚’q‚Q º—Ö 59.11.18 º˜a 4.9.24 ‘§Žq @=>@MsgBox@¶”N999ˆÈ‘O@=>@‚±‚Ì——R‚Í”N†‚Ƀ~ƒX‚ª‚ ‚èA¼—ï59.‚Æ‚Ý‚È‚µ‚ÄŒxB@ ”N†‚ ‚é‚¢‚Í”N‚𒼂·‚©@ ˜a—ï‚Å@999”NˆÈã‚Í‚È‚¢‚©‚ç@•K‚¸”N†‚ÌŒë‹L‚ÆŒ¾‚¦‚éB
A B C D E F ‚’q‚Q º˜a? 59.11.18 º˜a 4.9.24 ‘§Žq @=>@MsgBox@¶”N999ˆÈ‘O@=>@‚±‚Ì——R‚Í”N†‚Ƀ~ƒX‚ª‚ ‚èA¼—ï59.‚Æ‚Ý‚È‚µ‚ÄŒxB@ ”N†‚ ‚é ‚¢‚Í”N‚𒼂·‚©@ @=>@MsgBox@¶”N999ˆÈ‘O@=>@º˜a‚ª•sŠm’è‚ÌH‚Í@”N”‚Ì‘O‚É@?59.11.18 ‚Æ@’¼‚·@
A B C D E F ‚’q‚Q º˜a ? 59.11.18 º˜a 4.9.24 ‘§Žq @=>@Œ‹‰Ê‚Í@ ¢ŒÌ_‚’q‚Q b º˜a? 59.11.18`º˜a4.9.24 @=>@”N†‚ª?@‚Æ‚¢‚¤‚±‚Æ‚ª•\‹L‚³‚ꂽB‚±‚ê‚ʼnðŒˆB@
A B C D E F ‚’q º˜a? ? 59.11.18 º˜a 2.9.24 •v @=>@ƒGƒ‰[Œ^‚ªˆê’v‚µ‚È‚¢@@ cyi = tbl1(i, 8) 'Œ^‚ªLong”’l‚ÅAH‚Ì•¶Žš‚ÍNG ‚±‚ê‚ͼ—ï‚Æ‚Ý‚Ä@H•¶Žš‚ª‚ ‚é‚Ì‚Å@Œ^‚ª•sˆê’v@‚±‚Ì‘‚«•û‚Í‚µ‚È‚¢‚悤‚ÉS‚ª‚¯‚邪@ŠY“–“ü—Í‚ÌMessage‚ðo‚¹‚é‚Æ@‚¤‚ꂵ‚¢‚Å‚·B
‚’q º˜a? ?.11.18 º˜a 2.9.24 •v @=>@Œ‹‰Ê‚Í ”N•s–¾‚ÅŌÂɋLÚ@‚±‚ê‚ÅOK@ ¢ŒÌ_‚’q=§=¥[ác]ç º˜a??.11.18`º˜a2.9.24
‚’q º˜a? º˜a 2.9.24 •v [ác]ç º˜a 43.8.30 È @=>@Œ‹‰Ê‚Í ¶”N•s–¾‚Å@Ȃ̶”N‚É‹LÚ@‚±‚ê‚ÅOK ¢ŒÌ_‚’q=§=¥[ác]ç º˜a?`º˜a2.9.24 º˜a43.8.30`
ÅŒã‚Ì‚â‚Á‚‚¯‚È‚Ì‚Å ³í‚ÈŠ‚ªˆÙí‚É‚È‚Á‚Ä‚¢‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñB
'------ Sub nenpyokeifu_9() Dim tbl1, totbl, x, y Dim nr As Range, sr As Range Dim xc As Long, xr As Long, nn As Long Dim i As Long, ii As Long, erf As Long Dim fyi As Long, cyi As Long, mcy As Long Dim p1(6), p2(6) Dim sb As String With Sheets("ƒf[ƒ^•\") tbl1 = .Range("A1").Resize(.Range("A" & Rows.Count).End(xlUp).Row + 1, 12) End With With Sheets("”N†‘Ήž•\") totbl = .Range(.Range("A2"), .Range("A" & Rows.Count).End(xlUp)).Resize(, 2) Set nr = .Range(.Range("E2"), .Range("E" & Rows.Count).End(xlUp)) Set sr = .Range(.Range("D2"), .Range("D" & Rows.Count).End(xlUp)) End With Call snsr(tbl1, nn, totbl, erf) If erf = 1 Then Exit Sub End If ReDim y(1 To Year(Date) - nn + 4, 1 To 3) Call np(y, nn, nr, sr) ReDim x(1 To UBound(y, 1), 1 To Columns.Count) xc = 2 'ì}‚̶’[D—ñ‚©‚ç For i = 2 To UBound(tbl1, 1) If tbl1(i, 1) = "" Then If tbl1(i - 1, 1) <> "" Then fyi = psn(nn, p1(2), p2(2)) xr = fyi - nn + 1 x(xr, xc) = p1(0) & knm(p1(3), p1(1)) & "===" & p2(0) & knm(p2(3), p2(1)) x(xr + 1, xc + 1) = sngpse(p1(2), p1(3), p1(4), p1(5), p1(6)) x(xr + 2, xc + 3) = sngpse(p2(2), p2(3), p2(4), p2(5), p2(6)) 'e‚ÌŒn•ˆü If fyi > nn Then x(xr - 1, xc) = "b" End If x(xr + 1, xc) = "b" 'x(xr + 2, xc) = "b" 'Žq‚ÌŒn•ˆü If xr < mcy Then For ii = xr + 2 To mcy + 1 If x(ii, xc + 2) = "" Then x(ii, xc + 2) = "b" End If Next End If xc = xc + 5 ' ƒRƒƒ“ƒg@‚±‚̒ljÁ”Žš‚ªŒn•ˆ• fyi = 0: cyi = 0 Erase p1: Erase p2 mcy = 0 End If Else If tbl1(i, 6) Like "*[•ƒ,•v]*" Then sb = "¢" Call pd(tbl1, i, sb, p1, p2) ElseIf tbl1(i, 6) Like "*[•ê,È]*" Then sb = "¥" Call pd(tbl1, i, sb, p1, p2) Else If tbl1(i, 8) = "" Or tbl1(i, 8) = "?" Then MsgBox "’a¶“ú‚ª–¢“ü—Í‚Å‚·B" & vbLf & tbl1(i, 1) Else cyi = tbl1(i, 8) xr = cyi - nn + 1 If tbl1(i, 6) Like "*[‘§Žq]*" Then sb = "¢" ElseIf tbl1(i, 6) Like "*[–º]*" Then sb = "¥" Else 'ŠÖŒW‚ª–³‹LÚ sb = "" End If If x(xr, xc + 3) <> "" And x(xr - 2, xc + 3) = "" Then x(xr - 2, xc + 3) = x(xr, xc + 3) x(xr, xc + 3) = "" End If If x(xr, xc + 3) <> "" And x(xr - 2, xc + 3) = "" Then x(xr - 2, xc + 3) = x(xr, xc + 3) x(xr, xc + 3) = "" End If x(xr, xc + 2) = sb & knm(tbl1(i, 9), tbl1(i, 1)) x(xr + 1, xc + 3) = sngpse(tbl1(i, 8), tbl1(i, 9), tbl1(i, 10), tbl1(i, 11), tbl1(i, 12)) mcy = Application.Max(xr, mcy) End If End If End If Next With Sheets("Œn•ˆ}") .Cells.ClearContents .Range("A1").Resize(UBound(y, 1), 3) = y .Range("D1").Resize(UBound(y, 1), xc + 3) = x ' C—ñ‚ɼ—ï‚ð“ü‚ê‚邽‚ßC1¨D1‚É .Range("C1").Resize(UBound(y, 1), 1).Copy .Range("D1").Cells(1, xc + 5) End With Set nr = Nothing Set sr = Nothing End Sub '====== Private Function knm(bngp, nm) If nm = "" Then knm = "á•s–¾â" Else If bngp <> "" Then knm = "ŒÌ_" & nm Else knm = nm End If End If End Function '====== Private Function sngpse(ss, se, tngp, bngp, nr) If tngp = "" Then sngpse = "á•s–¾â`" Else sngpse = tngp & "`" End If If ss & se & tmgp & bngp & nr = Empty Then sngpse = sngpse & "á•s–¾â" Else sngpse = sngpse & bngp End If If nr = Empty And se <> Empty And ss <> Empty Then sngpse = sngpse & "‹”N" & se - ss + 1 End If End Function '====== Private Function psn(nn, fys, mys) If fys <> "" Then If fys = "?" Then psn = nn Else psn = fys End If Else If mys = "?" Or mys = "" Then psn = nn Else psn = mys End If End If End Function '====== Private Sub pd(tbl1, i, sb, p1, p2) If p1(0) = Empty Then p1(0) = sb: p1(1) = tbl1(i, 1): p1(2) = tbl1(i, 8): p1(3) = tbl1(i, 9) p1(4) = tbl1(i, 10): p1(5) = tbl1(i, 11): p1(6) = tbl1(i, 12) Else p2(0) = sb: p2(1) = tbl1(i, 1): p2(2) = tbl1(i, 8): p2(3) = tbl1(i, 9) p2(4) = tbl1(i, 10): p2(5) = tbl1(i, 11): p2(6) = tbl1(i, 12) End If End Sub '====== Private Sub np(y, nn, nr, sr) Dim i As Long, ti As Long y(1, 3) = nn ti = Application.Match(y(1, 3), sr) y(1, 1) = Application.Index(nr, ti) y(1, 2) = nn - Application.Index(sr, ti) + 1 For i = 2 To UBound(y, 1) y(i, 3) = y(i - 1, 3) + 1 ti = Application.Match(y(i, 3), sr) y(i, 2) = y(i, 3) - Application.Index(sr, ti) + 1 If y(i, 2) = 1 Or y(i, 2) Mod 10 = 0 Then y(i, 1) = Application.Index(nr, ti) End If If y(i - 1, 2) = 1 Then y(i - 1, 2) = "Œ³”N" End If Next End Sub '====== Private Sub snsr(tbl1, nn, totbl, erf) Dim dic As Object Dim i As Long, ii As Long Dim kn Set dic = CreateObject("scripting.dictionary") nn = Year(Date) For i = 1 To UBound(totbl, 1) dic(totbl(i, 1)) = totbl(i, 2) Next For i = 2 To UBound(tbl1, 1) For ii = 0 To 1 tbl1(i, 2 + ii * 2) = Trim(tbl1(i, 2 + ii * 2)) tbl1(i, 3 + ii * 2) = Trim(StrConv(tbl1(i, 3 + ii * 2), vbNarrow)) kn = Split(tbl1(i, 3 + ii * 2) & ".", ".")(0) If tbl1(i, 2 + ii * 2) = "" Then tbl1(i, 8 + ii) = kn If kn = "?" Or kn = "" Then tbl1(i, 8 + ii) = kn Else tbl1(i, 8 + ii) = Replace(kn, "?", 0) End If Else If dic.exists(tbl1(i, 2 + ii * 2)) Then If kn = "?" Or kn = "" Then tbl1(i, 8 + ii) = dic(tbl1(i, 2 + ii * 2)) Else tbl1(i, 8 + ii) = dic(tbl1(i, 2 + ii * 2)) + Val(Replace(kn, "?", 0)) - 1 End If Else If tbl1(i, 2 + ii * 2) = "?" Then tbl1(i, 8 + ii) = tbl1(i, 2 + ii * 2) Else MsgBox "”N†‚ª•s³‚Å‚·B" & vbLf & _ tbl1(i, 1) & "@" & IIf(ii = 0, "¶”N†@", "–v”N†@") & tbl1(i, 2 + ii * 2) & vbLf & _ "ƒf[ƒ^•\@" & Cells(i, 2 + ii * 2).Address(0, 0) & "@ƒZƒ‹" erf = 1 Exit Sub End If End If End If If Val(tbl1(i, 8 + ii)) > 1 Then nn = Application.Min(nn, tbl1(i, 8 + ii)) If nn < 999 Then MsgBox "”N‚ª•s³‚Å‚·B@" & nn & "@”N" & vbLf & _ tbl1(i, 1) & "@" & IIf(ii = 0, "¶”NŒŽ“ú@", "–v”NŒŽ“ú@") & tbl1(i, 2 + ii * 2) & tbl1(i, 3 + ii * 2) & vbLf & _ "ƒf[ƒ^•\@" & Cells(i, 2 + ii * 2).Address(0, 0) & "@ƒZƒ‹" erf = 1 Exit Sub End If If Val(tbl1(i, 8 + ii)) > Year(Date) Then MsgBox "”N‚ª•s³‚Å‚·B@" & Val(tbl1(i, 8 + ii)) & "@”N" & vbLf & _ tbl1(i, 1) & "@" & IIf(ii = 0, "¶”NŒŽ“ú@", "–v”NŒŽ“ú@") & tbl1(i, 2 + ii * 2) & tbl1(i, 3 + ii * 2) & vbLf & _ "ƒf[ƒ^•\@" & Cells(i, 2 + ii * 2).Address(0, 0) & "@ƒZƒ‹" erf = 1 Exit Sub End If End If tbl1(i, 10 + ii) = tbl1(i, 2 + ii * 2) & tbl1(i, 3 + ii * 2) If tbl1(i, 2 + ii * 2) & kn Like "*[?]*" Or tbl1(i, 8 + ii) = "" Then tbl1(i, 12) = 1 End If Next Next nn = nn - 4 Set dic = Nothing End Sub '------
‚»‚ê‚É‚µ‚Ä‚à „ ‚’q‚Q º˜a ? 59.11.18 º˜a 4.9.24 ‘§Žq ‚±‚Ì‹Lq‚È‚çAŠm‚©‚É–â‘è‚È‚¢‚Å‚·‚ËB ‹Á‚«‚Ü‚µ‚½B
‚PD¶”N@–v”N•s–¾‚Ìê‡ á•s–¾â`á•s–¾â@‚Æ•\Ž¦‚³‚ê‚Ü‚·B
‚QD ‚’q‚Q º—Ö 59.11.18 º˜a 4.9.24 ‘§Žq @@ ‚’q‚Q º˜a? 59.11.18 º˜a 4.9.24 ‘§Žq ”N†‚Ì‹L“üƒ~ƒX‚Æl‚¦AƒƒbƒZ[ƒW‚ðo‚µ‚Ü‚·B
‚RD”N‚ÌŒvŽZ‚ð‚µ‚½Œ‹‰Ê999‚æ‚謂³‚¢ê‡@‚Ü‚½‚Í @@–¢—ˆ‚Ì”N‚ª“ü—Í‚³‚ꂽê‡AƒƒbƒZ[ƒW‚ðo‚µ‚Ü‚·B
‚¢‚¸‚ê‚̃ƒbƒZ[ƒW‚àAˆ—‚ð“r’†‚ÅI—¹‚µ‚Ü‚·‚Ì‚Å ‚»‚̂‚ǃf[ƒ^‚ð‘‚«‚È‚¨‚·•K—v‚ª‚ ‚è‚Ü‚·B
(HANA)
–â‘è‚ÌŠÝ‚ª‚â‚Á‚Æ‚í‚©‚è‚Ü‚µ‚½B ŽÀ‚Í@
[‘å£—Ç –¾Ž¡ 41.3.12 •½¬ 4.9.24 •ƒ “ç‚Æ‚µ ‘å³ 3.11.22 º˜a ? •ê ’‰ º˜a 13.9.14 ‘§Žq Œb º˜a 16.7.5 –º œ{ º˜a 18.9.22 2003.6.2 –º Œ› º˜a 22.7.27 ‘§Žq T º˜a 26.6.23 ‘§Žq
[‘å£—Ç –¾Ž¡ 41.3.12 •½¬ 4.9.24 •ƒ “ç‚Æ‚µ ‘å³ 3.11.22 º˜a ? •ê ’‰ º˜a 13.9.14 ‘§Žq Œb º˜a 16.7.5 –º œ{ º˜a 18.9.22 •½¬ 15.=2003.6.2 –º ‚’q‚Q º˜a ? 59.11.18 º˜a 4.9.24 ‘§Žq Œ› º˜a 22.7.27 ‘§Žq T º˜a 26.6.23 ‘§Žq
‚Ì“ü—Í‚ð‚µ‚Ü‚µ‚½B“¯‚¶“ü—͂̂‚à‚è‚Å‚·B’A‚µŒã‚Ì–º@œ{‚̉E—“‚É‚Í@ •Ê‚Ì‘‚«ž‚Ý‚ª“ü‚Á‚Ä‚¢‚Ü‚·B
‚±‚ê‚ðŒn•ˆ}ŽÀs‚·‚é‚Æ@
‘O‚ÌŒn•ˆü‚Å‚Í@º˜a18.9.22`2003.6.2‹”N61@‚Å‚·‚ª Œã‚ÌŒn•ˆü‚Å‚Í@º˜a18.9.22`•½¬15.=2003.6.2@‚Å@‹”N‚ª•\Ž¦‚³‚ê‚Ü‚¹‚ñB
‚±‚̈Ⴂ‚Í@‰E‘¤‚Ì—“‚Ì‘‚«ž‚Ý‚É‚æ‚é‚à‚Ì‚Æ‚í‚©‚è‚Ü‚µ‚½B ŸŽè‚ÈŽv‚¢ž‚Ý‚Å“ü—͂̃f[ƒ^•\‚Å‚Í@A~F—ñˆÈŠO‚ÍŽg‚í‚ê‚Ä‚¢‚È‚¢—ñƒZƒ‹‚Æ—‰ð‚µ‚Ä ƒƒ‚‘ã‚í‚è‚É‘‚«ž‚ñ‚Å‚¢‚Ü‚µ‚½B
‚±‚ꂪ@ˆÈ‘Oq‚Ë‚½@tbl1(i, 8), tbl1(i, 9)...‚Í@F—ñ‚æ‚è‰EƒZƒ‹‚Ì“à—e‚ÉŠÖŒW‚·‚é‚Ì‚Å‚µ‚傤B
”O‚Ì‚½‚ß‚ÌŠm”F‚Å‚·‚ªAƒf[ƒ^—“‚̉E‘¤‚Í‹ó—“‚Å‚È‚¢‚Æ‚¢‚¯‚È‚¢‚Å‚µ‚傤‚©H
Œ»Ýƒƒ‚‚Æ‚µ‚Ä@‘æ‚Ps–Ú‚É‘‚«ž‚ñ‚Å‚¢‚Ü‚·‚ª@‚»‚ꂪ–³“ï‚Å‚µ‚傤‚©H
Œã@“w—Í‚µ‚Ä‚¢‚é‚Ì‚Í@Œn•ˆ}‚Ì‚Ps–Ú‚ð•\Ž¦‚ÌŌÔN‚Æ‚µ‚Ä@ ¶”N•s–¾‚Í‚±‚ÌŌÔN‚É”z’u‹L“ü‚µ‚Ä‚¢‚Ü‚·‚ªAƒƒ‚‘‚«‚ð‚µ‚½‚A¶”N•s–¾‚Ìê‡ÅŒÃ{‚P”N‚É ‘‚«ž‚Ý‚½‚@ƒR[ƒh‚ð‚Ý‚½‚Ì‚Å‚·‚ªA“Ç‚ÝŽæ‚ꂸA‚»‚̉ӊ‚¾‚¯‚Å‚à@‹³‚¦‚Ä‚¢‚½‚¾‚¯‚Ü‚¹‚ñ‚©H
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·
„ƒf[ƒ^—“‚̉E‘¤‚Í‹ó—“‚Å‚È‚¢‚Æ‚¢‚¯‚È‚¢‚Å‚µ‚傤‚©H Private Sub snsr(tbl1, nn, totbl, erf) Dim dic As Object Dim i As Long, ii As Long Dim kn Set dic = CreateObject("scripting.dictionary") nn = Year(Date) For i = 1 To UBound(totbl, 1) dic(totbl(i, 1)) = totbl(i, 2) Next For i = 2 To UBound(tbl1, 1) tbl1(i, 12) = Empty '©š‚±‚ê‚ð’ljÁ For ii = 0 To 1
‚µ‚ĉº‚³‚¢B
„¶”N•s–¾‚Ìê‡ÅŒÃ{‚P”N‚É‘‚«ž‚Ý‚½‚ ‚¿‚å‚Á‚Æ—Ç‚•ª‚©‚è‚Ü‚¹‚ñB ’Pƒ‚ÉA1s–Ú‚©‚ç‘‚«o‚µ‚Ä‚¢‚é‚Ì‚ð2s–Ú‚©‚ç‘‚«o‚·‚Ì‚Å‚Í‘Ê–Ú‚Å‚·‚©H
‚Ps–ڂ̓R[ƒh“à‚Åi•Ï”x@‚É’¼Új’l‚ð“ü‚ê‚悤‚Æ l‚¦‚Ä‹‚ç‚ê‚é‚Ì‚Å‚·‚©H
(HANA)
ƒXƒ}[ƒg‚ȃR[ƒh‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B
‰¼‚Éì‚Á‚½‚Ì‚Í@•Ê‚̃XƒŒƒbƒh‚Å“ü—Í‹K§‚ª‚ ‚Á‚½‚Ì‚Å@‚»‚ê‚ð‚Ý‚È‚ç‚Á‚Ä G‚P`L1‚ÌŒ‹‡ƒZƒ‹‚Å@’ˆÓF‚±‚̉º‚Ì‚T‚‚̗ñ‚É‚Í“ü—Í‹ÖŽ~ ‚Æ‘‚«A ‚»‚ÌŠY“–ƒZƒ‹‚É@“ü—Í‹K§‚ðŠ|‚¯‚Ä@ƒƒbƒZ[ƒW‚Å@‚±‚±‚É“ü—Í‚µ‚½‚ç‚¢‚¯‚Ü‚¹‚ñ‚Æ ‚µ‚Ü‚µ‚½B
‚à‚¿‚ë‚ñ@’ˆÓ‘‚«‚ª•K—v‚È‚¢‚Ì‚ªƒXƒ}[ƒg‚Å‚·B
‚±‚̂悤‚È‘‚«ž‚ÝˆÄ“àƒƒbƒZ[ƒW‚ª‘¼‚ɖ𗧂‚©‚à‚µ‚ê‚È‚¢B ‚»‚Ìê‡@ŠY“–—ñ‚Ì‚Ps–ڂ𜂢‚½‘¼‚Ìs‚ð‚»‚Ì‚æ‚¤‚É‚·‚é‚É‚Í@‚Ç‚¤‚·‚é‚©‚í‚©‚è‚Ü‚¹‚ñB ‚Ps–Ú‚Í•¶Žš‚ª“ü‚è‚Ü‚·‚Ì‚ÅA2s–ÚˆÈ~@“ü—Ís‚ɉž‚¶‚Ä@‹K§‚ð‚·‚é‚Æ‚¢‚¤‚Ì‚ÍH ‚â‚Í‚è@ƒR[ƒh‚É‚æ‚é‚Ì‚©‚ÈH
> ‚Ps–ڂ̓R[ƒh“à‚Åi•Ï”x@‚É’¼Új’l‚ð“ü‚ê‚悤‚Æ l‚¦‚Ä‹‚ç‚ê‚é‚Ì‚Å‚·‚©H ‚Í‚¢@‚»‚¤l‚¦‚ÄA
ReDim x(1 To UBound(y, 1), 1 To Columns.Count) x(1, 1) = "‚±‚±‚É쬎–¼‚ð@Šù’è‚̃ƒbƒZ[ƒW'©š‚±‚ê‚ð’ljÁ xc = 2 'ì}‚̶’[D—ñ‚©‚ç Œ‹‰Ê ‰„‹ 3 1746 ‚±‚±‚É쬎–¼‚ð@¢ŒÌ_ˆÀ“c´‘¾˜Y=§=¥ŒÌ_–F–¼•sÚ b ??`–¾Ž¡?
‚Æ‚È‚Á‚Ä‚¢‚é‚Ì‚Å‚·‚ª ‚±‚Ìê‡@¢ŒÌ_ˆÀ“c´‘¾˜Y=§=¥ŒÌ_–F–¼•sÚ‚Ì•\Ž¦‚ð@‰„‹‚S”N‚É‘‚«ž‚Þ‚Æ‚¢‚¤Šó–]‚Å‚·B ‚ ‚é‚¢‚Í >’Pƒ‚ÉA1s–Ú‚©‚ç‘‚«o‚µ‚Ä‚¢‚é‚Ì‚ð2s–Ú‚©‚ç‘‚«o‚·‚Ì‚Å‚Í‘Ê–Ú‚Å‚·‚©H ‚Í‚¢A‰„‹3”N‚Ì‚Ps–Ú‚ð‚Qs–Ú‚Æ‚¸‚炵‚Ä‚à‚©‚Ü‚¢‚Ü‚¹‚ñB
‚æ‚낵‚@•Œ¾‚‚¾‚³‚¢B @i‚Í‚ñ‚É‚áj
Ï‚Ý‚Ü‚¹‚ñ‚ªAƒCƒ[ƒW‚ª•ª‚©‚è‚Ü‚¹‚ñB
„x(1, 1) = "‚±‚±‚É쬎–¼‚ð@Šù’è‚̃ƒbƒZ[ƒW'©š‚±‚ê‚ð’ljÁ „‰„‹3”N‚Ì‚Ps–Ú‚ð‚Qs–Ú‚Æ‚¸‚炵‚Ä‚à‚©‚Ü‚¢‚Ü‚¹‚ñB ‚±‚Ì“ñ‚‚ÍA‘S‚ˆá‚¤‚ÆŽv‚¤‚Ì‚Å‚·‚ªBBB
u‚±‚±‚É쬎–¼‚ð@Šù’è‚̃ƒbƒZ[ƒWv‚Á‚Ä‚Ì‚Í ‰½‚ÌŽ–‚Å‚·‚©EEEH
‚µ‚©‚àu¢ŒÌ_ˆÀ“c´‘¾˜Y=§=¥ŒÌ_–F–¼•sÚv‚Æ“¯‚¶ƒZƒ‹‚É“ü‚ê‚é‚Ì‚Å‚·‚©H
ŽÀÛ‚ÍA‰½‚ð@‚Ç‚±‚Éi‚ǂ̃^ƒCƒ~ƒ“ƒO‚ÅHj“ü‚ê‚悤‚ÆŽv‚Á‚Ä‚¢‚é‚Ì‚Å‚·‚©H
(HANA)
‚½‚¢‚Ö‚ñ@à–¾•s‘«‚Å‚µ‚½B‚²‚ß‚ñ‚È‚³‚¢B
‚Í‚¢@¬¶‚ª’ljÁ‚µ‚½ƒR[ƒh‚Å‚Í „x(1, 1) = "XXXƒƒ‚XXX"@@@'©š‚±‚ê‚ð’ljÁ Œ‹‰Ê‚Í@
@ ‰„‹ 3 1746 XXXƒƒ‚XXX@¢ŒÌ_ˆÀ“c´‘¾˜Y=§=¥ŒÌ_–F–¼•sÚ
‚ÆŌÔN‚Ìs‚Ƀƒ‚‚ª‘‚«ž‚Ü‚ê‚Ü‚·B ¢ŒÌ_ˆÀ“c´‘¾˜Y=§=¥ŒÌ_–F–¼•sÚ@‚ͳí‚ÉŠ’è‚Ì—ñ‚ÌŌà ”Ns‚É‹LÚ‚³‚ê‚Ü‚·BiƒRƒs[‚ª‚Ü‚¸‚¢‚©‚àj
‚»‚ê‚æ‚è‚à@ >’Pƒ‚ÉA1s–Ú‚©‚ç‘‚«o‚µ‚Ä‚¢‚é‚Ì‚ð2s–Ú‚©‚ç‘‚«o‚·‚Ì‚Å‚Í‘Ê–Ú‚Å‚·‚©H ‚±‚ê‚ð‚¨Šè‚¢‚µ‚Ü‚·B @[1] XXXƒƒ‚XXX@ @[2] ‰„‹ 3 1746@@@@@@@@¢ŒÌ_ˆÀ“c´‘¾˜Y=§=¥ŒÌ_–F–¼•sÚ ‚̂悤‚É‚µ‚½‚¢‚Å‚·B
Private Sub pd(tbl1, i, sb, p1, p2) ‚͈ȑO‚̃Rƒƒ“‚ðŒq‚°‚È‚¢Aˆês–ˆ‚É‹LÚ‚·‚é“à—e‚Æ•Ï‚í‚ç‚È‚¢‚Å‚µ‚傤‚©i¬¶‚É‚Í‚í‚©‚è‚â‚·‚¢‚Ì‚Å “¯‚¶‚Ȃ炱‚ê‚ð‚‚©‚¢‚½‚¢jH
If x(xr, xc + 3) <> "" And x(xr - 2, xc + 3) = "" Then x(xr - 2, xc + 3) = x(xr, xc + 3) x(xr, xc + 3) = "" End If ‚Í’Pƒ‚É‚¾‚Ô‚Á‚½ƒR[ƒh‚ÅŒã‚ÍÁ‚µ‚Ä‚à—Ç‚¢‚Å‚µ‚傤‚©H
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B@‚Í‚ñ‚É‚áj
A1ƒZƒ‹‚ÉuXXXƒƒ‚XXXv‚Ì•¶Žš‚ð“ü‚ê‚邾‚¯‚Å 1s–Ú‚Ì‘¼‚Ì—ñ‚É‚Í“ü‚ê‚È‚¢‚Á‚Ä‚±‚Æ‚Å‚·‚©EEEH
ˆÓ}‚ª—Ç‚‚í‚©‚è‚Ü‚¹‚ñ‚ª ‘‚«o‚µ•”•ª‚ÌAA1,D1,C1iD1‚Í2‰ÓŠj‚Ì@‚S‚©Š‚ð A2,D2,C2@‚É•ÏX‚µ‚Ä‚à‚炦‚Ηǂ¢‚ÆŽv‚¢‚Ü‚·B
‚à‚µ‚‚ÍA‘‚«‚¾‚µ‚½Œã@ˆês–Ú‚ð‘}“ü@‚Æ‚©BBBH iˆês–Ú‚ð‘}“ü‚·‚éƒR[ƒh‚Í@ƒ}ƒNƒ‚Ì‹L˜^‚Ŏ擾‚µ‚Ä‚‚¾‚³‚¢Bj
„‚͈ȑO‚̃Rƒƒ“‚ðŒq‚°‚È‚¢Aˆês–ˆ‚É‹LÚ‚·‚é“à—e‚Æ•Ï‚í‚ç‚È‚¢‚Å‚µ‚傤‚© “¯‚¶‚Å‚·B“à—e‚Í•ÏX‚µ‚Ä‚Ü‚¹‚ñ‚Ì‚ÅA‘O‚̃R[ƒh‚©‚ç ƒRƒs[‚µ‚Ä‚à‚炦‚Ηǂ¢‚ÆŽv‚¢‚Ü‚·B
„’Pƒ‚É‚¾‚Ô‚Á‚½ƒR[ƒh‚ÅŒã‚ÍÁ‚µ‚Ä‚à—Ç‚¢‚Å‚µ‚傤‚©H –{“–‚Å‚·‚ËA‚¾‚Ô‚Á‚Ä‚Ü‚·‚ËB i8‚ÌŽž“_‚Å‚·‚Å‚ÉBBBj •Ð•û‚ÍÁ‚µ‚ĉº‚³‚¢B
(HANA)
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚· With Sheets("Œn•ˆ}") .Cells.ClearContents '.Range("A1").Resize(UBound(y, 1), 3) = y .Range("A2").Resize(UBound(y, 1), 3) = y '1s‚ðƒƒ‚—p‚ɋ󂯂éBA2‚©‚çŒn•ˆ} ˆÈ‰º1Ë‚Q‚Ö .Range("D2").Resize(UBound(y, 1), xc + 3) = x ' C—ñ‚ɼ—ï‚ð“ü‚ê‚邽‚ß@‹ó‚¯‚½
.Range("C2").Resize(UBound(y, 1), 1).Copy .Range("D2").Cells(1, xc + 5) '‰E’[‚ɼ—ï .Range("A2").Resize(UBound(y, 1), 1).Copy .Range("D2").Cells(1, xc + 6) '‰E’[‚É”N† .Range("B2").Resize(UBound(y, 1), 1).Copy .Range("D2").Cells(1, xc + 7) '‰E’[‚ɘa—ï End With @ ‚±‚ê‚Å1s–Ú‚ª‚ ‚«‚Ü‚µ‚½B‚»‚±‚Ö@ƒƒbƒZ[ƒW‚Ì‚Ý‚ð“ü‚ꂽ‚A‚»‚̌Œ胃bƒZ[ƒW‚ð‚»‚±‚É‘‚¯‚é‚悤‚É@ƒR[ƒh‚ð“ü‚ê‚ç‚ê‚È‚¢‚Å‚µ‚傤‚©H —\‚ߌn•ˆ}‚̈êsƒZƒ‹‚É’¼Ú‘‚¢‚Ä‚à@ƒf[ƒ^C³Œã@Ä“xƒ}ƒNƒŽÀs‚ð‚·‚é‚ƈês–Ú‚Ì•¶Žš‚ÍÁ‚¦‚Ü‚·B“–‚½‚è‘O‚Å‚µ‚傤‚ËB
x(0, 1) = "xxxxxƒƒ‚xxxxx" ‚Í“–‘RƒGƒ‰[‚É‚È‚è‚Ü‚µ‚½B
‘æ‚Q•û–@‚ð‚Ƃ낤‚Æ‚¨‚à‚¤‚Ì‚Å‚·‚ªAˆês–Ú‚ð‘}“ü‚·‚éƒR[ƒh‚ðuƒ}ƒNƒ‚Ì‹L˜^‚Ŏ擾v‚·‚邱‚Æ‚ª ŒŸõ‚È‚Ç‚Å‚Ý‚é‚Ì‚Å‚·‚ª@‚Ç‚¤‚à—‰ð‚Å‚«‚È‚¢‚Ü‚Ü‚Å‚·B ã‚Ì.Copy.‚Ì‚ ‚éƒR[ƒh‚̂悤‚ȃR[ƒh‚ð‚‚©‚¤‚Æ‚¢‚¤‚±‚Æ‚Å‚µ‚傤‚©H
‚Å‚·‚©‚ç „„x(1, 1) = "‚±‚±‚É쬎–¼‚ð@Šù’è‚̃ƒbƒZ[ƒW'©š‚±‚ê‚ð’ljÁ „„‰„‹3”N‚Ì‚Ps–Ú‚ð‚Qs–Ú‚Æ‚¸‚炵‚Ä‚à‚©‚Ü‚¢‚Ü‚¹‚ñB „‚±‚Ì“ñ‚‚ÍA‘S‚ˆá‚¤‚ÆŽv‚¤‚Ì‚Å‚·‚ªBBB ‚Æ‘‚¢‚½‚Ì‚Å‚·‚æH
x(1, 1) ‚ª x(0, 1) ‚ɬ‚Á‚½Š‚Å@•Ï”“à‚Ƀf[ƒ^‚ð“ü‚ê‚é ‚ÆŒ¾‚¤“_‚Å‚Í“¯‚¶‚Å‚·‚æ‚ËH
‚à‚¤ˆê“x‚¨Žf‚¢‚µ‚Ü‚·‚ª „„ 1s–Ú‚Ì‘¼‚Ì—ñ‚É‚Í“ü‚ê‚È‚¢‚Á‚Ä‚±‚Æ‚Å‚·‚©EEEH
‚±‚̃V[ƒg‚ÍAƒf[ƒ^‚ð‰¼”z’u‚·‚邽‚߂̃V[ƒg‚Å‚· Ÿ‚Ps–Ú‚É‹ós‚ð“ü‚ꂽ‚¢ ‚ÆŒ¾‚¤‚Ì‚ÍAŽŸ‚̃V[ƒg‚Ö“\‚è•t‚¯‚éÛ‚Ì—v–]‚Æ‚µ‚ÄŠ„‚Æ—‰ðo—ˆ‚Ü‚·‚ª ŸD1ƒZƒ‹‚Éuxxxxxƒƒ‚xxxxxv‚Ì•¶Žš‚ð“ü‚ê‚é ‚ÆŒ¾‚¤‚Ì‚ªA•K—v‚È——R‚ª•ª‚©‚è‚Ü‚¹‚ñB ‚Å‚·‚©‚çA‰½‚©”FŽ¯ˆá‚¢‚ª—L‚è‚»‚¤‚ÉŽv‚¢‚Ü‚·B @@ŽÀÛ‚Í@‚T—ñ‚¨‚«‚É“ü‚ꂽ‚¢•¶Žš‚ª‚ ‚é@‚Æ‚©B @@‚Å‚µ‚½‚ç‚Ü‚½A˜b‚Í•Ï‚í‚Á‚Ä‚«‚Ü‚·B
„‘æ‚Q•û–@‚ð‚Ƃ낤‚Æ‚¨‚à‚¤‚Ì‚Å‚·‚ªA ‚±‚¿‚ç‚ðŽQl‚ÉAƒ}ƒNƒ‚Ì‹L˜^‚ðs‚Á‚ĉº‚³‚¢B ‹L˜^‚·‚é“®ì‚ÍAu‚Ps–Ú‚ð‘}“üv‚Å‚·B ƒ[ƒNƒV[ƒgã‚ÅAs‚ð‘}“ü‚·‚é‘€ì‚Í‚¨•ª‚©‚è‚Å‚·‚æ‚ËH http://www.excel.studio-kazu.jp/lib/e4b/e4b.html o—ˆ‚Ü‚µ‚½‚çA‹L˜^‚³‚ꂽƒR[ƒh‚ð‚±‚¿‚ç‚ÖÚ‚¹‚ĉº‚³‚¢B
(HANA)
‚¢‚Â‚à‘‘¬‚Ì•Œ¾@‚²‹³Žö‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B „ 1s–Ú‚Ì‘¼‚Ì—ñ‚É‚Í“ü‚ê‚È‚¢‚Á‚Ä‚±‚Æ‚Å‚·‚©EEEH ‚Í‚¢@‚»‚¤‚Å‚·B@ƒNƒŒƒWƒbƒg‚̂悤‚ȃƒ‚‘‚«‚Å‚·Bˆê—ñ–Ú‚É‘‚¯‚Î@‘¼‚Ì—ñ‚ª‹ó”’‚È‚Ì‚Å@ ‚»‚Ì‚Ü‚Ü@d‚Ë‚Ä•\Ž¦‚³‚ê‚邱‚Æ‚ðŠú‘Ò‚µ‚Ä‚¢‚Ü‚·B
‚â‚Á‚Æ@uƒ}ƒNƒiƒR[ƒh‚Æ‚µ‚Ä)‚Ì‹L˜^v‚ª ‚í‚©‚Á‚½‚悤‚Å‚·B ŽÀۂ̃V[ƒg‚Å@ˆês–Ú‚Ì‘}“ü‘€ì‚ðs‚Á‚½‚±‚Æ‚ð@ƒ}ƒNƒƒR[ƒh‚Æ‚µ‚Ä“¾‚é@•û–@‚Æ—‰ð‚µ‚Ü‚µ‚½B ‘‘¬@‚â‚Á‚Ä‚Ý‚Ü‚·B‚Í‚¢@o—ˆã‚ª‚Á‚½‚ç@‚±‚±‚ÉÚ‚¹‚Ü‚·B ‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B @
„‚»‚Ì‚Ü‚Ü@d‚Ë‚Ä•\Ž¦‚³‚ê‚邱‚Æ‚ðŠú‘Ò‚µ‚Ä‚¢‚Ü‚·B .Cells.ClearContents ‚ÅA‘SƒZƒ‹‚Ì“à—e‚ð휂µ‚Ä‚¢‚é‚Ì‚Å@‚±‚ê‚Ío—ˆ‚Ü‚¹‚ñB
1s–Ú‚Í휂µ‚È‚¢ƒR[ƒh‚É‚·‚é‚© ÅŒã‚ÉD1ƒZƒ‹‚Éuxxxxxƒƒ‚xxxxxv‚Ì•¶Žš‚ð“ü‚ê‚é ‚©A‚Ç‚¿‚ç‚©‚¨D‚«‚È•û‚ð‘I‚ñ‚Å ƒR[ƒh‚ð•ÏX‚µ‚Ä‚à‚炦‚Ηǂ¢‚ÆŽv‚¢‚Ü‚·B
„ŽÀۂ̃V[ƒg‚Å@ˆês–Ú‚Ì‘}“ü‘€ì‚ðs‚Á‚½‚±‚Æ‚ð@ƒ}ƒNƒƒR[ƒh‚Æ‚µ‚Ä“¾‚é@•û–@‚Æ—‰ð‚µ‚Ü‚µ‚½B ‚»‚¤‚Å‚·B s‘}“ü‚̃R[ƒh‚È‚ñ‚ÄAŽ„‚ÍŠo‚¦‚Ä‚¢‚Ü‚¹‚ñB
(HANA)
A‚Ì•û–@
‚â‚Á‚Æ@‚ ‚½‚炵‚¢ƒ}ƒNƒ‚Ì‹L˜^@‚É‚æ‚Á‚Ä ˆÈ‰º‚̃R[ƒh‚ð“üŽè‚µ‚Ü‚µ‚½
Sub sonyu() ' ' sonyu Macro ' ƒ}ƒNƒ‹L˜^“ú : 2009/7/16 ƒ†[ƒU[–¼ : Owner Žn‚ß[1]‚É1s‚ð‘}“ü '
' Rows("1:1").Select Selection.Insert Shift:=xlDown End Sub
Sub sonyuMoji() ' ' sonyuMoji Macro ' ƒ}ƒNƒ‹L˜^“ú : 2009/7/16 ƒ†[ƒU[–¼ : Owner Žn‚ß[1]‚É1s‚ð‘}“ü‚µA•¶Žš‚ð‘‚«ž‚Þ '
' Rows("1:1").Select Selection.Insert Shift:=xlDown Range("D1").Select ActiveCell.FormulaR1C1 = "‚±‚±‚É•¶Žš‚ð‚¢‚ê‚é" ActiveCell.Characters(4, 2).PhoneticCharacters = "ƒ‚ƒW" Range("D2").Select End Sub
Sub sonyuMoji2() ' ' sonyuMoji2 Macro ' ƒ}ƒNƒ‹L˜^“ú : 2009/7/16 ƒ†[ƒU[–¼ : Owner •¶Žš‚ð‘}“ü‚·‚é '
' Rows("1:1").Select Selection.Insert Shift:=xlDown Range("D1").Select ActiveCell.FormulaR1C1 = "‚±‚±‚É•¶Žš‚ð‘}“ü‚µ‚Ä‚‚¾‚³‚¢" ActiveCell.Characters(4, 2).PhoneticCharacters = "ƒ‚ƒW" ActiveCell.Characters(7, 2).PhoneticCharacters = "ƒ\ƒEƒjƒ…ƒE" Range("D2").Select End Sub
•¶Žš‚ð‘‚«ž‚ñ‚¾Œã@EnterKey‚ð‰Ÿ‚·‚Ì‚Å‚·‚ª@‚»‚ê‚Å‚æ‚¢‚Å‚µ‚傤‚©H Š¿Žš‚ðŽg‚¤‚Æ@‚»‚̃R[ƒh‚ªo—ˆ‚Ä‚¢‚é‚Ì‚Å‚µ‚傤‚©B ‚³‚Ä@‚±‚ê‚Ì“à@ÅŒã‚ðŠù¬‚̃R[ƒh‚É‚Í‚Ç‚±‚É‚¢‚ê‚é‚Ì‚Å‚µ‚傤‚©H
B‚Ì•û–@ „ÅŒã‚ÉD1ƒZƒ‹‚Éuxxxxxƒƒ‚xxxxxv‚Ì•¶Žš‚ð“ü‚ê‚é ‚±‚ê‚Í@ã‚Ì•û–@‚ňês‘}“ü‚ð‚·‚é‚Ì‚Å‚Í‚È‚A@ „ ‘‚«o‚µ•”•ª‚ÌAA1,D1,C1iD1‚Í2‰ÓŠj‚Ì‚S‚©Š‚ð A2,D2,C2@‚É•ÏX‚µ ˆês‘}“ü‚·‚éi‘S‘Ì‚ðˆês‰º‚ɂÂ炷j•û–@‚É‚¨‚¢‚Ä s‚¤‚±‚Æ‚Å‚µ‚傤‚©H ‚»‚Ìê‡@ x(1, 1) = "xxxxxƒƒ‚xxxxx" ‚̃R[ƒh‚ªŽg‚¦‚é‚Æ‚µ‚Ä@‚Ç‚±‚É’u‚‚Æ‚æ‚¢‚Å‚µ‚傤‚©H ‚à‚µ@‚±‚̂悤‚ÉAÅŒã‚ÉD1ƒZƒ‹‚Éuxxxxxƒƒ‚xxxxxv‚Ì•¶Žš‚ð“ü‚ê‚é ‚±‚Æ‚ªo—ˆ‚ê‚Î@‚»‚̂悤‚É‚µ‚½‚¢B
‹³‚í‚邽‚Ñ‚É@¬¶‚Ì•ûj‚ª•Ï‚í‚é‚悤‚Å‚·‚Ý‚Ü‚¹‚ñBiŠÈ’P‚È•û–@‚Ì—‰ð‚ª•Ï‚í‚é‚Ì‚ÅBŒ¾‚¢–ó‚Å‚·)
‚æ‚낵‚@‚¨‚Ë‚ª‚¢‚µ‚Ü‚·
ƒ‚ƒWƒ…[ƒ‹‚ÖÅŒã‚É Private Sub sonyuMoji2() —ª End Sub ‚̃R[ƒh‚É“ü‚ê‚Ü‚µ‚½B ‚»‚µ‚Ä@ With Sheets("Œn•ˆ}") .Cells.ClearContents
.Range("A1").Resize(UBound(y, 1), 3) = y .Range("D1").Resize(UBound(y, 1), xc + 3) = x ' C—ñ‚ɼ—ï‚ð“ü‚ê‚邽‚ß@‹ó‚¯‚½ .Range("C1").Resize(UBound(y, 1), 1).Copy .Range("D1").Cells(1, xc + 5) '‰E’[‚ɼ—ï .Range("A1").Resize(UBound(y, 1), 1).Copy .Range("D1").Cells(1, xc + 6) '‰E’[‚É”N† .Range("B1").Resize(UBound(y, 1), 1).Copy .Range("D1").Cells(1, xc + 7) '‰E’[‚ɘa—ï Call sonyuMoji2 End With
‚È‚é‚Ù‚Ç@‚±‚ê‚Å@ˆês‘}“ü‚³‚ê@‚»‚±‚Ö@Šù’è‚Ì•¶Žš—ñ‚ª‘‚«ž‚Ü‚ê‚Ü‚µ‚½B
‚±‚Ì•û–@‚Í–ž‘«‚Å‚·B
B‚Ì•û–@‚ɂ‚¢‚Ä‚Í@‚È‚©‚È‚©‚Å‚«‚Ü‚¹‚ñB‚²Žw“±‚¨‚Ë‚ª‚¢‚µ‚Ü‚·B@‚Í‚ñ‚É‚á
ƒ}ƒNƒ‚Ì‹L˜^‚ÍAŠÈ’P‚ɃR[ƒh‚ð쬂µ‚Ä‚‚ê‚Ü‚·‚ª •s—v‚È•”‚à‘½‚ŠÜ‚Ü‚ê‚Ä‚¢‚Ü‚·B
—Ⴆ‚ÎA1s–Ú‚ð‘}“ü‚µ‚悤‚ÆŽv‚Á‚½‚çA‚Ç‚¤‚µ‚Ä‚à ‚PD1s–Ú‚ð‘I‘ð ‚QDs‚ð‘}“ü ‚Æ‚¢‚¤Žè‡‚É‚È‚è‚Ü‚·‚Ì‚Å Rows("1:1").Select Selection.Insert Shift:=xlDown ‚̃R[ƒh‚É‚È‚è‚Ü‚·‚ªAŽÀÛ‚És‚¢‚½‚¢‚±‚Æ‚Í u1s–Ú‚ð‘}“ü‚·‚év‚Å‚ ‚Á‚Ä u1s–Ú‚ð‘I‘ð‚µA‘I‘ð‚µ‚½s‚ð‘}“ü‚·‚év‚Å‚Í‚ ‚è‚Ü‚¹‚ñB
o—ˆ‚½ƒR[ƒh‚Ì .Select ‚ªu‚ð‘I‘ð‚µv‚Å Selection.@‚ªu‘I‘ð‚µ‚½s‚ðv‚É“–‚½‚è‚Ü‚·B ‚±‚±‚ÍŽÀÛ‚És‚¢‚½‚¢‚±‚Æ‚ÉŠÜ‚Ü‚ê‚Ü‚¹‚ñ‚Ì‚Å휂µ‚Ü‚·B Rows("1:1").Insert Shift:=xlDown
‚»‚̉º‚Å‹L˜^‚µ‚½AD1ƒZƒ‹‚É•¶Žš‚ð“ü‚ê‚é•”•ª‚à“¯—l‚Å‚·B ‹L˜^‚³‚ꂽƒR[ƒh‚Ì‚¤‚¿A–{“–‚É•K—v‚È•”•ª‚ª‚Ç‚±‚È‚Ì‚© 휂µ‚½‚èA‚‚Á‚‚¯‚½‚肵‚È‚ª‚猩‹É‚߂ĉº‚³‚¢B
‚Ü‚½AƒZƒ‹‚É•¶Žš‚ð“ü‚ê‚é‚Ì‚Í@ƒ}ƒNƒ‚Ì’†‚Å‚àŠî–{‚Ì•”—Þ‚¾‚ÆŽv‚¢‚Ü‚·B Webã‚ÅAŠÈ’P‚È@ƒ}ƒNƒ‚Ì“ü–åƒy[ƒW‚ð’T‚µ‚Ä@“Ç‚ñ‚ʼnº‚³‚¢B
‚¿‚È‚Ý‚ÉA‰½“x‚à‘‚«‚Ü‚·‚ª „x(1, 1) = "xxxxxƒƒ‚xxxxx" ‚±‚ê‚ÍA•Ï”‚É•¶Žš—ñ‚ð“ü‚ê‚Ä‚¢‚é‚Ì‚Å‚ ‚Á‚ÄAƒZƒ‹‚É“ü‚ê‚Ä‚¢‚é‚킯‚Å‚Í‚ ‚è‚Ü‚¹‚ñB
„„1s–Ú‚©‚ç‘‚«o‚µ‚Ä‚¢‚é‚Ì‚ð2s–Ú‚©‚ç‘‚«o‚·‚Ì‚Å‚Í‘Ê–Ú‚Å‚·‚©H „‚±‚ê‚ð‚¨Šè‚¢‚µ‚Ü‚·B ‚Æ‚¢‚¤‚¨Œ¾—t‚ª‚ ‚Á‚Ä‚ÌAŒ»Ý‚É‚È‚è‚Ü‚·B
‚Â‚Ü‚è „x(1, 1) = "xxxxxƒƒ‚xxxxx" ‚ð‚·‚é‚½‚ß‚É‚ÍA‚±‚ê‚Ü‚Å‚Ì•û–@‚Å‚Í‚È‚ ˆá‚¤•û–@‚ð‚Æ‚é•K—v‚ª‚ ‚è‚Ü‚·B
”z—ñ•Ï”‚ª‚í‚©‚é‚悤‚É‚È‚ê‚ÎA‚»‚¤“‚¢Ž–‚Å‚Í‚È‚¢‚ÆŽv‚¢‚Ü‚·‚Ì‚Å ƒXƒLƒ‹ƒAƒbƒv‚µ‚½‹Å‚ÉA‚²Ž©g‚ÅŽÀ‘•‚µ‚Ä’¸‚¯‚ê‚΂Ǝv‚¢‚Ü‚·B
Œ»Ý‚Ì—¬‚ê‚ðˆø‚«Œp‚¢‚Å‚Ì‘€ì‚ɂ‚¢‚Ä‚Í ‚à‚¤‚µ‘±‚¯‚邱‚Æ‚Í\‚í‚È‚¢‚ÆŽv‚¢‚Ü‚·‚ªH
(HANA)
Ž¶šBŒƒ—コ‚ꂽ‚Ì‚É@‚Í‚â‚΂â‚Æ•‚¯‚ð‹‚ß‚é•sb”ã‚È‚³
”z—ñitbl1Ax(xr, xc) ‚È‚Çj‚Æ@ƒZƒ‹‚Æ‚Ì‹æ•Ê‚ª‚í‚©‚Á‚½‚悤‚Å‚·B”z—ñ‚Å“à—e‚ðŒˆ‚ß‚Ä‚àAƒZƒ‹‚Å ‚Ì•\Ž¦‚³‚ê‚é‚Æ‚Í•Ê‚Å‚ ‚éB
Œ»‹µ‚Í@ AˆÄ http://www.mediafire.com/download.php?nzege4z5inz BˆÄ revised http://www.mediafire.com/download.php?nykmyojykjy
A ˆÄ‚͈ȉº
With Sheets("Œn•ˆ}") .Cells.ClearContents .Range("A1").Resize(UBound(y, 1), 3) = y .Range("D1").Resize(UBound(y, 1), xc + 3) = x ' C—ñ‚ɼ—ï‚ð“ü‚ê‚邽‚ß@‹ó‚¯‚½
'@1s‚ðƒƒ‚—p‚ɋ󂯂邽‚ßAˆês–Ú‚©‚çŒn•ˆ}‚ð•`‚¢‚½Œã‚Å@ˆês‰º‚Ö‚¸‚ç‚·ê‡B .Range("C1").Resize(UBound(y, 1), 1).Copy .Range("D1").Cells(1, xc + 5) '‰E’[‚ɼ—ï .Range("A1").Resize(UBound(y, 1), 1).Copy .Range("D1").Cells(1, xc + 6) '‰E’[‚É”N† .Range("B1").Resize(UBound(y, 1), 1).Copy .Range("D1").Cells(1, xc + 7) '‰E’[‚ɘa—ï
'@1s‚ðƒƒ‚—p‚ɋ󂯂邽‚ßA’¼Ú@‰º‚Ö‚¸‚炵‚Ä@2s–Ú‚©‚çŒn•ˆ}‚ð•`‚ê‡B '.Range("A2").Resize(UBound(y, 1), 3) = y 'A2‚©‚çŒn•ˆ} ˆÈ‰º1Ë‚Q‚Ö '.Range("D2").Resize(UBound(y, 1), xc + 3) = x ' C—ñ‚ɼ—ï‚ð“ü‚ê‚邽‚ß@‹ó‚¯‚½ '.Range("C2").Resize(UBound(y, 1), 1).Copy .Range("D2").Cells(1, xc + 5) '‰E’[‚ɼ—ï '.Range("A2").Resize(UBound(y, 1), 1).Copy .Range("D2").Cells(1, xc + 6) '‰E’[‚É”N† '.Range("B2").Resize(UBound(y, 1), 1).Copy .Range("D2").Cells(1, xc + 7) '‰E’[‚ɘa—ï
Rows("1:1").Insert Shift:=xlDown ' ’¼Ú‘‚«ž‚ñ‚¾ü‚âFŽw’è‚È‚Ç‚ªˆê‚ɉº‚É‚¸‚ê‚È‚¢‚Ì ‚Å@‚±‚ê‚Í‚Ü‚¸‚¢B
Range("D1") = "‚±‚±‚É쬎–¼‚ð‘ž‚ñ‚Å‚‚¾‚³‚¢ ‹Þ»,the orginal form desingned by Teruo Nagata, and then the Excel produced by Shojiro Nagata thanks of Mr.HANA"""
Range("Q120").Font.color = RGB(255, 0, 0)@' Test Žw’è‚̃Zƒ‹‚Ì•¶ŽšF‚ðŒˆ‚ß‚éƒR[ƒh@
End With
‚±‚ê‚ð@ƒf[ƒ^•Ï‰»Œã@ÄŽÀs‚·‚é‚Æ@’¼ÚƒZƒ‹‚ÉF‚¯•`‰æ‚µ‚Ä‚àAƒR[ƒh‚ŃZƒ‹‚Æ‚µ‚Ä“à—e‚âF‚È ‚Ç‚ðŒˆ‚ß‚Ä‚¢‚È‚¢‚Æ@‚»‚ê‚çF‚¯ƒZƒ‹‚Í@Œ³‚̃Zƒ‹‚æ‚è‚Ps‚µ‚½‚É‚¸‚ê‚邱‚Æ‚É‚È‚éBŒ³‚É•¶Žš‚ÌF‚ª Œ³‚É•Ï‚í‚éB–¼‘O‚ÉF‚ð‚‚¯‚éB ‚»‚±‚Å@Range("Q120").Font.color = RGB(255, 0, 0)@‚Æ‚·‚é‚Æ@•¶Žš‚ƑΉž‚·‚éBŽÀÛ‚É‚ÍŠeƒZƒ‹“à‚Ì"¢"‚â"¥"‚ÅŒˆ‚߂邱‚Æ‚É‚È‚éBiŒã“úƒR[ƒhì‹Æj
‚µ‚©‚µAŒn•ˆ}Œ‹‰Ê‚ɒljÁ‚·‚é‚Ì‚Í@¥ˆ÷‚Å—£‚ꂽŒn•ˆü‚Ì“¯ˆêl‚ÆŽ¦‚·@ü‚Å‚ ‚éB‚±‚ê‚Í@‚Ç‚¤‚·‚é‚©ƒƒh‚ª—§‚½‚È‚¢B¢“ï‚Å‚Í‚È‚¢‚¾‚ë‚©H
‚·‚é‚Æ@ˆê“x•`‰æ‚µ‚½‚à‚ÌiŌÔN‚ð‘æˆêsj‚ðAˆês‚Â炷‚Ì‚Å‚Í‚È‚AŽn‚©‚ç@ŌÔN‚ð‘æ‚Qs‚Æ‚µ‚Ä@•`‰æ‚·‚é•K—v‚ª‚ ‚é‚悤‚Å‚·B @ ‚»‚±‚Å@–ß‚Á‚Ä@BˆÄ‚ðÌ—p‚µ‚Ü‚µ‚½B‚±‚ê‚Å@F‚âüˆÊ’u‚ª•Ï‚í‚炸‚É‚È‚è‚Ü‚·B
Žc‚Á‚½‰Û‘è‚Í A1,B1,C1‚ÉŌẪf[ƒ^‚ªŽc‚邱‚Æ‚Å‚·B‚±‚ê‚ÍÅŒã‚É Range("A1FC1") = "h ‚Æ‚µ‚Ä@ƒNƒŠƒ„[‚·‚é‚Ì‚ªƒXƒ}[ƒg‚Å‚µ‚å‚©H ‚»‚µ‚ÄA ŠeƒZƒ‹“à‚Ì"¢"‚â"¥"‚Ì”»’è‚Í@”z—ñ‚Å‚Å‚«‚é‚Ì‚Å‚·‚ªAƒZƒ‹‚ƑΉž‚µ‚È‚¢‚Ì‚Å ‰ü‚ß‚Ä@ƒZƒ‹‚Å”»’è‚·‚é‚Ì‚Å‚µ‚傤‚ª@ If Range("A1FC1") = "¢" then ‚Ì@‚悤‚ȃR[ƒh‚Å‚µ‚傤‚©@•v•w‚Ì‚Æ‚±‚ë‚Å•ÊX‚É–¼‘O‚ÉF‚¯‚Í‚Ç‚¤‚·‚é‚Ì‚Å‚µ‚傤‚©H ‚±‚ê‚ð@‘SƒZƒ‹‚ð‚܂킳‚È‚¢‚Æ‚¢‚¯‚È‚¢B‚Ç‚¤‚·‚é‚Ì‚¾‚낤B
@@@
„‚»‚±‚Å@–ß‚Á‚Ä@BˆÄ‚ðÌ—p‚µ‚Ü‚µ‚½B ‚Ç‚ñ‚ȃR[ƒh‚É‚µ‚½‚Ì‚©‚í‚©‚è‚Ü‚¹‚ñ‚ª „Žc‚Á‚½‰Û‘è‚Í „A1,B1,C1‚ÉŌẪf[ƒ^‚ªŽc‚邱‚Æ‚Å‚·B .Cells.ClearContents ‚ð‚µ‚Ä‚¢‚ê‚ÎAƒf[ƒ^‚ªyŽc‚éz‚È‚ñ‚Ä‚±‚Æ‚Í –³‚¢‚ÆŽv‚¢‚Ü‚·‚ªH
„ŠeƒZƒ‹“à‚Ì"¢"‚â"¥"‚Ì”»’è‚Í@”z—ñ‚Å‚Å‚«‚é‚Ì‚Å‚·‚ªAƒZƒ‹‚ƑΉž‚µ‚È‚¢‚Ì‚Å ‹}‚É‚»‚ñ‚È‚±‚Æ‚ðŒ¾‚í‚ê‚Ä‚àA ‚È‚ñ‚ÌŽ–‚â‚炳‚Á‚Ï‚è‚í‚©‚è‚Ü‚¹‚ñB
ƒtƒHƒ“ƒg‚ÌF‚ð•Ï‚¦‚é‚Ì‚ÍAƒZƒ‹‚Ì‘Ž®Ý’è‚Å‚·B ux‚ð‘‚«o‚·‘O‚ÉAx‚É‚»‚ÌÝ’è‚ð‚µ‚Ä‚¨‚¢‚Ä @ƒf[ƒ^‚ð‘‚«o‚·‚Æ“¯Žž‚É@‘Ž®Ý’è‚àEEEv ‚È‚ñ‚Äl‚¦‚Ä‚¨‚ç‚ê‚é‚Ì‚È‚çA‚»‚ê‚Í‚Å‚«‚Ü‚¹‚ñB
‚µ‚©‚àAŒ»Ýˆµ‚Á‚Ä‚¢‚éƒTƒ“ƒvƒ‹‚Í‚©‚È‚è‘å‚«‚¢‚Å‚·‚Ì‚Å ‚»‚Ì‚ ‚½‚è‚ÍA¬‚³‚¢ƒTƒ“ƒvƒ‹‚Å@ƒeƒXƒgƒR[ƒh‚ð쬂µ ”[“¾‚Ì‚¢‚ƒR[ƒh‚ðì‚ç‚ê‚Ä‚©‚ç ”N•\Œn•ˆì¬ƒ}ƒNƒ‚É‘g‚Ýž‚ñ‚Å‚¢‚‚Ì‚ª—Ç‚¢‚ÆŽv‚¢‚Ü‚·‚æB
@@EEE‚ÆŒ¾‚¤‚©AŽ„‚Í‚±‚ê‚ð @@@u‚Í‚ñ‚ɂႳ‚ñ‚ÌV‚½‚ÈŽv‚¢‚‚«v @@‚Æ”FŽ¯‚µ‚Ü‚·B
“–‰‚Ì’iŠK‚ÅA‚Í‚ñ‚ɂႳ‚ñ‚ª@‚ǂꂾ‚¯ƒ}ƒNƒ‚̃XƒLƒ‹‚ð Ž‚Á‚Ä‚¨‚ç‚ꂽ‚Ì‚©•ª‚©‚è‚Ü‚¹‚ñ‚ªA‚±‚±‚Ü‚Å‚ÌŠÔ‚Å ”ò–ô“I‚ÉŒüサ‚Ä‚¨‚ç‚ê‚é‚Ì‚Å‚Í‚È‚¢‚©‚ÆŽv‚¢‚Ü‚·B
‚µ‚©‚µA‚¢‚«‚Ȃ肱‚ê‚ç‚©‚ç“ü‚Á‚½‚½‚ß ”ñí‚ÉŠî–{“I‚È•”•ª‚ª–¢Žû“¾‚È‚Ì‚Å‚Í‚È‚¢‚©‚Æ‚àŽv‚¢‚Ü‚·B
‚ EEE‚ЂƂ–Y‚ê‚é‚Æ‚±‚ë‚Å‚µ‚½B ‘Ž®‚ðƒ}ƒNƒ‚Å•ÏX‚·‚é‚È‚çAuClearContentsv‚Å‚Í‚È‚ uClearv‚·‚é‚Ì‚ª—Ç‚¢‚Å‚µ‚傤B
(HANA)
‚±‚̃XƒŒ‚Å‚à‚È‚³‚Á‚Ä‚¢‚鎖‚É¡‹C‚«‚Ü‚µ‚½‚ªBBB ‚Ç‚¤‚µ‚Ä‚à•ÏX‚·‚é•K—v‚ª‚ ‚éꇂ𜂫 ƒ^ƒCƒgƒ‹‚Í“–‰‚Ì‚à‚Ì‚ð‚»‚Ì‚Ü‚ÜŽg—p‚µ‚Ä‚¢‚½‚¾‚¯‚ê‚΂Ǝv‚¢‚Ü‚·B
Ž„‚ÍAƒXƒŒ‚̓^ƒCƒgƒ‹‚Å”FŽ¯‚µ‚Ä‚¢‚Ü‚·‚µ i”FŽ¯‚Ì•û‚ÍAŠ„‚ÆžB–†‚Å‚·‚Ì‚ÅŽ—‚Ä‚¢‚ê‚Î @•Ï‚í‚Á‚Ä‚¢‚邱‚Æ‚É‹C‚©‚È‚¢Ž–‚ª‘½‚¢‚Å‚·‚ªj ƒeƒXƒgƒtƒ@ƒCƒ‹“™‚àƒ^ƒCƒgƒ‹‚ÅŠÇ—‚µ‚Ä‚¢‚Ü‚·‚Ì‚ÅB i‚±‚ñ‚ÈŠ´‚¶‚ÅAƒf[ƒ^‚ÅŽc‚Á‚Ä‚¢‚é‚Æ@‚»‚Ì‚à‚Ì‚ðŒŸõ‚·‚é‚Ì‚Å @ˆø‚ÁŠ|‚©‚ç‚È‚‚È‚Á‚Ä‚µ‚Ü‚¢‚Ü‚·Bj
(HANA)
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚· BˆÄ‚Í @With Sheets("Œn•ˆ}") .Cells.ClearContents @'@1s‚ðƒƒ‚—p‚ɋ󂯂邽‚ßA’¼Ú‰º‚Ö‚¸‚炵‚Ä@2s–Ú‚©‚çŒn•ˆ}‚ð•`‚ê‡B .Range("A2").Resize(UBound(y, 1), 3) = y 'A2‚©‚çŒn•ˆ} ˆÈ‰º1Ë‚Q‚Ö .Range("D2").Resize(UBound(y, 1), xc + 3) = x ' C—ñ‚ɼ—ï‚ð“ü‚ê‚邽‚ß@‹ó‚¯‚½ .Range("C2").Resize(UBound(y, 1), 1).Copy .Range("D2").Cells(1, xc + 5) '‰E’[‚ɼ—ï .Range("A2").Resize(UBound(y, 1), 1).Copy .Range("D2").Cells(1, xc + 6) '‰E’[‚É”N† .Range("B2").Resize(UBound(y, 1), 1).Copy .Range("D2").Cells(1, xc + 7) '‰E’[‚ɘa—ï
Range("D1") = " ‚±‚±‚É쬎–¼‚ð‘ž‚ñ‚Å‚‚¾‚³‚¢ ‹Þ»"
End With ‚Å‚·B @Œ‹‰Ê‚Í@OK‚Å‚µ‚½BƒR[ƒh‚̃~ƒX‚ª‚ ‚è‚Ü‚µ‚½B‚킸‚ç‚킵‚Ü‚µ‚½B
F‚¯‚ÍŠm‚©‚É@Žèì‹Æ‚Å‚â‚Á‚Ä‚¢‚½‚Ì‚ðƒR[ƒh‰»‚·‚é‚Ì‚Í@¬¶‚ÌuV‚½‚ÈŽv‚¢‚‚«v‚Å‚·B ‚Í‚¢@‚±‚ê‚Í•Ê“r‚Æ‚µ‚Ü‚·B
‘½•ª .Range("A2").Resize(UBound(y, 1), 3) = y 'A2‚©‚çŒn•ˆ} ˆÈ‰º1Ë‚Q‚Ö .Range("D2").Resize(UBound(y, 1), xc + 3) = x ' C—ñ‚ɼ—ï‚ð“ü‚ê‚邽‚ß@‹ó‚¯‚½ ‚±‚Ì2s‚Å@ƒf[ƒ^‚ð‘‚«o‚·‚µ‚ÄA‚»‚ÌŒã‚Å‚µ‚©@F‚ȂǃZƒ‹‚Ì‘Ž®Ý’è‚Í‚Å‚«‚È‚¢B‚·‚È‚í‚¿@With Sheets("Œn•ˆ}")ˆÈ‘O‚Å‚Ío—ˆ‚È‚¢B ‚Æ—‰ð‚µ‚Ü‚µ‚½B—‰ð‚Í—Ç‚¢‚Å‚µ‚傤‚©H
‚½‚µ‚©‚É@‚»‚ÌŒã‚Å@ 'Range("Q120").Font.color = RGB(255, 0, 0) 'ŠeƒZƒ‹“à‚Ì"¢"‚â"¥"‚ÅŒˆ‚߂邱‚Æ‚É‚È‚éiŒã“ú ƒR[ƒhì‹Æj‚È‚Ç‚ÅŠ’è‚ÌF‚É‚Å‚«‚Ü‚µ‚½B ‚±‚±‚Å@‘SƒZƒ‹‚ɂ‚¢‚Ä@ðŒ‚ÅF‚¯‚·‚邱‚Æ‚Å‚µ‚傤B@•×‹‚µ‚È‚ª‚ç@‚â‚Á‚Ä‚Ý‚Ü‚·B s‚«Ž~‚Ü‚Á‚½‚ç@‚Ç‚¤‚©@‚æ‚낵‚@‚¨‚Ë‚ª‚¢‚µ‚Ü‚·B‚»‚Ì‚Æ‚«‚Í@•ÊƒXƒŒƒbƒh‚ÅB
¡‰ñ‚̃XƒŒƒbƒhƒ^ƒCƒgƒ‹‚Í@‰ü‘è‚Ì‚Ü‚Ü‚Å‚æ‚¢‚Å‚µ‚傤‚©@‚»‚ê‚Æ‚àˆÈ‘O‚ÌŒ³‚É‚à‚Ç‚µ‚½‚ç@‚æ‚¢‚Å‚µ‚傤‚©H @
„With Sheets("Œn•ˆ}")ˆÈ‘O‚Å‚Ío—ˆ‚È‚¢B „‚Æ—‰ð‚µ‚Ü‚µ‚½B—‰ð‚Í—Ç‚¢‚Å‚µ‚傤‚©H
ƒZƒ‹‚Ƀf[ƒ^‚ª“ü‚Á‚Ä‚¢‚鎖‚ÆAƒZƒ‹‚Ì‘Ž®‚ð•ÏX‚·‚鎖‚Í •Ê‚Ì–â‘è‚Æ‚µ‚Äl‚¦‚é‚Ì‚ª—Ç‚¢‚ÆŽv‚¢‚Ü‚·B
—Ⴆ‚ÎAA1ƒZƒ‹‚Ƀf[ƒ^‚ª“ü‚Á‚Ä‚¢‚È‚‚Ä‚à A1ƒZƒ‹‚Ì‘Ž®‚Í•ÏXo—ˆ‚Ü‚·‚ËH
“¯‚¶u•¶ŽšF•ÏXv‚ÆŒ¾‚Á‚Ä‚àA1ƒZƒ‹‚Éu‚è‚ñ‚²‚Ý‚©‚ñv‚Æ“ü‚鎞‚É "‚è‚ñ‚²"‚ÍÔ‚ÉA"‚Ý‚©‚ñ"‚̓IƒŒƒ“ƒW‚É ‚ÆŒ¾‚¤•ÏX‚ÍAA1ƒZƒ‹‚Ƀf[ƒ^‚ª“ü‚Á‚Ä‚¢‚È‚¢‚Æo—ˆ‚Ü‚¹‚ñB
@@‚»‚ê‚𓥂܂¦‚ÄuEEE‚Æ—‰ð‚µ‚Ü‚µ‚½Bv‚ÆŒ¾‚¤Ž–‚Å—L‚ê‚Î @@—‰ð‚Í—Ç‚¢@‚ÆŽv‚¢‚Ü‚·B
ˆê‚‚̃Zƒ‹‚Ì’†‚Ì•¶Žš‚ÌF‚ð‚¢‚‚‚©‚É•ÏX‚·‚éê‡‚Í i“–‘R‚Å‚·‚ªj‰½•¶Žš–Ú‚©‚牽•¶Žš–Ú‚ð‰½F@‚ÆŒ¾‚Á‚½Š´‚¶‚ÅŽw’è‚ð‚µ‚Ü‚·B A1ƒZƒ‹‚Éu‚è‚ñ‚²‚Ý‚©‚ñv‚ª“ü—Í‚³‚ê‚é‚ÆŒˆ‚Ü‚Á‚½’iŠK‚Å @@i x(1,1)‚É@‚è‚ñ‚²‚Ý‚©‚ñ@‚Æ“ü‚Á‚½’iŠK‚Åj A1ƒZƒ‹‚Ì•¶ŽšF‚Í@‚P`‚RÔA‚T`‚WƒIƒŒƒ“ƒW@‚ÆŒˆ‚Ü‚è‚Ü‚·B ŽÀÛ‚É•¶ŽšF‚ð•ÏX‚·‚é‚Ì‚ÍA‘‚«o‚µ‚½Œã‚Å‚·‚ËB ‚»‚̃Zƒ‹‚ªˆêF‚Å—Ç‚¢‚È‚çA‚±‚Ì’iŠK‚Åi‘‚«o‚·‘O‚Å‚àj ƒZƒ‹‚É‘Ž®‚ÌÝ’è‚Ü‚Åo—ˆ‚Ü‚·‚ªB i‚µ‚©‚à@•¶Žš”‚𔂦‚é•K—v‚à–³‚@o—ˆ‚Ü‚·‚ËBj
uŽv‚¢‚‚©‚ê‚邽‚тɃR[ƒh‚ð•ÏX‚·‚é‚Ì‚ÍŒ™‚¾v‚ÆŒ¾‚¤‚Ì‚Í Šm‚©‚É‘å•Ï‚È‚Ì‚Å‚·‚ªA‚»‚ê‚æ‚è‚à uæ‚É•ª‚©‚Á‚Ä‚¢‚½‚çAˆá‚¤ÝŒv‚ð‚µ‚½v‚ÆŒ¾‚¤•”•ª‚ª ‚½‚‚³‚ño‚Ä‚‚é‚©‚ç‚Å‚·B
¡‰ñ‚ÌF‚Ì•ÏX‚ÉŠÖ‚µ‚Ä‚à‚»‚¤‚Å‚·B ŽÀۂɃR[ƒh‚ðì‚é‚©ì‚ç‚È‚¢‚©‚Í•Ê‚Æ‚µ‚Ä i‚±‚ê‚Ü‚Å‚à@ƒR[ƒh‚ª–Ê“|‚¾‚©‚ç—v–]‚Í”½‰f‚µ‚Ü‚¹‚ñ@‚ÆŒ¾‚¤Ž–‚ð @‰½“x‚©Œ¾‚Á‚Ä‚«‚½‚ÆŽv‚¢‚Ü‚·Bj æ‚É‚»‚Ì‚²—v–]‚ªo‚Ä‚¢‚½‚ç@–”ˆá‚¤ÝŒv‚ð‚µ‚Ä‚¢‚½‚ÆŽv‚¢‚Ü‚·B
Œ»Ý@•ƒ•êi•vÈj‚ðˆê‚‚̃Zƒ‹‚É‘‚«o‚µ‚Ä‚¢‚Ü‚·‚ËB ‚¾‚©‚çA››•¶Žš‚Ü‚Å‚Í¢FA~~•¶Žš‚©‚ç‚ÍžF@‚È‚ñ‚Ä –Ê“|‚Èݒ肪•K—v‚É‚È‚Á‚Ä‚«‚Ü‚·B ‚à‚µ‚àŽq‚Ì—l‚ÉAˆêƒZƒ‹‚Ɉêl‚Ì–¼‘O‚ð‘‚‚±‚Æ‚É‚µ‚Ä‚¢‚½‚ç •Ï”x‚Ö“ü‚éƒf[ƒ^‚ªŒˆ‚Ü‚Á‚½’iŠK‚ÅAŠÈ’P‚É‘Ž®‚ªŒˆ‚Ü‚è‚Ü‚·‚µ ƒ^ƒCƒ~ƒ“ƒO‚ð‹C‚É‚¹‚¸ƒZƒ‹‚Ì‘Ž®‚Ì•ÏX‚ªo—ˆ‚é‚悤‚ɬ‚è‚Ü‚·B Œ»Ý•K—v‚ÆŽv‚í‚ê‚éì‹Æ‚à•s—v‚ɬ‚é•”•ª‚ªo‚Ä‚«‚Ü‚·B ‚±‚ê‚ÍAƒR[ƒh‚ª’Z‚‚ଂè‚Ü‚·‚µ@ꇂɂæ‚Á‚Ä‚Í ‘S‘̂̈—‘¬“x‚à‘¬‚‚È‚é‚Ì‚Å‚Í‚È‚¢‚©‚ÆŽv‚¢‚Ü‚·B
Žq‚âubvƒZƒ‹‚Ì‘Ž®‚Ì•ÏX‚ÍAŠÈ’P‚Éo—ˆ‚é‚ÆŽv‚¢‚Ü‚·B –â‘è‚Í@•ƒ•ê‚Ìꇂł·B «•Ê‚ðŠm”F‚·‚é‚Æ‹¤‚ÉAŽq‚ÌŽž‚Í•s—v‚È l–¼‚Ì’·‚³{uŒÌv‚Ì—L–³‚ÌŠm”F@“™ ‚ªA¶‘¤‚É—ˆ‚Ä‚¢‚él‚ÉŠÖ‚µ‚Ä•K—v‚Å‚·B
Ž„‚ªŒ»Ý‚̃R[ƒh‚Ì‚Ü‚Ü‚Åì‚é‚È‚çA‚à‚¤ˆê‚•ϔ‚ðŽg‚Á‚Ä ŠeƒZƒ‹‚ª‚Ç‚Ì—l‚È‘Ž®‚ɬ‚é‚Ì‚©Aƒƒ‚‘‚«‚ð‚µ‚Ä‚¨‚¢‚Ä ÅŒã‚É‚»‚Ì•Ï”‚̃f[ƒ^‚ðŒ©‚È‚ª‚ç@‘Ž®‚ð•ÏX‚µ‚Äs‚‚ÆŽv‚¢‚Ü‚·B
‚µ‚©‚µAŽÀÛ‚ÌŽ–‚ðl‚¦‚é‚Æ@’ú‚ß‚Ä@Œ»ÝŠ®¬‚µ‚Ä‚¢‚éƒR[ƒh‚Ì•û‚𠕃‚Æ•ê‚Ì–¼‘O‚ð•ÊƒZƒ‹‚É‘‚«o‚·‚悤‚É•ÏX‚·‚é‚ÆŽv‚¢‚Ü‚·‚æB i‘Ž®ƒƒ‚‚Ì쬃R[ƒh‚à‚‚¯‚‚킦‚È‚ª‚çBj
‚»‚ꂪ—L‚é‚Ì‚Å—]Œv‚ÉAŒ»Ýo—ˆ‚Ä‚¢‚éó‘Ô‚©‚çŽè‚ð‰Á‚¦‚ÄEEE ‚ÆŒ¾‚¤”‘z‚ÍA–Ê“|‚ÉŽv‚¢‚Ü‚·B i‚ÆŒ¾‚¤”‘z‚ª–³‚¢‚È‚çA“Á‚É‹^–â‚Í‚È‚¢‚Ì‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ªB @‚â‚Á‚Ä‚â‚ê‚È‚¢Ž–‚Í‚È‚¢‚Ì‚ÅBj
ʼn‚ÌÝŒv‚Á‚Ä‘åØ‚Å‚·‚æB ‚Å‚·‚©‚çA–Ê“|‚Å‚àˆê“xŽèì‹Æ‚Å쬂µ‚Ä‚¨‚‚Ì‚ª—Ç‚¢‚ÆŽv‚¤‚Ì‚Å‚·B ƒR[ƒh‚ªŠ®¬‚µ‚Ä‚©‚çAƒR[ƒh‚ÉŽè‚ð‰Á‚¦‚Äs‚‚æ‚è Œ‹‰Ê“I‚É‚Í‘‚Š®¬‚·‚é‚Ì‚Å‚Í‚È‚¢‚©‚ÆŽv‚¢‚Ü‚·‚µ ƒR[ƒh‘S‘Ì‚ðŒ©‚½Žž‚É‚àA‚æ‚èƒXƒ}[ƒg‚È•¨‚ªo—ˆ‚é‚ÆŽv‚¢‚Ü‚·B
‚Ü‚½AƒZƒ‹‚ւ̃AƒNƒZƒX‚ÍŽžŠÔ‚ª‚©‚©‚è‚Ü‚·B ‚à‚µ‚àubv‚àŠÜ‚߈êƒZƒ‹‚¸‚•ÏX‚·‚鎖‚ð l‚¦‚Ä‹‚ç‚ê‚é‚È‚ç@‚³‚ç‚ÉŽžŠÔ‚ª‚©‚©‚é‚Å‚µ‚傤B ‚Å‚·‚©‚çA‚»‚Ì“_‚àl—¶‚ª•K—v‚È•”•ª‚ɬ‚Á‚Ä‚‚é‚ÆŽv‚¢‚Ü‚·B
„¡‰ñ‚̃XƒŒƒbƒhƒ^ƒCƒgƒ‹‚Í@‰ü‘è‚Ì‚Ü‚Ü‚Å‚æ‚¢‚Å‚µ‚傤‚© ŽŸ‰ñ‚©‚ç‹C‚ð‚‚¯‚Ä‚¢‚½‚¾‚¯‚ê‚΂Ǝv‚¢‚Ü‚·B
ƒ^ƒCƒgƒ‹‚»‚Ì‚à‚Ì‚ðŒŸõ‚µ‚½Žž‚Ɉø‚Á‚©‚©‚ç‚È‚¬‚é‚ÆŒ¾‚¤‚¾‚¯‚Å Á‚³‚ê‚Ä‚µ‚Ü‚Á‚½‚Ì‚Å‚È‚¢ŒÀ‚èA‘½‚‚Ìê‡ ’PŒê‚â“à—eAƒjƒbƒNƒl[ƒ€“™‚ÅŒŸõ‚µ‚ÄŒ©‚‚¯‚鎖‚Ío—ˆ‚Ü‚·‚Ì‚ÅB i‚»‚ꂪ–Ê“|‚È‚Ì‚ÅA•Ï‚¦‚È‚¢‚Å‚à‚ç‚¢‚½‚¢‚Æ@Žv‚Á‚Ä‚¢‚邾‚¯‚Å‚·Bj
(HANA)
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚· ÝŒvEŽd—l‚ªŽn‚ß‚©‚ç’ñŽ¦‚µ‚Ä‚È‚¢‚½‚ß‚É@‚¹‚Á‚©‚‚Ì•Œ¾‚Å iHANA‚³‚ñ‚Ì–{—Ì‚ð”Šö‚Å‚«‚¸j ƒXƒ}[ƒg‚ȃR[ƒh‚ª“¾‚ç‚ê‚È‚¢‚±‚Æ‚Í‚±‚±‚ë‚©‚ç@ŽÓ‚è‚Ü‚·B
ƒZƒ‹‚Ì•¶Žš“à—e‚ð’è‚ß‚éƒR[ƒh‚Ì‚Æ‚±‚ë‚ðFŽw’è‚Ì•â‘«‚·‚ê‚΂ƈÀˆÕ‚Él‚¦‚Ä‚¢‚Ü‚µ‚½B ‚Å‚à@‚ЂƂ‚͓à—e‚ð’è‚ß‚½‚Ì‚Í@ƒZƒ‹—p‚Ì”z—ñ‚Ì“à—e‚Å@ƒZƒ‹‚»‚Ì‚à‚Ì‚Å‚È‚¢B ‚Æ‚È‚é‚Æ@ƒZƒ‹‚̔Ԓn‚ÍX,Y‚ÌÀ•W”’l‚Å‚È‚AA3‚Ì”@‚@•¶Žš–¼‚É‚È‚Á‚Ä‚¢‚é‚Ì‚Å For@Loo‚‚̂悤‚È‹Lq‚Å@‚QE‚P`—ñEs•Ï“®Å‘å”’l‚ð‰ô‚µ‚ÄAŠeƒZƒ‹‚Ì«‹L†‚ÌŽOŠpˆó‚Æ‚Ì Æ‡‚Å@ŠY“–ƒZƒ‹‚ÌF‚ð•ÏX‚·‚é‚Æ‚¢‚¤@ˆÀˆÕ‚È‚à‚‚ë‚Ý‚ª‚«‚¦‚Ü‚µ‚½B ƒZƒ‹–¼‚ª•¶Žš‚Å@‚Ç‚¤‚â‚Á‚Ä@ƒZƒ‹‚ð‰ô‚µ‚Ä‚Å‚«‚é‚Ì‚©@•×‹‚µ‚È‚¯‚ê‚Î@‚È‚è‚Ü‚¹‚ñB
For@XXX to Max 'Loo‚ ‚±‚Ì‹Lq‚ð•×‹‚µ‚È‚¢‚Æ‚¢‚¯‚È‚¢ if Range(x, y) = Like "*[¥]*" Then "Range(x, y) =" .Font.color = RGB(255, 0, 0) @else @if Range(x, y) = Like "*[¢]*" Then "Range(x, y) =" .Font.color = RGB(0, 0, 255) @else @"Range(x, y) =" .Font.color = RGB(0, 0, 0)
Next
Žq‚Ì‚Æ‚«‚Ì > @‚»‚̃Zƒ‹‚ªˆêF‚Å—Ç‚¢‚È‚çA‚±‚Ì’iŠK‚Åi‘‚«o‚·‘O‚Å‚àj ƒZƒ‹‚É‘Ž®‚ÌÝ’è‚Ü‚Å o—ˆ‚Ü‚·B
‚±‚Ì’iŠK‚Æ‚¢‚¤‚Ì‚Í@With Sheets("Œn•ˆ}")‚Ì‘OA‘¦‚¿@For i = 2 To UBound(tbl1, 1)@ ‚Ì’†‚Å‚Å‚µ‚傤‚© ‚±‚ꂪ‰Â”\‚È‚ç@‚»‚ê‚ð‚ß‚´‚µ‚½‚¢B —‰ð•s‘«H@‚±‚±‚Å‚Í”z—ñ‚µ‚©‘€ì‚µ‚Ä‚¢‚È‚¢‚©‚ç@ƒZƒ‹‘€ì‚Í‚Å‚«‚邾‚낤‚©H
> •Ï”x‚Ö“ü‚éƒf[ƒ^‚ªŒˆ‚Ü‚Á‚½’iŠK‚ÅAŠÈ’P‚É‘Ž®‚ªŒˆ‚Ü‚è‚Ü‚·
‚¤[‚ÞIH@‚Æ‚¢‚¤‚±‚Æ‚Í@”z—ñ’l‚ðŒˆ‚ß‚é‚Æ‚«‚É@“¯Žž‚ɃR[ƒh‰»‚Å‚«‚é‚Æ‚¢‚¤‚±‚Æ‚Å‚µ‚傤‚©H
“¯‚¶ƒZƒ‹“à‚Å@•ƒ•ê‚Ì‚Q‚‚̖¼‚ª‚ ‚Á‚Ä@‚»‚ê‚ð‚»‚ê‚¼‚êF‚킯‚·‚é‚É‚Í@‚Ì‘O‚Ì•¶Žš”A Œã‚Ì•¶Žš”‚𔂦@‚»‚ꂼ‚ê‚Ì•¶Žš”‚ð F•Ê‚ÉŽw’è‚Æ‚¢‚¤‚±‚Æ‚¾‚Æ—‰ð‚µ‚Ü‚µ‚½B¬¶‚É‚Í‚Þ‚¸‚©‚µ‚¢BiŽè‘€ì‚Å‚Í@o—ˆ‚Ü‚·jB •Ê‚̃Zƒ‹‚ðŽg‚¤‚É‚µ‚Ä@¶iæoj–¼‘O‚ÌŽš”‚ʼnEiŒãoj‚Ì–¼‘O‚̃Zƒ‹ˆÊ’u‚ð•Ï‚¦‚é@ ‚Æ‚¢‚¤‚±‚Æ‚ào—ˆ‚»‚¤‚Å‚·‚ª Œ‹\‚Þ‚¸‚©‚µ‚»‚¤B
“––ÊAŽq‚Ì•¶Žš‚ÉŒÀ‚Á‚ÄF•ÊŽw’è‚ð‚ß‚´‚µ‚Ü‚·B
‚Ü‚½@Œn•ˆüb‚Í@ÅŒãŒn“‚̉Ƒ°‚©‚ç@‹t‚É‘k‚Á‚Ä’H‚é‚Æ‚«‚Í’jŒnA—Œn‚ÌF‚ªŒˆ‚Ü‚è‚Ü‚·‚ªA —¼e‚©‚ç‚Í@–º‚ ‚é‚¢‚Í‘§Žq‚Ì—¼•û‚ª‚ ‚é‚̂ňêŠT‚É‚Ç‚ÌF‚Æ‚«‚ß‚ç‚ê‚È‚¢‚Ì‚ÅŽ©“®‰»‚Í‚µ‚Ü‚¹‚ñB
‚È‚¨@•Œ¾‚ð‹‚ß‚é‘O‚É@1”Ô@l‚¦‚½‚±‚Æ‚Í@@ ”zü}‚Ì‚²‚Æ‚@Œð·‚µ‚È‚¢‚悤‚É@Œˆ‚ß‚é‚Æ‚¢‚¤‚±‚Æ‚Å‚µ‚½B
“ª‚Ì’†‚Ř_—“I‚Å‚ ‚ê‚Î@ƒpƒ\ƒRƒ“‚É–½—ßiƒvƒƒOƒ‰ƒ€j‚·‚邱‚Æ‚Í@”¼‚Îo—ˆã‚ª‚Á‚½‚悤‚È‚à‚Ì‚¾‚»‚¤‚Å‚·‚ªB ŽÀÛ‚É‚Í@ŽŸX‚Æ‚¢‚ë‚ñ‚ȃP[ƒXi“Á‚É̂̂ЂÆj‚ªo‚ÄAƒvƒƒOƒ‰ƒ€‚È‚©‚¹‚Å‚µ‚½ iŽ©—Í‚Å‚È‚A •Œ¾‚É‚µ‚½‚ª‚Á‚Äì‚Á‚½j
¡‚ÍeŽq‘g‚ðˆê‚‚̌n•ˆü‚Å‚ ‚ç‚킵‚Ä@—¼e[Žq‚ÌŒn•ˆü‚ªˆê‘g‚Å‚·‚ª Žq‚ªŽŸ‚Ì¢‘ãi‰Æ‘°j‚𬂷‚Æ@ƒf[ƒ^‚Æ‚µ‚Ä@‚à‚¤ˆê‘gì‚邱‚Æ‚É‚È‚éB ì}‚Å‚à@ƒJƒbƒg•ƒy[ƒXƒg‚Ìì‹Æ‚ª‚¢‚éB
Œð·‚µ‚È‚¢ðŒ‚ª‚ ‚Á‚½‚èA‘‚«•û‚ð‚¤‚Ü‚Œ©‚‚¯‚ç‚ê‚ê‚Î@iˆê‘ã‚È‚ç@”NŽÒ‚ÌŒn •ˆü‚ðŶ‚É‚µ‚Ä@ ŽŸ‚Ì”N’·ŽÒ‚Ì‚ð‚æ‚è‰E‚É•`‚‚Æ‚¢‚¤Œˆ‚ß•ûjŽq‚ÌŒ‹¥ie‚ɬ‚éj‚ÆAŽŸX‚ÆŒn•ˆü‚ðŠK’iŽ®‚É •`‚©‚ê‚邪AŽq‚ª•¡”‚Æ‚È‚é‚Æ@ŽŸ‚ÌŽq‚ç‚ÌŒn•ˆü‚Í‚Ç‚¤‚·‚é‚©‚Å@‚È‚©‚È‚©˜_—“I‚È”z’u‚ª“‚¢B –{l‚©‚猩‚Ä@‚¨‚¢‚â‚ß‚¢i‚¢‚Æ‚±“¯Žmj‚ª•À‚Ô@Œn•ˆü‚ª‰½–{‚à‚ ‚é‚ƌ𷂷‚邱‚Æ‚É‚È‚éB
‚±‚ê‚͓‚©‚Á‚½‚Ì‚Å@eŽqŠÖŒW‚ňêŒn•ˆü‚ð‚©‚‚±‚Æ‚É‚µ‚Ü‚µ‚½B ‚»‚êˆÈŠO‚Í•s–¾‚ȃf[ƒ^‚È‚Ç‚ð—Ç‚l‚¦‚È‚©‚Á‚½‚Æ‚¢‚¤‚Ì‚ªŽÀî‚Å‚·B
Žè‘€ì‚Å‚â‚Á‚Ä@‚»‚̃}ƒNƒ‚Ö‚Ì‹L˜^‚ðŽQÆ‚µ‚È‚ª‚ç@•×‹‚µ‚Ä‚¢‚«‚Ü‚·B ‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B
‚±‚±‚Ü‚Å‚â‚Á‚Ä‚«‚Äu‚¢‚Ü‚³‚çv‚ÆŽv‚í‚ê‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ª ‚à‚¤ˆê“xy“ü–åz‚©‚çŽn‚ß‚Ä‚¢‚½‚¾‚‚Ì‚ªA—Ç‚¢‚ÆŽv‚¢‚Ü‚·B
’m‚Á‚Ä‚¢‚邱‚Æ‚¾‚¯‚Å‚à@VBA‚Å‚·‚©‚ç ‚¢‚ë‚¢‚ë‘g‚݇‚킹‚Äæ‚è‰z‚¦‚邱‚Æ‚Ío—ˆ‚é‚ÆŽv‚¢‚Ü‚·B
‚µ‚©‚µA‚¢‚ë‚¢‚ë‘g‚݇‚킹‚¸‚Éo—ˆ‚é•û–@‚ª‚ ‚é‚Ì‚È‚ç ‚»‚ê‚ðŽg‚í‚È‚¢Žè‚Í‚ ‚è‚Ü‚¹‚ñB
‚½‚Æ‚¦‚ÎAB5ƒZƒ‹‚ðƒ}ƒNƒ‚Å•\‚·‚É‚Í Range("B5")‚Ì—l‚É‘‚«‚Ü‚·‚ª Cells(5 , 2) ‚ÆŒ¾‚Á‚½‘‚«•û‚à‚Å‚«‚Ü‚·B
¡‰ñAx(1,1)‚Í Range("D2") ‚É‘‚«o‚·‚Ì‚Å Cells(2 , 4) ‚ɑΉž‚µ‚Ü‚·B@ @«x‚Ìs—ñ x‚Ìs+1 ‚ª@ƒZƒ‹‚Ìs”Ô†‚Å@@i‚P +1= ‚Qj x‚Ì—ñ+3 ‚ª@ƒZƒ‹‚Ì—ñ”Ô†‚Å‚·Bi‚P +3= ‚Sj @@@@@@@@@@@@@@@@@@@@ªCells‚Ìs—ñ ‚Å‚·‚Ì‚Å If tbl1(i, 6) Like "*[‘§Žq]*" Then sb = "¢" ElseIf tbl1(i, 6) Like "*[–º]*" Then sb = "¥" Else 'ŠÖŒW‚ª–³‹LÚ sb = "" End If ‚±‚Ì”»’è‚ÅA•¶ŽšF‚ªŒˆ‚Ü‚è x(xr, xc + 2) = sb & knm(tbl1(i, 9), tbl1(i, 1)) ‚±‚Ì x(xr, xc + 2) ‚ÅAƒZƒ‹”Ô’n‚ªŒˆ‚Ü‚è‚Ü‚·B Cells(xr + 1 ,xc + 2 + 3)@@xr + 1s–Ú ‚Å xc + 5—ñ–ڂ̃Zƒ‹
‚Ü‚½A•K‚¸æ“ªˆê•¶Žš‚Å”»’f‚·‚ê‚΂悢‚Ì‚Å Range(x, y) = Like "*[¥]*"@‚æ‚è‚à LEFT(Cells(y,x),1)="¥" ‚Ì•û‚ª—Ç‚¢‚©‚à‚µ‚ê‚Ü‚¹‚ñB
‚»‚ê‚©‚çA „ For@XXX to Max 'Loo‚ ‚±‚Ì‹Lq‚ð•×‹‚µ‚È‚¢‚Æ‚¢‚¯‚È‚¢ ‚±‚̃R[ƒh‚Å‚ÍA‚½‚Æ‚¦Š®¬‚µ‚½‚Æ‚µ‚Ä‚à ŽžŠÔ‚΂©‚è‚©‚©‚Á‚ÄŽg‚¢•¨‚É‚È‚ç‚È‚¢‚ÆŽv‚¢‚Ü‚·‚æB
„“––ÊAŽq‚Ì•¶Žš‚ÉŒÀ‚Á‚ÄF•ÊŽw’è‚ð‚ß‚´‚µ‚Ü‚·B „‚Ü‚½@Œn•ˆüb‚Í@EEE@Ž©“®‰»‚Í‚µ‚Ü‚¹‚ñB ‚±‚Ì•”•ª‚ð‚à‚¤‚µl‚¦‚Ä‚©‚çAƒR[ƒhì¬‚É ‚Æ‚è‚©‚©‚é‚Ì‚ª—Ç‚¢‚Ì‚Å‚Í‚È‚¢‚©‚ÆŽv‚¢‚Ü‚·B
‚½‚Æ‚¦‚ÎA¤¥ˆÈŠO‚ÌŽž‚É•¶ŽšF‚ð•‚‚·‚é‚È‚ç ubv‚̃Zƒ‹‚Í•‚‚È‚è‚Ü‚·‚ËB ‚»‚ê‚Í¢‚é‚Ì‚Åubv‚ÌŽž‚Í•ÏX‚µ‚È‚¢Ž–‚É‚·‚éê‡ ‚»‚Ì‘O‚ÌŽž‚Éu¥v‚¾‚Á‚½‚¯‚Ç¡‰ñubv‚É‚È‚Á‚½ƒZƒ‹‚Í •¶ŽšF‚ªÔ‚¢‚Ü‚Ü‚ÅŽc‚è‚Ü‚·B ‚½‚Æ‚¦‚»‚Ì—ñ‚ÌŒn•ˆü‚ÌF‚ªÂ‚¾‚Á‚½‚Æ‚µ‚Ä‚àB ‚»‚ê‚Å‚ÍAʼn‚É‚·‚ׂĕ‚ɃŠƒZƒbƒg‚µ‚½‚çH ‚¹‚Á‚©‚Žè“®‚ł‚¯‚½ubv‚ÌF‚ª–³‚‚È‚Á‚Ä‚µ‚Ü‚¢‚Ü‚·B
ƒf[ƒ^‚͒ljÁ‚Ì‚Ý‚ÅA•ÏX‚ª‚È‚¢‚Ì‚È‚ç S”z‚·‚é—l‚ÈŽ–‚Å‚à‚È‚¢‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ªA ‰Æ‘°‚²‚Æ‚Ìꊑւ¦‚È‚ÇAl‚¦‚ç‚ê‚鎖‚¾‚ÆŽv‚¢‚Ü‚·B
Œ‹‹Ç¡‰ñŽg‚¦‚È‚¢‚±‚Æ‚É‚È‚Á‚Ä‚à ¡Œã‰½‚©‚Ì–ð‚É—§‚‚¾‚낤‚©‚ç‚»‚ê‚Å‚à—Ç‚¢ ‚Æ‚¢‚¤‚¨l‚¦‚Å‚ ‚ê‚ÎAŠæ’£‚Á‚Ä‚¢‚½‚¾‚¯‚ê‚Ηǂ¢‚ÆŽv‚¢‚Ü‚·‚ªB
(HANA)
‚È‚é‚Ù‚Ç@ƒZƒ‹‚ð@@ > Range("B5")‚Ì—l‚É‘‚«‚Ü‚·‚ª, Cells(5 , 2) ‚ÆŒ¾‚Á‚½
s—ñ’l‚ào—ˆ‚é‚Ì‚Å‚·‚Ë i‚±‚ñ‚È“ü–厖€‚ð‚µ‚ç‚È‚¢‚ÅA‚·‚Á‚©‚èŽè‚Ù‚Ç‚«‚ðŽó‚¯@‹°‚ê“ü‚è‚Ü‚·j
‚Í‚¢@ For i = 2 To UBound(tbl1, 1) ‚Ì@’†‚Å@"¢""¥"‚Ì”»’è‚ÌŒãA•¶Žš“à—e‚ðŒˆ‚ß‚½‚Æ‚«‚É@ŠeƒZƒ‹‚Ì‘Ž®‚à“¯Žž‚É•ÏX‚Å‚«‚»‚¤‚Å‚·B
x(xr, xc + 2) = sb & knm(tbl1(i, 9), tbl1(i, 1)) If LEFT(Cells(xr + 1 ,xc + 2 + 3),1)="¢"@Then @@ Cells(xr + 1 ,xc + 2 + 3).Font.color = RGB(0,0,255) ElseIf LEFT(Cells(xr + 1 ,xc + 2 + 3),1)="¥"@Then Cells(xr + 1 ,xc + 2 + 3).Font.color = RGB(255, 0, 0) End IF
‚Ü‚¾ŠÔˆá‚Á‚Ä‚¢‚é•sˆÀ‚ ‚èB ‚±‚Ì‹Lq‚ł̃Zƒ‹‚̓f[ƒ^•\‚ł̃Zƒ‹‚ðŽw‚·‚Ì‚©A‚»‚ê‚Æ‚àŒn•ˆ}‚ł̃Zƒ‹‚ðŽw‚·‚Ì‚©@H ‚à‚µ‘OŽÒ‚È‚ç@ƒR[ƒh‚͊ԈႢ‚Å‚·B‚»‚µ‚Ä@With Sheets("Œn•ˆ}")‚Ì’†‚Å‚·‚é•K—v‚ª‚ ‚é‚ÆŽv‚í‚ê‚é‚Ì‚Å‚·‚ªA‚»‚Ìê‡@‘SƒZƒ‹‚Å‚Ì”»’è‚Í For ‚É‚æ‚éƒR[ƒh‚Í@ >ŽžŠÔ‚΂©‚è‚©‚©‚Á‚ÄŽg‚¢•¨‚É‚È‚ç‚È‚¢‚ÆŽv‚¢‚Ü‚·‚æB ‚Æ‚È‚é‚Æ@‚Ç‚¤‚·‚é‚©‚í‚©‚ç‚È‚‚È‚è‚Ü‚µ‚½B
‚»‚ê‚Æ@Žè‚ÅC³‚³‚ꂽbü‚àƒf[ƒ^C³Œã‚ÌÄŽÀs‚Å@Œ³‚É–ß‚é‚Ì‚Í@‚Ü‚¸‚¢‚Ì‚Å Œ¾‚í‚ê‚é‚悤‚É@•ÏX‚µ‚È‚¢‚Æ—Ç‚¢‚©l‚¦‚Ü‚·B ã‚̃R[ƒh‚Å•ÏX‚µ‚È‚¢‚±‚Æ‚É‚È‚Á‚Ä‚¢‚é‚Å‚µ‚傤‚©H
‚Ü‚¾@ŽŽs‚µ‚Ä‚Ý‚Ä‚¢‚Ü‚¹‚ñi‚·‚Ý‚Ü‚¹‚ñ@˜‚Ì’É‚Ý‚ªŒÀŠE‚È‚Ì‚Å@‚ЂƂ܂¸@‚¨—ç‚Ì•ÔŽ–‚ðæ‚Éj ‚â‚Á‚Ä‚Ü‚½•ñ‚µ‚½‚¢‚ÆŽv‚¢‚Ü‚·B
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B
‚·‚Å‚É‚ ‚éƒR[ƒh‚̈ꕔ‚ð•ÏX‚·‚é‚Ì‚Í i¡‚Ü‚Å‚â‚ç‚ꂽ—l‚ÈŽ–‚Å‚ ‚ê‚Îj VBA‚Ì’mŽ¯‚ª‚Ù‚Æ‚ñ‚Ç‚È‚‚Ä‚àA‘z‘œ—Í‚Å o—ˆ‚é‚ÆŽv‚¢‚Ü‚·B
‚µ‚©‚µAƒR[ƒh‚ðì‚é‚Æ‚È‚é‚Æ i‚»‚ꂪ‚½‚Æ‚¦AƒRƒsƒy‚ÌŠñ‚¹W‚ß‚Æ‚µ‚Ä‚àj ‚»‚¤‚Ís‚«‚Ü‚¹‚ñB
‰½“x‚à‘‚«‚Ü‚·‚ªAŠî–{‚©‚ç‚à‚¤ˆê“xŽn‚ß‚Ä‚‚¾‚³‚¢B
„‚±‚Ì‹Lq‚ł̃Zƒ‹‚̓f[ƒ^•\‚ł̃Zƒ‹‚ðŽw‚·‚Ì‚©A‚»‚ê‚Æ‚àŒn•ˆ}‚ł̃Zƒ‹‚ðŽw‚·‚Ì‚©@H ‚ǂ̃V[ƒg‚ɑ΂·‚鈗‚È‚Ì‚©A‘‚¢‚Ä‚È‚¢ê‡‚Í ƒAƒNƒeƒBƒuƒV[ƒg‚ɑ΂µ‚Ĉ—‚³‚ê‚Ü‚·B
‚Ü‚½A‘‚¢‚Ä‚¨‚ç‚ê‚é
x(xr, xc + 2) = sb & knm(tbl1(i, 9), tbl1(i, 1)) If LEFT(Cells(xr + 1 ,xc + 2 + 3),1)="¢"@Then @@ Cells(xr + 1 ,xc + 2 + 3).Font.color = RGB(0,0,255) ElseIf LEFT(Cells(xr + 1 ,xc + 2 + 3),1)="¥"@Then Cells(xr + 1 ,xc + 2 + 3).Font.color = RGB(255, 0, 0) End IF
‚±‚̃R[ƒh‚ÍŠó–]‚·‚錋‰Ê‚Í“¾‚ç‚ê‚Ü‚¹‚ñB —Ç‚¢ðŒ‚ª®‚Á‚Ä‚¢‚ê‚ÎA“®‚©‚µ‚½‚Æ‚« Žv‚Á‚½‚悤‚ÈŒ‹‰Ê‚É‚È‚Á‚½‚ÆŽv‚í‚ê‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ª ‚à‚µ‚à‚»‚¤‚¾‚Æ‚µ‚Ä‚àA‚»‚ê‚Í‚½‚Ü‚½‚Ü‚Å‚·B
–Ê“|‚¾‚ÆŽv‚í‚ê‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ª ‚²Ž©g‚ŃR[ƒh‚ð쬂µ‚悤‚ÆŽv‚í‚ê‚é‚Ì‚Å‚µ‚½‚ç ‚¢‚«‚Ȃ茻݂̉ۑè‚âƒR[ƒh‚ÉŽè‚ð‚‚¯‚é‚Ì‚Å‚Í‚È‚ ¬‚³‚ȃeƒXƒgƒf[ƒ^‚ðì‚Á‚ÄŽŽs‚µ‚Ä‚‚¾‚³‚¢B
¬‚³‚ȃeƒXƒgƒf[ƒ^‚Æ‚ÍA @œƒR[ƒh‚ÅAƒZƒ‹‚Ì•¶ŽšF‚ð•ÏX‚µ‚Ä‚Ý‚é ‚±‚ê‚͖ܘ_‚Å‚·‚ª @œ”z—ñ‚É¢‚⥂ª“ü‚Á‚Ä‚¢‚éó‘Ô‚©‚ç@”»’肵 @@ƒZƒ‹‚Ì•¶ŽšF‚ðŠ’è‚ÌF‚É•ÏX‚·‚é ‚Å‚·B
Œ»Ý‚Å‚«‚Ä‚¢‚éƒR[ƒh‚Å‚ÍA”z—ñ‚Ì‚Ç‚±‚É¢‚⥂ª“ü‚Á‚Ä‚¢‚é‚© ‚Í‚ñ‚ɂႳ‚ñ‚²Ž©g‚Å”»’f‚·‚é‚·‚ç“‚¢ó‘Ô‚¾‚ÆŽv‚¢‚Ü‚·B iŠm‚©‚ÉA”z—ñ‚É¢‚⥂ª“ü‚Á‚Ä‚¢‚é‚Ì‚Å‚·‚ªBBBj
‚Å‚·‚©‚çA‚»‚Ì—l‚È•s–¾‚È•”•ª‚ª‘½‚¢ƒf[ƒ^‚ðŽg‚¤‚Ì‚Å‚Í‚È‚ Šm’肵‚Ä‚¢‚éƒf[ƒ^‚ðì‚èA‚»‚̃f[ƒ^‚ðŽg‚Á‚Ä ƒTƒ“ƒvƒ‹ƒR[ƒh‚ðì‚Á‚ĉº‚³‚¢B Ž©•ª‚Åì‚Á‚½ƒf[ƒ^‚Å‚ ‚ê‚ÎA u‚±‚±‚Ì¢‚ð¥‚É•ÏX‚µ‚Ä‚à‚¤ˆê“x“®‚©‚µ‚Ă݂悤v u‚±‚±‚É¥‚ª‚ ‚Á‚½‚¯‚ÇA‚±‚ê‚ð‚È‚‚µ‚Ä“®‚©‚µ‚Ă݂悤v “™‚àA‚â‚è‚â‚·‚‚È‚é‚ÆŽv‚¢‚Ü‚·B
‚»‚µ‚ÄAŒ»Ý‚̃R[ƒh‚ÉŽè‚ð‰Á‚¦‚éê‡‚Í ‚à‚¤‚µ—¬‚ê‚ð‚‚©‚ñ‚Å‚©‚ç‚É‚µ‚Ä‚¢‚½‚¾‚«‚½‚¢‚ÆŽv‚¢‚Ü‚·B
(HANA)
‚Í‚¢A’Z‚¢‚à‚Ì‚ð‚‚‚é@ƒ}ƒNƒ‚Ö‚Ì‹L˜^‚ðŽQÆ‚·‚é
‚È‚Ç‚µ‚Ä‚Ý‚Ü‚·@
•Œ¾’¸‚¢‚½‚悤‚É@‚«‚¿‚ñ‚Æ@Šî–{‚ð•×‹A—¬‚ê‚ð‚‚©‚Þ‚±‚Æ‚ª‚Ü‚¾‚Ü‚¾•s\•ª‚Æ‚ÍŽv‚¢‚‚ÂA Help‚⬃}ƒNƒ‹L˜^‚È‚Ç‚Å@ŽŽs‚µ‚‚Âi˜ü–‚È‚ª‚çj@–{Œ‚̃}ƒNƒ‚ðC³‚µ‚Ü‚µ‚½B
http://www.mediafire.com/download.php?emmzgyt2mdc
‚¢‚‚‚©‚ÌiŽÀÛˆóü‚·‚邱‚Æ‚ðl‚¦‚é‚Æ@–³‘Ê‚Ì‚È‚¢—ñ•‚Ì’²®‚È‚Ç‚Í@ƒ‹[ƒ‹‰»‚ª“‚¢j–â‘è‚È‚Ç‚ª‚ ‚邵A ‚±‚ê‚܂ł̂悤‚É@Šú‘Ò‚³‚ê‚é‚悤‚È@“ü—Íó‘Ôi—Ⴆ‚Î@”NŽq‚ª˜A‘±‚µ‚½‚Æ‚«‚̶”N‚Ì‹LÚj‚Å‚È‚¢ê‡‚É‚ÍŒ‹\–â‘肪o‚Ä‚‚é‚Å‚µ‚傤
HANA‚³‚ñ‚É‚Í‚Ù‚Æ‚ñ‚Ç‹³‚¦‚Ä’¸‚«–{“–‚ÉŠ´ŽÓ‚µ‚Ü‚·B ‚²„Ž@‚̂悤‚É@¬¶‚Ù‚Æ‚ñ‚ǃXƒLƒ‹‚Í‚ ‚è‚Ü‚¹‚ñB Cells@”z—ñ‚Ì•\Œ»‚È‚Ç@–{Z‚ÌŒŸõ‚Å‚à@Help‚Å‚Í‚Ù‚Æ‚ñ‚ÇŒ©‚‚¯‚ç‚ê‚È‚©‚Á‚½d—v‚È•\Œ»‚È‚Ç@‹³‚¦‚Ä’¸‚«‚Ü‚µ‚½B
˜‚à‚Ç‚ñ‚Ç‚ñ’É‚‚È‚é‚Ì‚Å@ˆê悸@–ž‘«‚µ‚Ä@‚±‚ÌŒ‚ÍŠ´ŽÓ‚ŕ‚¶‚Ü‚·
‚Ý‚È‚³‚Ü@¡Œã‚Æ‚à@‚æ‚낵‚@‚²Žw“±@‚²•Ú£‚‚¾‚³‚¢ ‚à‚µ@‚Ç‚È‚½‚©@‚‚©‚Á‚Ä‚Ý‚Ä@—Ç‚¢‰ü‘Pô‚È‚Ç‚ª‚ ‚è‚Ü‚µ‚½‚ç@‚²’ñˆÄŠ½Œ}‚Å@Kr (‚Í‚ñ‚É‚á)
„‚à‚¤‚µ—¬‚ê‚ð‚‚©‚ñ‚Å‚©‚ç‚É‚µ‚Ä‚¢‚½‚¾‚«‚½‚¢‚ÆŽv‚¢‚Ü‚·B ‚Æ‘‚¢‚½‚Ì‚ÍAŽq‚Ì•¶ŽšF‚ðŒˆ‚ß‚éŽž‚É uIf LEFT(Cells(xr + 1 ,xc + 2 + 3),1)="¢"@Thenv iˆ½‚¢‚ÍA•Ï”x‚Ì’†‚Ì擪•¶Žš‚ðŠm”F‚µ‚Äj@‚Å‚Í‚È‚ ÅŒã‚ÉÚ‚¹‚Ä‚¨‚ç‚ê‚éƒTƒ“ƒvƒ‹‚Å‚â‚Á‚Ä‚¨‚ç‚ê‚é‚悤‚É uIf sb = "¥" Thenv‚Æ sb‚Ì’l‚ðŠm”F‚·‚é‚Ì‚ª—Ç‚¢‚ÆŽv‚Á‚Ä‚¢‚½‚©‚ç‚Å‚·B
‚±‚Ì“_‚ɂ‚«‚Ü‚µ‚Ä‚ÍA—¬‚ê‚ð[•ª‚‚©‚ñ‚Å‚¢‚½‚¾‚¢‚Ä‚¢‚é‚ÆŽv‚¢‚Ü‚·B
‹C‚É‚È‚é“_‚ÍA uSheet2.Cells(xr + 1, xc + 3).Font.colorEEEv ‚Ì—l‚ÉAƒV[ƒg‚ðŽw’è‚·‚éÛ‚É@ƒR[ƒhƒl[ƒ€‚ðŽg—p‚µ‚Ä‚¢‚é“_‚Å‚·B —Ⴆ‚ÎAŒ»Ý‚ÌuŒn•ˆ}vƒV[ƒg‚ðˆê’U휂µ @iƒf[ƒ^‚Ìíœ@‚Å‚Í‚È‚AƒV[ƒg‚Ìíœ@‚ÌŽ–‚Å‚·Bj •Ê‚̃V[ƒg‚Ì–¼‘O‚ðuŒn•ˆ}v‚Æ‚µ‚Ä‚àAƒV[ƒg‚Ì–¼‘O‚µ‚©•Ï‚í‚è‚Ü‚¹‚ñ‚Ì‚Å Sheet2‚ªŒ©‚‚©‚炸Aƒ}ƒNƒ‚̓Gƒ‰[‚ðo‚·‚ÆŽv‚¢‚Ü‚·B
—‹ü‚Í”²‚«‚Å‚Ü‚¸•ÏX‚·‚é‚È‚ç ‘‚«o‚µ•”•ª‚Ì擪‚É‚ ‚é uWith Sheets("Œn•ˆ}")v ‚ðA uxc = 2 'ì}‚̶’[D—ñ‚©‚çv ‚ ‚½‚è‚Ì—Ç‚¢ˆÊ’u‚ÖŽ‚Á‚Ä‚¢‚Á‚ÄAƒR[ƒh‚ÍSheet2‚Ì6•¶Žš‚ðíœB uSheet2.Cells(xr + 1, xc + 3).Font.colorEEEv ~~~~~~á’âCells‚Ì‘O‚Ì . ‚ÍŽc‚µ‚Ä u.Cells(xr + 1, xc + 3).Font.colorEEEv ‚Æ‚µ‚ĉº‚³‚¢B
ˆÈ‰ºA‚µ‚¾‚¯—‹ü‚Å‚·‚ª
Cells‚Ì‘O‚ɉ½‚à‚È‚¢ê‡‚ÍAƒAƒNƒeƒBƒuƒV[ƒg‚̃Zƒ‹‚ð•\‚µ‚Ü‚·B ‚µ‚©‚µAWith Sheets("ƒV[ƒg–¼") ` End With@‚ÌŠÔ‚É‚ ‚éƒR[ƒh‚Ì‚¤‚¿ .Cells ‚Æ‚È‚Á‚Ä‚¢‚éê‡i. ‚ª‚ ‚éê‡j‚Í Sheets("ƒV[ƒg–¼").Cells ‚Æ‘‚¢‚½ê‡‚ÌuSheets("ƒV[ƒg–¼")v‚ª È—ª‚³‚ê‚Ä‚¢‚é‚Æ‚Ý‚È‚³‚ê‚Ü‚·B
‚‚܂èAuWith Sheets("Œn•ˆ}")v‚ðã‚ÉŽ‚Á‚Ä‚«‚Ä ‚»‚̉º‚É.Cells ‚Æ‚ ‚ê‚ÎA‚±‚ê‚Í Sheets("Œn•ˆ}").Cells ‚Æ‘‚¢‚Ä‚ ‚é‚Æ‚Ý‚È‚³‚ê Œn•ˆ}ƒV[ƒg‚̃Zƒ‹‚ð•\‚·‚悤‚É‚È‚è‚Ü‚·B
”ñí‚É‘åŽG”c‚Èà–¾‚Å‚·‚Ì‚ÅAÚ‚µ‚‚Í ƒwƒ‹ƒv“™@Šm”F‚µ‚Ä‚Ý‚Ä’¸‚¯‚ê‚΂Ǝv‚¢‚Ü‚·B @
„–{Z‚ÌŒŸõ‚Å‚à@Help‚Å‚Í‚Ù‚Æ‚ñ‚ÇŒ©‚‚¯‚ç‚ê‚È‚©‚Á‚½d—v‚È•\Œ»‚È‚Ç ‚±‚ê‚Í‚½‚Ô‚ñA‚½‚‚³‚ñ‚ ‚è‚·‚¬‚ÄŒ©‚‚©‚ç‚È‚©‚Á‚½‚© ŒŸõƒ[ƒh‚ªˆ«‚‚ÄŒ©‚‚©‚ç‚È‚©‚Á‚½‚© Œ©‚Ä‚¢‚邯‚ÇAˆá‚¤‚à‚Ì‚¾‚ÆŽv‚Á‚Ä‚¢‚é‚Ì‚©EEEE ‚¾‚ÆŽv‚¢‚Ü‚·B
‚»‚ñ‚È‚É•Ï‚ÈŽ–‚Í‚µ‚Ä‚¢‚È‚¢‚ÆŽv‚¢‚Ü‚·‚Ì‚ÅBBBB
@@‚¿‚È‚Ý‚ÉAʼn‚©‚çƒZƒ‹”Ô’n‚Ìs—ñ”Ô†‚ð—‚ß‚é‚Æ•ª‚©‚Á‚Ä‚¢‚½‚È‚ç @@•Ï”x‚Í@x(1,1) ‚ðA1ƒZƒ‹‚̈ʒu‚É‚µ‚Ä‚¢‚½‚ÆŽv‚¢‚Ü‚·B @@‚·‚é‚ÆAx‚Ìs—ñ”Ô†‚ª’Pƒ‚ɃZƒ‹‚Ìs—ñ”Ô†‚ƈê’v‚µ‚Ü‚·B @@i‚à‚¿‚ë‚ñAD2ƒZƒ‹‚ðŠî€‚ÉiA1ƒZƒ‹‚Æ‚Ý‚È‚µ‚ÄjA›s~—ñ‚̃Zƒ‹ @@@‚ÆŒ¾‚Á‚½‘‚«•û‚É‚µ‚ÄAs—ñ”Ô†‚ƈê’v‚³‚¹‚é•û–@‚à‚ ‚é‚ÆŽv‚¢‚Ü‚·‚ªBBBj
ŠÕ˜b‹x‘èEEEB
‚Í‚ñ‚ɂႳ‚ñ‚ª‚È‚³‚낤‚Æ‚µ‚Ä‹‚ç‚ê‚鎖‚Í u‚ ‚éƒR[ƒh‚̈Ӗ¡‚ÆŽg‚¢•û‚ð’m‚év‚ÆŒ¾‚¤Ž–‚Å‚Í‚È‚ u‚ ‚鈗‚ð‚·‚éˆ×‚Ì‚æ‚è—Ç‚¢•û–@‚ð’m‚év‚ÆŒ¾‚¤Ž–‚¾‚ÆŽv‚¢‚Ü‚·B
‘OŽÒ‚Å‚ ‚ê‚ÎAƒwƒ‹ƒv‚ðŒ©‚é‚Ì‚ª‘æˆê‚¾‚ÆŽv‚¢‚Ü‚·‚ª ŒãŽÒ‚Å‚ ‚ê‚ÎAˆê‚‚̎–‚ð‚·‚é‚Ì‚ÉA‚Ç‚Ì—l‚Ȉ—•û–@‚ª‚ ‚é‚© ’m‚é•K—v‚ª‚ ‚é‚ÆŽv‚¢‚Ü‚·B
‚»‚±‚ÅA“ü–åƒy[ƒW‚ª–ð‚É—§‚‚Ǝv‚¢‚Ü‚·B “ü–åƒy[ƒW‚Í‘½‚‚Ìê‡A“¯‚¶—l‚ÈŽ–‚Í“¯‚¶ƒOƒ‹[ƒv‚É•ª—Þ‚³‚ê‚Ä‚¢‚Ü‚·‚µ ŽÀÛ‚É“®‚©‚¹‚éƒR[ƒh‚ÆAŒ³ƒf[ƒ^EŒ‹‰Ê}@‚ð ‚ ‚킹‚ÄÚ‚¹‚Ä‚ ‚銂ª‘½‚¢‚ÆŽv‚¢‚Ü‚·B
‚»‚µ‚ÄAŽ„‚Í@‚Í‚ñ‚ɂႳ‚ñ‚Ìê‡ u‚Ü‚¸‚Í–Ú‚ð’Ê‚·v‚ð‚µ‚Ä‚à‚炦‚ê‚Î —Ç‚¢‚Ì‚Å‚Í‚È‚¢‚©‚ÆŽv‚Á‚Ä‚¢‚Ü‚·B
–{—ˆ‚ÍAŽŸ‚̃y[ƒW‚ÖˆÚ‚é‘O‚É—‰ð‚µ‚È‚‚Ä‚Í‚¢‚¯‚È‚¢‚Ì‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ª ‚Í‚ñ‚ɂႳ‚ñ‚Ìê‡ u‚±‚Ì—l‚ÈꇂÍA‚±‚Ì—l‚Éo—ˆ‚ÄA‚»‚̃Tƒ“ƒvƒ‹ƒR[ƒh‚ª‚±‚±‚É‚ ‚év ‚Æ‚¢‚¤Ž–‚ðA’m‚Á‚Ä‚¨‚¢‚Ä‚à‚炦‚ê‚Î@ŽÀÛ‚ÉŽ–‚É‚ ‚Á‚½‚Á‚½Žž‚É ‚»‚̃y[ƒW‚Ö—§‚¿–߂邱‚Æ‚ªo—ˆ‚é‚ÆŽv‚Á‚Ä‚¢‚Ü‚·‚Ì‚ÅB
“ü–åƒy[ƒW‚É–Ú‚ð’Ê‚µ‚Ä‚à‚ç‚Á‚½‚çA ŽÀ‘HiŠwZ“à‚âA‘¼‚ÌŽ¿–âŒfŽ¦”‚ȂÇj‚Å FX‚Èl‚ª‚ǂ̂悤‚Ȉ—‚ð‚µ‚Ä‚¢‚é‚Ì‚©Œ©‚Ä ˆ—•û–@‚ðƒXƒgƒbƒN‚µ‚Ä‚¢‚‚Ì‚ª—Ç‚¢‚ÆŽv‚¢‚Ü‚·B
“ü–åƒy[ƒW‚©‚çˆê•ài‰½•à‚àHj“ü‚Á‚½‰ðŽß‚Å‚Ì FX‚Ȉ—‚Éo‰ï‚¦‚é‚ÆŽv‚¢‚Ü‚·B
Œ‹‹Ç’·‚‚È‚Á‚Ä‚µ‚Ü‚¢‚Ü‚µ‚½‚ªBBB Ž„‚Í—Ç‚i¡‚Å‚àj‚±‚̃y[ƒW‚É‚¨¢˜b‚É‚È‚Á‚Ä‚¢‚Ü‚·B http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/index.html ‘½‚‚Ìê‡AGoogle涂̈´ù‚Å‚·‚ªB
‘‹}‚Å‚ ‚é•K—v‚Í‚È‚¢‚ÆŽv‚¢‚Ü‚·B ‚ä‚Á‚‚è‚Æ‚Å‚à@‚Í‚ñ‚ɂႳ‚ñ‚ÌX‚È‚éi‰»‚ðŠú‘Ò‚µ‚Ä‚¢‚Ü‚·B ‚¨‘Ì‚É‚¨‹C‚ð‚‚¯‚ÄA’öD‚¢’ö“x‚Å@Šæ’£‚Á‚Ä‚‚¾‚³‚¢B
(HANA)
„‹C‚É‚È‚é“_‚ÍA „uSheet2.Cells(xr + 1, xc + 3).Font.colorEEEv „—ª „ uWith Sheets("Œn•ˆ}")v „—ª @‚È‚é‚Ù‚ÇB‚±‚ê‚Å“‚«‚Ü‚µ‚½B@ @‚±‚ÌSheet2‚ð‚‚¯‚邱‚Æ‚Í@ƒf[ƒ^•\‚ðŒ©‚È‚ª‚ç@ ŽÀs‚µ‚½‚ç@ƒf[ƒ^•\‚Å‚È‚É‚©•Ï‚í‚Á‚½‚Ì‚Å@‚»‚̃V[ƒg‚ðŽw’肵‚È‚¢‚Æ‚¢‚¯‚È‚¢‚Æ —‰ð‚µ‚Ä@‹LÚ‚µ‚Ü‚µ‚½B Sheets"–¼"‚ÆŠù’è‚ÌSheet”Ô†‚Æ‚Í•K‚¸‚µ‚à‘Ήž‚µ‚È‚¢‚Æ‚¢‚¤‚±‚Æ‚ð‚µ‚è‚Ü‚µ‚½B ‚Ü‚½‚Ü‚½@Š´ŽÓB
„ ŒŸõƒ[ƒh‚ªˆ«‚‚ÄŒ©‚‚©‚ç‚È‚©‚Á‚½‚© @‚»‚¤‚Å‚·B—pŒê‚ª‚¿‚ñ‚Õ‚ñ‚©‚ñ‚Õ‚ñ‚Å‚·B‚Ü‚Á‚½‚‚̗Ⴆ‚Å‚·‚ªA ”Šw‚ÌŽ®‚Å Žl‘¥‰‰ŽZˆÈŠO‚Ì‹L†‚Í‚Ù‚Æ‚ñ‚Ç‚í‚©‚ç‚È‚¢¬¶‚É@ ‚±‚¤‚¢‚¤Ž®‚Å‚·‚Æ@‰ð“š‚³‚ê‚Ä‚à@‚³‚Ä@ ‚Ç‚¤‚µ‚½Žl‘¥‰‰ŽZ‚̎臂ŌvŽZ‚·‚é‚Ì‚©@ŠF–ÚŒŸ“¢‚ª•t‚©‚È‚¢‚Ì‚Æ“¯‚¶ó‘Ô‚Å‚·
„‚¿‚È‚Ý‚ÉAʼn‚©‚çƒZƒ‹”Ô’n‚Ìs—ñ”Ô†‚ð—‚ß‚é‚Æ•ª‚©‚Á‚Ä‚¢‚½‚È‚ç @@•Ï”x‚Í@x(1,1) ‚ðA1ƒZƒ‹‚̈ʒu‚É‚µ‚Ä‚¢‚½‚ÆŽv‚¢‚Ü‚·B @@‚·‚é‚ÆAx‚Ìs—ñ”Ô†‚ª’Pƒ‚ɃZƒ‹‚Ìs—ñ”Ô†‚ƈê’v‚µ‚Ü‚·B @ @‚Í‚¢A“r’†‚Å‚ÌŽd—l‚ð•Ï‚¦‚Ä@‚·‚Ý‚Ü‚¹‚ñ‚Å‚µ‚½B @‚±‚ê‚È‚Ç@‚¤‚ꂵ‚¢ŒÀ‚è‚Ì‚Í‚¸‚Å‚µ‚½Bˆê“x‚Í@‚˜i‚˜‚’A‚˜‚ƒj‚Ì‚Æ‚«‚Ì@Cellsi‚A‚Žj‚ÌA @‚‚˜‚’{‚PA‚Ž‚˜‚’{‚R‚ð‘}“ü‚µ‚Ä@‚ÆŽv‚Á‚½‚Ù‚Ç‚Å‚µ‚½B @
„i‚à‚¿‚ë‚ñAD2ƒZƒ‹‚ðŠî€‚ÉiA1ƒZƒ‹‚Æ‚Ý‚È‚µ‚ÄjA›s~—ñ‚̃Zƒ‹ @‚ÆŒ¾‚Á‚½‘‚«•û‚É‚µ‚ÄAs—ñ”Ô†‚ƈê’v‚³‚¹‚é•û–@‚à‚ ‚é‚ÆŽv‚¢‚Ü‚·‚ªBj @‚O‚âƒ}ƒCƒiƒX‚Ì”z—ñ’l‚ÍŽæ‚ê‚È‚¢‚©‚ç@‚Ç‚¤‚·‚é‚Ì‚Å‚µ‚傤H
„ ‚Í‚ñ‚ɂႳ‚ñ‚ª‚È‚³‚낤‚Æ‚µ‚Ä‹‚ç‚ê‚鎖‚Í u‚ ‚éƒR[ƒh‚̈Ӗ¡‚ÆŽg‚¢•û‚ð’m‚év‚ÆŒ¾‚¤Ž–‚Å‚Í‚È‚ u‚ ‚鈗‚ð‚·‚éˆ×‚Ì‚æ‚è—Ç‚¢•û–@‚ð’m‚év‚ÆŒ¾‚¤Ž–‚¾‚ÆŽv‚¢‚Ü‚·B
@‚¢‚â@h‚æ‚è—Ç‚¢h•û–@‚È‚Ç‘I‘ðo—ˆ‚邱‚Æ‚Å‚Í‚È‚A h‚ ‚鈗‚ð‚·‚éƒR[ƒhiŠÖ”H‹Lq•\Œ»j‚ð ’m‚éh‚Æ‚¢‚¤‰•à‚Ì‚±‚Æ‚Å‚µ‚½B ‚»‚ê‚ð@•”•ª‚Æ‘S‘Ì•¹‚¹‚Ä@‚±‚ñ‚È‚É‹³‚¦‚Ä’¸‚«A‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/index.html ‚È‚Ç@ŽQl‚É‚µ‚‚Â@‚¹‚Á‚©‚‚Ì‚à‚Ì‚ðhˆÅ‰_‚É@‚Å‚Á‚±‚h‚µ‚Ä@‰ó‚³‚È‚¢‚悤‚É i‚æ‚‚â‚Á‚Ä‚µ‚Ü‚¤‹ê‚¢ŒoŒ±‘½j@‚·‚±‚µ‚ÂÂ@‚æ‚茩‚â‚·‚¢@Žg‚¢‚â‚·‚¢‚à‚Ì‚Ö Žè’¼‚µ‚Ä‚¢‚«‚½‚¢‚Æ‚¨‚à‚Á‚Ä‚¢‚Ü‚·B ¡‚Í@Žè‘€ì‚Å‚Ì—ñ•’²®‚ð‰Â”\‚ÈŒÀ‚èƒ\ƒtƒg‰»‚µ‚悤‚Æ‚µ‚Ä‚¢‚Ü‚·B Œ»s‚Í .Cells(1, xc + 3).ColumnWidth = 10.5 '@‘OŽÒe–¼—ñ‚Ì• '.Cells(1, xc + 3).Columns.AutoFit ' •‚ÌÅ“K‰»@•¶Žš‚ªŠù‚É“ü‚Á‚½ðŒ‚Å‚È‚¢ @‚â .Cells(xc + 5).ColumnWidth = 10.5 'ÅŒã‚Ì–¼‘O—ñ‚Ì• .Cells(xc + 8).ColumnWidth = 4.5 '¼—ï”N—ñ‚Ì• @‚̌Œè‚Å‚·‚ª
'now not working 'For i = 2 To xc Step 5 '.Cells(i).Columns.AutoFit ' •‚ÌÅ“K‰»@‘Ss‚ð‘|ˆø‚·‚é‚©H 'Next ‚̂悤‚È@LenŠÖ”‚Å—ñ“à‘SƒZƒ‹‚Ìő啶Žš”‚É‚ ‚킹‚é‚Æ‚© Å“K‰»‚̃R[ƒh‚ª‚È‚¢‚©‚Æ’²‚×@l‚¦‚Ä‚¢‚Ü‚·‚ª@“‚¢‚Å‚·B @ ‚»‚ê‚Æ@¶”N“™•s–¾‚̂΂ ‚¢@ŌÔN‚É‚µ‚Ä‚¢‚éƒR[ƒh‚ª‚í‚©‚炸 –Ú‚ð‚³‚ç‚É‚µ‚Ä@h’‚ß‚Äh‚¢‚Ü‚·‚ªA@¡ˆê•à‚©”•à—£‚ê‚Ä‚¢‚é Call snsr(tbl1, nn, totbl, erf) ' nn ŌÔN‚È‚Ç‚ðŒˆ‚ß‚é Private Sub snsr(tbl1, nn, totbl, erf)
fyi = psn(nn, p1(2), p2(2)) '‘OŽÒ¶”NAŒãŽÒ¶”N Private Function psn(nn, fys, mys) '‘OŽÒ¶”NAŒãŽÒ¶”N•s–¾‚Ìꇂ̔N‚ðŒˆ‚ß‚é
‚È‚Ç‚ÆŽv‚¤‚Ì‚Å‚·‚ª@
”•M‚Å‚Í@Žè‚ªU‚邦‚é”NiHj‚Å‚·‚Ì‚Å@ƒpƒ\ƒRƒ“‚Í‚ ‚肪‚½‚¢‚Å‚·B ‚¨‹CŽg‚¢Š´ŽÓ‚µ‚Ü‚·B
“ü—Í‚ª³‹K‚Å‚È‚¢ê‡‚ð‘Š’k‚·‚é‚Ì‚Í@ƒ‹[ƒ‹ˆá”½‚Ƃͳ’m‚Å Œ©‚Ä‚¢‚½‚¾‚¯‚ê‚ÎK‚¢‚Å‚·
‰º‹L‚̂悤‚É@‘§Žq‚Ì—“‚É•ê‚ÌŽš‚ª‚ ‚é‚Æ@
Žn 1910.1 •ƒ Žn‚ÌÈ 1920.2 •ê ‚»‚Ì’·’j 1922.3 ‘§Žq ŽŸ’j 1924.5 ‘§Žq ŽO’j@ 1926.7 Žq@•ê@ ’·— 1930.8 –º ‚S’j 1934.9 ‘§Žq
Œ‹‰Ê‚Í
1926.7` ¢Žn= X =¥ŽO’j@ 1910.1`
‚Æ@–{—ˆ‚Ì•ê‚Íi‘½•ªã‘‚«‚³‚ê‚ÄjŽO’j‚Ì–¼‘O‚ªo‚Ä‚«‚Ü‚·
‚ ‚é‚¢‚Í@
ŽO’j@ 1926.7 Žq@•ƒ@
‚ÌŒ‹‰Ê‚Í 1926.7` ¢Žn= X =¢ŽO’j@ 1910.1`
‚Æ‚È‚è‚Ü‚·B
‚±‚ê‚É‚Í@Šù‚Ɉê“xoŒ»‚µ‚½‚©@‚Ç‚¤‚©‚ÌIndex‚Å‹L˜^‚µ‚Ä@‚»‚ê‚ʼnñ”ð‚·‚é‚悤‚É‚·‚é‚Ì‚Å‚µ‚傤‚©H
pd(tbl1, i, sb, p1, p2) '–¼‘OA¶”N“™‚̃f[ƒ^‚ð®—‚·‚é
‚·‚é‚Æ‚·‚ê‚Î@•Ó‚è‚Å‚µ‚傤‚©H
Dim ml As Long, lenc As Long ', iml As Long —ª
'•‚ÌÅ“K‰»@‚TƒZƒ‹–ˆ‚Ì‘OŽÒe–¼‚ÌŠe—ñ‘Ss‚ð‘|ˆø@Len() ‚ÅÅ‘å’·‚ÌsƒZƒ‹‚ÅÅ“K‰»@‚Í‚¶‚ß‚ÍE—ñ‚ðŠú‘Ò‚µ‚Ä For i = 1 To xc Step 5 ml = 1# For ii = 1 To UBound(y, 1) lenc = Len(Cells(ii, i)) If lenc > ml Then ml = lenc 'iml = ii End If Next '.Cells(iml, i).Columns.AutoFit ' Å“K‰»‚Í—]—T‚ª‚ ‚è‰ß‚¬ .Cells(i).ColumnWidth = ml Next
‚±‚ꂾ‚Æ@
A B C D E F G –¾Ž¡ 42 1910 ¢Žn= X =¢ŽO’j@
‚Æ‚È‚è‚Ü‚·B
•‚ª•Ï‚í‚é‚Ì‚ÍF‚ÅAE‚Å‚Í‚ ‚è‚Ü‚¹‚ñB
i‚̉Šú’l‚ð•Ï‚¦‚½‚Ì‚Å‚·‚ª@‚±‚ê‚æ‚趂̗ñE‚©‚ç@Žn‚Ü‚è‚Ü‚¹‚ñB
‚Ç‚±‚ª•s“s‡‚Å‚µ‚傤‚©H
æ‚̃Zƒ‹ˆÊ’u‚Ì–â‘è‚Í@For i = 5 To xc Step 5@‚Æ’¼‚µ‰ðŒˆ‚µ‚Ü‚µ‚½ ‚µ‚©‚µAŒ»Ý“¯‚¶—ñ‚É’·•¶Žš”‚̶”N‚È‚Ç‚à‘‚«ž‚ñ‚Å‚¢‚é‚Ì‚Å@•‚ªL‚·‚¬‚é i¶”Ns‚Í—×—ñ‚É‹ó—“‚Ì—]—T‚ª‚ ‚èAd‚Ë‚Ä•\Ž¦‚³‚ê‚éj ‚»‚ê‚É@¡ ‹C‚¢‚½‚Ì‚Å‚·‚ªA•‚Ì—v‚ée–¼‚Í@—ñ‚Ɉê‚‚µ‚©‚È‚¢ •\Ž¦‚ÌŽd•û‚È‚Ì‚Å@‘Ss‚ðŒ©‚Ä‚Ì ’²ß‚Í•K—v‚ª‚È‚Aƒf[ƒ^‚Ì‹L˜^Žž‚Ɉê“xs‚¦‚Ηǂ¢B ‚»‚±‚Å@æ‚Ì‚ð‚â‚ß‚ÄAˆÈ‰º‚ð“ü‚ꂽB
x(xr, xc) = p1(0) & knm(p1(3), p1(1)) & "=" '‘OŽÒe–¼‘ž‚Ý .Cells(xc + 3).ColumnWidth = Len(x(xr, xc)) * 1.5 ' —ñ••¶Žš”“K‰ž @@@@@@@@@@@@@@@@@@'‚±‚±‚ðC³@Cells()‚Å‚Í–³Œø '.Cells(1, xc + 3).Columns.AutoFit ' •‚ÌÅ“K‰»@•¶Žš‚ªŠù‚É‚È‚¯‚ê‚΂Ȃç‚È‚¢ '.Cells(1, xc + 3).ColumnWidth = 10.5 '—ñ‚̌Œè•
x(xr, xc + 1) = "X" x(xr, xc + 2) = " =" & p2(0) & knm(p2(3), p2(1)) 'ŒãŽÒe–¼‘ž‚Ý
‚±‚ê‚ňê悸@•’²®‚Í‚Å‚«‚Ü‚µ‚½B
Œã‚Í@Å‘å‚Ì“ïŠiŽd—l•ÏX‚È‚éj‚ÌŽq‚̈ê‘g¥ˆ÷‚Ì’¼Œn‚Í@˜A‘±‚µ‚Ä@ŽqiejX‚Å•\Œ»‚·‚é ‚±‚Æ‚Å‚·B
‚Ú‚¿‚Ú‚¿‚Å@s‚¢‚Ü‚·B ‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B
Ï‚Ý‚Ü‚¹‚ñA•¶Í‚ðŠÔˆá‚¦‚Ä‚¢‚Ü‚µ‚½B
„„ ‚Í‚ñ‚ɂႳ‚ñ‚ª‚È‚³‚낤‚Æ‚µ‚Ä‹‚ç‚ê‚鎖‚Í ‚Å‚Í‚È‚A uŒ»ÝA‚Í‚ñ‚ɂႳ‚ñ‚É•K—v‚ÆŽv‚¤Ž–‚Ív‚Å‚µ‚½BBB
–ܘ_AŠù‚Éo—ˆ‚Ä‚¢‚éƒR[ƒh‚Ì•ª‚©‚ç‚È‚¢•”•ª‚ðŒ©‚Â‚¯ u‚ ‚éƒR[ƒh‚̈Ӗ¡‚ÆŽg‚¢•û‚ð’m‚év‚ÆŒ¾‚¤Ž– ‚à•K—v‚Å‚·‚ªA‚»‚êˆÈã‚É u‚ ‚鈗‚ð‚·‚éˆ×‚Ì‚æ‚è—Ç‚¢•û–@‚ð’m‚év ‚±‚ê‚Í•s‰ÂŒ‡‚¾‚ÆŽv‚¢‚Ü‚·B
„‚¢‚â@h‚æ‚è—Ç‚¢h•û–@‚È‚Ç‘I‘ðo—ˆ‚邱‚Æ‚Å‚Í‚È‚A “ü–åƒy[ƒW‚ðŒ©‚é‚ÆAƒV[ƒg‚ÌŽw’è‚Í Sheets("ƒV[ƒg–¼")‚Ì—l‚És‚¤‚© Sheets(Index”Ô†j‚Ì—l‚És‚¤•û–@‚ð‚ª‘‚¢‚Ä‚ ‚è ƒR[ƒhƒl[ƒ€‚ðŽg—p‚·‚é•û–@‚Í‚ ‚Ü‚è‘‚¢‚Ä‚¢‚È‚¢‚ÆŽv‚¢‚Ü‚·B
‚Å‚·‚©‚çA“ü–å‚ðI—¹‚µ‚Ä‚¢‚ê‚Î@Žè’T‚è‚ÅŽŽsöŒë‚µ‚Ä Sheet2.CellsEEE“™‚Æ‚¢‚¤ƒR[ƒh‚ðŒ©‚Â‚¯‚È‚‚Ä‚à @With‚ÅŠ‡‚ç‚È‚¢‚Ü‚Å‚à Sheets("Œn•ˆ}").Cells ‚ÆŒ¾‚¤‘‚«•û‚ðŽv‚¢‚‚©‚ꂽ‚Ì‚Å‚Í‚È‚¢‚©‚ÆŽv‚¢‚Ü‚·B i“–‘R‚±‚ê‚àŽv‚Á‚½‚¯‚ÇAƒR[ƒh‚ª’Z‚‚È‚é‚©‚ç@ƒR[ƒhƒl[ƒ€‚ðŽg‚Á‚½ @‚ÆŒ¾‚¤‚Ì‚Å—L‚ê‚ÎA‚¨˜b‚É‚È‚è‚Ü‚¹‚ñ‚ªBBBj
„’m‚Á‚Ä‚¢‚邱‚Æ‚¾‚¯‚Å‚à@VBA‚Å‚·‚©‚ç „‚¢‚ë‚¢‚ë‘g‚݇‚킹‚Äæ‚è‰z‚¦‚邱‚Æ‚Ío—ˆ‚é‚ÆŽv‚¢‚Ü‚·B ‚ÆAæ‚É‘‚«‚Ü‚µ‚½‚ª@uŽŽsöŒë‚ÅŒ©‚‚¯‚½‚±‚Æv‚à‚»‚¤‚È‚ñ‚Å‚·B VBE‚ð‚Ý‚ÄuSheet2v‚Á‚Ä‘‚¢‚Ä—L‚é‚È‚ÆŽv‚Á‚ÄASheet2.Cells ‚Æ‚³‚ê‚Ü‚µ‚½‚ËH
Œ©‚¦‚Ä‚¢‚镨‚¾‚¯‚Å‚àA‚æ‚Œ©‚Ä@‚æ‚l‚¦‚Ä@‘z‘œ‚µ‚ÄEEE ‘½‚‚ÌŽ–‚ªo—ˆ‚é‚悤‚É‚È‚é‚ÆŽv‚¢‚Ü‚·B
‚Å‚àAæ‚É@ƒV[ƒg‚ðŽw’è‚·‚é‚Æ‚«‚Í@‚±‚Ì—l‚É‘‚ ƒZƒ‹‚ðŽw’è‚·‚é‚Æ‚«‚ÍA‚±‚Ì—l‚É‘‚@‚Æ’m‚Á‚Ä‚¢‚ê‚Î ‚æ‚è—Ç‚¢‘‚«•û‚ðˆÓŽ¯‚·‚邱‚Æ‚È‚AŠî–{‚É‘¥‚Á‚½‘‚«•û‚ª o—ˆ‚é‚Ì‚Å‚Í‚È‚¢‚©‚ÆŽv‚¢‚Ü‚·B
‚»‚̕ӂ肪A”ñí‚ÉŽc”O‚ÉŽv‚¤‚Ì‚Å‚·B Œ‹‹ÇŠó–]‚·‚錋‰Ê‚ª“¾‚ç‚ê‚éƒR[ƒh‚ð‚²Ž©g‚Åì‚ê‚é‚Ì‚Å‚·‚©‚ç ‚Æ‚â‚©‚Œ¾‚¤‚±‚Æ‚Å‚Í‚È‚¢‚Ì‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ª ‚»‚ê‚Å‚àAŠî–{‚ð‚â‚Á‚Ä‚¨‚‚±‚Æ‚Å@•½’R‚Å•à‚«‚â‚·‚¢“¹‚ªŒ©‚¦‚é‚Ì‚É ‚»‚ê‚ð‚â‚Á‚Ä‚¢‚È‚¢ˆ×‚ÉAŽžŠÔ‚ðŠ|‚¯‚Ä@“¹‚ðØ‚èŠJ‚« –Ú“I’n‚É‚½‚Ç‚è’…‚¢‚Ä‹‚ç‚ê‚é‚悤‚ÉŽv‚¢‚Ü‚·B
Œ»Ý‚̃R[ƒh‚ªA“ü–å“I‚ȃR[ƒh‚Å—L‚ê‚Î ‚±‚̃R[ƒh‚ð“Ç‚Ý‰ð‚«‚È‚ª‚çA—‰ð‚ð[‚ß‚Ä‚¢‚Á‚Ä’¸‚¯‚ê‚Ηǂ¢‚ÆŽv‚¢‚Ü‚·‚ª ‚ ‚Ü‚èA‚¨Žè–{‚Éo—ˆ‚é‚悤‚ȃR[ƒh‚Å‚Í—L‚è‚Ü‚¹‚ñB
‚³‚ÄAŠÖŒW‚ð“ü—Í‚·‚é—ñ‚É Žq@•êAŽq@•ƒ@‚Ì—l‚È“ü—Í‚ð‚·‚éŒ‚ÉŠÖ‚µ‚Ä‚Í Private Sub pd(tbl1, i, sb, p1, p2) If p1(0) = Empty Then p1(0) = sb: p1(1) = tbl1(i, 1): p1(2) = tbl1(i, 8): p1(3) = tbl1(i, 9) p1(4) = tbl1(i, 10): p1(5) = tbl1(i, 11): p1(6) = tbl1(i, 12) Else p2(0) = sb: p2(1) = tbl1(i, 1): p2(2) = tbl1(i, 8): p2(3) = tbl1(i, 9) p2(4) = tbl1(i, 10): p2(5) = tbl1(i, 11): p2(6) = tbl1(i, 12) End If End Sub ‚±‚Ì•”•ª‚ÅAElse ‚ð ElseIf p2(0) = Empty Then ‚É•Ï‚¦‚Ä‚Ý‚é‚Ì‚Í‚Ç‚¤‚Å‚µ‚傤H
•ƒ•ê‚̈ê‰ñ–Ú‚ÉŒ©‚‚©‚Á‚½s‚̃f[ƒ^‚ªp1‚É “ñ‰ñ–Ú‚ÉŒ©‚‚©‚Á‚½s‚̃f[ƒ^‚ªp2‚É “ü‚邱‚Ƃɬ‚é‚ÆŽv‚¢‚Ü‚·B
(HANA)
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚· @Hannya „‚¢‚â@h‚æ‚è—Ç‚¢h•û–@‚È‚Ç‘I‘ðo—ˆ‚邱‚Æ‚Å‚Í‚È‚A ‚±‚ê‚Í@ ¬¶‚É‚Í@‚¢‚‚Â‚à‚ ‚é•û–@‚©‚ç@‚æ‚è—Ç‚¢‚à‚Ì‚ð‘I‚ׂé@æÒ‘ò‚È‚±‚Æ‚ÍŒ¾‚¦‚È‚¢B ƒR[ƒhi•K—v—e—Êj‚ª‘å‚«‚‚È‚Á‚Ä‚àAˆê‚Â’m‚Á‚½‚ç@‚»‚ê‚Å‚ ‚肪‚½‚¢ ‚Æ‚¢‚¤ó‘Ô‚Å‚· ‚Æ‚¢‚Á‚½‚‚à‚è‚Å‚µ‚½B Sheet‚ÌŽw’è•û–@‚ÅŒ¾‚Á‚½‚±‚Æ‚Å‚È‚AŠÖ”‚Æ‚©@ƒTƒuƒ‹[ƒ`ƒ“–¼‚Æ‚©@‹Lq‚ÌŽd•û‚È‚Ç‘S”ʂɂ‚¢‚Ä‚Å‚·B
‚Í‚¢@“ü–僌ƒxƒ‹‚ð’[Ü‚Á‚Ä@ƒZƒ‹‚ÌŠÖ”ƒŒƒxƒ‹‚ð‘z’肵‚Ä‚¢‚ÄA ƒ}ƒNƒ‚È‚é‚à‚Ì‚ª‚Å ‚Ä‚‚邱‚Æ‚ð‘z’肵‚Ä‚¢‚È‚©‚Á‚½¬¶‚É‚Í@–³–d‚È‘Š’k‚Å‚µ‚½ i‚Þ‚©‚µ@‚Þ‚©‚µ@‚a‚‚“ ‚‰‚ƒ‚Í‚¢‚¶‚Á‚½‚±‚Æ‚ª‚·‚±‚µ‚ ‚Á‚½‚Ì‚Å‚·‚ª@ ‚·‚®‚‚©‚í‚È‚‚È‚Á‚½B‚±‚ꂪ‚±‚ñ‚È‚Æ‚± ‚ë‚ł‚©‚í‚ê‚Ä‚¢‚é‚Ì‚ð‚µ‚Á‚½‚Ì‚Í‚±‚ÌŒ‚Å‚Å‚·@ ‚È‚é‚قǃRƒ“ƒpƒCƒ‰[‚ð‚»‚Ì‚Â‚Ç‘€ì‚µ‚È‚¢Œ¾Œê‚ªŠˆ‚©‚³‚ê‚Ä‚¢‚é‚Ì‚¾‚Æ‚È‚Á‚Æ‚Bj
‚±‚ÌŒn•ˆ}‚à@g“à‚ª‚Ü‚Á‚½‚ü‚à–¼‘O‚à@ƒV[ƒg‚É’¼‚ÉŽè‘€ì‚Å‘‚«ž‚ñ‚Å‚¢‚½‚Ì‚ðŒ©‚ÄA ‚È‚É‚©•\‚©‚玩“®‰»‚Å‚«‚È‚¢‚©‚Æ‚¨‚à‚¢‚‚¢‚½‚à‚Ì‚Å‚·
–{“–‚ÉHANA‚³‚ñ‚É‚ÍŠ´ŽÓ‚µ‚Ü‚·B‚Í‚¢@“ü–僌ƒxƒ‹‚ð‚·‚®‚Æ‚¢‚¤‚Æ–ñ‘©ˆá‚¢‚É‚È‚è‚Ü‚·‚ª@ ‚¨‚¢‚¨‚¢•×‹‚µ‚Ü‚·BŠî–{‚Ì‘åØ‚³‚ð‰ü‚ß‚Ä‹³‚¦‚ç‚ê‚Ü‚µ‚½B
‹ï‘Ì“I‚ȃR[ƒh‚̉üC‚ɂ‚¢‚Ä‚ÍŒ‹‰Ê‚Í‚Ì‚¿‚Ù‚Ç@•ñ‚µ‚Ü‚· ‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B
Ä‚Ñ@Œë‚è‚Å•ƒ/•ê‚Ì‹LÚ ŠÖŒWŽÒ‚ª‚Å‚½‚Æ‚«‚Ì@ˆ—ƒR[ƒh‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½ > •ƒ•ê‚̈ê‰ñ–Ú‚ÉŒ©‚‚©‚Á‚½s‚̃f[ƒ^‚ªp1‚É “ñ‰ñ–Ú‚ÉŒ©‚‚©‚Á‚½s‚̃f[ƒ^‚ªp2‚É “ü‚邱‚Ƃɬ‚é‚ÆŽv‚¢‚Ü‚·B ‚Í‚¢AŒão‚ª‘Oo‚Ì•ƒ•ê‚Éd‚È‚Á‚Ä@‘‚«ž‚Ü‚ê‚邱‚Æ‚Í‚È‚‚È‚è‚Ü‚µ‚½B ‚µ‚©‚µ@‚Ü‚Á‚½‚Žq‚ÌŒn•ˆü‚É‚ào‚È‚¢@–³Ž‹‚³‚ꂽŒ‹‰Ê‚É‚È‚è‚Ü‚µ‚½B
¡@Žq‚ª@ŽŸ¢‘ã‚Ìe‚É‚È‚é‚Ì‚ð@˜A‘±‚³‚¹‚邽‚ß‚É@Œn•ˆ}‚ð“‡AC³‚·‚铇Œn•ˆ}‚É ‘S–ʃRƒs[‚µ@‚»‚Ìã‚Å@Žq‚Æe‚Ì“¯ˆêl–¼iŒãŽÒ‚Í‹L†‚ª•t‚¢‚Ä‚¢‚é‚Ì‚Åj‚ðƒJƒbƒg•ƒy[ƒXƒg‚ð‚µ‚Ä‚¢‚Ü‚·B
‚±‚ê‚ð‹@‰ï‚É@‚»‚ê‚ðŽ©“®‰»‚·‚邽‚ß‚É@ƒf[ƒ^‚Ì‘‚«•û‚ð
Žn 1760.1 •ƒ Žn‚ÌÈ 1764.1 •ê —‚P 1779.2 –º ’·’j 1780.1 ‘§Žq ŽŸ’j 1781.1 ‘§Žq ŽO’j@ 1785.1 Žq •ƒ@@ [‘¼‰Å 1780.1 •ê ’·—2 1798.1 –º ’·’j‚Q 1799.1 ‘§Žq
Šú‘Ò‚·‚éŒn•ˆ}
9 1759 1764.1` •ó—ï 10 1760 ¢Žn= X =¥Žn‚ÌÈ 11 1761 1760.1` 12 1762 b 13 1763 b –¾˜a Œ³”N 1764 b 2 1765 b 3 1766 b 4 1767 b 5 1768 b 6 1769 b 7 1770 b 8 1771 b ˆÀ‰i Œ³”N 1772 b 2 1773 b 3 1774 b 4 1775 b 5 1776 b 6 1777 b 7 1778 b 1779.2` 8 1779 ¥—‚P 1780.1` 9 1780 ¢’·’j “V–¾ Œ³”N 1781 ¢ŽŸ’j 2 1782 b 1781.1` 3 1783 b 4 1784 b 1780.1` 5 1785 ¢ŽO’j@= X =¥[‘¼‰Å 6 1786 b 1785.1` 7 1787 b 8 1788 b Š° Œ³”N 1789 b 2 1790 b 3 1791 b 4 1792 b 5 1793 b 6 1794 b 7 1795 b 8 1796 b 9 1797 b 1798.1` Š° 10 1798 ¥’·—2 11 1799 ¢’·’j‚Q 12 1800 b 1799.1` ‹˜a Œ³”N 1801
‚̂悤‚ÉAŒn•ˆü‚̈êl‚ÌŽq‚Ì‚Ý‚Ì¥ˆ÷‚ðŠK’ió‚É‘±‚¯‚Ä‘‚«ž‚ނ悤‚Éo—ˆ‚È‚¢‚©@ŒŸ“¢‚µ‚Ä‚¢‚Ü‚·B ƒf[ƒ^‚Ì‘‚«•û‚Í@‚»‚Ì¥ˆ÷‚ÌŽq‚ÍŽn‚ß‚ÌŒn•ˆü‚Ì‘¼‚ÌŽq‚̶”N‚ÉŠÖ‚í‚炸@ÅŒã‚É‹LÚ‚µ‚Ä ‚»‚ÌŽŸs‚Éi¥ˆ÷‚µ‚½j•Ðe‚ð‘‚«A‚»‚µ‚Ä@‚»‚Ìi‘æ2Œn•ˆü‚ÌjŽq‚ç‚ð‘‚‚Æ‚¢‚¤‚±‚Æ‚É‚·‚éB ‚±‚ê‚͉ƌn‚Æ‚¢‚¤‚æ‚èAŒ»Ý‚ÌŽq‚ÌŒn•ˆ‚©‚ç‘k‚Á‚Ä’H‚Á‚½’¼Œn‚ð•\‚·‚±‚Æ‚ðŠú‘Ò‚µ‚Ä‚¢‚Ü‚·B ‘¼‚ÌŽq‚ÌŒn•ˆ‚Í@•Ê‚É‹ó”’s‚Ì‚ ‚Æ@¥ˆ÷ŠÖŒW‚©‚ç•Ê‚ÌŒn•ˆü‚ðŽn‚ß‚Ü‚·B
ƒf[ƒ^‚Ì‘‚«•û‚ðŒˆ‚ß‚½’iŠK‚Å@‚±‚ê‚©‚ç@ˆ—‚̃‹[ƒ‹‚ðl‚¦‚ÄA‚»‚ê‚ðƒR[ƒh‰»‚·‚é—\’è‚Å‚· ‚à‚µ@•Œ¾‚𒸂¯‚ê‚ÎK‚¢ŽŠ‹É‚Å‚· @
„‚Í‚¢AŒão‚ª‘Oo‚Ì•ƒ•ê‚Éd‚È‚Á‚Ä@‘‚«ž‚Ü‚ê‚邱‚Æ‚Í‚È‚‚È‚è‚Ü‚µ‚½B „‚µ‚©‚µ@‚Ü‚Á‚½‚Žq‚ÌŒn•ˆü‚É‚ào‚È‚¢@–³Ž‹‚³‚ꂽŒ‹‰Ê‚É‚È‚è‚Ü‚µ‚½B
Šm‚©‚ÉAŒ¾‚í‚ê‚Ä‚Ý‚é‚Æ‚»‚¤‚È‚è‚Ü‚·‚ËB i—Ç‚l‚¦‚Ä‚©‚ç‘‚¯‚Ηǂ¢‚Ì‚ÉBBBÎj
„“ü–僌ƒxƒ‹‚ð‚·‚®‚Æ‚¢‚¤‚Æ–ñ‘©ˆá‚¢‚É‚È‚è‚Ü‚·‚ª ‚±‚Ì”Œ¾‚Ì^ˆÓ‚ª—Ç‚‚í‚©‚è‚Ü‚¹‚ñ‚ª ‚±‚ê‚©‚çƒR[ƒh‚ðì¬iu•ÏXv‚Æ‚¢‚¤‹C•ª‚È‚Ì‚Å‚µ‚傤‚¯‚Çj‚µ‚Ä‚¢‚ˆ×‚É‚ÍA ‚à‚Á‚Æ‚½‚‚³‚ñ‚ÌŽ–‚ð’m‚Á‚Ä‚¨‚©‚ê‚é‚Ì‚ª—Ç‚¢‚ÆŽv‚¢‚Ü‚·B
¡X‰½‚ðŒ¾‚Á‚Ä‚àŽd—l‚ª‚È‚¢‚Ì‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ª Ž„‚̃R[ƒh‚ÍA‘S‚‚Ì“ÆŠw‚Å@Žï–¡‚͈̔͂ł·B “à—e“I‚É‚àA‚»‚Ì’ö“x‚Å‚·‚µ
„ŠÖ”‚Æ‚©@ƒTƒuƒ‹[ƒ`ƒ“–¼‚Æ‚©@‹Lq‚ÌŽd•û‚È‚Ç‘S”ʂɂ‚¢‚Ä‚Å‚·B
‚±‚Ì•”•ª‚ÉŠÖ‚µ‚Ä‚àAŽQl‚É‚µ‚Ä‚à‚ç‚Á‚Ä‚à—Ç‚¢‹Lq•û–@‚È‚Ì‚© ŽÀÛ‚ÌŠ@ƒZƒIƒŠ[‚©‚çŠO‚ê‚Ä‚¢‚ÄAŒ©‚ç‚ꂽ‚à‚Ì‚¶‚á‚È‚¢‹Lq•û–@‚È‚Ì‚© Ž„Ž©gA‘S‚•ª‚©‚è‚Ü‚¹‚ñB i‹C•´‚ê‚Å•t‚¯‘«‚µ‚Ä‚¢‚é‚Ì‚ÅA‚â‚Á‚Ï‚èˆá‚¤‚ñ‚¶‚á‚È‚¢‚©‚ÆŽv‚¢‚Ü‚·Bj
‚Ç‚±‚ªŽQl‚Éo—ˆ‚é‚Ì‚©A‚Ç‚±‚ªŽQl‚Éo—ˆ‚È‚¢‚Ì‚© ‚»‚ê‚ðŒ©‹É‚ß‚Ä‚à‚炤ˆ×‚É‚à@“ü–å‚©‚牂߂Ăà‚炤Ž–‚ª Ž„‚ÌŠó–]‚Å‚·B
(HANA)
„ u•ÏXv‚Æ‚¢‚¤‹C•ª‚È‚Ì‚Å‚µ‚傤‚¯‚Ç
ˆÀ’¼‚ÈŽp¨‚ðŒ©“§‚©‚³‚ê‚Ä‚µ‚Ü‚¢‚Ü‚µ‚½B
‚µ‚‚ł·‚ª@“ü–å‚ð‚©‚¶‚Á‚Ä‚¢‚«‚Ü‚·B
‚¢‚‚‚©“Ç‚ñ‚¾‚Ì‚Å‚·‚ª
.Range("C2").Resize(UBound(y, 1), 1).Copy .Range("D2").Cells(1, xc + 1) '‰E’[‚ɼ—ï .Range("A2").Resize(UBound(y, 1), 1).Copy .Range("D2").Cells(1, xc + 2) '‰E’[‚É”N† .Range("B2").Resize(UBound(y, 1), 1).Copy .Range("D2").Cells(1, xc + 3) '‰E’[‚ɘa—ï
.Cells(xc + 1 + 3).ColumnWidth = 4.5 '‰E’[‚ɼ—ï”N—ñ‚Ì• .Cells(xc + 2 + 3).ColumnWidth = 3.75 '‰E’[‚ÉŒ³† .Cells(xc + 3 + 3).ColumnWidth = 2# '=2.0'‰E’[‚ɘa—ï .Range("D2").Cells(xc + 0 + 3).ColumnWidth = 10.5 'ÅŒã—ñ‚Ì•
ã‚Ì‚±‚Ò[‚Ì–Ú•W‚̃Zƒ‹‚̔Ԓn(x + n)‚ɑΉž‚·‚é@ “¯‚¶ƒZƒ‹‚Ì•Žw’è‚̔Ԓn‚ª(x + n + 3)‚ƂȂ邱‚Æ‚ª ‚Ü‚¾—‰ð‚Å‚«‚È‚¢‚Å‚¢‚Ü‚·B Range("D2").‚ÆŽw’肵‚Ä‚¢‚é‚©‚ç‚ÆŽv‚¢@ÅŒã—ñ•‚̂悤‚É‘‚¢‚½‚Ì‚Å‚·‚ª ¡“x‚Í‚Ü‚Á‚½‚–³Ž‹‚³‚ê‚Ü‚·B x(xr,xc) => cells(xr + 1,xc + 3)‚Æ‚Ì‚¸‚ꂪ‚ ‚邱‚Æ‚ÆŠÖŒW‚µ‚Ä‚¢‚é‚悤‚Å‚·‚ªA “¯‚¶Cells‚Ì‹Lq‚Å‚·‚Ì‚Å•sŽv‹c‚Å‚·B ‚±‚ñ‚È‚±‚Æ‚à“ü–å—‰ð•s‘«‚É‹Nˆö‚µ‚Ä‚¢‚é‚Ì‚Å‚·‚ªAž™‚̂悤‚ɂЂÁ‚©‚©‚Á‚Ä‚¢‚Ü‚·B
‚²•s–¾‚È“_‚ª‚Ç‚±‚È‚Ì‚©‚æ‚‚í‚©‚è‚Ü‚¹‚ñ‚ª —Ⴆ‚ÎAxc‚ªu1v‚¾‚Á‚½ê‡ xc+1+3 = 5 ‚Å‚·‚©‚ç Sub test1() MsgBox Cells(5).Address(0, 0) 'Cells(xc + 1 + 3) MsgBox Range("A1").Cells(5).Address(0, 0) 'Range("A1").Cells(xc + 1 + 3) MsgBox Range("A1").Cells(, 5).Address(0, 0) End Sub ‚Ç‚Ì—l‚É‘‚¯‚ÎAŠú‘Ò‚·‚éƒZƒ‹”Ô’n‚𓾂ç‚ê‚é‚© Šm”F‚µ‚ÄŒ©‚ç‚ê‚é‚Ì‚ª—Ç‚¢‚©‚à‚µ‚ê‚Ü‚¹‚ñB
‚Ü‚½A „Range("D2").‚ÆŽw’肵‚Ä‚¢‚é‚©‚ç‚ÆŽv‚¢ ‚±‚ê‚ÉŠÖ‚µ‚Ä‚ÍA–â‘è‚È‚¢‚ÆŽv‚¢‚Ü‚·B Sub test2() MsgBox Range("D2").Cells(1, 1).Address(0, 0) MsgBox Range("A1").Cells(1, 1).Address(0, 0) MsgBox Cells(1, 1).Address(0, 0) End Sub
(HANA)
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B Cells(5).‚Æ‚©@Cells(, 5).‚ÌŒ‹‰Ê‚Æ‹Lq‚ðŒ©‚Ä‹C‚«‚Ü‚µ‚½B “ü–åˆÈ‰º‚Ì’ˆÓ•s‘«‚Å‚µ‚½B Cells(1, xc + 3) '‰E’[‚ɘa—ï ‚ð“¥P‚µ‚½‚‚à‚è‚Å‚µ‚½‚ªA‚Ü‚Á‚½‚ˆá‚Á‚ÄCells(xc + 3)‚̓Rƒ‰ƒ€•Ï”‚É‚È‚Á‚Ä‚¢‚È‚©‚Á‚½B
S‚µ‚Ä’ˆÓ‚µ‚Ä‚¢‚«‚Ü‚·
@
ƒZƒ‹‚ÌÀ•Wi‚ƌĂԂ̂©@”z—ñ–¼‚ƌĂԂ̂©Hj‚ðˆÈ‰º‚ÉŽŽ‚µ‚Ä‚í‚©‚è‚Ü‚µ‚½B
Sub Cellzahyo() MsgBox "Cells(1, 1)=" & Cells(1, 1).Address(0, 0) '=A1 MsgBox "Cells(5)=" & Cells(5).Address(0, 0) '=E1 MsgBox "range(A1).cells(5)=" & Range("A1").Cells(5).Address(0, 0) '=A5 MsgBox "Range(A1).Cells(1, 1)=" & Range("A1").Cells(1, 1).Address(0, 0) '=A1 MsgBox "Range(A1).Cells(, 5)=" & Range("A1").Cells(, 5).Address(0, 0) '=E1 MsgBox "Range(D2).Cells(1, 1)=" & Range("D2").Cells(1, 1).Address(0, 0) '=D2 MsgBox "Range(D2).Cells(1, 5)=" & Range("D2").Cells(1, 5).Address(0, 0) '=H2 MsgBox "Range(D2).Cells(5)=" & Range("D2").Cells(5).Address(0, 0) '=D6 End Sub
Range("Xn")‚ðæ‚É‹Lq‚·‚邱‚Æ‚ÍOFFSeT‚ð—^‚¦‚é‹@”\‚Æ—‰ð‚µ‚Ü‚µ‚½B Cells(xc + x + 3j‚ÍRange("D2").Cells(1,xc + x)‚Æ“¯‚¶‚Æ—‰ð‚µ‚Ü‚µ‚½B
–Ê”’‚¢‚Ì‚Í@Cells(‚Tj‚̂悤‚É“¯‚¶’P“Æ”‚Ì‚Æ‚«A'=A5@'=D6@‚̂悤‚Ɋ©‚ç‚Ts–Ú‚ð•\‚·ê‡ ‚Æ@'=E1@‚Æ‚T—ñ–Ú‚ðŒ»‚·ê‡‚ª‚ ‚邱‚Æ‚Å‚·B ŒãŽÒ‚Í@‚Ç‚¤‚µ‚Ä‹æ•Ê‚·‚é‚©‚ÈH Range("A1").‚ª—ª‚³‚ê‚Ä‚¢‚é‚ƉðŽß‚µ‚Ä‚¢‚é‚킯‚Å‚Í‚È‚¢‚µHH
@
„Range("Xn")‚ðæ‚É‹Lq‚·‚邱‚Æ‚ÍOFFSeT‚ð—^‚¦‚é‹@”\‚Æ—‰ð‚µ‚Ü‚µ‚½B ‚»‚¤‚Å‚·‚ËB¡‰ñ‚Ìꇂ͓¯‚¶—l‚ÈŽg—p•û–@‚É‚È‚Á‚Ä‚¢‚Ü‚·‚ËB ‚È‚Ì‚ÅA‘å’ï‚ÍOFFSET‚ðŽg‚¤‚ÆŽv‚¢‚Ü‚·B
„Šî€‚©‚ç‚Ts–Ú‚ð•\‚·ê‡ „‚Æ@'=E1@‚Æ‚T—ñ–Ú‚ðŒ»‚·ê‡‚ª‚ ‚邱‚Æ‚Å‚·B ƒwƒ‹ƒv‚ð“Ç‚ñ‚ł̉ðŽß‚Å‚·‚̂ňá‚Á‚Ä‚¢‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñB ˆê‰žAŽQl‚É‚µ‚½€–Ú‚Í uWorksheet.Cells ƒvƒƒpƒeƒBiCells ƒvƒƒpƒeƒBjv‚ÆuItemƒvƒƒpƒeƒBv‚Å‚·B ‚²Ž©g‚Å‚àŠm”F‚µ‚Ä’¸‚¯‚ê‚΂Ǝv‚¢‚Ü‚·B @@®Aˆø—p‚µ‚½ƒwƒ‹ƒv‚Í2007‚Ì‚à‚Ì‚Å‚·B
uWorksheet.Cells ƒvƒƒpƒeƒBv‚Ì’†‚ÅŽg—p—á‚Æ‚µ‚Ä
žŽŸ‚ÌŽg—p—á‚ÍAƒV[ƒg 1 ‚̃Zƒ‹ C5 ‚̃tƒHƒ“ƒg ƒTƒCƒY‚ð 14 ƒ|ƒCƒ“ƒg‚Éݒ肵‚Ü‚·B žWorksheets("Sheet1").Cells(5, 3).Font.Size = 14 ž žŽŸ‚ÌŽg—p—á‚ÍAƒV[ƒg 1 ‚̃Zƒ‹ 1 ‚Ì”Ž®‚ðƒNƒŠƒA‚µ‚Ü‚·B žWorksheets("Sheet1").Cells(1).ClearContents
‚Æ‚ ‚è‚Ü‚·B ‚±‚±‚Å‹C‚É‚È‚é‚Ì‚ÍA‰º‘¤‚̃R[ƒh‚Ìà–¾‚Æ‚µ‚Ä ƒV[ƒg1‚̃Zƒ‹yA1z‚Ì”Ž®‚ðƒNƒŠƒA‚·‚é‚Ì‚Å‚Í‚È‚ ƒV[ƒg1‚̃Zƒ‹y‚Pz‚Ì”Ž®‚ðƒNƒŠƒA‚·‚é@@‚Æ‘‚¢‚Ä‚ ‚é“_‚Å‚·B
‚»‚±‚ÅA‚±‚̃y[ƒW‚ð‚à‚¤‚µŒ©‚Ä‚Ý‚é‚Æ
žItem ƒvƒƒpƒeƒB‚ÍARange ƒIƒuƒWƒFƒNƒg‚ɑ΂·‚éŠù’è‚̃vƒƒpƒeƒB‚Å‚ ‚邽‚ßA žEEEEi’†—ªjEEEE žItem ƒvƒƒpƒeƒB‚ÌÚׂ‚¢‚Ä‚ÍAItem ƒvƒƒpƒeƒB‚¨‚æ‚Ñ“Á’è‚̃RƒŒƒNƒVƒ‡ƒ“‚Å‚Ì žŽg—p—á‚ðŽQÆ‚µ‚Ä‚‚¾‚³‚¢B
‚Æ‘‚¢‚Ä‚ ‚é‚Ì‚ÅA‘f’¼‚ÉuItem ƒvƒƒpƒeƒBv‚ðŠm”F‚µ‚Ä‚Ý‚Ü‚·B
‚±‚¿‚ç‚̃y[ƒW‚ÌuRowIndexv‚Ìà–¾‚Æ‚µ‚Ä
ž¶‚©‚ç‰E‚ÉAŽŸ‚Éã‚©‚牺‚É”‚¦‚ÄAƒAƒNƒZƒX‚·‚éƒZƒ‹‚̃Cƒ“ƒfƒbƒNƒX”Ô†‚ðŽw’肵‚Ü‚·B
‚Æ‘‚¢‚Ä‚ ‚è‚Ü‚·B
Row‚Á‚Ä‘‚¢‚Ä‚ ‚é‚Ì‚¾‚©‚çA‚±‚±‚É”Žš‚ª“ü‚Á‚Ä‚¢‚½‚ç–³ðŒ‚ʼnº•ûŒü‚Ös‚«‚»‚¤‚Å‚·‚ª u¶‚©‚ç‰E‚Év‚ªæ‚Æ‘‚¢‚Ä‚ ‚è‚Ü‚·‚ËB
‚»‚±‚Å‹C‚É‚È‚é‚Ì‚ª‚â‚Í‚è „ƒV[ƒg1‚̃Zƒ‹y‚Pz‚Ì”Ž®‚ðƒNƒŠƒA‚·‚é ‚Å‚·B
‚P‚Á‚ÄŽ–‚ÍA‚QA‚RA‚SEEE‚Æ‘±‚¢‚Äs‚«‚»‚¤‚Å‚·B ‚»‚µ‚ÄA¶‚©‚ç‰EEã‚©‚牺@‚Å‚·B
‚»‚±‚ÅŽv‚Á‚½‚Ì‚ª‚±‚ñ‚ÈŠm”FB MsgBox Range("A1:B3").Cells(3).Address(0, 0) A1‚ªu1v ‰E‚ÖˆÚ‚Á‚ÄAB1‚ªu2v ‚à‚¤‰E‚ª‚È‚¢‚Ì‚ÅA‰º‚ÖˆÚ‚Á‚Ă̶’[@A2‚ªu3v
ŽÀs‚·‚é‚ÆA‘z‘œ‚µ‚½Œ‹‰Ê‚ª“¾‚ç‚ê‚é‚悤‚Å‚·B i7ˆÈ~‚àƒZƒ‹”Ô’n‚ð•Ô‚µ‚Ä‚‚ê‚Ü‚·‚ªEEEEBj
„Range("A1").‚ª—ª‚³‚ê‚Ä‚¢‚é‚ƉðŽß‚µ‚Ä‚¢‚é‚킯‚Å‚Í‚È‚¢‚µHH ‚±‚ê‚ÉŠÖ‚µ‚Ä‚ÍAuWorksheet.Cells ƒvƒƒpƒeƒBv‚Ì•û‚É
žƒIƒuƒWƒFƒNƒgCüŽq‚ðŽw’肹‚¸‚É‚±‚̃vƒƒpƒeƒB‚ðŽg—p‚·‚é‚ÆA žƒAƒNƒeƒBƒu ƒV[ƒg‚Ì‚·‚ׂẴZƒ‹‚ð•\‚· Range ƒIƒuƒWƒFƒNƒg‚ª•Ô‚³‚ê‚Ü‚·B
‚Æ‚ ‚è‚Ü‚·B
‚Å‚·‚©‚çAˆês–Ú‚Ì—ñ”+1 ‚Ì”Žš‚ð“ü‚ê‚ê‚Î A2ƒZƒ‹‚ð•Ô‚µ‚Ä‚‚ê‚é‚ÆŽv‚¢‚Ü‚·B MsgBox Cells(Columns.Count + 1).Address(0, 0)
„Cells(5) ‚ÍAA1‚©‚çƒ[ƒNƒV[ƒg‚̉E’[‰º’[‚̃Zƒ‹‚Ì’†‚Å @@¶‚©‚ç‰EEã‚©‚牺@‚Å‚·‚©‚ç ‰E‚Ö‚T‚Âs‚Á‚½ƒZƒ‹@E1 ƒZƒ‹
„Range("A1").Cells(5) ‚ÍAA—ñ‚Ì’†‚Å@1s–Ú‚©‚ç @i‰E‚Ös‚¯‚È‚¢‚Ì‚Åj ‰º‚Ö‚T‚Âs‚Á‚½ƒZƒ‹@A5 ƒZƒ‹
„Range("D2").Cells(1, 5) D—ñ‚©‚ç5—ñ‰E‚ÌH—ñ‚Ì’†‚Å 2s–Ú‚©‚ç @i‰E‚Ös‚¯‚È‚¢‚Ì‚Åj ‰º‚Ö‚P‚Âs‚Á‚½ƒZƒ‹@H2 ƒZƒ‹
„Range("D2").Cells(5) ‚ÍAD—ñ‚Ì’†‚Å@2s–Ú‚©‚ç @i‰E‚Ös‚¯‚È‚¢‚Ì‚Åj ‰º‚Ö‚T‚Âs‚Á‚½ƒZƒ‹@D6 ƒZƒ‹
Cellzahyo‚ÅŽŽ‚³‚ꂽŒ‹‰Ê‚Æ‚àˆê’v‚·‚é—l‚Å‚·B
ˆÈã‚Ì‚±‚Æ‚©‚ç @”͈͂ɂÍA¶‚©‚ç‰EAã‚©‚牺‚ɃCƒ“ƒfƒbƒNƒX”Ô†‚ªU‚ç‚ê @Cells‚Ì()‚Ì’†‚Å‚ÍA‚»‚̔Ԇ‚ªŽg—p‚³‚ê‚éB ‚»‚ê‚©‚çA @ Cells(s,—ñ)‚Æ‘‚¢‚½ê‡‚Í @ƒCƒ[ƒW‚Æ‚µ‚Ä‚ÍAu—ñv‚Ì•û‚Åæ‚É”›‚è‚ð“ü‚ê‚Ä‚¨‚¢‚Ä @ˆê—ñ‚¾‚¯‚É‚È‚é‚©‚çusv‚Ì•û‚Ì”‚Æs•ûŒü‚Ö‚Ì”‚ª @˜A“®‚·‚é‚悤‚É‚È‚Á‚Ä‚¢‚é‚Ì‚Å‚Í‚È‚¢‚©B ‚ÆŽv‚¢‚Ü‚·B
‚±‚ê‚ç‚Í‚ ‚‚Ü‚Å‚àAŽ„‚ªƒwƒ‹ƒv‚ð“Ç‚ñ‚Å‚»‚¤Žv‚Á‚Ä‚¢‚鎖‚Å‚·B ‡‚Á‚Ä‚¢‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ªAˆá‚Á‚Ä‚¢‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñB
‚²Ž©g‚Å‚àAƒwƒ‹ƒv‚ð•R‰ð‚¢‚Äs‚Á‚Ä’¸‚«‚½‚¢‚ÆŽv‚¢‚Ü‚·B
(HANA)
Ú‚µ‚¢‰ðà‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚· ‚í‚©‚è‚Ü‚µ‚½
‚Í‚¢@‘‘¬@Help‚ðŒ©‚Ä@•×‹‚µ‚Ü‚· VB 6.0 ‚Å@Help Worksheet.Cells ƒvƒƒpƒeƒB‚ ‚é‚¢‚ÍCells ƒvƒƒpƒeƒB ‚ÅŒŸõ‚µ‚Ü‚µ‚½ `ƒvƒƒpƒeƒB‚ª@‚P‚O‚OŒÂ‚Å‚½‚Ì‚Å‚·‚ª@Cells ƒvƒƒpƒeƒB@‚ªŒ©‚‚©‚炸‚É ’T‚µ‚Ä‚¢‚Ü‚·
‚Æ‚è‚ ‚¦‚¸@‚¨—ç‚Ü‚Å @
‚ ‚ç‚çAƒ^ƒCƒ~ƒ“ƒO“I‚É@ʼn‚Ì•û‚Ì u¡‰ñ‚Ìꇂ͓¯‚¶—l‚ÈŽg—p•û–@‚É‚È‚Á‚Ä‚¢‚Ü‚·‚ËBv ‚ð•ÒW‚µ‚½‚Ì‚Å‚·‚ªAŒ©‚Ä‚¢‚½‚¾‚¯‚Ü‚µ‚½‚©EEEH
„Cells ƒvƒƒpƒeƒB@‚ªŒ©‚‚©‚炸‚É’T‚µ‚Ä‚¢‚Ü‚· ‚Å‚µ‚½‚çAƒR[ƒh“à‚Ì@Cells@‚ðƒ}ƒEƒX‚Å‚È‚¼‚Á‚Ä”½“]‚³‚¹ [ F1 ]‚ð‰Ÿ‚µ‚Ä‚‚¾‚³‚¢B ŠY“–‚·‚éƒwƒ‹ƒv‚ª•\Ž¦‚³‚ê‚é‚ÆŽv‚¢‚Ü‚·B
‚¿‚È‚Ý‚ÉAƒGƒNƒZƒ‹‚̃R[ƒh‚ÍVBA‚Å ‚»‚ê‚ð쬂·‚é‚Ì‚ÍVBE‚Å‚·B
‚Ü‚³‚©–³‚¢‚Æ‚ÍŽv‚¢‚Ü‚·‚ª „VB 6.0 ‚Å@Help ‚È‚ñ‚Ä‘‚©‚ê‚Ä‚¢‚é‚Æ u‚¿‚á‚ñ‚ÆVBE‚̃wƒ‹ƒv‚ðŒ©‚Ä‚‚ê‚Ä‚¢‚é‚©‚ÈHv ‚È‚ñ‚ÄŽv‚Á‚Ä‚µ‚Ü‚¢‚Ü‚·‚Ì‚ÅBBB
(HANA)
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚· ‚¢‚¢‚킯‚Å‚·‚ª@‚¸[‚Æ@‚±‚ê‚ðŒ©‚Ä‚¢‚È‚@•ÔŽ–‚ª‚¨‚‚ê‚Ü‚µ‚½B ‘¼‚ÌŽ–‚ÅŠO‚ê‚Ä‚¢‚½‚Ì‚ÆA’¼Œn‚Ì‚Ý‚ð˜A‘±iCascade)‚Ì“ü—Í‚Æ•\Ž¦‚ð‚µ‚½‚ Sub@ŠÖ”‰»@‚Æ‚©@Ä‹A‰»‚Æ‚©@”Y‚ñ‚Å‚¢‚Ü‚·B
‚»‚ê‚Å@¬¶‚ªŽg‚Á‚Ä‚¢‚é‚Ì‚Í@MicroSoftOffice 2003 ‚ÌExcel‚Å@‚»‚̃}ƒNƒ•ÒW‚ÅŽg‚¤‚Ì‚Í@Help‚ð‚Ý‚é‚ÆVisualBasic6.0‚Å‚·B‚±‚ꂪEditor@VBE‚Å‚µ‚傤‚©@‚»‚ê‚ŃvƒƒWƒFƒNƒg—“‚ð‚Ý‚é‚Æ@VBA Project ‚Æ‚ ‚è‚Ü‚µ‚½B
‚»‚ê‚Å@Cells‚ð”͈͎w’肵‚Ä@iCD‚ÌInstallŽwŽ¦‚ª‚ ‚è)@F1‹@”\‚ð‘I‚Ô‚Æà–¾‚ª‚Å‚Ü‚µ‚½B ‚È‚é‚Ù‚Ç@•Ö—˜‚Å‚·B“à—e‚à‚Ù‚Ú‚í‚©‚Á‚½i‚‚à‚è‚Å‚·jB
„ʼn‚Ì•û‚Ì u¡‰ñ‚Ìꇂ͓¯‚¶—l‚ÈŽg—p•û–@‚É‚È‚Á‚Ä‚¢‚Ü‚·‚ËBv ‚ð•ÒW‚µ‚½‚Ì‚Å‚·‚ªAŒ©‚Ä‚¢‚½‚¾‚¯‚Ü‚µ‚½‚©EEEH
‚·‚Ý‚Ü‚¹‚ñ@¬¶‚ª‚±‚̈Ӗ¡‚ð³Šm‚É—‰ð‚µ‚Ä‚¢‚é‚©@•sˆÀ‚É‚È‚è‚Ü‚µ‚½B ‚Ü‚¸@Offset‚Í@ˆê”ʂ̉º‘Ê‚ð—š‚©‚¹‚½Œ´“_À•W‚ð‚¸‚ç‚µ‚½@‚̈Ӗ¡‚ÉŽg‚¢‚Ü‚µ‚½B‚»‚̂悤‚ÈŠÖ”‚ªVB‚Å‚ ‚é‚©‚Ç‚¤‚© i‚»‚ꂱ‚»Help‚ÅŒ©‚½‚Ì‚Å‚·‚ª@‚È‚©‚Á‚½j’m‚ç‚È‚¢‚Ü‚Ü@‚‚©‚¢‚Ü‚µ‚½B h¡‰ñ‚Íh‚Æ‚ ‚é‚Ì‚Í@‚½‚Ü‚½‚Ü“¯‚¶Žg‚¢•û‚É‚È‚Á‚½‚Ì‚ÅA–{—ˆ‚͈ႤŽg‚¢•û‚Æ‚¢‚¤‚±‚Æ‚Å‚µ‚傤‚©H
Offset ƒvƒƒpƒeƒB VBE‚ÌHelpi‚ÆŒ¾‚¤‚Ì‚©@ŒŸõŒê‚Å‚ÍŒ©‚‚©‚ç‚È‚©‚Á‚½‚ªj@Offest‚ðƒR[ƒh‚É‘‚«@F1‚Å‚Ý‚é‚Æ •\‹L‚ª‚Å‚Ü‚µ‚½B ‚¸‚ꂽˆÊ’u‚ÌCell‚Ì’l‚ð•Ô‚·ŠÖ”‚Æ—‰ð‚µ‚Ü‚µ‚½Bi‚Í‚ñ‚É‚áj
„‚¸[‚Æ@‚±‚ê‚ðŒ©‚Ä‚¢‚È‚@•ÔŽ–‚ª‚¨‚‚ê‚Ü‚µ‚½B ‚¨‹C‚É‚È‚³‚炸‚ÉB
„‚±‚ꂪEditor@VBE‚Å‚µ‚傤‚© ƒ}ƒNƒ‚ðì‚é‚Æ‚«‚É‚ÍAƒGƒNƒZƒ‹‚Ì ƒƒjƒ…[Eƒc[ƒ‹(T)¨ƒ}ƒNƒ(M) @Visual Basic Editor(V) ‚©‚çŠJ‚«‚Ü‚·‚æ‚ËH ‚Á‚ÄŽ–‚ÅAŠJ‚¢‚½ƒEƒBƒ“ƒhƒE‚͈ê”Ê“I‚É VBE‚ƌĂ΂ê‚Ä‚¢‚é‚ÆŽv‚¢‚Ü‚·B
„h¡‰ñ‚Íh‚Æ‚ ‚é‚Ì‚Í@‚½‚Ü‚½‚Ü“¯‚¶Žg‚¢•û‚É‚È‚Á‚½‚Ì‚ÅA „–{—ˆ‚͈ႤŽg‚¢•û‚Æ‚¢‚¤‚±‚Æ‚Å‚µ‚傤‚©H –{—ˆ‚ª‚Ç‚¤‚©‚Í•ª‚©‚è‚Ü‚¹‚ñ‚ªAˆá‚¤Œ‹‰Ê‚ð•Ô‚·Ž–‚à—L‚é‚ÆŽv‚¢‚Ü‚·‚æB ‚»‚ꂼ‚êu1v‚Ì”‚¦‚Í‚¶‚ß‚ªˆá‚¤‚Ì‚Å( , )‚Ì’†‚ª‚¸‚ê‚Ä‚¢‚Ü‚·‚ª ‚Ç‚¿‚ç‚àAA1¨B2‚Ɉړ®‚·‚é‚Æ‚µ‚Ä@—Ⴆ‚ÎA‚±‚ñ‚ÈŠ´‚¶‚ÅB
'------ Sub test1() Cells.Clear Range("A1:B3").Offset(1, 1).Value = "›" Range("A1:B3").Cells(2, 2).Interior.ColorIndex = 37 End Sub '------
‚±‚Á‚¿‚Ì•û‚ª•ª‚©‚è‚â‚·‚¢‚©‚ÈH '------ Sub test2() Cells.Clear Range("A1:E3").Offset(4).Value = "›" Range("A1:E3").Cells(5).Value = "œ" End Sub '------
(HANA)
‹v‚µ‚Ô‚è‚É‚±‚Ì‹³Žº‚É—ˆ‚½‚Ì‚Å‚·‚ª@‚¢‚ë‚ñ‚ÈŽö‹Æ‚ª‚¢‚Á‚Ï‚¢‚Å@‚±‚ÌŽö‹Æ‚Í‚·[‚Æ‘O‚É‚È‚è‚Ü‚µ‚½ ‚³‚Ä@¬¶‚É‚Æ‚Á‚Ä@ŒœˆÄ‚Å‚ ‚Á‚½ Žq‚ç‚Ì“à@¥ˆ÷‚µ‚½ˆêl‚ª@ŽŸ‘ã‚Ìe‚Æ‚È‚Á‚Ä@‚»‚ÌŽŸ‘ã‚ðŒp‚®A’¼Œn‚Ì‚Ý‚Í@eŽqŠÖŒW‚ð‚»‚Ì“s“xƒf[ƒ^‚É‘‚©‚È‚‚Ä‚à@ Ž©“®‚Å‘‚«Œq‚¬iCascade@‚ ‚é‚¢‚ÍÄ‹Aj‚ð‚µ‚Ä‚‚ê‚éƒ\ƒtƒg‚ðì‚Á‚Ä‚Ý‚Ü‚µ‚½B
http://www.mediafire.com/download.php?zhj2mgnzm2v ‚ÉÚ‚¹‚Ü‚µ‚½‚Ì‚Å@—Ž‚Æ‚µ‚Ä@‰ð“€‚µ‚Ä@‚²‚ç‚ñ‚‚¾‚³‚¢B ŠY“–‚·‚éƒf[ƒ^‚͈ȉº‚Ì‚S‘ã‚Ì—á‚Å‚·@
’·— 1779.2 –º Žn 1760.1 •ƒ Žn‚ÌÈ 1764.1 •ê ’·’j 1780.1 ‘§Žq ŽŸ’j 1781.1 ‘§Žq Žl’j 1787.3 ‘§Žq ŽO’j@ 1785.1 Žqe @@ [‘¼‰Æv‰Å 1788.1 •ê ’·—‚Q 1798.1 –º ’·’j‚Q 1800.1 ‘§Žqe [‘¼‰Æ‚Qv‰Å 1810.1 •ê ’·—3 1815.1 –º ’·’j3 1817.1 ‘§Žqe [‘¼‰Æ3v‰Å 1810.1 •ê
‚±‚Ì“ü—͂̃‹[ƒ‹‚Í@’¼Œn‚ÌŽq‚Í‚±‚ÌŒZ’íŽo–…s‚ÌÅŒã‚É‹L‚µAŽqeA–ºe‚Æ‹L‚·B ‚»‚ÌŽŸs‚É¥ˆ÷‘ŠŽè‚ð‹L‚·B
‚Ü‚¾@Œn•ˆ}‚ÌŒ‹‰Ê‚ÍŠ®‘S‚È’ò’i‚É‚È‚Á‚Ä‚¨‚炸BŽq‚Ì‹LÚ‚Æ¥ˆ÷‚Ì‹LÚ‚ªd‚È‚Á‚Ä‚¨‚è ˆÈŒã@‚±‚ê‚ðŽ©“®‚Å‚Ü‚Æ‚ß‚½‚¢
@Hana ‚³‚ñŽn‚ß@æ’B‚Ì•û‚É@‚±‚ê‚Ü‚Å‚Ì‘½‚‚Ì•Œ¾Žw“±‚ÉŠ´ŽÓ‚µ‚‚Â
Œn•ˆ}‚Ì’ò’i‚ÌŽ©“®‰»‚àŠÜ‚ß@‚æ‚èƒXƒ}[ƒg‚È@ƒR[ƒh‚𕌾’¸‚¯‚ê‚ÎK‚¢‚Å‚·
@Test1@‚Ä‚“‚”‚Q‚ÌOffset@Cell‚Ì‹LÚ‚Í‘‘¬•×‹‚µ‚Ü‚·B
@@
Hana ‚³‚ñ‚Ì@‚²‹³Žö‚ÌCells,Offset‚Ì‹Lq—‰ð‚Å‚«‚½‚悤‚Å‚·B ‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·
‚»‚ÌŒã@’¼Œn‚̃f[ƒ^‚Ì‘ž‚Ý‚Æ@‚»‚Ì’ò’iŒn•ˆü‚ÌŽ©“®•\‹L‚ª‚Å‚«‚é‚悤‚É‚È‚è‚Ü‚µ‚½B http://www.mediafire.com/download.php?dzwtnmeyrnd ‚ÉÚ‚¹‚Ü‚µ‚½B‚²——‚É‚È‚Á‚Ä@‚²ˆÓŒ©@•Œ¾‚ð‚¢‚½‚¾‚¯‚ê‚Î@K‚¢‚Å‚·B
ƒR[ƒh‚ð’¼Ú@‚±‚±‚É‹LÚ‚·‚邱‚Æ‚ª@—Ç‚¯‚ê‚Î@“Še‚µ‚Ü‚·B
‚È‚ñ‚¾‚©‚¾‚ñ‚¾‚ñ‚»‚ê‚Á‚Û‚¬‚Á‚Ä‚«‚Ä‚¢‚Ü‚·‚ËB Ž„‚É‚ÍŠù‚ÉA‰½‚ª‚Ç‚Ì—l‚Ɉ—‚ð‚³‚ê‚Ä‚¢‚é‚Ì‚©•ª‚©‚è‚Ü‚¹‚ñ‚ª ‚±‚Ì’²Žq‚ÅŠæ’£‚Á‚ĉº‚³‚¢B
(HANA)
‚È‚ñ‚¾‚©‚¨‚¨‚ª‚©‚è‚Å‚·‚Ë` ‚Í‚ñ‚ɂႳ‚ñ‚É‚ÍŽd—l‘‚ð쬂·‚邱‚Æ‚ð‚¨Š©‚ß‚µ‚Ü‚·B(‚Æ‚¨‚è‚·‚ª‚è)
Hana‚³‚ñ‚Ì‘‚©‚ꂽƒR[ƒh‚ð‰Â”\‚È•”•ª‚Å@•K‚¸‚µ‚àŒJ‚è•Ô‚µ‚ÄŽg‚í‚È‚¢‚à‚Ì‚à “ª‚Ì®—‚Ì‚½‚ß‚ÉSubƒ‹[ƒ`ƒ“i‚Æ‚¢‚¤‚Ì‚Å‚µ‚傤‚©j‰»‚µ‚Ä ‚â‚Á‚Æ@‚»‚ê‚ð‚¢‚ë‚¢‚ë‘g‚݇‚킹‚Ä@Œ‹‰Ê“I‚É‚Å‚é—l‚É‚È‚è‚Ü‚µ‚½B
Hana‚³‚ñ‚É‚à@“–‰‚©‚çŽd—l‚ð’è‚ß‚é‚悤‚É•Œ¾‚𒸂¢‚Ä‚¢‚Ü‚µ‚½B
‚â‚Á‚Ä‚¢‚é“à‚É@‚±‚ñ‚È‚±‚Æ‚ªo—ˆ‚»‚¤Ao—ˆ‚½‚ç—Ç‚¢‚È‚Æ@’ljÁ@C³‚µ‚Ä‚«‚Ü‚µ‚½‚ª ˆê悸@‚±‚ê‚ÅŽÀ—p‚µ‚Ä‚Ý‚Ü‚·B Œ³X@‚±‚Ì—˜—p‰¿’l‚ª‚È‚¯‚ê‚Î@‰ü—Ç‚Ì•K—v«‚à‹N‚«‚È‚¢‚Å‚µ‚傤B
‚½‚Ü‚É@Šù‘¶‚̉ƌn•ˆì¬‚̃\ƒtƒg‚ðŒ©‚é‚Ì‚Å‚·‚ªA–{“–‚Éçtçsiö‘Žj‚·‚éŠÖŒWü‚ð }–Ê‚Ì–ÊÏ‚ð‘‚₳‚È‚¢‚Å@‚ ‚é‚¢‚͌𷂷‚éü‚ð@‚¤‚Ü‚”z’uA”zü‚·‚é‚Ì‚©@‹^‚킵‚¢‚Å‚·B ¬¶‚Ì‚à@Œ»Ý‚Í@’¼ŒnŒn•ˆü‚ª‚·‚±‚µŒø—¦“I‚É‚È‚è‚Ü‚µ‚½‚ª@ˆóü‚·‚é‚É‚Í@‚¸‚¢‚Ô‚ñ‹ó‚«ƒy[ƒW‚ª‚ ‚è‚Ü‚·B ‚Ü‚½@¥ˆ÷‚Ìü‚àCells‚Å‚È‚A•`ü‚ł‚Ȃ°‚邱‚Æ‚à•K—v‚Å‚·B
“dŽq‰ñ˜H‚̃vƒŠƒ“ƒgŠî”‚̎©“®”zü‚̃\ƒtƒg‚È‚Ç‚Í‚Ç‚¤‚µ‚Ä‚¢‚é‚Ì‚©‚È@‚Æ“ú‚²‚ë•sŽv‹c‚ÉŽv‚Á‚Ä‚¢‚Ü‚·
‚à‚µ@‚Ç‚È‚½‚©‚É@Œ´—“I‚È@•û–@˜_“I‚È‚±‚Æ‚ð‹³‚¦‚Ä’¸‚¯‚ê‚ÎK‚¢‚Å‚·B
i‚Í‚ñ‚É‚áj
"HANA‚³‚ñ" <> "Hana‚³‚ñ"
[ ˆê——(ÅVXV‡) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.