Excel VBA質問スレ Part12

38 名前：デフォルトの名無しさん [2009/07/18(土) 20:26:48 ] >>37 いい人ですね、ありがとうございます。無い頭使って下記のようになりました。 textbox1に日付を入力します。 sheet4のi列に月、j列に日を抜き出してc列に日付を入力するように対応しました。 テキストボックスに入力した月から12月までをシートに書き出したいんですが、、、 d = MsgBox("入力しますか？", vbYesNo,) If d = vbYes Then 　　y = TextBox1.Value i = DatePart("m", y) m = DatePart("d", y) j = 11 - i With Worksheets("sheet4") .Range("f65536").End(xlUp).Offset(0, 3) = i .Range("f65536").End(xlUp).Offset(0, 4) = m .Range("c65536").End(xlUp).Offset(1, 0) = i & "月" & m & "日" End With For k = h To j q = Worksheets("sheet4").Range("i65536").End(xlUp) With Worksheets("sheet4") .Range("f65536").End(xlUp).Offset(0, 3) = q + 1 .Range("f65536").End(xlUp).Offset(0, 4) = m .Range("c65536").End(xlUp).Offset(1, 0) = q + 1 & "月" & m & "日" End With Next Else ユーザーフォームは必須です。 他にいい方法があればお願いします。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef