マクロの記憶でのプロシージャを
Rangeを変数型にしたいのです。
行も列も定めまずに、範囲はA1:BX45です。
Offsetを使うのか、もう何がなんだかわからないので
教えてください!!
マクロの記憶でのプロシージャです。
↓
Keyboard Shortcut: Ctrl+d
'
End Sub
Range("R26:T27").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
End Sub
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
連続で2~3回のセル結合作業を「マクロの記録」します。
セル結合作業の「マクロの記録」を「相対参照」で行います。
下記のようなコードが得られます。
Sub Macro1()
ActiveCell.Range("A1:C2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
ActiveCell.Offset(2, 0).Range("A1:C2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
ActiveCell.Offset(2, 0).Range("A1:C2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
End Sub
不要なコードを削除し必要な部分のみにすると、下記のようになります。
Sub Macro1test1()
ActiveCell.Range("A1:C2").Select
Selection.Merge
ActiveCell.Offset(2, 0).Range("A1:C2").Select
Selection.Merge
ActiveCell.Offset(2, 0).Range("A1:C2").Select
Selection.Merge
End Sub
上記マクロを実行すると、1行置きにセル結合されます。
Offsetプロパティの、行インデックス値が影響しているようです。
行インデックス値を、1 に変えてマクロを実行してみてください。
取りあえず、ここまでを確認してください。
ここまでが確認できてから、次のステップに移りたいと思います。
No.2
- 回答日時:
何をやりたいのか意図が見えませんが
選択範囲を結合したいならわざわざマクロを使わずとも
ツール(D)->ユーザー設定(C)
コマンドタブの分類(G)一覧からコマンド(D)内にあるセルの結合コマンドをツールバーの何処かにドラッグしてあげれば結合ボタンが追加されます
範囲選択せず現在位置から決まった範囲を結合したいなら
Sub Macro1()
Dim NowRow As Long
Dim NowCol As Long
NowRow = ActiveCell.Row
NowCol = ActiveCell.Column
Range(Cells(NowRow, NowCol), Cells(NowRow + 2, NowCol + 3)).MergeCells = True
End Sub
+の数字を変えると結合範囲が変わります。
マクロ記録で.MergeCells以外の代入がありますがセルのプロパティーで結合選択を行うときにその他の項目がありますがそれも記録されているためです
実際に結合する命令は.MergeCellsです。
やりたい事ってこれで合ってます?
No.1
- 回答日時:
> Rangeを変数型にしたいのです。
> 行も列も定めまずに、範囲はA1:BX45です。
まったく意味不明です。
エクセル以前にもう少し日本語を勉強されることをおすすめします。
もし、A1:BX45 を変数にいれて結合し、中央揃えしたいということなら
Sub test()
Dim myRng As Range
Set myRng = Range("A1:BX45")
With myRng
.MergeCells = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ShrinkToFit = True
.ReadingOrder = xlContext
End With
Set myRng = Nothing
End Sub
A1:BX45の部分をA1セルからの行列数で指定したいということなら
Sub test02()
Dim myRng As Range
Set myRng = Range("A1").Resize(45, 76)
With myRng
.MergeCells = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ShrinkToFit = True
.ReadingOrder = xlContext
End With
Set myRng = Nothing
End Sub
ぜんぜん違っていたらごめんなさい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
カチオンとアニオンとは?
-
塩化ナトリウムはなぜ共有結合...
-
RCOOってなに基ですか?
-
エクセルで大きな括弧()の方法
-
結合次数
-
配位数・配位子・配座数って
-
デンプンを加水分解する
-
c2h2の電子式と構造式について...
-
選択クエリで空欄のテーブルが...
-
Excelで結合されたセルを参照し...
-
すべて同一平面上にある分子とは?
-
黒鉛が電気をよく通す理由
-
硫酸の配位結合について 参考書...
-
アマルティとは
-
アミド結合とエステル結合
-
アルデヒドとケトンが水素結合...
-
HNO3のNO2部分の電子式はどのよ...
-
重クロム酸などに使われている...
-
NO2はなぜイオンでないのですか
-
π電子の数え方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
塩化ナトリウムはなぜ共有結合...
-
カチオンとアニオンとは?
-
高校生です。 化学の質問です。...
-
二酸化炭素の混成軌道の図を教...
-
c2h2の電子式と構造式について...
-
共役or非共役の見分け方
-
π電子の数え方
-
エクセルで大きな括弧()の方法
-
選択クエリで空欄のテーブルが...
-
真空管回路の カソード フォロ...
-
セルを結合するマクロで表示さ...
-
なぜトランスデカリンは環反転...
-
化学の1次結合,2次結合について
-
硫酸銅はなぜ5水和物3水和物1水...
-
Excelで結合されたセルを参照し...
-
イオンの見分け方
-
酸素の結合について
-
化学基礎、分子式について。 長...
-
p軌道の「+」「-」とは?
-
アンモニアのN-H結合角
おすすめ情報