[ ‰‚ß‚Ä‚Ì•û‚Ö | ˆê——(ÅVXV‡) | ‘S•¶ŒŸõ | ‰ß‹ŽƒƒO ]
@
wƒ}ƒNƒ‚ÌŽÀsxi‚ЂÅj
This workbook‚Å
Private Sub Workbook_Open() If Date >= DateValue(Worksheets("’Ê’m•\").Range("c1").Value + 1 & "/3/31") Then MsgBox "—LŒøŠúŒÀ‚ªØ‚ê‚Ü‚µ‚½B§ìŽÒ‚ɘA—‚µ‚Ä‚‚¾‚³‚¢" Me.Close False End If end sub
‚Æ‚¢‚¤ƒ}ƒNƒ‚ðŽÀs‚³‚¹‚Ä‚¢‚Ü‚·B
Sub auto_open()
Worksheets("’Ê’m•\").Select
UserForm1.Show
Private Sub OKButton1_Click()
'ƒeƒLƒXƒgƒ{ƒbƒNƒX‚Ì“à—e‚ðƒZƒ‹‚É“ü—Í
Worksheets("’Ê’m•\").Range("ez2").Value = TextBox1.Text
UserForm1.Hide
End Sub
‚Å‚d‚y‚Q‚É•¶Žš‚ðƒtƒH[ƒ€‚É‚Ä“ü—Í‚³‚¹‚Ä‚¢‚é‚Ì‚Å‚·‚ªC
‘¼‚̃uƒbƒN‚ðŠJ‚¢‚Ä‚¢‚½‚è‚·‚é‚ÆC’Ê’m•\ƒV[ƒg‚ªƒAƒNƒeƒBƒu‚É‚È‚Á‚Ä‚¢‚È‚¢‚½‚߃Gƒ‰[‚ª‹N‚±‚è‚Ü‚·B
‚±‚̃†[ƒU[ƒtƒH[ƒ€‚ª‹N“®‚·‚é‚Æ‚«‚É•K‚¸’Ê’m•\ƒV[ƒg‚ðˆê”Ôã‚É•\Ž¦‚³‚¹‚Ä‚¨‚‚É‚Í‚Ç‚¤‚µ‚½‚ç‚æ‚¢‚Ì‚Å‚µ‚傤‚©B
ƒAƒNƒeƒBƒu‚âƒZƒŒƒNƒg‚È‚Ì‚Å‚µ‚傤‚ªC‚¤‚Ü‚‚¢‚«‚Ü‚¹‚ñB
‹³‚¦‚Ä‚‚¾‚³‚¢B
ƒ Žg—p ExcelFExcel2013AŽg—p OSFWindows10 „
‚Æ‚µ‚½‚çA‚Ç‚¤‚Å‚µ‚傤‚©B
iƒ}ƒij 2017/05/13(“y) 13:11
i‚ЂÅj 2017/05/13(“y) 13:51
‚Æ‚µ‚½‚çA‚Ç‚¤‚È‚è‚Ü‚·‚©B
iƒ}ƒij 2017/05/13(“y) 15:58
iƒ}ƒij 2017/05/13(“y) 16:05
[ ˆê——(ÅVXV‡) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.