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

アプリケーション用のVisual Basic; すべてのMicrosoft Officeアプリケーションで使用されるVisual Basicのサブセット。問題の特定のアプリケーションのタグと一緒にこのタグを使用することを検討してください。VBAに関する良い質問には、通常、いくつかのコードが含まれており、特定の問題の解決策を求めています。ソリューション全体を求める質問(コードを教えてください/ VBAでこれを行う方法とこれを行う方法)はトピックから外れており、あまりに広範に締め切られます。

1
Outlook 2010で添付ファイルを自動的に印刷するにはどうすればよいですか?
Outlook 2010で到着時に自動的に添付ファイルを印刷しようとしています。 私はこれをインターネットで見つけました。VBAコードは Sub LSPrint(Item As Outlook.MailItem) On Error GoTo OError 'detect Temp Dim oFS As FileSystemObject Dim sTempFolder As String Set oFS = New FileSystemObject 'Temporary Folder Path sTempFolder = oFS.GetSpecialFolder(TemporaryFolder) 'creates a special temp folder cTmpFld = sTempFolder & "\OETMP" & Format(Now, "yyyymmddhhmmss") MkDir (cTmpFld) 'save & print …

2
Excelマクロは生データに基づいてレポートを生成します
私は現在、学生のスコアのレポートを作成し、各学生の終わりにパーセンテージを表示するためのマクロに取り組んでいます。 写真は一目瞭然だと思います。左側に示すような学生のデータがあり、右側にそのようなレポートが必要です。私は1人の生徒用にマクロを作成し、各生徒ごとに毎回再実行することができましたが、すべての生徒に対して一度にレポートを作成し、すべての生徒が終了したら停止する方法がわかりません。 次のコードは、新しい学生名が発生するたびに新しい行を作成するためのものです。 Dim iRow As Integer, iCol As Integer Dim oRng As Range Set oRng = Range("A4") iRow = oRng.Row iCol = oRng.Column Do ' If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then Cells(iRow + 1, iCol).EntireRow.Insert Shift:=xlDown iRow = iRow + 2 Else iRow = iRow + …

1
Excel VBA:条件が満たされた場合、処理から行全体をスキップ
みなさんこんにちは私は、Excel(現在のバージョン2010)でのVBAコーディングが比較的新しいので、組織がリリースするテーブルの小さな値を抑制する簡単なプログラムを改善しようとしています。データの形式は次のとおりです。 左端の列(通常C)には、行ラベル(例:Hospital、Home、Other、Missing Data)があります。次の列には、そのカテゴリのレコードの数があります。最後の列には、その行のパーセント値があります。 結果を報告するとき、常にセルサイズを1〜5に抑制します。ただし、「Missing Data」行のレコード数は抑制しません。 このフォーラムの他のユーザーの助けを借りて、テーブル内のすべてのn値を「<6」に置き換えるプログラムで、次のマクロを生成しました。formatステートメントの理由は、パーセンテージを抑制したくないためであり、それらは常に単一の小数点を持つ数値としてフォーマットされます。 Sub SuppressN() Dim rng As Range, cell As Range Set rng = Selection If rng Is Nothing Then Exit Sub For Each cell In rng.Cells If cell.NumberFormatLocal = "#,##0" And cell.Value >= 1 And cell.Value <= 5 Then cell.Value = "<6" Next End Sub …

1
ページの色を変更するWordマクロ
ページの背景色を変更するために、Wordマクロ(Microsoft Word Professional 10)を作成しようとしています。キーストロークを記録することから始めました-これは記録されたマクロです: --- Sub WritingLayout() ' ' WritingLayout Macro ' ActiveDocument.Background.Fill.Visible = msoTrue ActiveDocument.Background.Fill.ForeColor.RGB = RGB(0, 43, 56) ActiveDocument.Background.Fill.Solid End Sub --- このマクロは、新しいドキュメントでは機能しません。ページの背景色が設定されると、マクロが機能します。xmlファイルを見ると、私が見つけられる唯一の違いは、ページの背景が設定された後<w:displayBackgroundShape/>、settings.xmlファイルにxml要素があることです。これがマクロの失敗の原因になりますか?もしそうなら、マクロでこれをどのように設定しますか?

