vba

-1熱

1答えて

私は日常的に（古いデータを削除しながら）プレーンなデータでコピーするシートを持っています。コピーされたデータは、数式が列Fにある間、列A：Eに配置されます。列Fの数式は列Aのデータに基づいています。コピーされるデータの量は日々変化する私は、ある日にペーストする行の数に自動的に調整するVBA式が必要です。提案がありますか？おかげで、ヴィクトル

-3熱

2答えて

excel vbaを使用してフォルダ内のすべてのファイルの名前を変更

フォルダ内のすべてのファイルの名前を変更するには、アンダースコアの前に何かを置き換え、エラー時に

0熱

1答えて

Cドライブの "specialfolders（16）"からXYZフォルダへのパスを変更するにはどうすればよいですか？

以下のコードは、Outlookの[選択済み]メールの添付ファイル[]を[マイドキュメント]フォルダに保存します。 sFolderPath = objWSCript.specialfolders(16)の場所をCドライブの「新規フォルダ」フォルダに変更する方法を教えてください。 Option Explicit Sub SaveAttchFiles() Dim olMail As MailIt

0熱

2答えて

Application.Match Error 2015

私は30Kを超えるデータ行を持つスプレッドシートを持っています。それぞれのデータポイントは38です。重複した行があるかどうかを判断するために、各行に14のフィールドを連結し、データをトリムしました。これにより、349文字からなる各行のキーが作成されました。編集：キーの複製は、14個のフィールドがすべて同じ場合に発生します。視覚的な見直しから、私はすべての14のフィールドのデータがまったく同じであ

0熱

1答えて

Base64でエンコードバイトはVBA

に私は、次の問題を抱えています。これは私が試したコードです。それは動作しますが、私は期待した出力を得られませんでした。関数からの出力がある：AAB/AQatAQIBAA == しかし、私は予想：AAECAa0GAX8AAA == どのように私はVBAで、あるいは可能ということであることを行うことができますか？ Private Function encodeBase64(ByRef arrDat

-3熱

1答えて

見出しとオフセットをコピーする特定のセルをコピーする

特定の見出しを見つけて、その下の行をコピーするのにうまくいく次のコードが見つかりました。 Private Sub Search_n_CopyV2() Dim ws As Worksheet Dim rngCopy As Range, aCell As Range, bcell As Range Dim strSearch As String strSear

0熱

1答えて

Excel VBA - 隣接するワークシートのフィルタリングされた行の数に基づいてX行の列を結合する

ワークシートのフィルタリングされた範囲に基づいて行BおよびCをマージする必要があるワークシート（wsA） wsB）（どちらも同じワークブックにあります）。たとえば、データがフィルタされて4つの行（ヘッダーを含まない）だけが表示される場合、wsAでは行12、B12およびC12からB13およびC13をマージする必要があります。 B14およびC14、および最後にB15およびC15。 wsAでマージされ

0熱

1答えて

redimがタイプミスマッチエラーを防止するのはなぜですか？

私はinfosOptionsはそれで別のタイプのグローバル変数で、この単純化されたコードを持っている：それはなぜ、働くRedim optionsVecteur(3)を置く場合、私はoptionsVecteur(1) = infosOptions(j, 6)の型の不一致エラーを持っていますが、 Dim optionsVecteur As Variant For j = 0 To UBound(in

-2熱

2答えて

VBA：INPUTBOX

から値を使用して乗算が期待 Sub FindSum() Dim Euro1 As String Euro1 = InputBox("", "") ActiveCell.FormulaR1C1 = "=RC[-1]*" & Euro1.Value End Sub 、我々はこのコードの作業を取得するためにすべてのソリューションを持っていますか：このコードは、フィ

0熱

2答えて

（VBA）複数の添付ファイルを含むメールをリストに複写する

Excelシートがあります（「Sheet2」と呼ぶことにしよう）。[A]列に200の名前を付け、次の列に名前を添付しますそれに[B]する。各名前のメールアドレスを持つ別のシート（ "Sheet1"）があります。重要！ - >このSheet1リストは、200の名前を持つ最初のリストよりも長いです。シート「Sheet2」（列[A]）に重複したエントリがありますが、添付ファイルが異なるようです。私