Excel VBA質問箱 IV

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

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


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

38788 / 76732

←次へ　｜　前へ→


	【43075】Re:セルの結合について

かみちゃん - 06/10/1(日) 14:25 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>A1:A3を選択した状態でマクロを起動すると、自動的に
>C1:C3、D1:D3、E1:E3をそれぞれ結合するというものです。
>そのほかの例としては、A3:A5を選択した状態でマクロを起動すると、C3:C5、
>D3:D5、E3:E5をそれぞれ結合したいのです。

ちなみに、以下のような感じでできると思います。
ポイントは、エラー処理を入れていることと、Offsetで1列ずつずらしながら結合を繰り返していることです。

Sub Macro1()
　Dim intOffsetCol As Integer
　　
　If Not TypeName(Selection) = "Range" Then
　　MsgBox "セルの範囲が選択されていません"
　　Exit Sub
　End If
　If Selection.Columns.Count > 1 Then
　　MsgBox "複数列が選択されているため処理できません"
　　Exit Sub
　End If
　For intOffsetCol = 2 To 4
　　With Selection.Offset(, intOffsetCol)
　　　　.HorizontalAlignment = xlGeneral
　　　　.VerticalAlignment = xlCenter
　　　　.WrapText = False
　　　　.Orientation = 0
　　　　.AddIndent = False
　　　　.IndentLevel = 0
　　　　.ShrinkToFit = False
　　　　.ReadingOrder = xlContext
　　　　.MergeCells = True
　　End With
　Next
End Sub

2 hits

▼

【43068】セルの結合について たーくん 06/10/1(日) 12:15