Excel (一般機能)

Excelの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2016)
行の幅の最低値を固定したい
投稿日時: 21/09/17 22:40:02
投稿者: botamochi

名簿を管理しているエクセル表でデータの管理をしていたのですが、
ある行の高さだけ数ピクセルとなり見逃してしまう事態がおこりました。
 
複数行選択して幅を均一にすれば見逃しのミスはなくなりますが、
個々で調整していた幅も台無しになってしまいます。
(また、複数人で管理しているため余り現実的でないというか非効率な気がしています。)
 
そこで、行の高さの変更は出来ても最低幅として例えば24ピクセル以下にはならないように
する設定等はありますでしょうか。
 
 
 

回答
投稿日時: 21/09/18 00:24:17
投稿者: Mike

確認させてください。
私の理解では、Excel においては「行高」or「行の高さ」とか、「列幅」or「列の幅」と称するのが一般的と思っているのですが、貴方はタイトルで「行の」と書いたり、本文中で「行の高さ」と言ったりして、何だか首尾一貫性に欠けているようです。
ソコントコどうお考えですか(ドッチやネン)?

投稿日時: 21/09/18 00:47:18
投稿者: botamochi

意味するところは同じとして、考えなしに記載しましたが「高さ」が正しい表記ですかね。
すべて行の高さとしてお考えください。

回答
投稿日時: 21/09/18 07:09:43
投稿者: Mike

「24ピクセル以下にはならないようにする設定等」は無い、と考えます。
 
だから、「見逃してしまう」ほど「行の高さ」が「数ピクセルとな」る原因を知って対策を取らざるを得ないかと。

回答
投稿日時: 21/09/18 07:47:09
投稿者: んなっと

VBA利用ならば...例えばThisWorkbookに
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  RHeight
End Sub
Sub RHeight()
  Dim r As Range
  Application.ScreenUpdating = False
  For Each r In ActiveSheet.UsedRange.Columns(1).Cells
    If r.RowHeight < 18 Then
      r.RowHeight = 18
    End If
  Next
  Application.ScreenUpdating = True
End Sub
 
保存するたびアクティブシートのみ行の高さ調整。
 
 
VBAを使わない方法は、わかりません。

投稿日時: 21/09/18 09:31:19
投稿者: botamochi

ありがとうございました。
 
やはりマクロ利用となりますよね。
参考にさせていただきます。