エクセルで印刷範囲の点線が超えているので、
改ページプレビューで納めたのですが、印刷が出来ますが
文字が小さく印刷されます。
見栄えが悪いので、指定した文字の大きさで印刷できる方法お教え下さい

A 回答 (1件)

余白を小さくするか用紙を大きくするかしかありませんね。

    • good
    • 0
この回答へのお礼

ありがとうございます(^.^)

お礼日時:2017/05/13 13:46

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

このQ&Aを見た人はこんなQ&Aも見ています

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

Q【緊急!至急!】 Excelの計算でセルに「=」を入力して無くても計算してくれる設定の方法。

こんばんは
【緊急!至急!】でExcelの計算でセルに「=」を入力して無くても計算してくれる設定の方法。
を教えてください!
仕事で今晩中に急に必要になって困っています。

よろしくお願い致します。

Aベストアンサー

+を最初に入力します。

Q「見出し」が「行列番号」とな?!

ご存じない方のために、と、私の備忘録のために記しておきます。

Excel 2013 の設定で発見!
シート見出しを非表示にするつもりで、[表示]→[表示 <見出し>]に付いているチェックを外してビックリポン!消えたのは何と"行列番号"なのです。
単に「見出し」とくれば、
[シート見出しを表示する](Show sheet tabs)の「見出し」と思ってしまう!
片や[行列番号を表示する](Show row and column headers)には日本語「見出し」は見当たらず!
[表示]→[表示 <見出し>]の「見出し」部分は、気を利かして「行列番号」にして欲しかったなぁ~!
英語版の「Headers」を単に直訳してたなんて、お粗末!

態々[ファイル]→[オプション]に行かずとも、ワークシートを表示させたままで、「シート見出し」を一時的に非表示にする方法を教えてください。

この機会に、他の翻訳上の不具合をご存知の方、教えてください。

Aベストアンサー

こんばんは。

>他の翻訳上の不具合をご存知の方、教えてください。

誰もレスをつけないところをみると、そんなに重視していないかもしれません。

初めて、「ポップヒント」"Pop Hint" という言葉を聞いた時に、lollipop の一種かと思いました。英語では、そんな言い方しないですね。Pop も Hint も英語では意味が違います。Pop は、Popular ですし、Hint ≒ Alluding
ふつうは、Screen Tips と言うかと思います。

そもそも、Row と Column が、行と列っていうのも変ですが。

Screeen Tips は、機能名ですが、タブなどの名称のことを、idMso と呼び、リボンカスタマイズの時には重要に役割を果たします。

・「シート見出し」を一時的に非表示にする方法を教えてください。

探してみましたが、シート見出しのオンオフのコントロールが見つかりません。(もしかしたら探し方が悪いのかもしれません)とりあえず、マクロということになってしまいます。

QAT(クイックアクション・ツールバー)では、ボタンしかつけられません。タブのグループの中では、チェックボックスも貼り付けることが可能です。

リボンカスタマイズします。

<?xml version="1.0" encoding="utf-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" >
<ribbon startFromScratch="false">
<tabs >
<tab idMso="TabHome">
<group id="Group1">
<checkBox id="DisplayWorksheetTabs" label="シート見出し" onAction="dispTabs"/>
</group>
</tab>
</tabs>
</ribbon >
</customUI >

本格的には、
C:\Users\[Your ID]\AppData\Local\Microsoft\Office\
Excel.officeUI
このファイルを書き換えてあげます。たぶん、VSTOで書き換えたほうが良いのだと思います。画像は、上記のコードを簡易的にCustomUIとしてファイルに入れた結果です。

こんばんは。

>他の翻訳上の不具合をご存知の方、教えてください。

誰もレスをつけないところをみると、そんなに重視していないかもしれません。

初めて、「ポップヒント」"Pop Hint" という言葉を聞いた時に、lollipop の一種かと思いました。英語では、そんな言い方しないですね。Pop も Hint も英語では意味が違います。Pop は、Popular ですし、Hint ≒ Alluding
ふつうは、Screen Tips と言うかと思います。

そもそも、Row と Column が、行と列っていうのも変ですが。

