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

65118 / 76732

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


	y16189zRe:Žw’èŽæÁƒ{ƒ^ƒ“‚Å¤•iƒ}ƒCƒiƒX•\Ž¦I

Asaki - 04/7/20(‰Î) 16:37 -


	ˆø—p‚È‚µ

	ƒpƒXƒ[ƒh

‚¿‚å‚Á‚ÆAŽÀÛ‚Ì‘€ì‚ª—Ç‚•ª‚©‚è‚Ü‚¹‚ñ‚Ì‚ÅA
ƒ{ƒ^ƒ“‚ð‰Ÿ‚·‚ÆAActiveCell‚Ìƒf[ƒ^‚ðƒ}ƒCƒiƒX
‚·‚é‚æ‚¤‚É‚µ‚Ä‚Ý‚Ü‚µ‚½B
‚È‚¨Aƒf[ƒ^‚ÍA—ñ‚É€–Ú–¼AB—ñ‚É”Žš‚Å1s–Ú‚©‚ç“ü‚Á‚Ä‚¢‚é‚Æ‚µ‚Ü‚·B

Private Sub CommandButton1_Click()
@@If Intersect(ActiveCell, Columns("A:B")) Is Nothing Then Exit Sub
@@If ActiveCell.Value = "" Then Exit Sub
@@Cells(65536, 1).End(xlUp).Offset(1).Resize(, 2).Value _
@@@@= Array(ActiveCell.EntireRow.Cells(1).Value, _
@@@@-1 * ActiveCell.EntireRow.Cells(2).Value)
End Sub

0 hits

y16178zŽw’èŽæÁƒ{ƒ^ƒ“‚Å¤•iƒ}ƒCƒiƒX•\Ž¦I ‚¢‚µ 04/7/20(‰Î) 12:35