個人事業主の方必見!確定申告のお悩み解決

Excelで行の高さを一括調整する時、非表示のセルも高さが変わり、なおかつ表示されてしまいます。
非表示セルはそのまま表示させず、高さも変えない方法があれば教えて下さい。

A 回答 (2件)

以下の方法は如何でしょうか。



編集→ジャンプ→セル選択→可視セルをチェック→OKすると表示されているセルが選択されるので、行欄で右クリックで行の高さを変更して下さい。
    • good
    • 0

範囲選択後にF5(ジャンプ)で「セル選択」で「可視セル」でOK


その後で高さを変更
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q100行のセルの高さを一括で調整するには?(Excel)

文字数の違うデータが100行もあった場合、
書式→行→自動調整で、
画面上は100行それぞれの行に合ったセルの高さになりますよね。

この自動調整後に、「プラス10pt」とすることは可能ですか?

印刷時に途切れていない状態で表示したいのですが、
自動調整を利用すると、画面上は収まっていても
印刷したら途切れていることがあります。

要は、セル内の文字数が変わる100行のデータを、
その行の文字数に合わせて一括で調整し、印刷したいのですが、
何か良い方法がございましたら、教えてください。

Aベストアンサー

>何か良い方法がございましたら、教えてください。
これは手作業がNGなのであれば、マクロしか手はないと思います

以下のマクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。

マクロの実行はワークシート画面に戻って適当なセル範囲を選択した後ALT+F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。(選択されている範囲に対してのみ実行します)

Sub Macro1()
Dim idx As Integer
 Selection.EntireRow.AutoFit
 For idx = Selection.Row To Selection.Row + Selection.Rows.Count - 1
   Rows(idx).RowHeight = Rows(idx).RowHeight + 10
 Next
End Sub

もし行の高さを変更する処理があくまで印刷用で、元のシートには手をつけたくないならマクロは以下になります(元のシートをコピーしてから処理してます)

Sub Macro2()
Dim idx As Integer
Dim adr As String
 adr = Selection.Address
 ActiveSheet.Copy after:=ActiveSheet
 Range(adr).EntireRow.AutoFit
 For idx = Range(adr).Row To Range(adr).Row + Range(adr).Rows.Count - 1
   Rows(idx).RowHeight = Rows(idx).RowHeight + 10
 Next
End Sub

>何か良い方法がございましたら、教えてください。
これは手作業がNGなのであれば、マクロしか手はないと思います

以下のマクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。

マクロの実行はワークシート画面に戻って適当なセル範囲を選択した後ALT+F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。(選択されている範囲に対してのみ実行します)

Sub Macro1()
Dim idx As Integer
 Selec...続きを読む

Qエクセル表に入力量に合わせ行の高さ自動広がり出来ず

簡単な表を作成し、日記表を作成しようとしています。

表を作成後、表全体を書式にて、「文字の折り返し」を行いました。

本文内容の欄(列)に文字を3行ほど書き込みました。確定すると、2行までしか表示されません。

文字数にあわせて、自動的に行の高さを保つ方法はどうすればよいのでしょうか?

※添付は、本当は3行を入力してあります。

OS:ビスタ  アプリ:2007

Aベストアンサー

行の高さを指定してませんか?

高さを指定すると(マウスでドラッグした場合を含めて)
自動的には行高さが変わりません。元の13.5ポイントに
戻すと自動調整してくれるはずです。

逆に、13.5ポイント以外に事前に決めておいた状態で
行高さを自動調整することはできなかったはずです。

QEXCELで高さ0で隠れた行の素早く表示方法

一般的な行を選択して、「非表示」「再表示」による行の隠しではなく、一旦行の高さを0に設定して隠された行の簡単な表示方法を教えてほしいです。

隠れた行が少ない場合、カーソルを隠れた行のところで、ゆっくり広けるような操作では、一行ごとにできますが、合わせし難いし、複数行もできない。何かの方法で効率よ開けて見えるのでしょうか?