Screeen Tips は、機能名ですが...続きを読む

Qエクセルで大きな写真の一部を切り抜く方法

教えて下さい。
エクセルで個人の写真を貼り付けを
為たいのですが
個人の写真は背景等が
多く写っていて
顔だけを大きく切り取り(拡大して)
(不要な背景等は削除)
四角に調節して貼り付けたいのです。

参考書を読んでもよく分からないので
教えて下さい。

Aベストアンサー

こんばんは!

トリミング、図の調整等々をすべてExcel上でやりたい!というコトでしょうか?
出来なくはないとおもいますが、PC内に入っている「ペイント」を使うのが簡単だと思います。

① プログラム → アクセサリー → 「ペイント」を立ち上げる
(白い部分「キャンバス」は極力小さくしておいた方が良いみたいです。)
② ファイル → 開く → 保存している画像を選択
③ メニュー → 「選択」の上の四角をクリック → 画像の必要部分をトリミング(ドラッグで範囲指定)
④ 選択した画像上で右クリック → コピー → ファイル → 新規 → 貼り付け

以上で必要部分の画像が表示されるはずですので、名前を付けて保存
後はExcelに画像を挿入する訳ですが、そのまま挿入するのではなく
⑤ メニュー → 挿入 → 図形(オートシェイプ)の「四角形」を好みの大きさに挿入
⑥ 図形の塗りつぶし → 図 → 先ほど保存した画像を選択 
(「枠線なし」などは好みによって変更します)

以上が当方が行っているやり方です。m(_ _)m

Qエクセルデータをカンマ区切り、ダブルコーテーションで囲んだデータにする方法を教えてください

はじめまして。
仕事でエクセルデータをカンマ区切り、ダブルコーテーション囲みのテキストデータにする必要があります。

例)
”111”,"222","","","","666""

このように空白のセルもあり、そのセルもダブルコーテーションで囲みたいです。
VBAで変更する方法をどこかで見かけましたが、張り付けてみましたが、上手く動きませんでした。
超初心者ですので、わかりやすく教えていただけると有り難いです。

お手数をおかけしますが、宜しくお願い致します。

Aベストアンサー

Unicode 出力の件ですが、せっかく、個人用マクロブックに納められる(つもり)ので、それを、書き換えるよりも、後づけマクロのほうがよいかもしれません。一緒にしてしまうと、Unicodeのみになってしまいますから、それも望まないし……
とあれこれ考えて、単独マクロで、Unicodeファイル判別するプログラムもつけました。BigEndien も LittleEndienも別けますが、出力は、BigEndienだけです。
こういうのは、余計なものかもしれません。

'//
Public Sub Convert2UNICODE()
'シフトJISをUnicodeに替えるマクロ
Dim stream As Object
Dim stream2 As Object
Dim fname As Variant
Dim buf As Variant
Dim b() As Byte
Dim i As Long
fname = Application.GetOpenFilename _
 ("File (*.*), *.*", 1, "ファイルオープン")
 If VarType(fname) = vbBoolean Then Exit Sub
 Open fname For Binary As #1
   ReDim b(1 To 6)
    Get #1, , b
  Close #1
 For i = 1 To 6
 buf = buf & Hex(b(i))
 Next
 If buf Like "FFFE*" Or buf Like "FEFF*" Then
  MsgBox "ファイルはすでにUnicodeです。", vbExclamation
  Exit Sub
 End If
 '-------変換プログラム-----------
On Error GoTo ErrHandler
Set stream = CreateObject("ADODB.Stream")
  stream.Open
  stream.Type = 2
  stream.Charset = "shift_jis"
  stream.LoadFromFile fname

Set stream2 = CreateObject("ADODB.Stream")
  stream2.Open
  stream2.Charset = "unicode"
  stream.CopyTo stream2
  stream2.SaveToFile (fname), 2
  stream2.Close
  stream.Close

Set stream2 = Nothing
Set stream = Nothing
Exit Sub
ErrHandler:
 If Err.Number <> 0 Then 
  Msgbox Err.Number & " :" & Err.Description
End If
End Sub

