Visual Basic

VBA初心者です。教えてください。以下の場合、変数を使って作成するにはどうすればいいのでしょうか。１行づつ作っていくには時間もかかるので、短くしたいです。Range("A3:A42").SortKey1:=Range("A1"),Order1:=xlDescendingRange("B3:B42").SortKey1:=Range("B1"),Order1:=xlDescendingRange("C3:D42").SortKey1:=Range("C1"),Order1:=xlDescending等間隔で範囲が移動します。もうひとつも同じようなことですが、こちらは移動範囲が４列づつ、参照...

こんばんは。どうしても解決できないので質問させてください。勤怠表があり、勤務パターンを選択したら始業時間と就業時間が自動で入力されるようにしています。もし早出や残業の場合は開始時間や終了時間を手動で変更できるようにしています。全てセルをcase文で指定して、PrivateSubWorksheet_Change(ByValTargetAsRange)を使用して表示しています。定時時間は表から取得するため問題なく表示できるのですが、手動で始業時間や就業時間を変更した場合に早出時間、残業時間、合計実働時間の表示が時間をまたいだ場合にうまくいきません。開始も終了も、日付は1日しか持っていません。...

エクセルのVBAマクロでお助けください！以前こちらの知恵袋でC列に”コメント評価”or”満足度評価"の文字列がある場合、列ごと非表示にするコードを教えていただいたのですが------------------------------------------------------------------DimrAsLongForr=1ToRange("C"&Rows.Count).End(xlUp).RowIf(Range("C"&r).Value="コメント評価")Or(Range("C"&r).Value="満足度評価")ThenRows(r).Hidden=TrueNext-----...

エクセルVBAのマクロの質問です。おわかりになられる方いらっしゃましたら、お教えくださいませ・・・。行いたい内容は"C:\kakou-mae"フォルダにあるブックに対し、ブックごとにある全シートを"C:\base.xlsm"というファイルに貼り付けて"C:\kakou-ato"に、元のファイル名でxlsmとpdfで保存する。これをフォルダにあるブック全てに行いたいです。ただコピー先の"C:\base.xlsm"にはコピー元の"C:\kakou-mae"のブックと同名のシートが既にあり、同名のシートがあった場合は上書きで保存させたいのです。同名のシートがない場合はそのままコピーをしたいです...

エクセルのマクロを作ってみました。マクロを実行してみたところ、「実行時エラー1004。Rangeメソッドは失敗しました。Globalオブジェクト」というメッセージが表示されました。デバッグのボタンを押すと、Range(”テーブル7[[#Headers],[162]]").Activateの行が黄色になっています。VBAは全く詳しくないのでこれが何を表しているのか、そしてエラーを出さないようにする方法を教えてください。因みに、マクロを実行した結果（多分ですけど）正しく実行されているような気がします。コードは長すぎて5000文字以上の文字数オーバーをしてしまうのでここに書ききれません。どうぞ...

アクセスvbaに詳しい方、ご回答よろしくお願い致します。エクセルのテーブルからデータを取得して、INSERTでSQLServerにレコード単位で移行しようとしています。その際のエクセルのインポートについて、ご教授ください。1.DoCmd.TransferSpreadsheetでインポートし、レコードセットに入れる2.DAOでリンク接続し、レコードセットに入れる3.エクセルを開き、2次元配列に入れる上記のどれが一般的な処理でしょうか？メリット・デメリットもあればご教示頂けますと幸いです。アクセスは不慣れなため、よろしくお願い致します。

VBAの繰り返しのループは、ForNextに比べて入門者には使い勝手がよくないのですか?入門書の2冊ともに、ループによる繰り返しの解説は載っていなかったです。