TERN の回答履歴

全5件中1~5件表示
  • シート挿入の最高値のインデックスの数値

    vbaで新シートを挿入しては作業後シートを削除するプログラムを組んでいて 現在は(Sheet1082)までインデックスが付いています。 これは最高いくつまでのインデックスが付くのでしょうか? Sheet10000くらいまでいくのでしょうか?

  • 【VBA】指定月のオートフィルタを作るには?

    当方Excel2003です。 あるブックの中にシートが一つ(シート名はsheet1)あり、そのシートの中にはB2セルを起点とするデータリストがあります。 (データリストの列はB列→名前、C列→金額、D列→日付とし、日付の表示はyyyy/mm/dd、行は約400行ほどあります。) 現在、データリストのD列にマクロのオートフィルターを使用し、任意の年月の月始めから月末までのデータを抽出しようとして、以下の構文を作成中なのですが、 datStart = DateSerial("i", "j", 1) の部分でエラーが出てしまい、「型が一致しません」と表示されてしまいます。 どういうふうに変更したら良いのか、またそもそも全体の構成がおかしい等の問題点があればその解決策をどなたかご教示いただければ幸いです。 よろしくお願いいたします。 Sub 指定月抽出() Dim i, j As Integer Dim datStart As Date Dim datEnd As Date Dim strSDate As String Dim strEDate As String i = Application.InputBox("年を入力してください。", Type:=1) j = Application.InputBox("月を入力してください。", Type:=1) If i = False Or j = False Then Exit Sub Application.ScreenUpdating = False Application.DisplayAlerts = False If Worksheets("sheet1").AutoFilterMode Then Worksheets("sheet1").AutoFilterMode = False End If datStart = DateSerial("i", "j", 1) datEnd = DateAdd("m", 1, datStart) strSDate = ">=" & Format(datStart, "yyyy/m/d") strEDate = ">=" & Format(datEnd, "yyyy/m/d") With ThisWorkbook.Worksheets("DATA") .Range("B2:D" & Range("D65532").End(xlUp).Row).Select .AutoFilter Field:=3, _ Criteria1:=strSDate, _ Operator:=xlAnd, _ Criteria2:=strEDate End With Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

  • Excel2007でのマクロの設定について

    Excelのマクロについて質問です。 Excel2007でマクロを設定したいのですが以下の作業はマクロ化出来ますか? 1.特定の文字列を含む行の削除   例:(D11に特定の文字列があった場合、11行を全て削除する) 2.特定の文字列を含む行のうち、一部セルの変更   例:(A列に日付、B列に名前、C列に金額がある場合、B列を検索して該当した名前の列の日付のみ既存の日付の前日にする)   また、これは同時に複数の検索が出来ますか? ご回答お待ちしております。

  • Excel2007でのマクロの設定について

    Excelのマクロについて質問です。 Excel2007でマクロを設定したいのですが以下の作業はマクロ化出来ますか? 1.特定の文字列を含む行の削除   例:(D11に特定の文字列があった場合、11行を全て削除する) 2.特定の文字列を含む行のうち、一部セルの変更   例:(A列に日付、B列に名前、C列に金額がある場合、B列を検索して該当した名前の列の日付のみ既存の日付の前日にする)   また、これは同時に複数の検索が出来ますか? ご回答お待ちしております。

  • Excel2007でのマクロの設定について

    Excelのマクロについて質問です。 Excel2007でマクロを設定したいのですが以下の作業はマクロ化出来ますか? 1.特定の文字列を含む行の削除   例:(D11に特定の文字列があった場合、11行を全て削除する) 2.特定の文字列を含む行のうち、一部セルの変更   例:(A列に日付、B列に名前、C列に金額がある場合、B列を検索して該当した名前の列の日付のみ既存の日付の前日にする)   また、これは同時に複数の検索が出来ますか? ご回答お待ちしております。