chsugiyama

アクティブなセルの隣に、書式を複写するマクロです。 Sub Excel書式複写メッセージ()     Dim rc As Integer     rc = MsgBox("書式を選択中のセルの右に複写します？", vbYesNo + vbQuestion, "確認")     If rc = vbYes Then         Call Excel書式を右の列に複写する     Else         MsgBox "処理を中断します"     End If End Sub Sub Excel書式を右の列に複写する() '     Dim i As Long     i = ActiveCell.Column         Columns(i).Select     Selection.Copy     Columns(i + 1).Select     Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _         SkipBlanks:=False, Transpose:=False 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 行挿入