Excel マクロ 任意のセルから実行したい

質問

こんにちは、Excel2003を使用しています。

ExcelでK55からE55までのセルの値を削除して（空白にして）
それぞれに「---を引いた透明のダイアローグボックス」を
コピーしていくマクロを作成したことがあります。

このときは開始するセルがK55と決まっていたのですが
今度は任意のセルから（たとえば選択したセルの右隣とか）
実行したいのですがどのようにマクロを作ればよいでしょうか

ご存じの方お教えください。

なお参考に上記のマクロを記載します。

Range("E55:J55").Select
Selection.ClearContents
Range("H55").Select
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 672#, 729#, _
81#, 13.5).Select
Selection.Characters.Text = ""
With Selection.Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.ShapeRange.Fill.Visible = msoFalse
'Selection.ShapeRange.Fill.Solid
'Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
ActiveSheet.Shapes("Text Box 12").Select
Selection.Characters.Text = "---"
With Selection.Characters(Start:=1, Length:=3).Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.HorizontalAlignment = xlCenter
Range("K55").Select
ActiveSheet.Shapes("Text Box 12").Select
Selection.Copy
Range("I55").Select
ActiveSheet.Paste
Range("H55").Select
ActiveSheet.Paste
Range("G55").Select
ActiveSheet.Paste
Range("F55").Select
ActiveSheet.Paste
Range("E55").Select
ActiveSheet.Paste
Range("E56").Select
Selection.Copy
Range("F56:J56").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("E56:J56").Select
Selection.Copy
Range("E57:E59").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("K59").Select
End Sub

回答No.3

okormazd · ベストアンサー

#2です。
訂正
Range("E55:J55").ClearContents
↓
Selection.Resize(rng.Rows.Count, rng.Columns.Count + 4).ClearContents

お礼

ありがとうございます。
上記のマクロでうまく動きました。

回答No.4

xls88

とりあえず、提示されたコードを編集してみました。
ダミーシートで試してください。
意図通りになっているでしょうか？
Selectしないようにしています。
Range("E55")をActivecellに置き換えれば、選択されてアクティブなセルが操作対象になります。

Dim i As Integer

Range("E55").Resize(, 6).ClearContents
'セル基準でテキストボックスを描画
With Range("E55")
With ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, .left, .Top, .Width, .Height)
.Fill.Visible = msoFalse
.Line.Visible = msoFalse
.Characters.Text = "---"
With .Characters(Start:=1, Length:=3).Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 11
End With
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
End With

'Duplicateで先に描画したテキストボックスの複製を作る
'セル基準で配置
For i = 1 To 4
With ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Duplicate
.left = Range("E55").Offset(, i).left
.Top = Range("E55").Offset(, i).Top
End With
Next i

'Copyの引数Destinationを使うとクリップボードを経由せずに貼り付け
Range("E55").Offset(1).Copy Destination:=Range("E55").Offset(1).Resize(4, 6)
'↓でも可
'Range("E55").Offset(1).Copy Range("E55").Offset(1).Resize(4, 6)

基準セルの指定にInputoboxメソッドを使うと良いかも知れません。
セルをクリックで指定することが出来ます。
直接セル番地を入力して指定することも出来ます。

実は奥が深いInputBox
http://www.officetanaka.net/excel/vba/tips/tips37.htm

回答No.2

okormazd

質問にあいまいなところがあって、コードにも無駄が多いので、何をやりたいか明確ではない。
質問の趣旨の、任意の選択セルから実行(コピー)できるようにはしてあるが、追加の質問には答えません。

Sub test()
Dim rng As Range

Set rng = ActiveCell

Range("E55:J55").ClearContents
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 672#, 729#, _
81#, 13.5).Select
Selection.Characters.Text = "---"
With Selection.Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 11
End With
With Selection.ShapeRange
.Fill.Visible = msoFalse
.Line.Visible = msoFalse
End With
Selection.HorizontalAlignment = xlCenter

Selection.Copy
For i = 0 To 4
rng.Offset(0, i).Select
ActiveSheet.Paste
Next

Range("E56").Copy
Range("E56:J59").Select
ActiveSheet.Paste
Range("K59").Select

End Sub

回答No.1

akina_line

こんにちは。

　下記サイトをご参照ください。
　　http://www.happy2-island.com/excelsmile/smile03/capter00701.shtml
　　選択しているセルの位置を調べてそこから削除するセルを決めたらいいのではないでしょうか。

では。