Excel VBA質問箱 IV

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

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


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

3911 / 76734

←次へ　｜　前へ→


	【78452】見出しの下側に「二本線」

くまはち - 16/9/24(土) 16:11 -


	引用なし

	パスワード

3.表の2行目（A2：I2）の見出し行の体裁（書式）を変更するステートメントを次の条件で作成してください。
【作成条件】
　・セル「A2」を基準に「End」プロパティで右の終端セルまでを見出し範囲として参照する
　・Withステートメントを使用し、参照したオブジェクトに対する処理を簡潔に記述する
　　（※以下はWithステートメント内のオブジェクトに対する処理）
　・フォントのスタイルを「太字」にする
　・「ColorIndex」プロパティのインデックス番号「16」で参照セル範囲の塗りつぶしを行う
　・文字の配置をセルの中央（縦横）にする
　・「Borders」プロパティで見出しの下側に「二本線」の罫線を設定する

以下の式であってますか？

Range("A2").End(xlToRight).Select

With Range("A2")
.Font.Bold = True
.Interior.ColorIndex = 16
.HorizontalAlignment = xlCenter
.Range("A2".xlToRight).xlEdgeBottom

End With

End Sub

6 hits

▼

【78452】見出しの下側に「二本線」 くまはち 16/9/24(土) 16:11