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

38037 / 76732

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


	y43839zRe:ƒŠƒXƒg‚©‚ç‘I‚ñ‚Å•Ê‚ÌƒZƒ‹‚É“]‹L‚·‚é•û–@B

Jaka - 06/10/26(–Ø) 17:13 -


	ˆø—p‚È‚µ

	ƒpƒXƒ[ƒh

Š¨ˆá‚¢‚µ‚Ä‚Ü‚µ‚½B
VLookup‚ÌŽQÆ”ÍˆÍ‚Í“K“–‚É’¼‚µ‚Ä‚ËB
Sheet1ƒ`ƒFƒ“ƒWƒCƒxƒ“ƒgŽg—p

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KK As Variant
If Target.Column <> 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub

KK = Application.VLookup(Target.Value, Sheets("Sheet1").Range("A1:B20"), 2, 0)
If Target.Value = "" Then
@ Target.Offset(, 1).Value = ""
ElseIf Not IsError(KK) Then
@ Target.Offset(, 1).Value = KK
Else
@ Target.Offset(, 1).Value = [na()]
End If
End Sub

0 hits

y43830zƒŠƒXƒg‚©‚ç‘I‚ñ‚Å•Ê‚ÌƒZƒ‹‚É“]‹L‚·‚é•û–@B kouka 06/10/26(–Ø) 14:07