黒子ブログ

コンボボックスをドロップダウン（DropDown）にしておけば、背景色（FlatStyle）のデフォルトでスタンダード（standard）ですが、書込みが出来てしまうコンボボックス（combobox）となってしまいます。

そこで、プロパティの設定で、DropDownStyle = ドロップダウンリスト（DropDownList）に設定すると、書込みは出来なくなるリストになりますが、背景色がグレーで、白にはなってくれません。

ここで、FlatStyle = Popupにすると、背景色が白になり、変更不可のドロップダウンリスト（DropDownList）が出来ます。
しかし、カーソルを当てないと枠線が出ない感覚が微妙です。

背景色がグレーよりかはマシで、ドロップダウンリストにしても、普通のドロップボックスに近づけた形にはなったかと思います。

Excel(エクセル)を開く際は「Workbook_Open()」を使用します。
その時、ブック（ファイル）のパス（アドレス）を取得して、セルに書込むと、わざわざ作業者に書いてもらう必要がなくなります。
いろいろな場面でブック（ファイル）のパス（アドレス）を取得する事が多いので、便利です。

●　行の削除（Delete文）

選択している行（Rows）を上方向（Shift:=xlUp）に削除（Delete）します。

●　行の表示・非表示（Hidden文）

7行目が非表示なので、6～8行目（Rows("6:8")）を表示EntireRow.Hidden = Falseします。
7行目を非表示にしたいので、7行目（Rows("7:7")）を非表示（EntireRow.Hidden = True）にします。

●　行のコピー（Copy文）

7行目（Rows("7:7")）をコピー（Copy）します。

●　行の貼り付け（Paste文）

8～100行目（Rows("8:100")）まで貼り付けたいので選択（Select）します。
選択した行に貼り付けします。（ActiveSheet.Paste）
※　貼り付けに関しては、[Rows("8:100").Paste]は出来ません。
セルを選択してから貼り付け文と2行必要です。

●　コピーモード解除（CutCopyMode）

コピーした後、コピーしたままの状態でコピー元のセルが点線状態になっています。
[ESC]キーでコピーモード解除できますが、親切にコピーモード解除しておいてあげましょう。
Application.CutCopyMode = False

●　セルの選択Select

セル[C8]（Range("C8")）選択（Select）
セル[C8]の場合、[Range]でもOKですが、以下も同じです。
Cells(8,"C").Slect
Cells(8,3).Select

Forを2回繰り返さなくても、変数に配列として、値を取得する方法です。
また、"&"で組み合わせる場合も、変数で行数を取得していれば、セルに合わせた形でFor文を構築できます。
なるべく構文は簡素化して、早い処理速度を実行する事が良いです。

ActiveSheet.PageSetup.PrintArea = "$A$1:$J$60"としたいのですが、

Range("B50000").End(xlUp).Rowにて、セルB50000から一番上の行番号を

取得した数字を"&"で指定しています。