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

52447 / 76807

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


	y29199zRe:ƒ[ƒNƒV[ƒgŠÔ‚ÌŒŸõWŒv

toki - 05/9/27(‰Î) 14:21 -


	ˆø—p‚È‚µ

	ƒpƒXƒ[ƒh

¥ponpon ‚³‚ñF
ponpon‚³‚ñ‚±‚ñ‚É‚¿‚ÍB

Œ‹‹ÇA‚±‚Ì‚â‚è•û‚ª‚à‚Á‚Æ‚àƒVƒ“ƒvƒ‹‚Å‚µ‚½B
”ÍˆÍ‚ð .Range("D7", .Range("N65536")).SpecialCells(xlCellTypeVisible)
‚É‚·‚é‚±‚Æ‚ÅAƒGƒ‰[‚ào‚È‚‚È‚è‚Ü‚µ‚½B

‚±‚Ì•û–@‚Å‚¢‚«‚½‚¢‚ÆŽv‚¢‚Ü‚·B
‚ ‚è‚ª‚Æ‚¤‚²‚´‚¢‚Ü‚µ‚½B

Private Sub ƒf[ƒ^ƒNƒŠƒAƒ{ƒ^ƒ“_Click()
@@
@@Dim myDR As Range
@@Dim daTa As Variant
@@Dim daTagyo As Variant
@@Dim ans As Integer
@
@@Application.DisplayAlerts = False
@@ans = MsgBox("‘SŽÐˆõ‚Ì“¾“_ƒf[ƒ^‚ðˆêŠ‡íœ‚µ‚Ü‚·B–{“–‚Éíœ‚µ‚Ü‚·‚©H", vbYesNo + vbExclamation, "ƒI[ƒ‹ƒNƒŠƒA")
@
@@Select Case ans
@@@@Case vbYes
@@@@MsgBox "‘SŽÐˆõ‚Ì“¾“_ƒf[ƒ^‚ðíœ‚µ‚Ü‚·B", vbInformation, "ƒI[ƒ‹ƒNƒŠƒA"
@@@@
@@'****************************************
@@'ŠeŒŽƒV[ƒg‚©‚ç“¾“_ƒf[ƒ^—Ìˆæ‚ðíœ
@@'****************************************
@@For i = 1 To 12
@@With Worksheets(i & "ŒŽ")
@@
@@@@'ƒf[ƒ^—Ìˆæ‚Í7s–ÚˆÈ~‚ÌŠes‚c—ñ`‚m—ñB‚±‚Ì”ÍˆÍ‚ðŽw’è
@@@@Set myDR = .Range("D7", .Range("N65536")).SpecialCells(xlCellTypeVisible)
@@@@@myDR.ClearContents
@@@@End With
@@Next
@@
@@@@Case vbNo
@
@@End Select
@@Application.DisplayAlerts = True
End Sub

1 hits

y28969zƒ[ƒNƒV[ƒgŠÔ‚ÌŒŸõWŒv toki 05/9/19(ŒŽ) 23:13