投稿

12月, 2017の投稿を表示しています

マクロ覚書

新しいブックを作成する  Workbooks.Add  End Sub 上書き保存  Active Workbook. Save    End Sub 名前を付けて保存 (ここではセルA2に入れた文字をファイル名として使う)  Active Workbook. SaveAs Filename:=    Dim BookName As String   (ブックネームは次の変数が入りますよの意味)  BookName=Range("A2").Value (ブックネームには”A2"セルと同じものが入りますの意味)  End Sub セルに今日の日付を入れる(ここではセルA6)    Range("A6").Select    ActiveCell. FormulaR1C1 = "=TODAY()"  (選択したセルにTODAYの関数を入れますよの意味) End Sub 画像を張り付ける    ActiveSheet. Pictures. Insert( _   "C:\Users\Public\Pictures\Sample Pictures\ooo.jpg). Select (↑貼りたい画像のパス。\は半角の¥マーク。なぜちょっと日本仕様なのかナゾ) End Sub メッセージボックスを表示させる。  MsgBox "HELLO!"(入れたいメッセージ)

はじめまして

OA事務員のよのじです。 毎日ExcelやAutoCADと格闘しています。 備忘録としてここに記録していきたいと思います。 よろしくお願いしますします!