chsugiyama

イラストレータ　ロゴ　デザイン

イラストレータでデザイン

イラストレータでデザイン

エンプレム　デザイン

配色参考 http://hue360.herokuapp.com/

単純なマクロですが、 シートのいろんな場所にいるとき、CTRL+Home　でもいいですが、 マクロボタンにしておくと、便利です。 Sub 移動ホーム()     Range("A1").Select End Sub 単純なVBA 参考リンク先 VBA ページ Word VBA Excelと連携 WORD VBA ユーザープロパティ エクセル登録 Excel VBA とAutocad 連携 エクセルからAUTOCADで選択中の円の座標を取得 （Ver.2） EXCEL to AUTOCAD 使用していない名前削除　EXCEL VBA エクセル変換表の内容で、AUTOCADの文字を書き換えるVBA Excel PowerPoint(PPT)   連携 エクセルからパワーポイントのノートを書き込むVBA Excel VBA EXCEL　VBA　今のセルの隣に書式をCOPYする EXCEL　VBA ホーム位置にセルを移動 EXCEL　A1のセルの名前のファイル名をアクティブにする。 EXCEL VBA 行挿入

多くのエクセルファイルを扱っていると、ファイルが重なってしまって、 煩わしくなりますので、 A1　に、ファイル名を記入しておいて、そのファイルをアクティブにします。 Sub BackToMainSheet()     Dim WB0 As Workbook       ' ワークブック     Dim str As String       str = Range("A1").Value       Set WB0 = Workbooks(str)     WB0.Activate End Sub 参考リンク先 VBA ページ Word VBA Excelと連携 WORD VBA ユーザープロパティ エクセル登録 Excel VBA とAutocad 連携 エクセルからAUTOCADで選択中の円の座標を取得 （Ver.2） EXCEL to AUTOCAD 使用していない名前削除　EXCEL VBA エクセル変換表の内容で、AUTOCADの文字を書き換えるVBA Excel PowerPoint(PPT)   連携 エクセルからパワーポイントのノートを書き込むVBA Excel VBA EXCEL　VBA　今のセルの隣に書式をCOPYする EXCEL　VBA ホーム位置にセルを移動 EXCEL　A1のセルの名前のファイル名をアクティブにする。 EXCEL VBA 行挿入

現在選択されているセルの行の下に行挿入をする。 Sub ExAddRow001()     Dim WS0 As Worksheet     Set WS0 = ActiveSheet     Dim AcRow As Long     Dim Accolumn As Long     Dim AcAddr As String       AcRow = ActiveCell.Row     Accolumn = ActiveCell.Column     AcAddr = ActiveCell.Address     Rows(AcRow).Copy       '現在行コピー     Rows(AcRow + 1).Insert '次の行に挿入       Set WS0 = Nothing End Sub ' 現在のセルの行をCOPYして次の行に挿入貼付け（メッセージ有） Sub ExAddRow_001()     Dim WS0 As Worksheet     Set WS0 = ActiveSheet     Dim AcRow As Long     Dim Accolumn As Long     Dim AcAddr As String         AcRow = ActiveCell.Row     Accolumn = ActiveCell.Column     AcAddr = ActiveCell.Address     Dim rc As Integer     rc = MsgBox("処理を行いますか？", vbYesNo + vbQuestion, "確認")         If rc = vbYes Then         MsgBox "処理を行います"         Rows(AcRow).Copy       '現在行コピー         Rows(AcRow + 1).Insert '次の行に挿入     Else         MsgBox "処理を中断します"     End If