Aベストアンサー

その付近数行、たとえば隠れているのが8行目なら、7~9行目を選択して(行番号7の次が9になっていますね?)、7と9の間をダブルクリックすれば良いです。

QExcel2000で列の幅をmm単位で設定できますか?

こんにちは。
過去に同様の質問があるかもしれませんが…

Exel2000で列の幅を文字数やピクセルではなくmmで設定したいのですが
可能なのでしょうか?

列の幅が限定された文書を作成したいもので、
お手数ですがよろしくお願いいたします。

Aベストアンサー

下記URL(過去問)で解決すると思います。

参考URL:http://homepage2.nifty.com/housaka/sizemm.html

Qexcelからexcelへの差し込み印刷

お世話になります。

excelでwordへの差し込み印刷をよく利用するのですが、
同様に、
excelのデータをexcelに流し込んで印刷する方法はありますでしょうか。

excelの名簿のデータを
excelの表のフォーマットに流し込んで
1人づつ印刷したいのですが。

お分かりの方いらっしゃいました教えてください。
どうぞ宜しくお願い致します。

Aベストアンサー

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

上記の品をお送り申し上げます。
ご査収ください

以上
Xの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,2,FALSE)
Yの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,3,FALSE)
Zの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,4,FALSE)

---
結果

送り状

住所山田 三郎
氏名東京都江東区

品物かばん

上記の品をお送り申し上げます。
ご査収ください

以上
ここで
VBE画面で標準モジュールに
Sub test01()
For i = 1 To 2 '人数分
Range("H1") = i
Range("A1:G20").PrintOut '印刷範囲は各人同じとする
Next i
End Sub
を張り付け、実行する。
山田、植田分の紙が2枚印刷されました。
これは質問者はVBAの経験も無いでしょうと、最低限にしてあります。
VBAを勉強してください。
別ブックにある名簿を対象などは複雑になるので避けています。

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

...続きを読む

QWordで、1ページを丸ごと削除するには?

1ページしか必要ないのに、真っ白な2ページ目がその下に表示されてしまった場合、この余分な2ページ目を一括削除(消去)する為に、何かいい方法があるでしょうか?

Aベストアンサー

<表示されてしまった場合>
これはそれなりに理由があるわけで、改ページや改行によって、次のページにまで入力が及んでいる時にそうなります。
特に罫線で表を作成し、ページの下一杯まで罫線を引いたときなどには、よくなる現象です。

さて、メニューの「表示」で段落記号にチェックが入っていないと、改行や改ページなどの入力情報が見えず、白紙のページを全て選択→削除してもそのままということが良くあります。
1 改行マークが白紙のページの先頭に入っていれば、それをBackSpaceで消してやる。
2 罫線を使っている場合は、それでも効果がない場合がありますが、その時は行数を増やしてやる。
などの方法があります。

Qエクセル・・色の着いたセルの個数を数える関数はある?

エクセルの表内で塗りつぶしされているセルだけを数える様な関数はありますか?
セルには文字や数値は入力されておらず、塗りつぶしているだけです。
よろしくお願いいたします。

Aベストアンサー

こんにちは。

ユーザー定義関数で作ってみました。Ver4 マクロ関数で十分だと私は思いますが、Ver 4 マクロ関数ではケシカランというような方?は、以下のようなVBAでの解決方法が便利かなって思います。

VB Editor の標準モジュールに貼り付けてください。(挿入-標準モジュール)

なお、一般のブックの標準モジュールのユーザー定義関数に、Public キーワードをつけたところで、グローバル関数になるわけではありませんので、もしその点に不安のある方は、マニュアル等で、確認されたほうがよいかもしれませんね。

なお、以下は、引数のインデックスに0を入れると、配列出力するようにしてあります。

