• ベストアンサー

エクセルの行の幅を変更するVBA

エクセルの'sheet1'の行幅を1行目,4行目,7行目,10行・・・と 3行目ごとに一回の動作で変更するプログラムは可能でしょうか? (例) (行) (幅) 1  20 2  デフォルト 3  デフォルト 4  20 5  デフォルト 6  デフォルト 7  20 8  デフォルト ・ ・ ※Excel2003を利用しています。

質問者が選んだベストアンサー

  • ベストアンサー
  • suz83238
  • ベストアンサー率30% (197/656)
回答No.1

例えば1000行までなら Sub xxx() For i = 1 To 1000 If i Mod 3 = 1 Then Rows(i).RowHeight = 20 Next i End Sub 行を3で割って余りが1のものについて行高さ20

diy_0316
質問者

お礼

迅速な対応ありがとうございます! Modでの処理ですか~ありがとうございます! 勉強なりました。

関連するQ&A

  • エクセルの行幅について

    こんにちは。 私はiPadminiでエクセルアプリを利用しています。 行幅を変更したりの基本動作はできるのですが、何度保存をしても、途中で行挿入などをすると変更した行幅が1番最初の設定に戻され、挿入していた画像も縮小されてしまい、何度も同じ修正を余儀なくされます(>_<) これはバグなのでしょうか? もし変更した行幅(一部ずつ違う行幅に変更して入れため全てを同じ幅にするわけではありません)を変えることなく挿入などできる方法があれば教えてください! よろしくお願いします

  • エクセルの行の幅について

     エクセルの行幅を立ち上げ時点から太くしたいと思います。  エクセルの行の幅は、立ち上げると12.75という高さになっているようです。しかし、これでは少々見づらいので15くらいにしたいと思います。  もちろん、「行の高さ」で変更できるのは分かるのですが、毎回、修正するのが煩雑です。従って、立ち上げた初期段階から行の高さを変更することはできないでしょうか。

  • エクセルの行の高さ・列の幅で困っております。

    初めて書き込みさせてもらいます。  現在、職場ノートPCでエクセル2002(OfficeXP)を使っておりますが、ある日、エクセルシートの行の高さや列の幅を変更しようとしても、なぜか3ピクセル単位でしか変更できないことに気づきました。例えば20ピクセルの行の高さを増やそうとしても、23・26・29と3つごとでしか変更できないのです。減らすときも同じですし、幅の増減も同じ現象です。自宅のPC(エクセル2000)では1ピクセル単位で高さも幅も自由に変更できます。 Winを再セットアップするまではこのようなことはなかったような気がするのですが・・・。 画面の表示倍率を200%にすると2ピクセルずつ、300%にバカでかく拡大してやっと1ピクセルごと変更できるようですが、それでは大変不便です。 100%の状態で3ピクセルごとという状態は壊れているのではないでしょうか? どなたかご教示をよろしくお願いいたします。

  • Excelの行・列の幅(ピクセル)表示

    Excel2007をXPで利用しています。 行や列の幅を変更しようと思い、行や列の間をクリックしたところ、 今まで出ていた幅の広さ(ピクセル)が表示されなくなっていました。 どのようにしたら再度表示させることができるのでしょうか?

  • EXCELの幅 変更

    EXCELのセルの幅を 変更して 色(背景)をつけ グラフの様なものを作りたいのですが 行毎に 幅をいろいろに変えることは出来ないでしょうか ? セル幅を変更すると 全ての行が そうなって しまいます」

  • EXCELで行の高さ、列の幅を保ったままコピーするには

    エクセルで作った表の行の高さ、列の幅を保ったまま別のシートにコピーする方法はありますか?今は表全体を選択して別シートにコピーするとデフォルトの高さ、幅に表がはめ込まれてしまい、再度手直ししなければならない状態です。エクセル2000を使用しています。宜しくお願いします。

  • Excelのセル幅、行の高さのピクセル

    Excelで、一つのセルが、正方形になるように、セル幅行の高さを整えようと、行、幅、共に同じピクセルにしました。確かに、プレビューでは、正方形になっているのですが、Excel画面だと、なんで正方形に見えないんでしょうか?また、同じピクセル数なのに、カッコの前の数字が違うのはなぜでしょうか? 例)列幅・・5.63(50ピクセル) 行の高さ・・37.50(50ピクセル)

  • EXCELの行、列の幅

    EXCEL2000を使用しています。 行や列の幅の単位はピクセルで表示されていますが、これを「mm」か「cm」単位で幅を変更することはできないのでしょうか?また、1ピクセルは何mmでしょうか? 分かる方教えてください。

  • 複数行幅の変更

    ほぼ初心者でビスタを使っています。 マイクロソフト オフィス エクセル2007を使って複数行(列)の 幅を一度に変更したいのです、調べてみますと「変更する行(列)を 選択、右境界線上の一か所をドラッグする」とあります。 ドラッグしたところだけ広がり、全体がひろがりません。 いろいろ調べましたが、同じような事が書いてあり何度やっても一度 に全体の行幅(列幅)が変わることがありません。 一度に全体の行幅(列幅)を変更するのはどうしたら良いのでしょうか? 初心者に分かるようの教えて下さい。

  • エクセルの行の幅がずれる

    エクセルで表を作っているのですが 行の高さを25にして確かめてみると どうしても24.5というように25の幅になっていません。 どうすればきっちり自分の設定した行の高さになるのでしょうか教えてください。 エクセルは2000を使っています。

専門家に質問してみよう