수다닷컴

안녕하세요. vb를 요새 자주 접하면서 힘들어하고 있는데 장마까지...ㅠ,.ㅜ이전에 질문에 대해서 it수다님이(sheogus)님의 도움으로 한발 앞으로 갈수 있었는데, 다시 멈추게 되어서 다시한번 도움을 요청하게 되었습니다.아래 코드를 입력을 하였는데요, 아래 그림의 붉은 박스에서만 날짜가 입력이 되고 있네요. 그래서 마지막 날짜만 입력이 보여요...예) 2020.03.31한칸에만 나오는 것이 아니라 아래로 쭉 날짜가 1~31까지 모두 나와야 되거든요...ㅠ,.ㅜ예) 2013.03.01 2013.03.02 . . 2013.03.31도움이 정말 필요합니다. [코드]ss- 위에 엑셀같은 도구datplan_yymm.text - 연월 입력 받는 도구 내용ss_plan_yymmdd - 연월일 정보가 있어야 되는 곳 (??) : 이건 설명이 좀 어렵네요. ^^*private sub cmdproc_click()
dim ii as integerselect case mid(datplan_yymm.text, 6, 2)
case 01, 03, 05, 07, 08, 10, 12
for ii = 1 to 31
ss.settext ss_plan_yymmdd, ii, datplan_yymm.text & . & ii
next ii
case 02
select case cint(mid(datplan_yymm.text, 1, 4)) / 4
case 0
for ii = 1 to 29
ss.settext ss_plan_yymmdd, ii, datplan_yymm.text & . & ii
next ii
case else
for ii = 1 to 28
ss.settext ss_plan_yymmdd, ii, datplan_yymm.text & . & ii
next ii
end select
case else
for ii = 1 to 30
ss.settext ss_plan_yymmdd, ii, datplan_yymm.text & . & ii
next ii
end select지금까지 읽어주셔서 감사합니다. ( __)

신청하기