電子書籍の厳選無料作品が豊富!

Excelのマクロについて教えてください。
マクロ
Sub 保存()
Application.DisplayAlerts = False
On Error Resume Next
Worksheets(Array("記載方法")).Delete
Application.DisplayAlerts = False
Sheets("提出シート").Shapes("紙").Visible = False '
Application.Dialogs(xlDialogSaveAs).Show Arg1:="\" & Range("P2").Value, Arg2:=xlOpenXMLWorkbookMacroEnabled
Worksheets("提出シート").Activate
Range("B1", "C28").Select
myBook = ThisWorkbook.Path
Application.DisplayAlerts = False
Sheets("提出シート").Shapes("紙").Visible = False '
Sheets("提出シート").Shapes("紙保存").Visible = False '
Sheets("提出シート").Shapes("注意").Visible = False '
ActiveWorkbook.SaveAs Filename:=myBook & "\" & Range("P2").Value & "●.xlsx", FileFormat:=xlOpenXMLWorkbook
Application.Quit
With ThisWorkbook
.Saved = True
Application.DisplayAlerts = True
.Close False
End With
End Sub
があります。
このマクロを実行すると
不要なシートを削除
指定セル値「P2」名でマクロ有効ブックと一般のExcelブックの2つのファイルが出来上がります。
このマクロに
ハイパーリンク
「=HYPERLINK("mailto:"&L33&"?cc="&L34&"&subject="&L35&"&body="&L36&"","メールを作成する")」
を追加し、マクロが実行された最後にこのハイパーリンクを実行する方法を教えてください。
よろしくお願いいたします。

A 回答 (1件)

「セルにハイパーリンクを設定するマクロ」でググりましょう。



・・・

調べるのが面倒だから質問している(答えを教えろと言っている)んだ。
という事であれば、
 「代わりに作れ。オレ様の成果として使ってやるwww」
という内容になってしまいます。

自力で作れるようになるためのアドバイスであれば、何を調べたらよいのかを訊ねるようにしましょう。
そして調べた先で理解できない所があれば、それを示しながらどうすれば良いのかを質問すればよい。
    • good
    • 1

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!