MC_Kのプロフィール

会社の仕事でEXCELLでビジネスプラン作成のためのフォーマットを作ったところ、これが殊の他、評判が良いので、内容は勿論ですが、使い勝手とビジュアル的にも改良を加えたいと思います。 現在は単に関数を使った普通のEXCELL表計算に過ぎないなのですが、これを市販のソフトのような見栄えにしたいのです。 これにはマクロとか言う機能を使って、入力画面等を自動化、デザイン化できると理解しております。ですが、現在知識ゼロなので、できりだけ簡易な初歩だけを学ぶような、サイト・書籍等がありましたら、勉強したいのでご紹介いただければ有難いです。宜しくお願いいたします。

教えてください。 sheet5にデータがあります。 マクロを実行すると、一番右の列のセルに○があると●と書き換える 一番右の列のセルに△があると▲と書き換えるコードを作成しています。 下記のコードでは時間がかかってしまいます。 省略 If Sheets("sheet5").Cells(r, cmax).Value = "○" Then Sheets("sheet5").Cells(r, cmax).Value = "●" 省略 AutoFilterを使用してマクロを作成しましたが、列に○と△が両方無いと 範囲指定したセルがすべて▲となってしまいます。 下記コードをどのように手直ししたらよいのか教えて頂けないでしょうか。 よろしくお願いします。 Sub 文字変更() Dim c As Integer Dim cmax As Integer Dim rmax As Long With Sheets("sheet5") rmax = .Range("A3").End(xlDown).Row cmax = .Range("A3").End(xlToRight).Column .Rows("1:1").Select Selection.AutoFilter For c = 2 To cmax Selection.AutoFilter Field:=c, Criteria1:="○" .Cells(1, c).Offset(1, 0).Select .Range(Selection, Cells(rmax, c)).Value = "●" Selection.AutoFilter Field:=c, Criteria1:="△" .Cells(1, c).Offset(1, 0).Select .Range(Selection, Cells(rmax, c)).Value = "▲" Selection.AutoFilter Field:=c Next c End With Selection.AutoFilter End Sub