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

40965 / 76732

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


	y40855zRe:ƒvƒƒOƒŒƒXƒo[‚É‚Â‚¢‚Ä

Jaka - 06/7/25(‰Î) 11:48 -


	ˆø—p‚È‚µ

	ƒpƒXƒ[ƒh

—á‚¦‚Î‚¾‚¯‚ÇA
“¯‚¶‘å‚«‚³‚Ìƒ‰ƒxƒ‹‚ð‚Q–‡d‚Ë‚Ä‚¨‚B
‰º‚Ìƒ‰ƒxƒ‹‚ÌF‚ð”’‚É‚µALabel1‚Æ‚·‚éB
ã‚Ìƒ‰ƒxƒ‹‚ÌF‚ðÂ‚É‚µALabel2‚Æ‚·‚éB

Private Sub UserForm_Initialize()
@@Call prgb(0)
End Sub

Private Sub CommandButton1_Click()
@@ˆ—1
@@Call prgb(0.25)
@@ˆ—2
@@Call prgb(0.5)
@@ˆ—3
@@Call prgb(0.75)
@@ˆ—4
@@Call prgb(1)
End Sub

Private Sub prgb(NN As Single)
@@If NN = 0 Then
@@@ wd = NN
@@Else
@@@ wd = Label1.Width * NN
@@End If
@@Label2.Width = wd
End Sub

Sub ˆ—1()
MsgBox "ˆ—1"
End Sub

Sub ˆ—2()
MsgBox "ˆ—2"
End Sub

Sub ˆ—3()
MsgBox "ˆ—3"
End Sub

Sub ˆ—4()
MsgBox "ˆ—4"
End Sub

1 hits

y40850zƒvƒƒOƒŒƒXƒo[‚É‚Â‚¢‚Ä ‚m‚`‚m‚` 06/7/25(‰Î) 10:48