Unicode 出力の件ですが、せっかく、個人用マクロブックに納められる(つもり)ので、それを、書き換えるよりも、後づけマクロのほうがよいかもしれません。一緒にしてしまうと、Unicodeのみになってしまいますから、それも望まないし……
とあれこれ考えて、単独マクロで、Unicodeファイル判別するプログラムもつけました。BigEndien も LittleEndienも別けますが、出力は、BigEndienだけです。
こういうのは、余計なものかもしれません。

'//
Public Sub Convert2UNICODE()
'シフトJISをUnicodeに替えるマクロ
Di...続きを読む

Qこの式の意味を教えてください。 また、FALSEの前の2は何を指してますか? =VLOOKUP(B2

この式の意味を教えてください。
また、FALSEの前の2は何を指してますか?

=VLOOKUP(B2076,'2015'!$C$2:$E$3201,2,FALSE)

B2076が2015シートのC2からE3201に何でしょう。FALSEの前の2は何ですか?

Aベストアンサー

[Excelヘルプ]の説明は次のとおり。
戻り値を含む範囲内の列番号。たとえば、B2:D11 を範囲として指定した場合、B を最初の列、C を 2 番目というように数えます。

Qエクセルファイルが重い。。。簡単に軽くする方法をお願いします!

エクセルファイルが5メガのデータ容量となり、数字を入力するたびに数十秒待たされます。
データはエクセル関数を使った売値とか仕入れ値とかの計算表です。

何故か、商品数が何十倍もある別のファイルの方が軽快に動きますし、軽いです。
2007バージョン、ファイル形式はxlsxです。

軽量化するのに効果がある方法ないでしょうか?
よろしくお願いいたします。

Aベストアンサー

あー編集を繰り返すとゴミが溜まるのかそんなことありますね。

そのファイルから新ファイルに
シート1枚ずつ全コピーしたらゴミを取り除けたりします。
確実な保証は私にはできませんが。

うまくいったら旧ファイルは削除してOK。

Qエクセル Sheet名を自動入力出来るように

初心者なので詳しく教えてもらえると助かります。
Sheet1のセルC18~C34まで任意の文字を打ち込みます。
これをSheet2にSheet1のC18の文字を、Sheet3にSheet1のC19の文字を、、、、
と言う感じでC34までの文字をSheet18まで自動入力するにはどうしたらいいですか?

式をコピペして何処へ貼り付けたらいいのか教えてもらえるとありがたいです。

Aベストアンサー

No.3です。

>エラーは出ないのですが、文字を打ち込んでも何も変わらないのですが、ほかに何か原因があるのでしょうか?

ん?
ご自身でマクロを実行する必要があります。

念のために
① Alt+F11キー → メニュー → 挿入 → 標準モジュール → VBE画面のカーソルが点滅しているところに
前回のコードをコピー&ペーストしてください。
( Sub Sample1() ~ End Sub まで )

② Excel画面に戻り(VBE画面を閉じて)マクロを実行してください。
Alt+F8キー → マクロ → マクロ実行です。

これで何とかならないでしょうか?m(_ _)m

Q<エクセル>2つのデータに間違いがないかをチェックしたい

エクセルで入力したデータが、ルールに基づいて正しく入力できているかどうかを確認するような関数はありますか?

例として(添付画像もつけさせていただきました)「粉薬」と「飲薬」を入力し、各容量を入力します。
「粉薬」と「××g」、「飲薬」と「××」は必ずセットで入力されていることが必須です。
もし誤って「粉薬」のときに「××」と入力をした場合に、間違った入力がされていることが表示されるような関数はありますでしょうか?
枠外に〇や×として表示される
セルに色がつく・・・等

色々検索をして試してみたのですがうまくいきません。
VBAなども出てきたのですが私自身知識が全くないことと、作成したデータをあまりエクセルが得意ではない人が使う可能性などを考え、できれば関数などでできれば・・・と考えています。

Aベストアンサー

=IF(NOT(ISERROR(FIND("粉薬",B2))),IF(NOT(ISERROR(FIND("g",C2))),"○","×"),"・")
b2に粉薬の文字がある場合で、かつ、(c2にgの文字がある場合には、○を表示、ない場合は×を表示)、左記以外は・を表示

QINDIRECT関数の使い方で理解できない点があります。

エクセル2010を使っている者です。

会社で使っているエクセルファイルの数式中に「INDIRECT($J3&G$5&":"&$K3&G5,FALSE)」という記述があり(subtotal関数の参照個所として使っています)、私はINDIRECT関数についておおよその意味がわかっているつもりですが、この部分の意味が理解できませんでした。
なお、数式中に出てくる、J3には「R8」、G5には「C7」、K3には「R500」とセル番地が入力してあります。

となたか、ご教示願います。

Aベストアンサー

R1C1形式表記ですね。
A1表記形式ではないセルの表現方法です。

RはRow(行)で、CはColumn(列)をしめします。
 J3セルのR8は8行
 G5セルのC7はG列
なので
 G8セル
を示しています。
 K3セルのR500は500行
 G5セルのC7はG列
なので
 G500セル
を示していることになります。

すなわち
 $J3&G$5&":"&$K3&G5
この部分は
 G8:G500
の範囲を示していることになります。

Qエクセルの使い方で質問です

一つのセルに、単語の羅列が入ったデータがあります。
このデータを単語ごとに、一つ一つセルに分け、文字数順に並べ替えたいのですが、何かいい方法があれば教えてください。
 現在、タブ区切りでセルに分けるところまではうまくいっているのですが、文字数順に並べ替える方法が分かりません。
 LEN関数を使って文字数で並べ替えを行う方法が別の質問ページで見たのですが、単語の羅列の入ったデータが大量にあります。(具体的には15000個近くあります…)
 横方向の並び替えを使用したとしても、15000回並び替えないといけないことになってしまうのでしょうか…?

こちらエクセルにあまり詳しくないので、頓珍漢なことを書いていたら申し訳ありません。
仕事に必要で、どうしたらよいかわからず途方に暮れております。
ご回答宜しくお願い致します。

こちらエクセル2016を使用しております。
 
説明が分かりにくいと思いましたので、画像を添付させて頂きます。
左側にあるデータが縦に15000個並んでいる感じです。
並び替え後の結果としては、同じ文字数なら順番は特に希望はありません。
宜しくお願い致します。

一つのセルに、単語の羅列が入ったデータがあります。
このデータを単語ごとに、一つ一つセルに分け、文字数順に並べ替えたいのですが、何かいい方法があれば教えてください。
 現在、タブ区切りでセルに分けるところまではうまくいっているのですが、文字数順に並べ替える方法が分かりません。
 LEN関数を使って文字数で並べ替えを行う方法が別の質問ページで見たのですが、単語の羅列の入ったデータが大量にあります。(具体的には15000個近くあります…)
 横方向の並び替えを使用したとしても、15000回...続きを読む

Aベストアンサー

No.1&No.9です。度々、ゴメンナサイ。
VBAにミスがありました。文字数ではなく、値で並べ替えていました。
正しいコードは、次の通りです。置き換えをお願いします。

Function GetWord(文字列 As Variant, 順位 As Variant) As Variant
Dim a As Variant
Dim s As String
Dim i As Long
Dim j As Long
a = Split(文字列, " ")
For i = UBound(a) To 0 Step -1
For j = 0 To i - 1
If Len(a(j)) < Len(a(j + 1)) Then
s = a(j + 1)
a(j + 1) = a(j)
a(j) = s
End If
Next j
Next i
GetWord = a(順位 - 1)
End Function

No.1&No.9です。度々、ゴメンナサイ。
VBAにミスがありました。文字数ではなく、値で並べ替えていました。
正しいコードは、次の通りです。置き換えをお願いします。

Function GetWord(文字列 As Variant, 順位 As Variant) As Variant
Dim a As Variant
Dim s As String
Dim i As Long
Dim j As Long
a = Split(文字列, " ")
For i = UBound(a) To 0 Step -1
For j = 0 To i - 1
If Len(a(j)) < Len(a(j + 1)) Then
s = a(j + 1)
...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報