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

11276 / 76807

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


	y71071zRe:if‚Ì®—

Hirofumi - 12/1/27(‹à) 20:37 -


	ˆø—p‚È‚µ

	ƒpƒXƒ[ƒh

Œ‹‡ƒZƒ‹‚Ì‹ï‡‚Æƒ`ƒFƒbƒN‚ª‚ÉŠ‚ð‚Ç‚¤‹l‚ß‚é‚©‚ª¡ˆê‰ð‚è‚Ü‚¹‚ñ‚ªH
‚±‚ñ‚È‚Ì‚Å‚ÍH

Private Sub CommandButton1_Click()

@@Dim i As Long
@@Dim j As Long
@@Dim lngRow As Long
@@Dim lngColumn As Long
@@Dim s As Long
@@
@@s = 1
@@
@@For i = 1 To 17
@@@@If Me.Controls("CheckBox" & i) Then
@@@@@@lngColumn = (j Mod 4) * 8
@@@@@@lngRow = (j \ 4) * 2
@@@@@@ActiveSheet.Cells(s, 6 + i - 1).Copy _
@@@@@@@@@@Worksheets("Sheet2").Cells(6 + lngRow, _
@@@@@@@@@@@@@@@@3 + lngColumn).Resize(2, 7)
@@@@@@j = j + 1
@@@@End If
@@Next i
@@@@@@
End Sub

1 hits

y71061zif‚Ì®— ¸Ø¼Ì§° 12/1/27(‹à) 14:11