［If…もしも］についての検索結果(約10000件中 41〜60件を表示)

VBAマクロ非表示が遅いので早くしたい

…マクロを利用して各シートの行を非表示にしたいです。下記のようにマクロを書いたのですが、実行すると１分ほどかかってしまいます。マクロ初心者のため、どうしたら早く処理できる...…

エクセルのマクロについて教えてください。

…下記のマクロは先日教えて頂いたマクロで、マクロを実行すると指定セル値に該当するサブフォルダ名がマクロ設定ブックと同じフォルダ内に移動できます。このマクロを下記の内容に変...…

VBAのエラーでNextに対するForがありません。（最後のNext i のところで）

…下記のプログラムを実行すると表題のエラーが出ます。コード上、何かおかしいでしょうか。 Sub kintaiC() Dim i As Long, j As Long, lastRow As Long Dim mycol As Long, endT As Long Dim wScriptHost As Object Dim Fi...…

エクセルマクロ　特定の文字列を含む行のみを残す　（マクロ修正）

…以下のマクロは、EXCEL２００３で「特定の文字列が含まれている列を削除する」動作をするマクロです Sub Macro1() Const col As String = "A"　'文字列が入力されている列 Dim idx As Long Dim keyWord ke...…

「一定の時間間隔で5秒毎にMacro1を実行する」

…「一定の時間間隔で5秒毎にMacro1を実行する」一応startマクロ、stopマクロは作成してみたのですが、下記stopコマンド実行しても止まらなかったような気がします。ここから改変するとした...…

Target.Address　に変数を

…早速ですが　変数を　使いたいのですが endrh = Cells(20000, 1).End(xlUp).Row 　If Target.Address = "$L$" & endrh & "'" Then　エラーは帰えさないのですが　＝が動きません　＜＞　は反応します。ＶＢ的...…

VBSでXMLを読込、検索結果をテキスト出力

…VBSのソースについてご教授下さい。【作りたい機能】 XMLファイルを読み込み、任意のエレメントを検索するスクリプトを VBSで作成しようとしています。【状況】ダイアログで表示させる...…

Excel VBA　処理後データが重たくなる&処理スピードが遅いのを解決したい

…以前にも質問しそこで回答を頂いた者です。 ■VBAで実施したかったこと一つのExcelファイルでマクロを実行すると、その並列に並んでいるExcelファイルの中の欄外を一括削除するツール...…

Excel VBA じゃんけん

…じゃんけんのプログラミングを作っているのですが、今できているじゃんけんのプログラムの追加機能として得点式のゲームにしたいと思っています。ルールとしては、１０回じゃんけん...…

VBA ユーザーフォーム上のチェックボックスの合計を別シートに標示させるには？

…フォーム上にあるチェックボックスのチェック数を合計し、その数を別シートに標示するにはどうしたら良いのでしょうか。教えてください。 Private Sub count_CheckBox() Dim i As Long For i...…

もしも

…もしも高速道路とかの渋滞でバイクが隙間すり抜けしてるときに倒れて車にぶつかったらドッチが悪くなりますか？…

【VBScript】ファイル存在確認

…VBScriptのプログラムについて、質問させてください。以下のコードで、テキストファイルから任意の文字列を抽出し、必要に応じて変換し、別名のテキストファイルを作成しています...…

[Excel VBA] フォルダ内の複数のパスワード付ブックを全て読み取り専用で開くには？

…質問タイトルの通りですが、詳しく書くと↓ ＜やりたいこと＞あるExcelファイル(Aとする)でマクロを有効にした時に、自動で、Aと同じフォルダにある複数のパスワード付ブックを読み取...…

VBAのエラーについて、”実行時エラー４２４オブジェクトが必要です”

…gooで初めて質問します、VBAのエラーについて。エクセルのシートにActiveXのチェックボックスを挿入しマクロを作ろうと試みています。VBAの知識がないので、サンプルをダウンロードし...…

Application.EnableEvents = False のやり方

…Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column 13 And Target.Column 14 Then Exit Sub If IsDate(Cells(Target.Row, 13).Text) And IsDate(Cells(Target.Row, 14).Text) Then Application.EnableEvents = False If Cells(Target.Row,...…

ACCESSでNumLockがONの時データが反映

…ACCESS2010でNumLockがONの時、取得したデータが反映されません。他のＰＣでは同様の問題は発生せず、１台だけ起きています。原因を探そうとデバックモードで実行すると上記の不具合は発...…

2011/06/09 18:31
Windows 7
回答数(1)

If…もしも