-1

私は営業所で働いており、現在、すべての販売見積もりの​​ハード コピーを使用して、アルファベット順にファイルしています。すべてをより効率的にするために、見積もり書類の Excel バージョンを作成しました。残念ながら、私たちはオフィスのコンピュータ スキルのすべての人に自信があるわけではないので、できるだけユーザー フレンドリーにする必要があります。

Excelシートをネットワーク上の指定されたパスに保存し、指定されたセル範囲のセルコンテンツとしてコピーの名前を変更するvbaを介してコマンドボタンを使用する必要があります(可能な場合)。

基本的に、すべての見積もりについて、可能であればシートのコピーを「Doe.John.06.01.2013」として保存したいと考えています。昨日まで vba が存在することを知りませんでした。それは素晴らしいと思いますが、内なるオタクは喜びで飛び上がりましたが、私はコード NOOB です。ここで誰かが私を助けることができれば、私は永遠に感謝します:)

4

1 に答える 1

2

Excel のマクロ レコーダーに慣れることをお勧めします。基本的に、アクションを VBA に記録できます。これは、特定のアクションを実行するために使用するコードを学習する優れた方法です。たとえば、私はこれを記録しました：

ActiveWorkbook.SaveAs Filename:="C:\Users\Nemmy\Documents\Book2.xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

そのコードを取得して、ボタンをクリックするだけで実行できるようにするのは、かなり簡単なことです。次のようなものを使用して、いくつかのセル値からファイル名を取得するように変更できます。

    Dim sPath as string
    sPath=ActiveSheet.Range("A1").Value & ActiveSheet.Range("A2").Value & ".xlsx"
    ActiveWorkbook.SaveAs Filename:=sPath, _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

セル A1 には見積もりディレクトリへのベース パスが含まれ、セル A2 にはファイルの名前が含まれます。

于 2013-06-02T04:42:08.940 に答える