Results of 1 - 1 of about 13158 for 日付 (0.003 sec.)
- [[20100906235929]]
- #score: 2423
- @digest: eda2d694df7c20d5de72313408f6a3e3
- @id: 51200
- @mdate: 2010-09-07T02:01:26Z
- @size: 2396
- @type: text/plain
- #keywords: gdate (27066), 力要 (8558), 付以 (5621), 力", (4842), 拒否 (3472), vbboolean (3450), 換可 (3071), 付入 (2855), vartype (2704), 付指 (2522), typename (2256), inputbox (1932), 刷枚 (1877), 要求 (1835), 定") (1449), 数指 (1341), 日付 (1338), 非教 (1209), 謝致 (1077), 達人 (1063), selectedsheets (940), ンセ (906), displayalerts (869), isdate (851), boolean (827), ichinose (826), 以外 (787), キャ (758), い", (713), application (700), date (688), variant (667)
- 『マクロについて』（rika）
はじめてお世話になります。 ある表があり、A2へ日付を入力する時にinputboxを使いたいのですが、日付以外でも入力ができてしまい困っています。回避するにはどうすればよいのでしょうか。下記になります。 Dim i As Long Dim k As Variant On Error Resume Next Application.DisplayAlerts = False k = Application.InputBox("日付を入力して下さい", "日付入力", " yyyy / m / d") If VarType(k) = vbBoolean Then Exit Sub '日付以外の入力を拒否したい Range("A2").Value = k i = Application.InputBox("「1枚」で全ページが印刷されます", "印刷枚数指定") If i = False Then Exit Sub ActiveWindow.SelectedSheets.PrintOut copies:=i Application.DisplayAlerts = True マクロはまだ初心者なので達人の方々に是非教えてもらいたいと思います。 それ以外の部分は作動はするので私としてはいいのかなと思っていますが、修正すべき点があれば教えて下さい。 ---- Sub test() Dim dd As Variant dd = get_date If TypeName(dd) <> "Boolean" Then MsgBox Format(dd, "yyyy/m/d") Else MsgBox "キャンセルが押された" End If End Sub Function get_date() As Variant Dim gdate As Variant get_date = False gdate = 0 Do Until TypeName(gdate) = "Boolean" gdate = Application.InputBox("日付を入力して下さい", "日付入力", , , , , , 2) If TypeName(gdate) <> "Boolean" Then If IsDate(gdate) Then get_date = CDate(gdate) Exit Do Else MsgBox "日付指定が間違っています" End If End If Loop End Function この程度でいかがですか? このget_date関数は、日付の入力要求を行い、日付に変換可能な文字列は、 日付として返します（Date型）。キャンセルでFalseを返します。 (それ以外は、エラーメッセージを出し、再入力要求） よって、平成22年9月7日 もOKと判断しますけど・・・。 ichinose ichinose様 ありがとうございます。 ただ、私には難しくて…すみません。 できれば最初に書いたマクロをいかして、日付以外の入力をできないようにしたいのですが教えていただけないでしょうか。 ---- Do k = Application.InputBox("日付を入力して下さい", "日付入力", " yyyy / m / d") If VarType(k) = vbBoolean Then Exit Sub '日付以外の入力を拒否したい If IsDate(k) Then Range("A2").Value = k Exit Do End If Loop BJ BJ様 ありがとうございました。 求めていた形にできました。本当に感謝致します。... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201009/20100906235929.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97038 documents and 608037 words.
訪問者：