autofilter

    1

    1答えて

    VBAでリンク検索機能を構築し、指定した検索フィールドにデータを入力した後に自動更新する必要があります。私は、コードの次のセクションで正常にこれを行うことができました:これはである - : - Sub FilterTo1Criteria() With Sheet3 If Range("A3") <> vbNullString Then .AutoFilterMode = F

    0

    1答えて

    オートフィルタに関する別の質問で、私はボバホブによって大いに助けられました。しかし、私は少し複雑にする必要があります。次のコードを使用すると、ユーザーはExcelの小さなデータシートを検索して自動フィルタリングできます。それは素晴らしく働いています(もう一度bobajob!ありがとう!)が、私は日付検索機能を追加して少し複雑にする必要があります。このファイルは一部の製品に関連しており、日付は製造日

    0

    1答えて

    私はVBAを新しくしていますので、私と一緒に裸にしてください。私は、同じブック内の別のシートへのハイパーリンクをたどり、そのシートをハイパーリンクに関連付けられた値でフィルタリングするコードを持っています。最初にVBAプロセスの外部にハイパーリンクを作成することに注意してください。これは私がそれをやった方法です: a)のVisual Basicを開き、[開発]タブの下 b)はあなたにマクロを追加し

    1

    1答えて

    VBAでオンラインで解決できない自動フィルタを作成するときに問題が発生します。 条件(>数値)に基づいてデータテーブルを自動フィルタリングしようとしています。しかし、私は自分のコードを実行したとき、私はVBAが追加の条件に追加されていることがわかります「(ブランク)で始まる」「X」 ActiveSheet.AutoFilterMode = False rng.AutoFilter Field:=

    1

    1答えて

    私はここ数日間、これに対する答えを探しましたが、クエリのすべての側面を参照するものは見つかりませんでした。私はここの誰かが私を助けることができる/正しい方向に私を指すことを望んでいる! 基本的には、1つのブック内の2つの異なるシートに1対多の関係を含むストアリストと顧客リスト(各顧客が訪問したストアを持つ)があります。これはあるものの Private Sub Worksheet_Selection

    0

    1答えて

    私はこのVBAを書いています。しかし、大部分の値は自分自身で何度も繰り返されています。以下のコードをループに変換できるかどうかは疑問です。確かにこれは何らかの方法で最適化することができますが、特に "オートフィルタ"が1つの "フィールド"を持つことができるかどうかを確認するのは苦労しています。何か案が? With Sheets(7) .AutoFilterMode = False

    0

    1答えて

    私は以下の私が手にマクロを記録する場合: Range("A2:Z74").AutoFilter ActiveSheet.Range("$A$2:$Z$74").AutoFilter Field:=2, Criteria1:="<>" をしかし、私はこのマクロを実行すると、私はエラーが 1004 This can't be applied to the selected range. Sele

    0

    1答えて

    私はExcelでオートフィルタテーブルを持っています。特定の条件に基づいて貼り付け値をコピーする必要があり、特定の列のすべての表示セルでこれを実行する必要があります。私はコードを書いていますが、うまくいきますが、唯一のことは、多くの行があるので時間がかかることです。誰もが時間をスラッシュする方法を助けてくださいできますか?ここにコードがあります。ありがとう! Sub TrialAnotherOne

    0

    1答えて

    1つのシートの3つの列から別の行の1つの列にデータを移動しようとしています(このデータを取得するためにフィルタリングする必要があります)。ソースシートからフィルターをかけて、宛先シートにプラグインできるすべてのインシデントを取り出す必要があります。 フィルタリングされたデータに問題があります。私は変数(ソーター)を作成しようとしています、その変数でフィルターをかけて、ソーター変数を取得した行の宛先

    0

    1答えて

    私のコードはオートフィルタをリフレッシュしていません。 i = 8の場合、コードは機能しますが、次にiには自動フィルタフィールドは更新されません。 "no_filtered_rows"は0行を示します(存在する必要があります)。 For i = 8 To ostD accounts() = Split(Worksheets("k").Range("B" & i).Value, ",") Fo