- ベストアンサー
マクロの記録で条件付き書式の動作を記録する
エクセル２０１０なのですが マクロの記録で条件付き書式の動作を記録することは出来ないのでしょうか？ A列に対して条件付き書式の動作を記録したら Sub Macro1() ' ' Macro1 Macro ' ' Columns("A:A").Select End Sub これしか記録されてません。 私の記録の仕方が悪かったのでしょうか？
- PVIBEAHUDRTF
- お礼率100% (78/78)
- Excel（エクセル）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
- ベストアンサー
できてますので、今一度手順を確認した方がいいと思います。 条件付き書式：Excelマクロの記録で覚えるVBA http://excel-ubara.com/excelvba2/EXCELVBA021.html
関連するQ&A
- 記号をマクロで記録することは不可能か？
記号をマクロで記録することは不可能か？ エクセル２００３を使用しています。 マクロの記録→挿入→記号と特殊文字で ハートを挿入し、マクロの記録の終了をして標準モジュールを見たのですが Sub Macro1() ActiveCell.FormulaR1C1 = "?" Range("a1").Select End Sub となります。 セルにはハートが入っています。 そのあと、Macro1を実行すると、?がセルに挿入されました。 ＶＢＡで記号を挿入することは不可能のなのでしょうか？
- ベストアンサー
- オフィス系ソフト
- 検索はマクロで記録できないのでしょうか？
エクセル２００７です。 マクロの記録ボタンを押して、ＣＴＲＬ+Ｆで検索を立ち上げて、文字を検索して、マクロを終了したら、 Sub Macro1() ' Macro1 Macro End Sub としか記録されてませんでした。 検索はマクロで記録できないのでしょうか？ ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロの記録で何も記録できない理由は？
「ブックを開く」という動作が知りたかったので、 現在開いているブック1から、マクロの記録ボタンを押し、 デスクトップにあるブック2をダブルクリックして開きました。 しかし記録終了ボタンを押した後、 ブック1の標準モジュールを確認しても Sub Macro1() ' ' Macro1 Macro ' マクロ記録日 : 2009/10/16 ユーザー名 : ' End Sub と何も記録できていません。 何故でしょう？ ちなみにブックを開く方法は http://officetanaka.net/excel/vba/file/file01.htm で確認できました。 なのでマクロの記録で記載されない理由を教えてください。 エクセル2003です。
- ベストアンサー
- オフィス系ソフト
- マクロの自動記録について
Sub Macro1() 'Macro1 Macro 'Keyboard Shortcut:Ctrl+a Application.Run"ATPVBAEN.XLA!Sample",Worksheets("sheet1").Range("$A$2:$AD$31"),ActiveCell,"R",10,False ActiveCell.Offset(0,1).Select End Sub これは、マクロの自動記録を用いて、『ツール＞分析ツール＞サンプリング』の動作を自動的に生成されたマクロ（プログラム）を書き直したものです。 このマクロを実行しようとすると、『実行時エラー'1004':'ATPVBAEN.XLA'が見つかりません。ファイル名およびファイルの保存場所が正しいか確認してください。』と出て、マクロが実行できません。どうすればよいでしょうか？
- ベストアンサー
- オフィス系ソフト
- excel マクロ
Sub Macro1() ' ' Macro1 Macro ' ' ActiveCell.Offset(-1, 0).Range("A1:G1").Select Selection.Copy End Sub マクロの記録だけでこのコードを作ることは可能でしょうか？
- ベストアンサー
- その他(業務ソフトウェア)
- 列を2度コピーするマクロ
B列をC列にコピーした後、A列をB列にコピーするという2段階コピーの下記マクロを、「新しいマクロの記録」を使って作りました。 しかし下記マクロは 列選択時の青反転が実行時に残って、使用感がいまひとつです。 「新しいマクロの記録」ではなく、もっとスマートなマクロはできないでしょうか？ なお、列選択ではなく必要なセル数だけ選択すれば青反転はなくなると思いますが、行数が確定していないので列選択にしたいと思っています。 ついでに下記マクロについて質問です。 11行目はなぜ5行目とは違うのでしょうか？.PasteとPasteSpecial Pasteとの違いを教えていただければ幸いです。 Sub Macro1() Columns("B:B").Select Selection.Copy Columns("C:C").Select ActiveSheet.Paste Columns("A:A").Select Application.CutCopyMode = False Selection.Copy Columns("B:B").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A2").Select Application.CutCopyMode = False ActiveWorkbook.Save End Sub
- ベストアンサー
- オフィス系ソフト
- Excelマクロ 置換について教えてください。
A列の,10を,15に置換したいので下記マクロを記録しました。 ほかに,10を,16などにしたい場合もあるため、 入力画面を表示して初期値は,10から,15ですが、ほかを入力した場合は他の値で置換するマクロを教えてください。 Sub Macro1() Columns("A:A").Select Selection.Replace What:=",10", Replacement:=",15", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub
- ベストアンサー
- オフィス系ソフト
- Excel 2007 マクロ 表の貼り付け
Excel 2007 マクロ 表の貼り付け Excel 2007 マクロ 表の貼り付けについて教えてください。 <Sheet1>の表にあるA2からD4を <Sheet2>に値貼り付けをします。 表は画像を添付します。 マクロの記録では下記内容になります。 Sub Macro1() ' ' Macro1 Macro ' ' Range("A2:D4").Select Selection.Copy Sheets("Sheet2").Select Range("A2:D4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub <Sheet1>のA列の行の増減にかかわらず、<Sheet2>に貼り付けることができるように するにはどのようにマクロを修正すればよろしいでしょうか。
- ベストアンサー
- その他MS Office製品
- 複数の条件付書式
Ｂ列に1～５までに数字がランダムにはいっています。 条件は ・Ｂ列が空白ならＡ列は無色 ・Ｂ列が１ならＡ列は赤 ・Ｂ列が２ならＡ列は青 ・Ｂ列が３ならＡ列は黄色 ・Ｂ列が４ならＡ列は緑 というのをマクロで行ないたいです。 自分で記録して Sub Macro32() Columns("A:A").Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=B1=""""" Selection.FormatConditions(1).Interior.Pattern = xlNone Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=B1=1" Selection.FormatConditions(2).Interior.ColorIndex = 38 Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=B1=2" Selection.FormatConditions(3).Interior.ColorIndex = 40 End Sub ４つ目に Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=B1=3" Selection.FormatConditions(4).Interior.ColorIndex = 32 とするとエラーになります。 3つ以上の条件付書式の書き方を教えてください。 あとこの構文のSelectionはwithで省略できますか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ご回答ありがとうございます。