Visual Basic

vbaにて質問ですIf Range("D4").Value >= 1 Then Worksheets("ケース配り用シール").Range("A4:B4").PrintOut Copies:=Range("C4").Value, Collate:=False この作業を４の部分を1ずつ増やして400回程度繰り返したいのですが 式を教えてはいただけないでしょうか？

ExcelのVBAを独学で勉強しているのですが、分からない部分があります。以下のバブルソートの昇順プログラムを実行すると、ソート計算のIf文の所で”実行エラー9”(プログラム部分に←←エラー部分と書いてあります)が出てしまいます。原因を教えて頂きたいです。 ↓↓プラグラム '二次元配列_縦のバブルソート Sub TATE_SORT2...

再度VBAのプログラムを教えてください。 【やりたいこと】 下記①～④は下記のプログラムで出来上がっています。 ①1つのエクセルで2つのシート（Aシート、Bシート）があります。②条件として。両シートの2の項目が一致すればBシートからAシートにコピペする。 ※代入はAシートのデータの横にBシートのデータをコピペ ③代入...

VBAの質問です。 画像のような表で、やりたいことがありまして表の個数と金額は紐づいていて修正セルに差引する数字を入れて個数差、金額差を無くし最終的には最終目標個数と最終目標金額と一致するように計算させたいです。その中で現在個数の中にはマイナスになっているものがあるのでそれもプラスになるように修正し...

Excelでプログラムのコードを入力した最後の行に何も入力してないし 何も押してないのに Private Sub UserForm_Click() End Sub と出ていてBack speceで消してから 実行を押してまた、Visual Basicを 押してコードを開くとまた Private Sub UserForm_Click() End Sub とコードの最後にでしまいます。 これはどうしたら...

VBAに詳しい方教えてください。VBAでcsvファイルを開き、特定の文字列のある行を削除する方法はどのようにすれば良いでしょうか？ あああ いいい ううう えええ 上記の記載のあるcsvのうち、ううう だけ削除したいです。よろしくお願いします。 csvファイル開くところとかは不要です。

VBA 配列 ループ処理で変数に値を格納 複数のセルの値を変数にループ処理で配列に格納する方法をご教授頂けないでしょうか。格納する数が少数で決まっている場合は、下記のコードで可能なのですが、 画像のようになっている場合ですとこのやり方では不便すぎます。 For文で出来るかと思うのですが、上手い事出来ま...