2016-07-05 6 views
0

初めて、私は何か間違ったことをやっている場合は申し訳ありませんExcelのマクロ、dd.mm日、ここ1

私はExcelのマクロを知ったと私は彼らが私をたくさん助けになると思うが、私はしませんよ本当にプログラミングおよびすべてのこのようなもの

に私はいくつかのマクロを行なったし、少なくともない私にとっては、私はあなたが私に

を助けることを願って、私はすでにたくさんのを試してみました、それは本当に簡単でしたが、この1つはではありませんNumberFormatやFormat(...)のようなものだが、うまく動作しなかった。

Wh私が欲しいのは、次のとおりです。

私はこのように[F6](フォーマットさdd.mm)セル内の特定の日付で文書をエクセル取得:今

それは常に(月の初日)01だ、「01.08」私はその日付を取るマクロが必要です。マクロを使用するたびに、私は現在選択しているセル(ActiveCell)に次の日を貼り付けます。

初めてマクロを使用すると私が選択した現在のセルに "02.08"を貼り付けたい

次回は "03.08"などを使用します。

あなたが私を理解して助けてくれることを願っています。

+1

使用 'DateAdd':' DateAdd関数( "D"、1、DATEVALUE(レンジ( "F6")バリュー)) '「 "d" は日、1の略で一日とDATEVALUE(範囲です( "F6")Value)は、1日追加する日付を取得します(もちろん "F6"を変更する必要があります) – gizlmo

+0

http://analysistabs.com/excel-vba/write-data-to-worksheet DATEADDを使用することもできます。 –

答えて

0

これを試してください。ブックを閉じるとiが0にリセットされることに注意してください。セッション間にiを保存する場合は、セルに書き込んでからそのセルを参照する必要があります。
セルF6は、日付として適切にフォーマットする必要があります。

Dim i As Long 

Sub next_day() 
    i = i + 1 
    Selection = Range("F6").Value + i 
    Selection.NumberFormat = "dd.mm" 
End Sub