Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

31961 / 76734

←次へ　｜　前へ→


	【50014】Re:AutoFitができません。

Lindy - 07/7/3(火) 16:26 -


	引用なし

	パスワード

▼かずおさん：一応、コードの説明を書いてみます。今後の為にもヘルプなどで確認してください >Private Sub CommandButton4_Click() >Dim c As Worksheet >For Each c In ThisWorkbook.Worksheets 　マクロが書いてあるブックのワークシート全てに順番に処理します >　If c.Name <> "Sheet1" Then 　　もし、処理するシートの名前がSheet1以外なら >　　c.Rows(1).Insert Shift:=xlDown 　　　そのシートの1行目に1行挿入します >　　c.Range("A1:J1").Value = Sheets("sheet1").Range("A1:J1").Value 　　　そのシートのA1:J1にSheet1のA1:J1の内容を記入します >　End If >　c.Cells.EntireColumn.AutoFit 　　オートフィットします >Next 　次のシートの処理に移ります >End Sub