Excel VBAŽ¿–â” IV

“–Ž¿–â” ‚ÍA—LŽu‚Ìƒ{ƒ‰ƒ“ƒeƒBƒA¸_‚Ì‚¨‚©‚°‚Å¬‚è—§‚Á‚Ä‚¢‚Ü‚·B
–â‘è‚ª‰ðŒˆ‚µ‚½‚çA•K‚¸‚¨—ç‚ð‚µ‚Ü‚µ‚å‚¤‚ËB
–{ƒTƒCƒg‚ÌŠî–{•ûj‚ð‚Ü‚Æ‚ß‚Ü‚µ‚½B‚±‚¿‚ç ‚ð‚²ˆê“Ç‚‚¾‚³‚¢B

“ŠeŽí•Ê‚Ì‘I‘ð‚ª•K—v‚Å‚·B‚²’ˆÓ‚‚¾‚³‚¢B
–À˜f“Še–hŽ~‚Ì‚½‚ßAURL‚Ì“ü—Í‚ð§ŒÀ‚µ‚Ä‚¢‚Ü‚·B‚²—¹³‚‚¾‚³‚¢B


	V‹K“Še „«ƒcƒŠ[•\Ž¦ „«ˆê——•\Ž¦ „«ƒgƒsƒbƒN•\Ž¦ „«ŒŸõ „«Ý’è „«‰ß‹ŽƒƒO „«ƒz[ƒ€

43317 / 76732

©ŽŸ‚Ö@b@‘O‚Ö¨


	y38465zRe:ƒI[ƒgƒtƒBƒ‹ƒ^‚Åi‚èž‚ñ‚¾ƒf[ƒ^‚Å...

kobasan - 06/6/3(“y) 15:49 -


	ˆø—p‚È‚µ

	ƒpƒXƒ[ƒh

¡“ú‚ÍB

>ƒNƒƒXWŒv‚Å‚Í‚È‚
>kein‚³‚ñ‚©‚ç‚¢‚½‚¾‚¢‚½‚æ‚¤‚Éˆêƒ–ŒŽ•ª‚¾‚¯‚ðsheet2‚ÉWŒv‚³‚¹‚ÄƒJƒƒ‰ƒ{ƒ^ƒ“‚Åsheet1‚Ì‚Ps–Ú‚É•\Ž¦‚³‚¹‚½‚¢‚í‚¯‚Å‚·B

ƒI[ƒgƒtƒBƒ‹ƒ^‚ÍŽg‚Á‚Ä‚¢‚Ü‚¹‚ñ‚ªA‚±‚ê‚Å‚Ç‚¤‚Å‚·‚©B

sheet2‚Ö•\Ž¦‚·‚é‚æ‚¤‚É‚µ‚Ü‚µ‚½B
sheet1‚Ì‚Ps–Ú‚Í€–Ús‚Å‚·B

Sub test()
Dim dic As Object
Dim rngA As Range, r As Range
Dim dkey As String, m As String
Dim v, vnt, outvnt
@@'
@@m = InputBox("’Šo‚·‚éŒŽ‚ð“ü—Í", "1`12‚ð“ü—Í", 5)
@@Set rngA = ActiveSheet.Range("A2", Range("A65536").End(xlUp))
@@Set dic = CreateObject("Scripting.Dictionary")
@@vnt = Array("ŒŽ", "Žó•t", "“K‡", "•s”õ")
@@For Each v In vnt
@@@@dic(m & v) = Empty
@@Next
@@dic(m & "ŒŽ") = m & "ŒŽ"
@@'
@@For Each r In rngA.Cells
@@@@dkey = Split(r.Text, "/")(0) & r.Offset(, 3).Text
@@@@dic(dkey) = dic(dkey) + 1@@'WŒv
@@Next
@@'
@@With Sheets("Sheet2")
@@@@.Cells.Clear
@@@@.Range("A1").Resize(4).Value _
@@@@@@@@@@@@= Application.Transpose(vnt)
@@@@.Range("B1").Resize(4).Value _
@@@@@@@@@@@@= Application.Transpose(dic.items)
@@@@.Select
@@End With
@@'
@@Set r = Nothing
@@Set dic = Nothing
@@Set rngA = Nothing
End Sub

3 hits

y38421zƒI[ƒgƒtƒBƒ‹ƒ^‚Åi‚èž‚ñ‚¾ƒf[ƒ^‚ÅA“Á... EBI 06/6/2(‹à) 11:25