タグ付けされた質問 「vba」

いくつかのセルからコンテンツをクリアするVBAコードがあります。これらのセルのほとんどにはデータ検証があるため、オプションのリスト（yes、no、NA）から値を選択する必要があり、残りはすべてのタイプのデータに対して開いています。 コードを初めて実行するためのボタンをクリックすると、次のエラーが表示されます（[終了]をクリックしても、ボタンをクリックしてもエラーは表示されません）。 私は他の質問をチェックし、問題をグーグルで調べました。異なるタイプの値を追加することと関係があるようですが、私は内容をクリアするだけなので、これは問題ではないはずです。 これが私のコードです。エラーは最初のクリアコンテンツで発生します（セルC5：D5の行8）： Sub ReiniciarRef() ' ' ReiniciarRef Macro ' ' Range("C5:D5").Select Selection.ClearContents Range("C7").Select Selection.ClearContents Range("C9:G10").Select Selection.ClearContents Range("C13:G13").Select Selection.ClearContents Range("C16:G16").Select Selection.ClearContents Range("C18").Select Selection.ClearContents Range("C23:D23").Select Selection.ClearContents Range("C25").Select Selection.ClearContents Range("C27:G28").Select Selection.ClearContents Range("C31:G31").Select Selection.ClearContents Range("C34:G34").Select Selection.ClearContents Range("C36").Select Selection.ClearContents Range("C41:D41").Select Selection.ClearContents Range("C43").Select Selection.ClearContents Range("C45:G46").Select Selection.ClearContents Range("C49:G49").Select Selection.ClearContents Range("C52:G52").Select Selection.ClearContents Range("C54").Select Selection.ClearContents Range("C59:D59").Select Selection.ClearContents …

-1 microsoft-excel  vba  microsoft-excel-2013  macros 

関連する質問はこちら 長さの異なる2列があります。 以下のDo Whileループでは、 Do While main.Offset(i, 0).Value <> "" Or main.Offset(i, 1).Value <> "" ORを使用すると、大量の無関係なデータ（sheet2の名前/タグと一致しないなど）が生成されるため、ANDに変更すると、両方の列が同じ行で終わる場合にのみ完全に動作します。（重複はありますが、今は私の主な関心事ではありませんでした） Do While main.Offset(i, 0).Value <> "" And main.Offset(i, 1).Value <> "" しかし、論理演算子「And」を使用すると、途中で停止します（列の1つが他の列より短い場合。ある列が別の列より短い場合でも、データを取得する方法について専門家に光を当てることはできますか？ 両方のステートメントの間に括弧を追加するか、列の1つを別のシートに配置するか、入れ子になったdo whileループを作成しようとしましたが、データは同じままです。以下のコードも試してみましたが、sheet2の "Ken、summer、wendy"のような無関係なデータがすべて表示されます。 Do While (main.Offset(i, 0).Value <> "" And main.Offset(i, 1).Value <> "") Or (main.Offset(i, 0).Value <> "" And main.Offset(i, 1).Value …

-1 microsoft-excel  worksheet-function  vba 

Wordのマクロが突然無効になる理由がわかりません。テンプレートの場所と私のドキュメントを信頼できる場所として配置すること、すべてのマクロを有効にすることなど、すべてを試しました。まだ実行されません。どんな助けも大歓迎です。ありがとう 今朝は順調だった。その後、normal.dotmテンプレートにいくつかの新しいマクロを作成しました。後でドキュメントで実行してみましたが、無効になっていると表示されました。

-1 microsoft-word  vba  macros 

こんにちは私は列の一意の値に基づいて新しいワークシートを作成することができました。これに加えて、列の値を合計して、この合計を対応する各ワークシートのファイル名に含めます。 このワークブックのファイル名に、列Dの値の合計をFilename_Sum（D）.xlsの形式で追加します。 これが私がしたことです、私が必要とするすべては列I2の合計をすることです：私は、合計を文字列に変換してファイル名（列Aの値）に含める 'Copy/paste the visible data to the new workbook My_Range.SpecialCells(xlCellTypeVisible).Copy With WSNew.Range("A1") ' Paste:=8 will copy the columnwidth in Excel 2000 and higher ' Remove this line if you use Excel 97 .PasteSpecial Paste:=8 .PasteSpecial xlPasteValues .PasteSpecial xlPasteFormats Application.CutCopyMode = False .Select End With mySum = Application.WorksheetFunction.Sum(Columns("I2:I1024")) 'Save …

-2 windows  microsoft-excel  microsoft-excel-2007  vba  macros 

この質問は次のものとまったく同じです： データが別のセルに入力されたときにセルに自動入力するには今日の日付が必要 3つの回答 これは私のコードです。これ=Updating_Date(B5)をC5で入力すると、日付が 入力されます。B5にデータが存在する場合のみ日付を入力し、データが存在しない場合は日付を削除することを想定しています。現在、何に関係なく日付が表示されます。列Bにデータが存在するときに日付のみを表示するように条件を記述する必要があります。 以下は、別のユーザーのおかげ=Updating_Date(B5)で、C5で入力したモジュールに入力したものです。 Function Updating_Date(dependent_cell as Range) As Date Updating_Date = Date End Function この場合も、データが列Bにあるかどうかに関係なく、日付が表示されます。 ありがとう。

-2 microsoft-excel  vba  date-time  auto-form-fill 

Private Sub ListBox1_Click() Application.ScreenUpdating = False Dim Filepath As String Filepath = Worksheets("Postavke").Range("B1").Value & "\" & ListBox1.Value Call load(Filepath) Worksheets("Radni Ekran").Activate If ListBox1.Value Like "*DELTA*" Then With ActiveSheet.ChartObjects("Chart 3").Chart ' Value (Y) Axis With .Axes(xlValue) .MaximumScale = 0.3 .MinimumScale = -0.3 End With End With Sheets("Radni Ekran").Range("C41").Value = 0 Sheets("Radni …

-4 microsoft-excel  vba 

これをVBAに変換する方法この式を使用すると、6行のみがカバーされ、式はすでに長すぎます。私のレポートは600行あります。 =IF(AND('Risk & Issue Log'!$K$2=$D5,'Risk & Issue Log'!$L$2=F$8,OR('Risk & Issue Log'!$F$2="Open",'Risk & Issue Log'!$F$2="In-progress")),'Risk & Issue Log'!$D$2," ")&IF(AND('Risk & Issue Log'!$K$3=$D5,'Risk & Issue Log'!$L$3=F$8,OR('Risk & Issue Log'!$F$3="Open",'Risk & Issue Log'!$F$3="In-progress")),'Risk & Issue Log'!$D$3," ")&IF(AND('Risk & Issue Log'!$K$4=$D5,'Risk & Issue Log'!$L$4=F$8,OR('Risk & Issue Log'!$F$4="Open",'Risk & Issue Log'!$F$4="In-progress")),'Risk & Issue Log'!$D$4," ")&IF(AND('Risk …

-6 microsoft-excel  vba  macros