vba

    1

    2答えて

    私はマクロを初めて使用しているため、以下のヘルプが必要です。 私は上記のような値を持っています。私はリンゴやオレンジなどの総数を数えたいと思う。 私は最初のカウントする配列とループでそれらを分割し、それらを格納する必要があることを理解 リンゴ= 15バナナ= 17のマンゴー= 15オレンジ= 13メロン= 7 以下のように私は別のシートに最終結果が欲しいですそれら。しかし、私はそれを行う方法がわか

    -2

    1答えて

    データベースとMS-Accessを初めて使用しています。これは簡単かもしれませんが、 。 あなたは75 を入力するテキストボックスそれは、どこかに書かれた番号20と書かれた番号15で1ページと3ページのレポートページを作成する必要がありますあなたは20時とフォームでのセット数の制限を考えてみましょう。 20は、助けてくださいされて1ページに最大で、ページ間で数75を組み合わせることで、エンド 。

    0

    2答えて

    これを行うためにマクロを記録し、マクロコードをコピーして、それを必要に応じて調整しました。しかし、私の問題は、新しいワークシートに貼り付けたときにソースの書式設定が保持されないということです。私は何のステップを逃したのですか?それはSelection.PasteSpecialの権利と関係があるはずですか?以下は、非稼働構文 Selection.AutoFilter ActiveSheet.Lis

    0

    2答えて

    Goodafternoonすべて、現在、「記録マクロ」機能が作業を行いますが、私はそれを再実行しようとすると、それは私に1004エラーが発生しますVBAの問題を、直面 。 私は三つのことを行うことができることを思い出し: スプリット部分における式まで、次の式では、次の部分を参照してください(つまり、第2部= ABC + DEF + GHIを、その式は123 + 3456 +です____を置き換えて

    0

    2答えて

    Excelで数値を入力する必要がありますが、セントフォームを "xx/100"にする必要があります Ex。 3,258.63 =「三千二百五十八百100分の63 ONLY」 今の私のマクロ機能は OPTION EXPLICIT 'MAIN FUNCTION '=SPELLNUMBER(95) SUB TEST() MSGBOX SPELLNUMBER(95) END S

    0

    1答えて

    このコードを使用して、範囲の最後の列(AA)内の特定のセルがワークシート内の別の場所で指定された変数と等しいK2)。 コードでは、Shift: xlUpを使用してそのデータを削除し、残りのデータを上位にシフトします。 このすべては、条件が真になるまで一度に1行ずつ行われます。 唯一の問題は、これが非常に遅く実行されることです.25〜30行のデータが削除されても、一度に1つずつです。私はそれをスピー

    0

    2答えて

    編集:これは同じ質問ですが、私はそれを書き直したので、読みやすくなっています。 私は既にこのポストを試してみました:How to call python script on excel vba? そして、このポスト:Run and execute a python script from VBA そして、このポスト:How can I call python program from VBA? し

    0

    2答えて

    My Excelスプレッドシートは、共有フォルダを介して機能します。私はベースファイルから他のファイルへの接続を作成しました。たとえば、得意先ファイルは、この情報を取得して更新する必要がある他のいくつかの伝票に関連付けられています。問題は、セカンダリファイルが開いているときに、[読み取り専用]で開くのでベースファイルで作業できないということです。接続プロパティを試してみて、外部データ参照が更新され

    3

    1答えて

    VBAスクリプトでIFステートメントを作成しようとしています。最終的に達成したいのは、IFステートメントの実行を前提として、1つのシート(「データベース」)から別のシート(「検索」)にコンテンツをコピーすることです。 スクリプトは、「検索」シートのセル「E5」および「E7」のユーザー入力に依存する変数(「国」、「カテゴリ」)を定義することから始まります。また、その行まで実行するIf文の最終行を定義

    0

    1答えて

    は、私のようなコードがあることを知っている: With ActiveDocument.Sections(i).Footers(wdHeaderFooterPrimary).Range .Text = myFooterValue1 .ParagraphFormat.Alignment = wdAlignPageNumberLeft .Font.Size = 10 'si