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[ƒ€

5806 / 76735

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


	y76536zRe:ƒR[ƒh‚ð’Z‚‚µ‚½‚¢

‚ä[‚ - 14/12/29(ŒŽ) 11:30 -


	ˆø—p‚È‚µ

	ƒpƒXƒ[ƒh

¥ƒÀ ‚³‚ñF

SampleC‚ðŽg‚Á‚Ä‚Ì‰ü—Ç‚à‚µ‚Ä‚Ý‚Ü‚µ‚½B
‚à‚Á‚Æ‘‚‚È‚Á‚½‹C‚ª‚µ‚Ü‚·II

@@j = 6
@@For x = 1 To 46 Step 5
@@Windows(exiWB).Activate
@@Worksheets("Sheet3").Activate
@@Sheets("Sheet3").Cells(ActiveCell.Row, x).Resize(, 4).Select
@@Selection.Copy
@@Windows(NewWB).Activate
@@Sheets("ƒf[ƒ^’Šo").Range("B" & j).Resize(, 4).Select
@@Selection.PasteSpecial Paste:=xlValues
@@Windows(exiWB).Activate
@@Worksheets("Sheet3").Activate
@@Sheets("Sheet3").Cells(ActiveCell.Row, x + 4).Select
@@Selection.Copy
@@Windows(NewWB).Activate
@@Sheets("ƒf[ƒ^’Šo").Range("H" & j).Select
@@Selection.PasteSpecial Paste:=xlValues
@@j = j + 5
@@Next

0 hits

y76525zƒR[ƒh‚ð’Z‚‚µ‚½‚¢ ‚ä[‚ 14/12/26(‹à) 15:42