[ ‰‚ß‚Ä‚Ì•û‚Ö | ˆê——(ÅVXV‡) | ‘S•¶ŒŸõ | ‰ß‹ŽƒƒO ]
@
wŒ‹‡ƒZƒ‹‚ðŠÜ‚Þs‚Ì’Šoxi‚¨‚Á‚‚¢‚ñj
@@@@‚`@@@@@@‚a
‚P@@@@@@@@~~~
‚Q@¢¢¢@@ ›››
‚R@@@@@@@@
‚PF‚`‚PA‚`‚QA‚`‚R‚ÍŒ‹‡
‚QF‚a—ñ‚Ì“à—e‚Å‚Ç‚ê‚©‚P‚‚ð’Šo‚·‚éB
ã‹L‚PC‚Q‚ðs‚¤‚Æ‚`—ñ‚ÌŒ‹‡‚ª‰ðœ‚³‚ê‚Ä‚`—ñ‚ÌŒ‹‡•\Ž¦‚ª‚¤‚Ü‚o—ˆ‚¸¢‚Á‚Ä‚¢‚Ü‚·B‚Ç‚È‚½‚©‚¨•ª‚©‚è‚Å‚µ‚½‚狳‚¦‚ĉº‚³‚¢B
‚æ‚낵‚‚¨Šè‚¢‚µ‚Ü‚·B
ƒ Žg—p ExcelFExcel2010AŽg—p OSFWindows7 „
‚Q‚Ìu’Šo‚·‚év‚ª‰½‚ðŽw‚µ‚Ä‚¢‚é‚Ì‚©‚í‚©‚è‚Ü‚¹‚ñ‚ª VLOOKUP‚Æ‚©‚ÌŠÖ”‚Å‚·‚©H iˆî—tj 2015/05/09(“y) 16:16
‚ [A‚È‚é‚Ù‚ÇB Ž„‚Ȃ猋‡‰ðœ‚µ‚ÄA—ñ‚Ì‹ó”’ƒZƒ‹‚ð–„‚ß‚½ŒãA‚Ç‚±‚©‚̋󂫃Zƒ‹‚ÉŒ‹‡ƒZƒ‹‚ðì‚Á‚Ä‚»‚ê‚ðƒRƒs[‚µ A—ñ‚̃Oƒ‹[ƒv‚²‚Æ‚ÉCtrl‚ð‰Ÿ‚µ‚È‚ª‚ç‘I‘ð‚µ‚Ä‚¢‚Á‚½ŒãAŒ`Ž®‚ð‘I‘ð‚µ‚Ä“\‚è•t‚¯‚Å‘Ž®‚Ì‚Ý “\‚è•t‚¯‚µ‚Ü‚·‚ËB
...‚½‚‚³‚ñ‚ ‚Á‚½‚ç–Ê“|‚Å‚·‚ªB iƒRƒiƒ~j 2015/05/11(ŒŽ) 10:38
‚È‚é‚Ù‚ÇAƒI[ƒgƒtƒBƒ‹ƒ^‚©I Ž„‚àƒRƒiƒ~‚³‚ñ‚Ì‚â‚è•û‚Å‚·B iˆî—tj 2015/05/11(ŒŽ) 11:45
‚²‹³Žö’¸‚«‚Ü‚µ‚½•û–@‚É‚æ‚èŽÀs’v‚µ‚Ü‚µ‚½Œ‹‰ÊA‚`—ñ‚ɂătƒBƒ‹ƒ^‚ð‚©‚¯‚½ê‡‚ÍŒ‹‡‰ðœ‚³‚ꂸ‚É‚¤‚Ü‚‚¢‚‚Ì‚Å‚·‚ªA
‚a—ñ‚Ì€–Ú‚Ç‚ê‚©‚P‚‚ŃtƒBƒ‹ƒ^‚ð‚©‚¯‚é‚Æ‚`—ñ‚Í‚â‚͂茋‡‰ðœ‚³‚ê‚P—ñ‚Ì‚Ý•\Ž¦‚³‚ê‚Ä‚µ‚Ü‚¢‚Ü‚·(>_<)
‚æ‚¢•û–@‚Í‚ ‚è‚Ü‚·‚Å‚µ‚傤‚©H
‚æ‚낵‚‚¨Šè‚¢‚µ‚Ü‚·B
i‚¨‚Á‚‚¢‚ñj 2015/05/13(…) 11:42
B—ñ‚̃f[ƒ^‚ð’Šo‚·‚é‚È‚çA1si—ñ‚Å‚Í‚È‚j‚¾‚¯•\Ž¦‚³‚ê‚é‚Ì‚Í“–‚½‚è‘O‚Å‚ÍH
—á‚ÅŒ¾‚¤‚Æ ‚ð’Šo‚µ‚½‚ç‚»‚ê‚Í1‚‚µ‚©‚È‚¢‚©‚ç1s‚¾‚¯‚Å‚·‚æ‚ËH ‚»‚¤‚Å‚È‚¢‚È‚ç‚à‚¤‚µ‹ï‘Ì“I‚Éà–¾‚¢‚½‚¾‚¯‚Ü‚·‚©H iƒRƒiƒ~j 2015/05/13(…) 11:52
‚¢‚Â‚àŽ„‚ª(Žd•û‚È‚)‚â‚Á‚Ä‚¢‚é‚Ì‚ÍAŒ‹‡‚µ‚È‚¢‚ʼnº‚Qs‚ð”’•¶Žš‚É‚µ‚Ä‚¨‚‚â‚è•û‚Å‚· ‚«‚Á‚ÆŒ‹‡‚µ‚Ä‚é‚È‚çAŒrü‚à“ü‚Á‚Ä‚Ü‚·‚æ‚Ë? ƒZƒ‹‚Ì”wŒi‚Æ“¯‚¶F‚É‚µ‚Ä‚¨‚¯‚ÎAŒ©‚½‚ß‚Í‚²‚¿‚Ⴒ‚¿‚Ⴕ‚Ü‚¹‚ñ‚µƒtƒBƒ‹ƒ^‚à‚©‚¯‚ç‚ê‚Ü‚· @@ ‚`@@@ @‚a ‚P@¢¢¢@@ ~~~ ‚Q@¢¢¢@@ ››› ‚R@¢¢¢@@
¦A2‚ÆA3‚Ì•¶ŽšF‚Í”wŒiF‚Æ“¯‚¶‚É‚·‚é i‚à‚ j 2015/05/13(…) 17:33
Ž„‚ª‘z‘œ‚µ‚Ä‚¢‚é‚Ì‚ÍA—Ⴆ‚Î ‚ð’Šo‚µ‚½‚çA‚Æ‚È‚è‚ÌA—ñ‚Í Œ‹‡‚³‚ê‚Ä‚¢‚é‚©‚ç3s‚Ü‚Æ‚ß‚Ä’Šo‚³‚ê‚é‚ÆŽv‚Á‚Ä‚¢‚é‚Ì‚Å‚Í ‚È‚¢‚©‚Æc ˆá‚¤‚Ì‚©‚ÈB‚Ç‚¤‚È‚ê‚΂¢‚¢‚Ì‚©ÅI‚ÌŠó–]Œ`‚ðo‚µ‚Ä‚à‚ç‚¢‚½‚¢‚Å‚·‚ËB iƒRƒiƒ~j 2015/05/13(…) 17:51
@@ ‚`@@@ @‚a @@@@‚bEEE ‚P@@@ @@@~~~@@ aaaa@@ ‚Q@¢¢¢@@ ››› bbbb ‚R@@@@@@ cccc E E E
ã‹L—á‚Å‚Ìs‚P‚Q‚R‚ÍA‘å‚«‚•ª—Þ‚³‚ꂽ‚P‚‚̃f[ƒ^‚Å‚ ‚èA‚»‚̃f[ƒ^‚ðוª‰»‚µ‚Ä•\‹L‚µ‚½‚à‚Ì‚Å‚·B
‘啪—Þ‚³‚ê‚Ä‚¢‚éƒf[ƒ^‚͈ȉº‚Ìs‚É•¡”ŒÂ‚ ‚邽‚ßA
—Ⴆ‚ÎA‚a—ñ‚Ì‚ ‚é€–Ú‚Ì ‚ðŠÜ‚ޑ啪—Þ‚³‚ꂽƒf[ƒ^‘S‘Ì‚ð•\Ž¦‚³‚¹‚½‚¢‚Ì‚Å‚·B
‚»‚à‚»‚àŽ„‚̃tƒBƒ‹ƒ^‚ð—˜—p‚·‚él‚¦Ž©‘Ì‚ªŠÔˆá‚Á‚Ä‚¢‚é‚Ì‚Å‚µ‚傤‚©H
•Ê‚Ì•û–@‚È‚ç‚Å‚«‚é‚æA‚Æ‚©‚ ‚è‚Ü‚µ‚½‚炲‹³Žö’¸‚¯‚Ü‚·‚悤‚æ‚낵‚‚¨Šè‚¢‚¢‚½‚µ‚Ü‚·B
i‚¨‚Á‚‚¢‚ñj 2015/05/13(…) 18:43
B—ñ‚Ì›‚ðƒtƒBƒ‹ƒ^‚µ‚½‚Æ‚«‚ÉA A—ñ‚Ì•ª—Þ‚Å‚ ‚é~‚Æ ‚à“¯Žž‚É•\Ž¦‚³‚¹‚½‚¢‚Æ‚¢‚¤‚±‚Æ‚Å‚µ‚傤‚©H
‚»‚ê‚Í•W€‹@”\‚¶‚á–³—‚È‚ñ‚¶‚á‚È‚¢‚©‚È‚ŸEEE iˆî—tj 2015/05/13(…) 18:46
Sub test() Dim dic As Object Dim f As Range Dim t As Range Dim s As String Dim c As Range Dim r As Range Dim k
On Error Resume Next Set f = Application.InputBox("’ŠoðŒƒZƒ‹‚ð‘I‘ð", Type:=8) On Error GoTo 0 If f Is Nothing Then Exit Sub
Set t = Range("a1").CurrentRegion If Intersect(t, f(1)) Is Nothing Then Exit Sub
s = f(1).Value
Set dic = CreateObject("scripting.dictionary")
For Each c In t.Columns(f.Column).Cells If c.Value = s Then dic(c.EntireRow.Range("a1").MergeArea.EntireRow) = Empty End If Next
If dic.Count > 0 Then For Each k In dic.keys If r Is Nothing Then Set r = k Else Set r = Union(r, k) End If Next With Sheets.Add r.Copy .Range("a1") End With Else MsgBox "’Šo‚³‚ê‚Ü‚¹‚ñ‚Å‚µ‚½" End If
End Sub
iƒ}ƒij 2015/05/13(…) 23:20
[ ˆê——(ÅVXV‡) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.