xdaixのプロフィール

エクセル2002で、 A列のみにデータが入力されており、 一グループごとに上から順に並んでいます。 一グループの最初のセルの文字だけ赤色、 それ以外の文字は黒色です。 基本的に一グループごとに5行です。 ですが、中には一グループで3行になったり、4行になったりまちまちです。 例えば上から順に、 1つ目のグループの1番目（文字：赤色） 1つ目のグループの2番目 1つ目のグループの3番目 2つ目のグループの1番目（文字：赤色） 2つ目のグループの2番目 2つ目のグループの3番目 2つ目のグループの4番目 2つ目のグループの5番目 3つ目のグループの1番目（文字：赤色） 3つ目のグループの2番目 3つ目のグループの3番目 3つ目のグループの4番目 このように一グループの行数が3行になったり5行になったりしています。 一グループの最後の行のすぐ下に、次のグループのデーターが表示され、 対象となっているグループが変わっても、空白セルが挿入されることはなくA列にびっしりと入力されています。 この場合、 一グループの行数を6行以上にして、 一グループの行数が6行に足りない場合は最後のセルの下に6行になるまで空白セルを追加する方法があれば教えてください。 なお、私なりに試行錯誤した結果、 セルＡ2からセルＡ3までのセルの文字が赤色の場合に、赤字のセルの上に空白セルを追加するマクロを下記の通り作成するところまでは出来ました。 参考になるかもしれませんのでご覧下さい。 どうぞ宜しくお願い致します。 記 Sub Macro1() If Cells(3, 1).Font.ColorIndex = 3 Then Cells(3, 1).Select Selection.Insert Shift:=xlDown End If If Cells(2, 1).Font.ColorIndex = 3 Then Cells(2, 1).Select Selection.Insert Shift:=xlDown End If End Sub 以上

Visual Basic6(SP5)で開発を行っているものです。 時々、「メモリが"Read"になることができませんでした」と言うエラーメッセージと共にVisual Basicのアプリケーションが終了する不具合が発生します。メモリ操作関連のエラーだろうと社内で指摘されました。 怪しいかと思われるのは、ある動的配列をRedimし、解放する必要が無いのでEraseしていない点です。 動的配列は、RedimしたらEraseしないとエラーの元になり得るのでしょうか？　時間のある方、ご回答願います。

タイトルの通りなのですが、 シートにトグルボタンを設置し、それを押すのではなく VBAから押下状態にするにはどうしたら良いのでしょうか。 具体的にどう使いたいかと言いますと、 「このシートは保護されているよ」という状態を 簡単に目視できるようにしたいために、 押すとシート保護、もう一度押すと解除というトグルボタンを つけたものの、 ツールバーからシート保護をしたら、「トグルボタンは押されてないけど シートは保護はされているという気持ち悪い状態になるのを 何とかできないかな・・・と。 ご存知の方いらしたらお願いいたします。