[ ‰‚ß‚Ä‚Ì•û‚Ö | ˆê——(ÅVXV‡) | ‘S•¶ŒŸõ | ‰ß‹ŽƒƒO ]
@
w—ªÌ‚𖳂‚µ‚Ä“Ç‚Ýž‚Þ‚É‚Íxitakaj
H2ˆÈ~ƒf[ƒ^‚ª‚ ‚è‚Ü‚·B
@@@@H
2@@(Š”)›¢
3@@iŠ”j ›@fiŠ”j‹@ŽíˆË‘¶•¶Žš
4@@i—Lj››@fiŠ”j‹@ŽíˆË‘¶•¶Žš
5@@‹ó”’
6@@i—Lj ›
ˆÈ‰º‘±‚
ListBox•\Ž¦
@ݢ
@ ›
@››
@‹ó—“‚Í•\Ž¦‚µ‚È‚¢i–³Ž‹‹l‚ß‚éj
@ ›
X‚É‚±‚Ì•\Ž¦‚ª50‰¹‡‚Ƀ\[ƒg‚³‚ê‚Ä•\Ž¦o—ˆ‚ê‚Î
‚¢‚¢‚Ì‚Å‚·‚ª
ListBox‚É“Ç‚Ýž‚ÝŽž—ªÌˆÈ‰º
"??", "(—L)", "(—Lj", "(à)", "iàj", "??", "(Š”)", "iŠ”j"‚ð
ƒJƒbƒR‚ª‘SŠpE”¼ŠpE‹@ŽíˆË‘¶‚ÌŠ”@—L‚È‚Ç
–³Ž‹‚µ‚Ä“Ç‚Ýž‚Ý‚½‚¢‚Ì‚Å‚·‚ª‚²‹³Žö‚‚¾‚³‚¢B
‚æ‚낵‚‚¨Šè‚¢‚µ‚Ü‚·B
Private Sub UserForm_Initialize()
Dim c As Object Dim r As Range Dim t As Range If Cells(2, 8).Value <> "" Then Set c = CreateObject("Scripting.Dictionary") Set t = Range("H2", Cells(Rows.Count, "H").End(xlUp)) On Error Resume Next For Each r In t c.Add r.Value, 0 Next On Error GoTo 0 Me.ListBox1.List = c.keys Else MsgBox "ƒf[ƒ^‚ª‚ ‚è‚Ü‚¹‚ñ", vbExclamation Me.ListBox1.AddItem "ƒfƒtƒHƒ‹ƒg’l" End If End Sub
ƒ Žg—p ExcelFExcel2013AŽg—p OSFWindows7 „
‚Ü‚¸A¡AƒR[ƒh‚ð‘‚¢‚Ä‚Ý‚ÄAƒR[ƒh“à‚Ŋ‹«ˆË‘¶•¶Žš‚ð“ü—Í‚µ‚悤‚Æ‚·‚é‚ÆA“ü—Í‚Å‚«‚é‚à‚Ì‚Æ ? ‚É‚È‚Á‚Ä‚µ‚Ü‚¢AŒÂ•ÊŽw’肪‚Å‚«‚È‚¢•¶Žš‚ª‚ ‚è‚Ü‚·B@ ‚È‚Ì‚ÅAˆÈ‰º‚Ì—á‚Å‚ÍAƒV[ƒgã‚ÌA‚Ç‚±‚©‚ÉiŠ”j“™‚Ì–³Ž‹‚µ‚½‚¢—ªÌ‚ð“ü—Í‚µ‚½ƒŠƒXƒg‚ð‚‚‚è ‚»‚±‚É–¼‘O’è‹`‚ÅA@ƒŠƒXƒg@‚Æ‚¢‚¤–¼‘O‚ð•t‚¯‚Ä‚¨‚‚±‚Æ‚ð‘O’ñ‚É‚µ‚Ä‚¢‚Ü‚·B
³‹K•\Œ»‚ňꔕϊ·‚à‰Â”\‚©‚ÆŽv‚¢‚Ü‚·‚ªƒGƒXƒP[ƒv•¶Žš‚̃pƒ^[ƒ“\’z‚ª–Ê“|‚Ȃ̂ŋ𒼂Ƀ‹[ƒvB
Private Sub UserForm_Initialize() Dim c As Range Dim d As Variant Dim s As String With CreateObject("System.Collections.ArrayList") For Each c In Range("H2", Range("H" & Rows.Count).End(xlUp)) s = c.Value For Each d In Range("ƒŠƒXƒg").Value s = Replace(s, d, "") Next .Add s Next .Sort ListBox1.List = .toarray End With End Sub
iƒÀj 2015/11/24(‰Î) 19:10
ª@‚T‚O‰¹‡‚ɂ̓\[ƒg‚³‚ê‚È‚¢‚ÆŽv‚¢‚Ü‚·‚ªB
iƒÀj 2015/11/24(‰Î) 19:35
‚µ‚©‚µŽ„‚̃~ƒX‚Å‚P‚‘‚«–Y‚ê‚Ä‚¢‚Ü‚·‚ªA“¯‚¶ŽÐ–¼‚ª
‚¢‚‚‚©ŠÜ‚Ü‚ê‚Ü‚·AˆË‚Á‚Ä“¯ˆê‰ïŽÐ‚Í‚P‚ÂŒó•â‚É‚Å‚«‚È‚¢‚Å‚µ‚傤‚©
‚æ‚낵‚‚¨Šè‚¢‚µ‚Ü‚·B
itakaj 2015/11/24(‰Î) 19:45
itakaj 2015/11/24(‰Î) 19:48
>>ListBox‚̈ê”Ô‰º‚©‚çƒf[ƒ^‚ª–„‚ßž‚Ü‚ê‚Ä‚¢‚Ü‚·H >>iH—ñƒf[ƒ^”͈͖͂ñ800s‚Å‚·j >>ã‚©‚ç•\Ž¦o—ˆ‚Ü‚·‚©H
‚æ‚‚í‚©‚ç‚È‚¢‚Ì‚Å‚·‚ªA‰º‚©‚ç•\Ž¦‚³‚ê‚Ä‚¢‚é‚Æ‚ÍA‚Ç‚¤‚¢‚¤Œ»Û‚Å‚·‚©H
>>“¯ˆê‰ïŽÐ‚Í‚P‚ÂŒó•â‚É‚Å‚«‚È‚¢‚Å‚µ‚傤‚©
iŠ”jŽR“c@‚Æ@(—L)ŽR“c@‚ª‚ ‚Á‚½‚Æ‚µ‚ÄA‚»‚ê‚à“¯‚¶‚Æ‚Ý‚È‚³‚ê‚Ä‚¢‚¢‚Å‚·‚©H
iƒÀj 2015/11/24(‰Î) 20:02
„ iŠ”jŽR“c@‚Æ@(—L)ŽR“c@‚ª‚ ‚Á‚½‚Æ‚µ‚ÄA‚»‚ê‚à“¯‚¶‚Æ‚Ý‚È‚³‚ê‚Ä‚¢‚¢‚Å‚·‚©H
‚«‚í‚߂ăŒƒA‚ȃP[ƒX‚Å–â‘è‚ ‚è‚Ü‚¹‚ñB
i‚±‚̃P[ƒX‚ÍiŠ”j(—L)“¯–¼‚Í‚È‚µ‚Æl‚¦‚Ä\‚¢‚Ü‚¹‚ñj
‚æ‚낵‚‚¨Šè‚¢‚µ‚Ü‚·B
itakaj 2015/11/24(‰Î) 20:08
itakaj 2015/11/24(‰Î) 20:17
>>ƒŠƒXƒgƒ{ƒbƒNƒX‚ÌʼnºsA‰E‚̃XƒNƒ[ƒXƒo[‚ðˆê”Ô‰º‚É‚·‚é‚Æ >>ŽÐ–¼‚ªŒ»‚ê‚Ü‚·B‚È‚ñ‚©•Ï‚Å‚µ‚傤‚©
>>‹ó”’s‚ªListBox‚ÌãˆÊ‚É‚¢‚é‚悤‚Å‚·
‚²‚ß‚ñ‚È‚³‚¢B󋵂ª‚æ‚‚í‚©‚è‚Ü‚¹‚ñB ‚±‚¿‚ç‚Å‚ÍA‚Æ‚É‚©‚ƒtƒH[ƒ€‚ª•\Ž¦‚³‚ꂽŽž“_‚ÅAƒŠƒXƒgƒ{ƒbƒNƒX‚É—ªÌ‚ªƒJƒbƒg‚³‚ꂽŽÐ–¼‚ªƒŠƒXƒgƒAƒbƒv‚³‚ê‚Ä‚¢‚Ü‚·‚ªH ‚à‚¿‚ë‚ñAƒXƒNƒ[ƒ‹ƒo[‚ÅA‚Ç‚ñ‚Ç‚ñ‰º‚ɃXƒNƒ[ƒ‹‚Å‚«‚Ü‚·B
‚»‚¿‚ç‚Å‚ÍAƒŠƒXƒgƒ{ƒbƒNƒX‚ª‹ó”’‚ÅA‚¸‚Á‚Ɖº‚܂ŃXƒNƒ[ƒ‹‚³‚¹‚é‚ƃf[ƒ^‚ªo‚Ä‚‚é‚Æ‚¢‚¤‚±‚Æ‚Å‚µ‚傤‚©H l‚¦‚É‚‚¢‚Å‚·‚Ë‚¥BŽÐ–¼‚Í H2 ‚©‚çŽn‚Ü‚Á‚Ä‚¢‚é‚ñ‚Å‚·‚æ‚ËH
“¯–¼–³Ž‹‚ÌŒA
.Add s
‚±‚ê‚ð
If Not .contains(s) Then .Add s
‚É•ÏXE
iƒÀj 2015/11/24(‰Î) 20:19
ˆÈ‰º‚̃R[ƒh‚ðŽÀs‚µ‚ÄAƒƒbƒZ[ƒW‚Å•\Ž¦‚³‚ê‚éŽÐ–¼—̈悪³‚µ‚¢‚©‚Ç‚¤‚©Šm”F‚µ‚Ä‚‚¾‚³‚¢B ‚ÅA‚à‚µ³‚µ‚¯‚ê‚ÎA‚»‚Ì’†‚É@–³Ž‹‚·‚闪̂¾‚¯‚̃Zƒ‹‚ª‚È‚¢‚©‚Ç‚¤‚©ƒ`ƒFƒbƒN‚µ‚Ä‚‚¾‚³‚¢B
Sub Šm”F() MsgBox Range("H2", Range("H" & Rows.Count).End(xlUp)).Address End Sub
iƒÀj 2015/11/24(‰Î) 20:23
Šm”FƒR[ƒhŽÀs@$H$2:$H$1000@‚Å‚·B
„–³Ž‹‚·‚闪̂¾‚¯‚̃Zƒ‹‚ª‚È‚¢‚©‚Ç‚¤‚©ƒ`ƒFƒbƒN‚µ‚Ä‚‚¾‚³‚¢B
‚±‚ê‚ɂ‚¢‚Ä‚Í‚ ‚è‚Ü‚¹‚ñ‚Å‚µ‚½B
ˆÈã‚Å‚·@‚æ‚낵‚‚¨Šè‚¢‚µ‚Ü‚·B
itakaj 2015/11/24(‰Î) 21:00
itakaj 2015/11/24(‰Î) 21:07
>>•ÏX‚µAŽÀs‚µ‚Ü‚µ‚½@Œ‹‰Ê‚Å‚·‚ªãˆês•ª‹ó‚«‚Qs–Ú‚©‚ç >>•\Ž¦‚µ‚Ü‚µ‚½A‚È‚º‚Ps‹ó‚‚©‚Í•s–¾‚Å‚·B
‚‚܂èA¡‚Ü‚Å‚Íi‚È‚º‚©j‹ó”’‚Ìs‚ª‰½s‚©‚ ‚Á‚ÄA•À‚Ñ‘Ö‚¦‚ÌŒ‹‰Ê‚»‚ꂪ擪‚É‚«‚Ä‚¢‚éB ‚ÅA¡‰ñA“¯‚¶’l‚̓ŠƒXƒg‚ɉÁ‚¦‚é‚Ì‚ðƒXƒLƒbƒv‚µ‚½Œ‹‰ÊA‹ó”’‚ª‚Ps‚¾‚¯‚É‚È‚Á‚Ä‚Qs–Ú‚©‚çŽÐ–¼B
‚Æ‚¢‚¤‚±‚Æ‚ÍA‚Ç‚±‚©‚É@i—ªÌ‚ðŽæ‚蜂¢‚½‚ ‚Æ‚Ì•¶Žš—ñ‚ªj‹ó”’‚̃Zƒ‹‚ª‚¢‚‚‚©A—̈æ“à‚É‚ ‚é‚Æ‚¢‚¤‚±‚Æ‚Å‚·B
>>$H$2:$H$1000@‘S‚Ä•¶Žš–„žƒeƒXƒg‚µ‚½Œ‹‰Ê
‚±‚̈Ӗ¡‚ª‚í‚©‚è‚Ü‚¹‚ñB ‚ ‚炽‚ß‚Ä@Žš–„ž@‚¹‚¸‚Æ‚àA‚à‚Æ‚à‚ÆA1000s–Ú‚Ü‚ÅA‰½‚©‚µ‚ç’l‚ª‚ ‚é‚ƃ}ƒNƒ‚Í”FŽ¯‚µ‚Ä‚¢‚Ü‚·B ‚à‚µ‚©‚µ‚½‚çA”Ž®‚È‚ñ‚©‚ª“ü‚Á‚Ä‚¢‚é‚ñ‚Å‚·‚©H
”Ž®‚ª“ü‚Á‚Ä‚¢‚Ä "" ‚É‚È‚Á‚Ä‚¢‚é‚È‚ç
If Not .contains(s) Then .Add s
‚ðA‚³‚ç‚Ɉȉº‚ÉB
If Not .contains(s) And s <> "" Then .Add s
iƒÀj 2015/11/24(‰Î) 21:15
Š¿ŽšA”¼Šp/‘SŠp@‚Ђ炪‚È/ƒJƒ^ƒJƒiA‰p”•¶ŽšˆÈŠO‚ðíœ ãŽè‚ƒ\[ƒg‚Å‚«‚é‚©•s–¾ Private Sub UserForm_Initialize() Dim a() As String, n As Long, e, temp As String Dim i As Long, ii As Long With CreateObject("VBScript.RegExp") .Global = True .Pattern = "[^ˆê-êž‚Ÿ-‚ñ[ƒ@-ƒ–‚`-‚y‚-‚š‚O-‚X\w]+" For Each e In Range("h2", Range("h" & Rows.Count).End(xlUp)).Value temp = .Replace(e, "") If temp <> "" Then n = n + 1 ReDim Preserve a(1 To n): a(n) = temp End If Next End With For i = 1 To n - 1 For ii = i + 1 To n If a(i) > a(ii) Then temp = a(i): a(i) = a(ii): a(ii) = temp End If Next Next Me.ListBox1.List = a End Sub iseiyaj 2015/11/24(‰Î) 21:33
>>$H$2:$H$1000@‘S‚Ä•¶Žš–„žƒeƒXƒg‚µ‚½Œ‹‰Ê
>‚±‚̈Ӗ¡‚ª‚í‚©‚è‚Ü‚¹‚ñ $H$2:$H$1000@©‹ó”’‚𖳂‚µ‘S‚ĎЖ¼‚È‚Ç–„‚ßž‚ñ‚ŃeƒXƒg‚µ‚Ü‚µ‚½B‚Æ Œ¾‚¤‚±‚Æ‚ð•ñ‚µ‚½‚‚à‚è‚Å‚µ‚½B If Not .contains(s) And s <> "" Then .Add s ª‚ÅListBox‚Ì‚Ps–Ú‚Ì‹ó”’‚Í‚È‚‚È‚è‚Ü‚µ‚½BˆÀS‚µ‚Ü‚µ‚½B ‚à‚¤‚µƒeƒXƒg‚µ‚Ä‚Ý‚Ü‚·B
‚¿‚å‚Á‚ÆPC‚©‚ç—£‚ê‚È‚‚Ä‚Í‚È‚ç‚È‚‚È‚è‚Ü‚µ‚½‚Ì‚ÅŠm”F‚µ‚Ä‚¨‚«‚½‚¢‚Ì‚Å‚·‚ª
•Ê‚Ì—ñ‚É“¯—l‚ÉListBox•\Ž¦‚·‚éê‡i‚±‚¿‚ç‚ÍÈ—ª•¶Žš‚ª‚ ‚è‚Ü‚¹‚ñj
‚±‚Ìꇈȉº‚ÅAœ•”•ª‚ðÁ‹Ž‚·‚ê‚΂¢‚¢‚Å‚·‚©H‚킪‚Ü‚ÜŒ¾‚Á‚Ä‚·‚Ý‚Ü‚¹‚ñ
Private Sub UserForm_Initialize() Dim c As Range Dim d As Variant Dim s As String With CreateObject("System.Collections.ArrayList") For Each c In Range("H2", Range("H" & Rows.Count).End(xlUp)) s = c.Value For Each d In Range("ƒŠƒXƒg").Value@œ s = Replace(s, d, "") Next@œ .Add s Next .Sort ListBox1.List = .toarray End With End Sub
Œã‚Ù‚Ç@•ñ‚³‚¹‚Ä‚‚¾‚³‚¢B
itakaj 2015/11/24(‰Î) 21:34
>>ª‚ÅListBox‚Ì‚Ps–Ú‚Ì‹ó”’‚Í‚È‚‚È‚è‚Ü‚µ‚½BˆÀS‚µ‚Ü‚µ‚½B >>‚à‚¤‚µƒeƒXƒg‚µ‚Ä‚Ý‚Ü‚·
‚È‚ºA‚±‚¤‚È‚Á‚½‚©A——R‚Í—‰ð‚µ‚Ä‚¢‚½‚¾‚¢‚Ä‚Ü‚·‚©H
Range("H2", Range("H" & Rows.Count).End(xlUp))
ŽÐ–¼—̈æ‚Å‚·‚ªAH2 ‚©‚ç H—ñ‚̃f[ƒ^ÅIsB‚ÅA‚±‚ÌÅIs‚ª H1000 ‚É‚È‚Á‚Ä‚¢‚é‚悤‚Å‚·B ƒ}ƒNƒ‚ÍA2s–Ú‚©‚ç1000s–Ú‚Ü‚ÅAu‚¬‚Á‚µ‚è‚ƎЖ¼‚ª–„‚Ü‚Á‚Ä‚¢‚év‚Æ”FŽ¯‚µ‚Ä‚¢‚Ü‚·B ‚Å‚àŽÀÛ‚É‚ÍA‰º‚Ì‚Ù‚¤Au‹ó”’ƒZƒ‹v‚È‚ñ‚Å‚µ‚傤‚ËB‚½‚¾A‚±‚Ìu‹ó”’ƒZƒ‹v‚ªyŒ©‚©‚¯ã‚Ì‹ó”’ƒZƒ‹z –{“–‚Ìu‹ó”’v‚Å‚Í‚È‚A""(’·‚³ƒZƒ‚Ì•¶Žš—ñj‚ª“ü‚Á‚Ä‚¢‚é‚ñ‚Å‚·‚æ‚ËB ‚±‚±‚ª”Ž®‚Å‚»‚¤‚È‚Á‚Ä‚¢‚é‚Ì‚©A‚Ç‚±‚©‚©‚çƒRƒsƒy‚µ‚½Û‚ÉA‚»‚̃RƒsƒyŒ³‚ª‚»‚¤‚È‚Á‚Ä‚¢‚½‚Ì‚©‚í‚©‚è‚Ü‚¹‚ñ‚ªB
‚Å‚·‚©‚çA"" ‚Ì‚à‚̂̓ŠƒXƒg‚ɉÁ‚¦‚È‚¢‚Æ‚¢‚¤‘[’u‚ª•K—v‚¾‚Á‚½‚킯‚Å‚·B
‚Æ‚¢‚¤‚±‚Æ‚ªA‘¼‚Ì—ñ‚É‚à‚ ‚é‚È‚çA’ljÁŽ¿–â‚ɑ΂·‚é‰ñ“šˆÄ‚à‚»‚ê‚È‚è‚Ì‚à‚Ì‚É‚µ‚È‚¯‚ê‚΂¢‚¯‚Ü‚¹‚ñB ‘¼‚Ì—ñ‚Å‚Í‚»‚ñ‚È‚±‚Æ‚ª‚È‚¢‚È‚çA‚©‚ÂA•À‚Ñ‘Ö‚¦‚à•s—v‚Ȃ烊ƒXƒgƒ{ƒbƒNƒX‚É‚Í‚Ps‚Ńf[ƒ^‚ð“o˜^‚Å‚«‚Ü‚·B
iƒÀj 2015/11/24(‰Î) 23:07
Dim c As Range Dim d As Variant Dim s As String With CreateObject("System.Collections.ArrayList") For Each c In Range("D2", Range("D" & Rows.Count).End(xlUp)) s = c.Value ' For Each d In Range("ƒŠƒXƒg").Value s = Replace(s, d, "") ' Next If Not .contains(s) And s <> "" Then .Add s Next .Sort ListBox1.List = .toarray End With End Sub •À‚Ñ‘Ö‚¦Ed•¡‚̈ê–{‰»‚ÍA•K—v‚Å‚·B
®AƒÀ‚³‚ñ‚Ì‘‚©‚ê‚Ä‚¢‚é
„‘¼‚Ì—ñ‚Å‚Í‚»‚ñ‚È‚±‚Æ‚ª‚È‚¢‚È‚çA‚©‚ÂA•À‚Ñ‘Ö‚¦‚à•s—v‚Ȃ烊ƒXƒgƒ{ƒbƒNƒX‚É‚Í‚Ps‚Ńf[ƒ^‚ð“o˜^‚Å‚«‚Ü‚·B
‚±‚¿‚ç‚à¡Œã‚ÌŽQl‚É‚µ‚½‚¢‚Ì‚Å‹³‚¦‚Ä‚¢‚½‚¾‚¯‚½‚çK‚¢‚Å‚·B
‚æ‚낵‚‚¨Šè‚¢‚µ‚Ü‚·B
iseiyaj‚³‚ñ
ƒR[ƒh‚ð’ñŽ¦‚¢‚½‚¾‚«‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B
ŽÀs‚µ‚Ä‚Ý‚½‚Æ‚±‚ëAd•¡‚ª‚»‚Ì‚Ü‚Ü•\Ž¦‚³‚ê‚Ä‚µ‚Ü‚¢‚Ü‚µ‚½A‘O‚É‚à‘‚«‚Ü‚µ‚½‚ª
d•¡‚Í‚P‚‚Ƃµ‚½‚¢‚Æl‚¦‚Ä‚¢‚Ü‚·A‚Ü‚½ˆÈ‰º‚Ì•”•ª‚Ì
.Pattern = "[^ˆê-êž‚Ÿ-‚ñ[ƒ@-ƒ–‚`-‚y‚-‚š‚O-‚X\w]+" ‚Ÿ‚̶•¶Žš‚Í•¶Žš‰»‚¯‚Å‚µ‚傤‚©‚ ‚܂茩‚½‚±‚Æ‚Ì‚È‚¢•¶Žš‚Å‚·‚ª–{—ˆ‚Í‚Ç‚Ì—l‚É‹LÚ‚µ‚Ä‚ ‚é‚Ì‚Å‚µ‚傤‚©H ‚æ‚낵‚‚¨Šè‚¢‚µ‚Ü‚·B itakaj 2015/11/25(…) 00:58
>d•¡‚ª‚»‚Ì‚Ü‚Ü•\Ž¦‚³‚ê‚Ä‚µ‚Ü‚¢‚Ü‚µ‚½A
‚±‚ê‚ÅŽŽ‚µ‚Ä‚‚¾‚³‚¢B
Private Sub UserForm_Initialize() Dim e, temp As String, AL As Object Dim i As Long, ii As Long Set AL = CreateObject("System.Collections.ArrayList") With CreateObject("VBScript.RegExp") .Global = True .Pattern = "[^ˆê-êž‚Ÿ-‚ñ[ƒ@-ƒ–‚`-‚y‚-‚š‚O-‚X\w]+" For Each e In Range("h2", Range("h" & Rows.Count).End(xlUp)).Value temp = .Replace(e, "") If (temp <> "") * (Not AL.Contains(temp)) Then AL.Add temp Next End With AL.sort_2 (CreateObject("System.Collections.CaseInsensitiveComparer")) Me.ListBox1.List = AL.ToArray End Sub
> .Pattern = "[^ˆê-êž‚Ÿ-‚ñ[ƒ@-ƒ–‚`-‚y‚-‚š‚O-‚X\w]+" >‚Ÿ‚̶•¶Žš‚Í•¶Žš‰»‚¯‚Å‚µ‚傤‚©‚ ‚܂茩‚½‚±‚Æ‚Ì‚È‚¢•¶Žš‚Å‚·‚ª–{—ˆ‚Í‚Ç‚Ì—l‚É ‹LÚ‚µ‚Ä‚ ‚é‚Ì‚Å‚µ‚傤‚©H >‚æ‚낵‚‚¨Šè‚¢‚µ‚Ü‚·B
•¶Žš‰»‚¯‚Å‚Í‚ ‚è‚Ü‚¹‚ñB Š¿ŽšA”¼Šp/‘SŠp@‚Ђ炪‚È/ƒJƒ^ƒJƒiA‰p”•¶ŽšAˆÈŠO‚Ƀqƒbƒg‚·‚é‚Í‚¸‚Å‚·B
iseiyaj 2015/11/25(…) 01:17
‚Ç‚ê‚©‘«‚µˆø‚«‚µ‚È‚¢‚Æ‚¢‚¯‚Ü‚¹‚ñ‚©H
itakaj 2015/11/25(…) 01:35
.Pattern = "[^ˆê-êž‚Ÿ-‚ñ[ƒ@-ƒ–‚`-‚y‚-‚š‚O-‚X\w\uFF61-\uFF9F]+" ‚É•ÏX‚µ‚Ä‚Ý‚Ä‚‚¾‚³‚¢B iseiyaj 2015/11/25(…) 01:55
‰½“x‚à‚·‚Ý‚Ü‚¹‚ñ‚ª‚æ‚낵‚‚¨Šè‚¢‚µ‚Ü‚·B
itakaj 2015/11/25(…) 02:22
.Pattern = "[^ˆê-êž‚Ÿ-‚ñ[ƒ@-ƒ–‚`-‚y‚-‚š‚O-‚X\w\uFF61-\uFF9F]+|[Š”—L]" ‚É•ÏX‚µ‚ÄA •K—v‚Å‚ ‚ê‚Î[Š”—L]‚Ì•”•ª‚ɒljÁ‚µ‚Ä‚Ý‚Ä‚‚¾‚³‚¢B iseiyaj 2015/11/25(…) 02:35
‚±‚¿‚ç‚Ì•û‚ª‚¢‚¢‚©‚à
Private Sub UserForm_Initialize() Dim e, temp As String, AL As Object Dim i As Long, ii As Long Set AL = CreateObject("System.Collections.ArrayList") With CreateObject("VBScript.RegExp") .Global = True For Each e In Range("h2", Range("h" & Rows.Count).End(xlUp)).Value .Pattern = "[^ˆê-êž‚Ÿ-‚ñ[ƒ@-ƒ–‚`-‚y‚-‚š‚O-‚X\w\uFF61-\uFF9F]+" temp = .Replace(e, "") .Pattern = "^[Š”—L]" temp = .Replace(temp, "") If (temp <> "") * (Not AL.Contains(temp)) Then AL.Add temp Next End With AL.Sort_2 (CreateObject("System.Collections.CaseInsensitiveComparer")) Me.ListBox1.List = AL.ToArray End Sub iseiyaj 2015/11/25(…) 02:45
>>‚½‚¾uƒz[ƒ€vuƒe[ƒuƒ‹‚Æ‚µ‚Ä‘Ž®Ý’èv‚ð1000s‚Ü‚Åݒ肵Œ©ˆÕ‚¢•\‚É‚µ‚Ä‚¢‚é‚Ì‚Æ
‚Æ‚¢‚¤‚±‚Æ‚ðAʼn‚Éà–¾‚ª‚ ‚ê‚Ήñ‚蓹‚µ‚È‚‚ÄÏ‚ñ‚¾‚ñ‚Å‚·‚ªA‚¢‚¸‚ê‚É‚µ‚Ä‚àAƒe[ƒuƒ‹‰»‚³‚ê‚Ä‚¢‚ê‚Î ‚»‚¤‚È‚è‚Ü‚·‚ËB‚ÅA‘ΉžÏ‚Ý‚Ì‘[’u‚Å‚n‚j‚É‚È‚è‚Ü‚·Bi‹t‚É‚¢‚¦‚ÎA‚»‚Ì‘[’u‚ª•K—vj
‚ÅA•Ê‚Ì—ñ‘Ήž‚Å‚·‚ªA—ªÌ‚Ì휂͕K—v‚È‚¢‚ñ‚Å‚·‚æ‚ËB •K—v‚È‚Ì‚ÍA•À‚Ñ‘Ö‚¦Ed•¡‚̈ê–{‰»B
‚Æ‚·‚é‚ÆAs = Replace(s, d, "")@‚±‚ê‚à•s—v‚Å‚·B
‚ÅA‰½‚à‚µ‚È‚¢‚ÅA’Êí‚̃f[ƒ^‚ª‚ ‚é”͈͂Å@‚ ‚é—ñ‚Ì2s–Ú‚©‚çƒf[ƒ^‚ª‚ ‚éÅIs‚Ü‚Å‚Ì“à—e‚ðƒŠƒXƒg‚ɈꊇƒZƒbƒg‚·‚éꇂÍ
ListBox1.List = Range("D2", Range("D" & Rows.Count).End(xlUp)).Value
iƒÀj 2015/11/25(…) 03:59
‚Æ‚±‚ë‚ÅA‚±‚ê‚ÍŒÂl‚ÌD‚Ý‚Å‚µ‚傤‚©‚çA‚Ç‚¤‚±‚¤‚¢‚¤‚±‚Æ‚Å‚Í‚È‚¢‚©‚à‚µ‚ê‚Ü‚¹‚ñ‚ª ‚ ‚ç‚©‚¶‚ß‚P‚O‚O‚Os–Ú‚Ü‚Å‚ð‘I‚ñ‚Ńe[ƒuƒ‹‰»‚µ‚Ä‚¨‚‚±‚Æ‚ªA‚Í‚½‚µ‚Ä‚¢‚¢‚Ì‚©‚È‚Ÿ‚ÆŽv‚¢‚Ü‚·B ‚‚܂èA‚»‚Ì‚¤‚¿‚Ì‚W‚O‚Os–Ú‚Ü‚Å‚ÍŽÀÛ‚É’l‚ª“ü‚Á‚Ä‚¢‚邯‚ÇA‰º‚Ì‚Ù‚¤‚Í‚©‚ç‚Á‚ÛB ‚È‚Ì‚ÅAƒ}ƒNƒˆ—ãA"" ‚̃`ƒFƒbƒN‚ª•K—vB
Ž„‚È‚çA‚¢‚Á‚½‚ñƒe[ƒuƒ‹‚ð‰ðœ‚µ‚½ã‚ÅA‚ ‚炽‚߂ăe[ƒuƒ‹‚Ì’l‚ª‚ ‚éƒZƒ‹‚ð‘I‘ð‚µ‚Äi‚½‚Æ‚¦‚΂`‚PjÄÝ’èB ‚±‚ê‚ÅAŽÀÛ‚É’l‚ª‚ ‚é•”•ª‚¾‚¯‚ªƒe[ƒuƒ‹—̈æ‚É‚È‚è‚Ü‚·Bi‚½‚Æ‚¦‚΂W‚O‚Os–Ú‚Ü‚Åj
‚»‚¤‚·‚ê‚ÎuŒ©‚©‚¯ã‚Ì‹ó”’v‚Æ‚¢‚¤S”z‚ð‚µ‚È‚‚Ä‚à‚æ‚‚È‚è‚Ü‚·B
¡ŒãA‚W‚O‚Ps–ڂɃf[ƒ^‚ð“ü—Í‚·‚ê‚ÎŽ©“®“I‚ÉA‚»‚±‚àƒe[ƒuƒ‹—̈æ‚É‚È‚èA‘Ž®A”Ž®“™‚ªŒp³‚³‚ê‚Ü‚·‚Ì‚ÅB
iƒÀj 2015/11/25(…) 08:51
iseiyaj‚³‚ñ
‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B
.Pattern = "[^ˆê-êž‚Ÿ-‚ñ[ƒ@-ƒ–EEE
‚±‚ñ‚È‚Ì‚ ‚é‚ñ‚Å‚·‚ˉ‚ß‚ÄŒ©‚Ü‚µ‚½
VBA‚͉œ‚ª[‚¢‚Å‚·‚Ë
•×‹A•×‹‚µ‚Ü‚·B
‚±‚ê‚Å‰ðŒˆ‚Æ’v‚µ‚Ü‚·B
itakaj 2015/11/25(…) 10:36
[ ˆê——(ÅVXV‡) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.