エクセルの学校：全文検索：Hyper Estraier：セルの幅単位

Results of 1 - 1 of about 44 for セルの幅単位 (0.006 sec.)

セルの幅 (324), 単位 (3439)

[[20130709203756]]: #score: 9649; @digest: fe999259f5fa7ff4624d4b2ff98c36f0; @id: 62911; @mdate: 2013-07-13T01:26:39Z; @size: 4628; @type: text/plain; #keywords: mycells (21365), fsize (16477), cwith (14761), 置文 (11368), 小表 (10055), mycell (9304), 字フ (6400), wraptext (4298), 縮小 (3667), columnwidth (2909), ォン (2318), トサ (2235), ァン (2049), イズ (1897), 義関 (1884), size (1636), 字数 (1588), 全体 (1432), 折り (1276), サイ (1265), 制御 (1035), て全 (1001), 調整 (996), 文字 (982), フォ (937), font (931), 体を (900), 変更 (818), support (803), microsoft (729), クシ (714), ー定 (709); 『印刷時のフォントサイズの自動調整』（のぶ）
Excel 2000 or 2003 Os Xp セルの列、行幅は決まっており、A4サイズで印刷できる大きさに設定してあります。セルに入る文字数によってフォントサイズを大きくしたり、小さくしたりしたいと考えています。現在、手動でプレビューをみながら、セルの文字の大きさを変更しています。文字数によって自動で調整する方法はありますでしょうか? 宜しくお願いします。 ---- 今晩は見当はずれでしたら申し訳ありません。セルの書式設定配置文字の制御縮小にして全体を表示するにチェックなわけないですよね 2013/07/09 22:07 aki ---- 返信ありがとうございます。縮小にして全体を表示で対応できるところもありますが、文章がながくなってしまうところがあり、1行になってしまいます。2行、3行で表示したい。折り返して表示でき、かつ、全体を縮小表示ってできないのですかね・・・（のぶ） ---- そうですか＞折り返して表示でき、かつ、全体を縮小表示配置文字の制御折り返して全体を表示するにチェックと併用する形になるかと思います。フォントにもよりますが例えば、MSPフォントで既存の幅(8.38 72ピクセル)で、8文字表示できます即ち、文字数によってセル内の表示を変更すればいいのかな? 何文字以下なら、縮小表示で、それ以外は折り返し表示みたいな感じで、、、 Sub Macro1() With Selection .WrapText = False '[折り返して全体を表示する] .ShrinkToFit = False '[縮小して全体を表示する] End With End Sub こんなものと組み合わせると出来るのかもごめんなさい、自分には出来ません 2013/07/11 00:013 aki ---- とりあえず、こんなのを動かしてみるとどうですか? 調整したいセル範囲がわからないのでとりあえず E列にしてあります。複数列、複数ヶ所ある場合はコードの変更が必要なのでどの列・どの範囲なのか詳しく教えて下さい。標準モジュールに貼りつけて、実行して様子を見てもらえると良いのですが。 '------ Sub NOBU() Dim CWith As Double, FSize As Double Dim i As Long Dim MyCell As Range, MyCells As Range Application.ScreenUpdating = False With Columns("E:E") '←実際の列に変更 .Font.Size = Application.StandardFontSize .WrapText = True Set MyCells = .Range("A1", .Range("A" & Rows.Count).End(xlUp)) End With Range("A:A").Insert Shift:=xlToRight For Each MyCell In MyCells If MyCell.Value <> "" Then CWith = MyCell.ColumnWidth FSize = MyCell.Font.Size MyCell.Copy Range("A1") MyCell.Value = Range("A1").Value With Range("A1") For i = FSize To 0 Step -2 .Font.Size = i .ColumnWidth = CWith .EntireColumn.AutoFit If .ColumnWidth <= CWith Then FSize = i Exit For End If Next End With MyCell.Font.Size = FSize End If Next Range("A:A").Delete Shift:=xlToLeft Set MyCells = Nothing Application.ScreenUpdating = True End Sub '------ (HANA) ---- 返信ありがとうございます。 vbaで文字数が8文字単位で区切り、例えば15文字なら2行としてカウントし、文字の大きさを60とする。 1、2行の場合は文字は60サイズ 3行は48サイズ 4行は32サイズとする。セルB4に=A28のような式が入っています。 B10、B16、B22のような感じで等間隔で上記のような数式が入っています。ファンクションを作成し、数式で文字フォントを変更しようとするとできない。但し、ファンクションを実行すると文字サイズの変更ができる。 B4に数式=test(A28)と入力しても文字フォントが変更されない。ボタン等を作成し、testを呼ぶとフォントが変更される。 public function test(a as range) プログラムは省略 end function =test(A28)のような形で自動でフォントサイズを変更する事はできないのでしょうか? 宜しくお願いします。（のぶ） ---- Excel のユーザー定義関数の制限について - Microsoft Support http://support.microsoft.com/kb/170787/ja ワークシートのセル内の数式から呼び出されるユーザー定義関数では、 Microsoft Excel の環境を変更できません。つまり、このような関数では次の処理が実行できません。 •スプレッドシートでのセルの挿入、削除、または書式の設定。って書いてあるので、ユーザー定義関数では駄目なんじゃないかと思います。 (HANA) ---- 返信ありがとうございます。やはりだめですか・・・。Excelもユーザー関数で環境を変えられたらすごく便利なのに・・・残念。とういうことは、ボタンか何かで関数を呼び出すしかないということですね。ありがとうございます。（のぶ） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201307/20130709203756.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