2
前のシートから番号+1を作成する方法
マクロを使用して同じブック内の単一のシートを複数のシートにコピーしたいのですが、その方法は知っていますが、まだ質問があります。 私は式を使用しています: Sub Button3_Click() Dim x As Integer Dim y As Integer x = InputBox("How many copies you want?") For numtimes = 1 To x ActiveWorkbook.Sheets("Sheet1").Copy _ After:=ActiveWorkbook.Sheets("Sheet1") Next End Sub 単一のシートを新しい5枚のシートにコピーするとします。シート名は次のようになります。 Sheet 1 | Sheet 1 (2) | Sheet 1 (3) | Sheet 1 (4) | Sheet 1 (5) …

2
xlsmでソースまたはワークシートを表示する方法は?
上司からxlsmファイルを受け取りました。それは気の利いた小さなプログラムとすべてです。しかし、私が探しているのは、関連するすべてのワークシート、具体的にはドロップダウンボックスが配置されている場所を確認することです。私はxlsmを実際に見たり使ったりしたことがなく、おそらく正しい質問をしていないでしょう。それは私のGoogle-Fuの失敗を説明するかもしれません。しかし、これを開いて、通常のExcel文書のように見えるようにする方法はありますか?

1
セルに一度だけ計算させる方法
N29ストリーミングデータに基づいていくつかの値を計算するセルがあります。cell Q29で条件が満たされると、計算値または最終値がcellに渡されO29、どちらのセルでも計算されなくなります。 例えば:細胞場合Q29= yは、その後O29の最後の計算に等しくはならないN29(もはや計算)、及びN290に設定する必要があり、もはや計算しません。

1
隠しファイルやフォルダにアクセスするプログラム
ファイルやフォルダを削除/作成するExcelマクロを書きたいです。これは私自身に次の質問をすることを私にもたらしました: 隠しファイル/フォルダはプログラムからどのように見られますか?また、それらは変更可能ですか? 私がカバーしたいポイント: 非表示に設定されているファイルやフォルダにアクセスできるのは、すべてのプログラムではないにしても、どれでもないプログラムです。 (一部の隠しファイルがバックアップされない可能性があると仮定して)インターンがVBAプログラミングを介してファイル/フォルダの削除を処理できるようにするのは危険ですか フォルダオプションに隠しファイルや隠しフォルダが表示されている場合(またはそれ以外に何も変わらない場合)、保護されているOSファイルも隠されていない場合、彼らはさらにコンピュータをめちゃくちゃにすることができますか?
1 windows  security  vba 

0
Word 365に欠けているマクロ
誰かがこの問題を解決できることを願っています。プレビュー版からOffice 365版にアップグレードしたところ、両方のバージョンで問題が発生しています(ただし、以前使用していたOffice 2010にはありません)。 Word文書を開こうとすると必ず警告が表示されます。 実行しようとしている機能には、マクロ言語サポートが必要なマクロまたはコンテンツが含まれています。このソフトウェアがインストールされたとき、あなた(またはあなたの管理者)はマクロまたはコントロールのためのサポートをインストールしないことを選びました。 これはExcelまたはPowerPointでは発生しません。 私は警告のアドバイスに従うことを試みました(トラストセンターに行く)、しかしこれらの警告はポップアップし続けます、そして私は私のOfficeのインストールをめちゃくちゃにしたくありません(それは標準設定を使用して行われました)。数回クリックすると表示されなくなるだけでなく、Endnote CWYW X 4についても質問されます。

