vba

1熱

1答えて

質問TimeQueryという名前のクエリがあります。私はMsgBoxがすべて表示されるようにします[開始_時間]値[ID] = 1、2など... 私は問題があります。私が使用するとき： a = DLookup("Hour([start_hour])", "TimeQuery", "[id]=1") をそれが良い動作しますが、使用は[ID]は=カウンタそれを示していないとき。私はそのループのあと

0熱

1答えて

VBA - Excelで範囲メソッドが正しい行を選択していない

私はVBAの範囲内で交互に行を色分けしていました。問題は、Rangeメソッドが適切な範囲を選択しないようで、隣接するセルの色付けを終了するということです。これは私が実際に得るものである、しかし：これは私の所望の出力であるこれは私が作成したコードです： Sub limpar_aniversariantes() Worksheets("Aniversariantes").Range("B

0熱

2答えて

VBAウェブサイトからデータを取得するマクロを自動的に実行

APIを使用してウェブサイトからデータを取得して現在の価格を取得するマクロを作成しました。私はこれを10分ごとに自動的に実行して、生きている価格の大まかなアイデアを得たいと言っています。私は、次を使用してこれを行うにしようとしている： Sub Test() Application.OnTime Now + TimeValue("00:10:00"), "MyMacro" End Su

-2熱

1答えて

htmlテーブル行の3番目の要素を取得するVBA

私は個人的なプロジェクトに取り組んでいます。ここで私はいくつかの情報をウェブサイトから取得しています。ウェブサイトには表があります。私は各行をループする方法を知っています。各行について、第1列と第4列の内容と情報を比較したいのですが、両方ともテーブルの情報と一致する場合、その行の5列目の内容をmyこれを行う方法はありません。これは、表htmlの各行の外観です。ここで <tr class="pl

0熱

2答えて

Excel VBA Web Scrape - getElementsbyTagName.Item番号は一定ではありません

私は、以下のVBAコードを使用して郡、母集団、および中央値をWebスクレープしようとしました。これは動作しますが、次の問題が発生しています：以下のブロック引用符で囲まれた項目番号が異なります。つまり、特定の郵便番号では、誤ったデータポイントを取得します。私は、可変項目番号について調査しましたが、近づくだけの場合は、クラス名で要素を拾い出し、collectionを取得しています。しかし、私が働いて

0熱

2答えて

VBAのiループ関数で「型の不一致」コンパイラエラーが発生する

以下のループ関数でコンパイルエラー「型の不一致」が発生します。私はマスターワークシート内で複数のワークシートを結合しようとしており、それらを介してループ機能を持つのに役立ちます。どんな助けもありがとう。おかげで、最初の行にも Public Sub combine2() Dim i As Worksheet For i = 1 To Worksheet.Count

0熱

1答えて

のVBA COUNTIF

ではなく、メッセージボックスの、私は、「F5（から値『PL』をカウントする必要があります（」 Sub Test() Dim wSheet As Worksheet Dim myempid As Variant For Each wSheet In Worksheets Select Case (wSheet.Name) Case "Jan", "Feb",

-3熱

2答えて

Excel VBA別のシートの特定の部分または範囲にセルデータを転送します

私はvbaについて少し知っていますが、これをvbaを使用して実現したいと思います。特殊なケースで、シートから別のシートにデータを転送しています。このような状況を考える：B10 D2：E10 G2：私はこれらの範囲 A4を持っている別のシートでをH10 私のデータは、こののようなものです AXX | Contact no. AXX | Address AXX | Name AXX | S

0熱

2答えて

エクセルVBA：プログラムは、ステータスバーが更新された場合には時間がかかる

IクラスClientの100 000オブジェクトを作成するプログラムは、各Client異なる乱数を割り当てるたびに100回を配列に入れますし、その配列を経由する必要がありメインサブ： Sub start() Dim i As Long Dim j As Long Dim clientsColl() As Client ReDim clientsColl(