'------------------------------------
Function ColorCellCount(範囲 As Range, Optional インデックス As Integer = 1, Optional パターン As Integer = 0)
  Dim myRng As Range
  Dim myIndex As Integer
  Dim myPattern As Integer
  Dim myColor() As Integer
  Dim Ret() As Double
  Dim c As Range
  Dim i As Long
  Dim j As Long
  Set myRng = 範囲
  myIndex = インデックス
  myPattern = パターン
For Each c In myRng
   On Error Resume Next
   If myPattern = 0 Then
     i = WorksheetFunction.Match(c.Interior.ColorIndex, myColor, 0)
   Else
     i = WorksheetFunction.Match(c.Font.ColorIndex, myColor, 0)
   End If
   If i = 0 Then
     ReDim Preserve myColor(j)
     ReDim Preserve Ret(j)
      If myPattern = 0 Then
       myColor(j) = c.Interior.ColorIndex
      Else
       myColor(j) = c.Font.ColorIndex
      End If
      Ret(j) = 1
     j = j + 1
     On Error GoTo 0
     Else
      Ret(i - 1) = Ret(i - 1) + 1
   End If
  Next
  If myIndex <= 0 Then
   ColorCellCount = Ret()
  ElseIf myIndex > UBound(Ret) + 1 Then
   ColorCellCount = Ret(UBound(Ret()))
   Else
   ColorCellCount = Ret(myIndex - 1)
  End If
  Set myRng = Nothing
End Function

ワークシート上での使い方は、

A列
色付き
色なし
色なし
色付き
色付き

=ColorCellCount(A1:A5, 1 )

とすれば、上から数えて、1番目の色のセルの数が出ます。

=ColorCellCount(A1:A5, 2 )
を入れれば、色なしのセルの数が出ます。

=SUMPRODUCT(ColorCellCount(A1:A5, 0 ))

とすれば、全部の合計が出ます。

なお、
=ColorCellCount(A1:A5,1,1)

とすれば、文字の色を数えます。

こんにちは。

ユーザー定義関数で作ってみました。Ver4 マクロ関数で十分だと私は思いますが、Ver 4 マクロ関数ではケシカランというような方?は、以下のようなVBAでの解決方法が便利かなって思います。

VB Editor の標準モジュールに貼り付けてください。(挿入-標準モジュール)

なお、一般のブックの標準モジュールのユーザー定義関数に、Public キーワードをつけたところで、グローバル関数になるわけではありませんので、もしその点に不安のある方は、マニュアル等で、確認されたほうがよいかもし...続きを読む

Qマクロで行の高さを設定したい

表のレイアウト変更をするマクロを作成しております。

列の幅は
Columns("X").ColumnWidth = 30 'X列の幅30

フォントの位置、サイズは
Columns("X").HorizontalAlignment = xlCenter 'X列の横位置
Columns("X").VerticalAlignment = xlCenter 'X列のタテ位置
Columns("X").Font.Size = 16 'X列のフォントサイズ

で何とかなったのですがセルの高さが変更できません。

Rows(3).RowHeight = 50  '3行目の高さ50
Rows("3:10").RowHeight = 50  '3から10行目の高さ50

くらいまではわかります。
ですが、シート全体とか入力されている最終行までの行の高さを変更する方法がわかりません。

素人の考えですが、以下の通りでできると思っていました。
-----------
Sub Macro1()
n = Cells(Rows.Count, "C").End(xlUp).Row 'C列の最終行まで
Rows(n).RowHeight = 50
End Sub
-----------

ですが、実際に実行してみたところ、どういうわけか、
エラーは出ないものの行の高さが「50」になりません。

すいませんが詳しい方、説明の上手な方、直接、コードで説明できる方、
お手数ですが教えて下さい。よろしくお願いします。

追記
すいませんが以下の3点は設定上ハズせません。

1)幅を変えるのは3行目から最終行までです。
1行目と2行目には日付、etc.の項目行が入っていますので。

2)表には途中に空欄がありスカスカです。

3)3行目以下でしたら最終行まででなく列全体(=シート全体)の高さが「27」になっても大丈夫です

表のレイアウト変更をするマクロを作成しております。

