実行時エラー438 - オブジェクトがこのプロパティまたはメソッドをサポートしていません。 先週、すべてうまくいきましたが、今週はエラーのポップアップが表示されています。また 、私はコードを掲示していますが はあなたによって解決 Sub ProcessFiles() Dim Filename, Pathname As String
Dim wb As Workbook
Pa
ボタンに割り当てられてクリックされたコードは、私のために.datファイルを開きます。 ただし、これは別のブックにファイルを開き、同じブックのSheet2に表示されるように開くことができます。 私のコードは次のとおりです。 Sub Open_Workbook()
Dim my_FileName As Variant
my_FileName = Application.GetO
をすべての日付を変換していない私が持っている問題があることである新しい列への値を分割し、日付 Dim StartString As String
Dim DateValue As String
Dim y As Integer
Dim LastRow2 As Long
With Sheets("DataSheet")
LastRow2 = .Cells(.Rows.Count, "L"
マクロでコードを作成しようとしているプロセスがあります。範囲内のすべての行については ： 私は、行の非空のセルを選択しようとしています。 これらのセルの最小値はn_1です。 与えられた乗算係数aは、最小値で始まる等間隔番号の配列（空でない行と同じ長さ）、つまり（n_k = (a^k)*n_1）を作成します。 これらの線に沿って何か Dim a As Range, b As Range, numbe
Excelファイル内の複数のリンクテーブルを含むWordファイルがあります。ただし、リンクを更新すると、ファイル内のテーブルはテーブルの書式設定を保持しません。 Wordで手動で手作業で行うと、書式はそのまま残ります。 私は次のコードでプログラム的にそれをやろう： using Word = Microsoft.Office.Interop.Word;
public void LaunchWor
Excelブックは、すべて同じ構造の複数のシートで構成されています。私は、列238に「はい」と記載されているすべてのデータをまとめワークシートに統合したいと考えています。理想的には、この基準が満たされている完全な行ではなく、特定の列のみをコピーします。 私は基礎としてこのコードを持っている： Sub CopyRangeFromMultiWorksheets()
Dim sh As Workshe