[[20170513124703]]@wƒ}ƒNƒ‚ÌŽÀsxi‚ЂÅj@ƒy[ƒW‚ÌÅŒã‚É”ò‚Ô

[ ‰‚ß‚Ä‚Ì•û‚Ö | ˆê——(Å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 „


ThisWorkbook.Worksheets("’Ê’m•\")

‚Æ‚µ‚½‚çA‚Ç‚¤‚Å‚µ‚傤‚©B

iƒ}ƒij 2017/05/13(“y) 13:11


ƒRƒƒ“ƒg‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B
‚Ç‚±‚É“ü‚ꂽ‚ç‚æ‚¢‚Ì‚Å‚µ‚傤‚©B

i‚ЂÅj 2017/05/13(“y) 13:51


ThisWorkbook.Worksheets("’Ê’m•\").Range("ez2").Value = TextBox1.Text

‚Æ‚µ‚½‚çA‚Ç‚¤‚È‚è‚Ü‚·‚©B

iƒ}ƒij 2017/05/13(“y) 15:58


“¯‚¶‚悤‚ÈŽ¿–â
[[20150119170455]]@w•Ê‚̃GƒNƒZƒ‹ƒuƒbƒN‚ª‘I‘ð‚³‚ê‚Ä‚¢‚Ä‚àƒ†[ƒU[ƒtxi‚ç‚ç‚çj

iƒ}ƒij 2017/05/13(“y) 16:05


ƒRƒƒ“ƒg•ÔMF

[ ˆê——(ÅVXV‡) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.