列の幅は
Columns("X").ColumnWidth = 30 'X列の幅30

フォントの位置、サイズは
Columns("X").HorizontalAlignment = xlCenter 'X列の横位置
Columns("X").VerticalAlignment = xlCenter 'X列のタテ位置
Columns("X").Font.Size = 16 'X列のフォントサイズ

で何とかなったのですがセルの高さが変更できません。

Rows(3).RowHeight = 50  '3行目の高さ50
Rows("3:10").RowHeight = 50  '3から10行目の高さ50

くらいまでは...続きを読む

Aベストアンサー

こんにちは

ほぼお考えの通りで宜しいかと思います。
ただし、
>Rows(n).RowHeight = 50
ですと、n行(=最終行)だけの高さを50に設定することになっていませんか。

>エラーは出ないものの行の高さが「50」になりません。
ちゃんと実行されて、最終行の高さが50になっているものと想像します。

でも、なさりたいことは、3~n行までの高さを設定したいのでしょうから
例えば、対象とする行で繰り返すことにすれば、
For rw = 3 To n
  Rows(rw).RowHeight = 50
Next rw
みたいにすれば可能ですね。

一方で、手作業でも同じですが、一行々々を設定してゆくよりもまとめて選択して設定してしまう方が簡単で早いですね。
まとめて指定する方法はいろいろ考えられます。
 Rows("3" & n).RowHeight = 50
とか
 Rows(3).Resize(n - 2).RowHeight = 50
実際には、行全体を選択しなくてもセルの高さを指定すれば結果は行全体に及ぶので、
 Range("A3").Resize(n - 2).RowHeight = 50
などでも可能です。
状況に応じて、指定しやすい方法を利用なさるのが良いと思います。

こんにちは

ほぼお考えの通りで宜しいかと思います。
ただし、
>Rows(n).RowHeight = 50
ですと、n行(=最終行)だけの高さを50に設定することになっていませんか。

>エラーは出ないものの行の高さが「50」になりません。
ちゃんと実行されて、最終行の高さが50になっているものと想像します。

でも、なさりたいことは、3~n行までの高さを設定したいのでしょうから
例えば、対象とする行で繰り返すことにすれば、
For rw = 3 To n
  Rows(rw).RowHeight = 50
Next rw
みたいにすれば可能ですね。

一方で...続きを読む

Qエクセルで最後の行までを選択

エクセルで1万行位あるものの1行目から最後の行までを一気に選択する方法はあるでしょうか?また、同じようにA列とB列のみを最後の行まで選択する方法もあるでしょうか?よろしくお願いします。

Aベストアンサー

こんにちは。

マクロなどが設定されていなければ、

シフトキーを押しながら、A1 の、セルの四角の底辺の枠線をダブルクリックすれば、その列が最後まで選択されます。A列B列のみなら、A列で、シフトキーを押しながら、B列のB1 のセルの四角の枠線をダブルクリックすれば選択されます。(ただし、空白セルが途中にあったら、そこでとまります。)

シフトキーを押しながら
+-------------+
|            |
|            |
+-------------+
   ↑
   ここをダブルクリック

QExcelの行列幅をcmで表示したい

Excelの列幅や、行高は、文字数(ピクセル)表示になっていますよね。それを、cm(mmでもOK)単位の表示ができないのでしょうか? 実は公的な書式を作成するため、寸法どおりにしないといけないので、いつも印刷してからものさしで計っては、・・の繰り返しなんです。どなたかアドバイスをお願いします。ジャストシステムの三四郎を以前のパソコンで使っていたときには、それができたんですよ・・

Aベストアンサー

エクセルのバージョンは?
2007ならルーラーの cm,mm の指定は可能ですが・・・
http://www.eurus.dti.ne.jp/~yoneyama/office2007/excel2007-02.html#page_layout

でなければ、
ものさしマクロ
http://hp.vector.co.jp/authors/VA016119/sizemm.html


人気Q&Aランキング