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

「-2147012889」というエラーでマクロが止まる

…先日、「そのドメインがSSL化してるかどうかをマクロで調べる」という、質問をさせていただきました。そこで書いていただいたマクロは、順調に動いていました。 '// Sub TestSSLChecker2...…

VB.NETで素因数分解のプログラムを作成する

…２以上の整数が与えられたとき、それを素数の積に分解するプログラムを作成したいのです。例えば、TextBox1に24と打ち込んで、Button1をクリックすると、TextBox2に2×2×2×3が表示されるといっ...…

エクセルでセルに文字が入力されたらマクロを実行

…前回どなたかが質問されて回答を見せてもらったら私のやりたいことと同じだったので実行してみましたが出来なかったのでもう一度質問をさせてください。１．実行したのですが、なに...…

[Excel VBA] 複数のサブフォルダにある特定の拡張子のファイルを全て開くには？

…題名の通りですが、詳しく書くと↓ ＜やりたいこと＞自ブック(マクロを実行する本体)と同じ場所に複数のサブフォルダがあり、サブフォルダの中にはいくつかの .xlsx ファイルが存在する...…

ExcelのVBAで禁則文字を判別したい

…ExcelのVBAについて質問があります。例えばセルA1に　(株)　という文字が含まれていた場合、禁則文字が使用されたとしてアラートを表示させたいと考えています。 If Worksheets("Sheet1").cells(1,...…

Do Until rs1.EOF　であるレコードをスキップしたい

…ＡＣＣＥＳＳ２００７のＶＢについて教えて下さい。テーブルをオープンし RecordSetとして、rs1、に読み込まれてきます。あるフィールド、廃油計がゼロのときは、そのレコードに対し ...…

VBAでファイルを消したい

…こんばんわ！ VBAでエクセルファイルをバックアップしながら使用しているのですが、１０個以上ファイルが溜まったら一番古いものを消したいです。途中まではできているのですが、古い...…

VBA/Worksheet_Changeがうまくいかない

…エクセル2000です。以下のワークシートチェンジイベントがうまくいきません。 Targetに値が入る場合は問題ないのですが、TargetをクリアしてもRange("F5").MergeAreaがクリアされません。 Targetを...…

ExcelVBAコードについて

…=COUNTIF(祝日管理!$E$2:$L$25, $A6) 上記のような条件付き書式が設定してあります。祭日で稼働日があると塗りつぶしなしをしたいと思い、VBAコードで Sub 塗りつぶし削除マクロ() Dim rng As...…

…エクセル　VBAにて If MasterData(masteridx, 14).Borders(xlDiagonalUp).LineStyle.xlContinuous = Value Then wb.Sheets(Seisannippou & CStr(SHeetNumber)).Range("T12").Borders(xlDiagonalUp).LineStyle = xlContinuous Else wb.Sheets(S...…

ExcelVBAで、キーボード方向キーを押したら、その方向に塗りつぶし

…ExcelVBAで、キーボード方向キーを押したら、その方向に塗りつぶしたセルを移動させたいです。とりあえず、以下のようなマクロを組んだのですが、方向キーを一度でも押すと、押した方...…

適当な1語をお願いします(仮定法)

…If I ()you,I () accept the offer. 私があなたなら、その申し出を受け入れるだろう It it had not rained yesterday. we()()taken a walk in the park. 昨日雨が降っていなければ、公園で散歩することができたのに ()you ...…

マクロ　特定のシート以外を削除する

…いつも回答して頂きありがとうございます。特定のシート以外を削除するマクロを作成して動作させたのですが、削除する時に『選択したシートにデータが存在する可能性が・・・』と聞い...…

EXCEL VBA 転記　条件分岐　新規転記　上書転記　プログラム

…いつも御世話になっております。以下のことをしたいのですが、詰まってしまいました。皆様の力をお借りしたいと思い、書き込ませていただきます。・ボタン１をクリックすると、...…

VBA マクロ　エラー1004　アプリケーション定義またはオブジェクト定義のエラー

…VBAで正当表と入力表の正誤判定を一気に行いたいのですが If Cells(a, b).Value = Cells(c, d).Value Thenの部分でエラー1004、アプリケーション定義またはオブジェクト定義のエラーと出てしまいます...…

UBoundに配列がありませんとエラーがでます

…以下のコードを実行すると、UBoundに配列がありませんというエラーがでます。どこが間違っているのか教えてください。よろしくお願いします。 strLine(i)には以下のような漢字でデータが...…

EXCEL→CSV形式で別ファイルに保存

…EXCELデータ内のある１つのシートのデータをそのまま別ファイル(CSV)に保存したいのですがうまくいかないので教えてください。本を見ながらこのようなマクロを作ったところ、EXCEL(○○.xls...…

誕生日まであと何日か数えるプログラム

…誕生日まであと何日か数えるプログラムを作りたいのですが、わかりません。 Sub test() Dim NextBirthday As Date If もう今年の誕生日が来てるなら Then NextBirthday = Year(Date) + 1 & "/12/16" elseif まだ今年...…

エクセル（ＶＢＡ）でファイル名（サブフォルダ含む）、更新日時を表示させたい

…エクセルのＶＢＡであるフォルダ以下の全てのファイル名と更新時間をエクセルシート上に表示させたく、以下のプログラムを作成したのですが、サブフォルダ内のファイルを表示させるこ...…

If…もしも