1
vbaを使用して共有Excelファイルの行/列表示オプションを無効にする方法
私は共有Excelファイルを持っているので、一度に複数の人で作業する必要があります。 このファイルには、ユーザー名に基づいて特定の列を隠すマクロがいくつか含まれています。 1)ユーザー名を確認する 2)列A、B、Cを非表示にする(特定のユーザー用) 列が「制限された」ユーザーのために非表示にされたら、マウスを右クリックして「非表示」を選択することによってユーザーが列を非表示にできないようにします。マクロを使用してシートを保護/保護解除することはできません( - >共有ファイルなので、エラー1004がスローされます)。 Excelのツールバーを使ってシートを保護することもできません(シートをマクロで隠したり隠したりしても、保護されたシートは保護されません)。 要約する: 共有ファイル - >保護されていないシート(prb:ユーザーは隠し列を隠すことができます) 共有ファイル - >保護シート(prb:マクロを使用して列を隠すことはできません) だから私は考えている、私はシートを保護する必要はありません。列が非表示になったら、ユーザーがそれらを非表示にできないようにします。どのようにそれをするのかの任意のアイデア? おそらく、ユーザー制御などを無効にします。私はvbaにはあまり慣れていません。 任意のヒントや提案は大歓迎です。 ありがとうございました!
1 macros  vba 

0
このマクロを編集して結果をループすることができますか?
私は自分がその価値によって見つけたセルの左右に一つのセルを選択しようとしています。私はVBAマクロを書くのが初めてで、インターネット上で見つけたいくつかの異なる記事から次のスクリプトをハッキングしました。 Sub myselect() myCell = Application.InputBox("Find:") Dim rngFound As Range With Cells Set rngFound = .Find(What:=myCell, After:=.Cells(1, .Columns.Count), _ LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False) End With If Not rngFound Is Nothing Then For Each c In rngFound.CurrentRegion.Cells Range(c.Offset(0, -1), c.Offset(0, 1)).Select Next Else MsgBox "Search term not found!" End …

3
スプレッドシートとデータベースを比較してドキュメントを生成する
私は定期的に作成しなければならない文書の作成を合理化しようとしています。それらを完成させる方法に関する詳細な指示に関連したタスクがあります、そして、これらの各々は様々なプロジェクトにわたって再利用される特定のID番号を持っています。私はアクセスデータベースにできる限り多くのタスクIDを吸い出しました。 プロジェクトごとに、他の誰かが、アクセスできない他のデータベースから必要なタスクすべてのリストを取得し、それらを標準形式のExcelブックに入れます。プロジェクトごとに、次のことが必要です。 すべての関連タスクをID番号で引き出す タスクを完了するための手順やその他の情報が含まれている私のデータベースの標準リストと比較してください。 タスクに関する特定の情報を使用して特定のフォーマットで文書を生成する Excelでマクロを書くのは大変な作業のように思えましたが、最善の策ですが、アクセスデータベースが常にそれが属する場所と同じ場所にあることを確信できません。データベースはすべてのプロジェクトで一貫した項目なので、Accessでマクロを記述し、スプレッドシートがどこで機能するかを尋ねるダイアログを表示することを考えましたが、2つのリストを比較するためにテーブルを使用するのは単純に比較シートを生成するよりも複雑です。優れています。私はWord内でマクロを書くことを実際には考えませんでしたが、それも可能性です。 私はこの設定を作成するための最も論理的な方法を見つけようとしています。 3つの異なるオフィスプログラムを使用することはかなり複雑に思えますが、私はこれを達成するために利用可能なソフトウェアに制限があります。 Office 2007 比較を超えて インストールされている他のプログラム(追加のソフトウェアをインストールすることはできません)は、このタスクに関連性があるとは限りません。 誰もがこれをどうやって行けばよいかについて何か考えを持っていますか?

2
VBA式でのActivecellの使用
私は初心者@ VBAです。アクティブセル内の式の値を使用して、別の式(アクティブセルが合計に含まれる列の行数の上限を設定する合計)に入力します。 Activecell.valueまたはそれ以外のものを使用する必要がありますか?

0
Microsoft Excelのネットワークアクセスをブロックする
実行中のマクロがあり、Excelがフリーズしています。 基本的にはADO.DBを使用して各行に対してSQLクエリを実行する約80000行のループ ネットワークカードを無効にしても、Excelへのネットワークアクセスを無効にしてネットワーク例外をスローしてループを回避することができる他の方法はありますか。


弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.