エクセルの学校：全文検索：Hyper Estraier： EDATE

Results of 1 - 1 of about 469 for EDATE (0.000 sec.)

[[20040506114452]]: #score: 9973; @digest: b6d8d19fc01949f735f1fa6283732365; @id: 6491; @mdate: 2004-05-06T10:44:29Z; @size: 3574; @type: text/plain; #keywords: sdate (17583), myvar (15648), mydays (15117), 月□ (11917), pink (7500), トbo (4572), 型フ (3997), 数確 (3317), edate (3083), 月○ (2832), （pi (2825), 付形 (2794), myrng (2482), 月15 (2314), 月10 (2144), 付型 (1903), テキ (1895), トボ (1806), kamiya (1768), キス (1751), 定型 (1567), 日〜 (1369), 日付 (1338), textbox1 (1238), ォー (1220), ーフ (1148), 代入 (1130), ーム (1078), 確保 (1009), 要数 (1003), 横に (980), フォ (938); 『B2から横にその日付が横に並ぶように』（pink）
[初心者です・・・。フォームを作ってテキストBOXに○月○日〜○月□日と書いて実行ボタン（コマンドボタン）を押すと、エクセルの方（B2）から横にその日付が横に並ぶように表示出来るようにしたいのですができますか?教えてください。] ---- テキストボックスやコマンドボタンですと自動的にVBAで、という話になりますが、通常機能で十分対応できます。 ○月○日をB1、〜をC1、○月□日をD1へ入力するとします。つまり、B1とD1へ日付を入力するような形です。 :B2: =IF(B1,B1,"") :C2: =IF(OR(B2="",$D$1=B2),"",B2+1) C2の式を列方向へコピーして必要数確保します。 2行目の日付が入るセルの書式設定を日付にしておけば完成。（もしかしたらVBAのコードを教えてほしかったんでしょうか?） (KAMIYA) ---- 説明が不十分ですみません。それとはちょっと違うんです・・・。例えば「4月10日〜4月15日」と入れて実行をすると、エクセルの方にB1には4月10日、C1には4月11日、D1には4月12日・・・と言うふうに表示されるようにしたいのですがその方法があれば教えてほしいです。（pink） ---- そのようになっていますが? ＞エクセルの方（B2）から横にその日付が横に並ぶようにとあったので、B2からの数式入力になっています。それとも、フォームというのはシートに作成する定型フォームのようなものではなくて、「ユーザーフォーム」のことでしょうか。 (KAMIYA) ---- フォームというのは、ユーザーフォームのことです。エクセルにボタンを作り、押すとユーザーフォームが出てきてそこに「4月10日〜4月15日」と書いてボタンを押すと表示されるようにしたいのですが・・・（pink） ---- ユーザーフォームのひとつのテキストボックスへ「4月10日〜4月15日」を「手入力」ですか? あまりお勧めできませんが・・・。 Private Sub CommandButton1_Click() Dim SDate As Date Dim Edate As Date Dim MyVar As Variant Dim MyDays As Integer Dim MyRng As Range With ActiveSheet Set MyRng = .Range("B1") If MyRng.Value <> "" Then .Range(MyRng, MyRng.End(xlToRight)).ClearContents End If End With MyVar = Split(Me.TextBox1.Value, "〜") SDate = MyVar(0) Edate = MyVar(1) MyDays = Edate - SDate For i = MyRng.Column To MyDays + MyRng.Column MyRng.Offset(, i - MyRng.Column) = SDate + i - MyRng.Column Next i End Sub 全半角数字お構いなし、m月d日、m/dのどちらでも入力はOKですが、「〜」だけは固定です。入力された日付は当年の日付として認識されます。 (KAMIYA) ---- KAMIYAさん何回もすいません。では、テキストBOXを一つではなく、月で一つ、日にちで一つ、ラベルで〜、月で一つ、日にちで一つ、と言うのはできますか? （pink） ---- Dim MyVar As Variant MyVar = Split(Me.TextBox1.Value, "〜") 以上は不用。 SDate = MyVar(0) Edate = MyVar(1) この部分で、MyVar(0)、MyVar(1)の部分を、テキストボックスで入力した月日から作成した日付の文字列へ置き換えればよいのです。 (KAMIYA) ---- テキストボックスで入力した月日から作成した日付の文字列へ置き換えると言うのはどうやったらいいですか? （pink） ---- 月と日のテキストボックスの値と文字列"/"を文字列演算子&で結合して日付形式の文字列を作成し、それぞれSdate、EDateへ代入します。具体的なコントロール名までわからないので、そちらで変更する必要があるかもしれませんが、Sdate（開始日）の場合は SDate = Me.TextBox1.Value & "/" & Me.TextBox2.Value コンナ感じでしょう。もうかたっぽはこれを手本に作ってみておくんなさいまし。 Sdate、EDateはそれぞれ日付型の変数なので、日付形式の文字列代入で自動的に日付データとして代入してくれます。日付型のデータはワークシートの値として入力することでエクセル側でシリアル値に変換されます。ちなみに、年をまたぐ場合は「年」のテキストボックスも必要です。 (KAMIYA) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200405/20040506114452.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