エクセルの場合セルごとに回転して
たて棒を記入できますが、長音の場合は
特に明朝ではつかえません。
ワープロのようなたて記述の文字がありますか?

このQ&Aに関連する最新のQ&A

A 回答 (2件)

こんばんは。


>セルごとに回転して
って言うのがよくわからなかったのですが、普通に長音を入力確定した後でその
セルの書式設定(セルを右クリックしたメニューの中)-「配置」タブ-「方向」で
文字列と縦に書いてあるところをクリック、OKをしてみてください。

縦記述の文字を入力するのではなく入力した文字を縦にする、ということになりますが
いかがでしょうか?
ある列のセルに一文字づつと言うことであれば、先に列毎クリックして反転、それから
右クリック-セルの書式設定で上記の内容をその列のセル全てに設定してから入力を
始められればよろしいかと思います。

もしわかりづらい、もしくはお門違いであれば補足お願いいたします♪
    • good
    • 0

MS明朝なら、書式→セル→配置で縦書きにすれば出来るはずです。

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

ありがとうございました。
解決できました。
でもたて記述の毎に設定なんて
日本語を考えてくれないのですね。

お礼日時:2001/10/21 04:03

このQ&Aに関連する人気のQ&A

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

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

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

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

Q一番左のシートのセルA6に入力した値を次のシート以降のシートに入力したい

Excel2003でマクロを作成しています。
複数のシートがあり一番最初のシートのセルA6に日付を入力します。
二番目以降のシートのA6に「一番左のシートのA6の値を入力しなさい」という関数をコードに書きます。これを何回も試行錯誤したのですができません。どうコードを書いたらいいかご教示ください。

Aベストアンサー

Dim sht As Worksheet

  For Each sht In Worksheets
    If sht.Index <> 1 Then
      sht.Range("A6").Value = Worksheets(1).Range("A6").Value
    End If
  Next

値ではなく、セルの参照を記入するのであれば
sht.Range("A6").Formula = "=" & Worksheets(1).Name & "!A6"
としてください。

Qエクセル番号記入で別シートへ記入。(注文番号ごとに)

エクセル番号記入で別シートへ記入。(注文番号ごとに)

注文番号ごとに伝票のようなものを作りたいです。
シート1に基本データ(注文番号、工事名、工事店名、設計担当、その他等)を記入します。
シート2を伝票のような感じとして行B4からB10、列B4からH10(行、列番は参考)を使って、シート2のB4に注文番号記入すると、各項目をシート1を参照に必要項目へ記入、印刷したいです。
参考ですが、
C4に現場名、E5に工事店名、E6に設計担当者名、F7に完成予定日、F8に完成日(キーボード記入)等々。
B4に注文番号を記入すると、それぞれのセルの下に関係する内容を自動記入します。
1個の注文番号記入は出来ましたが、注文番号がいくつもある場合の対応ができ、例えば5つの注文番号があればそれらを記入したいです。(最初に作ったセルをコピー等。1日に何カ所もあるのでファイル保存しておきたい)
よろしくお願いいたします。

Aベストアンサー

Sheet1を参照するので、下記の通り整備されているとします。
1列(A:注文番号/B:工事名/C:現場名/D:工事店名/E:設計担当/F:完成予定日/G:備考)
実際のデータは2行目からスタートし、注文番号1つにつき1行の一覧とします。

で、問題のSheet2ですね。
おそらく、B4~H10の範囲に1つ定型を作成して、コピーできれば良いのだと推測しています。

B4 : 注文番号手を入力するところ
C4 : 現場名を出力するために下記を入力
=IF(ISERROR(VLOOKUP($B4,Sheet1!$A$2:$G$100,3)), "",VLOOKUP($B4,Sheet1!$A$2:$G$100,3))
E5 : 工事店名を出力するために下記を入力
=IF(ISERROR(VLOOKUP($B4,Sheet1!$A$2:$G$100,4)), "",VLOOKUP($B4,Sheet1!$A$2:$G$100,4))



というわけで、VLOOKUPでSheet1の一覧から注文番号を探して、その一行に設定されている値を持ってくるということをそれぞれ出力したいセルに記載します。

あとは、これらを成型したB4~H10を注文番号のセルがB列にくるようにコピーしして使い回せばよいかと思います。

言葉足らずなので申し訳ないですが、画像をご参照いたただきたく。

Sheet1を参照するので、下記の通り整備されているとします。
1列(A:注文番号/B:工事名/C:現場名/D:工事店名/E:設計担当/F:完成予定日/G:備考)
実際のデータは2行目からスタートし、注文番号1つにつき1行の一覧とします。

で、問題のSheet2ですね。
おそらく、B4~H10の範囲に1つ定型を作成して、コピーできれば良いのだと推測しています。

B4 : 注文番号手を入力するところ
C4 : 現場名を出力するために下記を入力
=IF(ISERROR(VLOOKUP($B4,Sheet1!$A$2:$G$100,3)), "",VLOOKUP($B4,Sheet1!$A$2...続きを読む

Qcanon MP600でA6ふちなし印刷

Canon MP600でA6ふちなし印刷

上記が出来る方法を探しております!急いでいます!

大変お恥ずかしい話ですが、A6原稿を作成した後にプリンターがA6に対応していないことに気がついてしま いまして…

easyphotoprintを試したのですが…ダメでした。
あとはPhotoshopです。
用紙をハガキに設定し、はみ出し量を最大に設定して印刷したのですが、右端が少し切れて左端が少し白くなってしまいます…


恥を承知の上お願いいたします!
Canon MP600でA6ふちなし印刷を出来る方法を教えてください!!

Aベストアンサー

PhotoshopでA6に目いっぱい作り直すのは可能でしょうか?
(むしろ元原稿全体をお使いのアプリケーション上で拡大できれば簡単なのですが。)
それが可能ならフチなし印刷ではなく作り直した原稿通りの大きさで印刷することはできると思います。

Photoshopではトンボを付けられると推測しますが、そうだとするとプリンタードライバ用紙設定をA4に設定しますとA4の実紙にA6のトンボ付きでプリントアウトされます。A6に切り抜けば完成します。A5の実紙を使っても同じです。
実際の操作は違うかもしれませんが、要点は大きい用紙設定をして小さい用紙のトンボを付けることです。

ただ上記はお使いの用紙を他の物に替えたくないならダメですが。

Aベストアンサー

左側に1列挿入して、その列に「1,2,3,4,5,1,2,3・・・」と縦に数字を入れます。
縦計を取りたいセルで、
=SUMIF(A1:B20,1,B1:D20) 
のように入力すると、B1,B6,B11,B16のセル計が取れます。
同様に検索条件の「1」を「2」に変えると、
B2,B7,B12,B17のセル計が取れます。

この関数の意味は
=SUMIF(範囲、検索条件、合計範囲)です。

Qキャノンのプリンターで、A6印刷。

こんにちは!

この度、キャノンのip4200を購入し、同時にFUJIの
画彩写真仕上げA6を購入してきました。
A6を選んだのは、L版では少し小さく、2Lではちょっと
大きすぎるからだったのですが・・・。

ここで、プリンターのメニューで、A6がないことに
不覚ながら気がつきました。&、自分でサイズを
決める画面も見つけられませんでした・・・。

どなたか、A6の用紙に、出来れば、縁無しで印刷
出来る設定を、お教え頂きたく、思います。m(__)m

Aベストアンサー

いやいくらなんでも「はずれ」っていうのはないと思うんだけど。

#というつっこみでいいんだろうか?

ほんとにキヤノンのドライバーが入っているかどうか確認して、あやしければ再インストールがいいかと思う。
(印刷できるかどうかではなく。)
もう一度マニュアルを確認してみましょう。

わたしはiP4200を使っていないので詳しくはわからないが、今ダウンロードされているものとバージョンが同じかどうか確認しましょう。

#4さんが書いたように「印刷設定」の中に「ページ設定」タブが見つからなければ話が始まらない。


わたしが書いた「サーバーのプロパティ」というのはそのプリンターを開く前に、「プリンタとFax」の「ファイル」を探すんですよ。

参考URL:http://cweb.canon.jp/drv-upd/bj/ip-series.html

Qエクセルでクリックするごとに番号を記入は可能?

エクセルでクリックするごとに番号を記入は可能?

エクセルで質疑項目をまとめたものがあるのですが
各質疑ごとに1から番号を振ることになりました。

1行ごとに連番とするのではなく
質疑項目が2行や4行などそれぞれなので
1を入力
次の質疑まで↓カーソル
2を入力
・・・
とアナログな方法で記入しています。

理想としては
番号を付けたいセルをクリックするごとに
番号が
1,2・・・とふられればいいなと思っています。

こんなことって可能でしょうか?

Aベストアンサー

 回答番号:ANo.4です。

>=MAX(INDIRECT("A1:A"&ROW()-1))+1),↓ の入力をコピペしたのですが
エラーメッセージのタブをクリックすると 入力した数式は正しくありません。と表示されました。

 それでは、先頭に「,」を追加して、

,=MAX(INDIRECT("A1:A"&ROW()-1))+1),↓

としてみて下さい。


>A2セルを選択 というのは例えば数字がA8に1と入る場合は A8を選択するのでしょうか?

 Excelの用語で言う、A2セルをアクティブにするという意味です。
 入力可能なセルは、黒い太枠で囲まれていますが、

●A2セルをクリックする
●キーボードの「→」「←」「↑」「↓」キーを使用して黒い太枠の位置を移動させる

等の方法で、黒い太枠の位置をA2セルに合わせる、という意味です。

QアウディA6アバントのステアリング

中古のアウディA6アバント(97年)を購入したのですが、ステアリングが擦れてかなり汚いので交換しようと思っています。でも値段が高い! オークションなどで探していますが、97のA6のステアリングがなかなかない状態です。そこでA6の新しい(98~02)タイプのものでも合うのか、あるいはA4のものでも合うのかなど、どなたかご存じの方がいらっしゃったら教えてください。A4でもいろいろあると思いますが、何年のものなら合う、など情報を提供いただければ幸いです。

Aベストアンサー

大事な事を書くのを忘れていました。

アウディのハンドルであれば、A3、A4、A6等車種に関わらず、ボスが共通なので、ステアリングは付くと思いますが、97年式のA6のステアリングが手元に無いので、ディーラーで確認してみてください。

98年以降のA3、A4、A6のステアリングは、調査の結果、ボスが共通なので、互換性があります。

なお、普通、ボスの変更はあまりしないので、04年モデルでも、ステアリングの取り付けは、大丈夫と思います。
(#1で回答したとおり、コネクタの加工は必要でしょうが)

Qエクセルの棒グラフで棒と棒を線で繋ぎたいのですが

皆様
宜しくお願いします。
エクセルの棒グラフで棒と棒を線で繋ぎ「成長率」を示したいと思っています。
一旦、棒グラフだけ作り、パワーポイント上で線で結ぼうかと思いましたが、パワーポイントでは微妙な線を描くことが出来ず、キッチリ収まりません。
エクセルのグラフ機能で出来るのではないかと思い、質問させて頂きました。
ご教示頂ければ幸いです。
宜しくお願い申し上げます。

Aベストアンサー

>棒グラフで棒と棒を線で繋ぎ「成長率」を示したいと
成長率は、棒グラフに値で良いのでしょうか?
例えば
 A  B  C
年月 売上 成長率
1月  100
2月  150
・・・とあれば 成長率に =B2 とでもいれて列を準備して棒グラフを作成
作成された棒グラフの成長率の部分を右クリックして グラフの種類
折れ線グラフを選択すると成長率の線のみ折れ線グラフになります。
意図する部分が前月比とかでしたら
B3に =B3/B2 とでも準備して、成長率のグラフの線を右クリック
データ系列の書式設定 軸のタブで2軸にチェックすると 右側にも目盛が出来ます。

Q=CONCATENATE(A6:C6)のようにできますか?

Win2000/EXCEL2000で、連続するセルの内容を結合するのに、=CONCATENATE(A6,B6,C6)ならできるのに、
=CONCATENATE(A6:C6)では入力はできますが結果はエラー(#VAKUE)になります。
セルが多い場合不便ですが、使い方を誤っているのでしょうか?

Aベストアンサー

=CONCATENATE(A6:C6)はマイクロソフトもはっきり出来ないと言っているので無理ではないかと。

参考URL:http://support.microsoft.com/default.aspx?scid=kb;ja;294286

QVBAの記述で、あるシートを別ファイルにした場合

エクセル2002で、商品を管理しています。
1列目に品番をいれると、2列目に品名が表示するようにし、
新規の品番は品名を入れると、追加登録されるようにVBAを組みました。
今度、このシート"商品"を別ファイル(商品.xls)にしたいと思うのですが、
どうしても、やり方が分かりません。
よろしくお願いします。

Public Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim 品番 As String
Dim 品名 As String
Dim i As Long

With Target
If .Column = 1 Then
品番 = .Text
For i = 1 To 65536

If Sheets("商品").Cells(i, 1) = "" Then
ActiveSheet.Cells(.Row, 2) = ""
Exit For
ElseIf 品番 = Sheets("商品").Cells(i, 1) Then
ActiveSheet.Cells(.Row, 2) = Sheets("商品").Cells(i, 2)
Exit For
End If
Next i
End If
If .Column = 2 Then
品名 = .Text
品番 = ActiveSheet.Cells(.Row, 1)

If 品名 = "" Or 品番 = "" Then
Else
For i = 1 To 65536

If Sheets("商品").Cells(i, 1) = "" Then
Sheets("商品").Cells(i, 1) = 品番
Sheets("商品").Cells(i, 2) = 品名
Exit For

ElseIf 品番 = Sheets("商品").Cells(i, 1) Then
Exit For
End If
Next i
End If
End If
End With
End Sub

エクセル2002で、商品を管理しています。
1列目に品番をいれると、2列目に品名が表示するようにし、
新規の品番は品名を入れると、追加登録されるようにVBAを組みました。
今度、このシート"商品"を別ファイル(商品.xls)にしたいと思うのですが、
どうしても、やり方が分かりません。
よろしくお願いします。

Public Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim 品番 As String
Dim 品名 As String
Dim i As Long

With Target
If .Column = 1 Then
品番 = .Text...続きを読む

Aベストアンサー

補足に対するお手数をおかけいたしました。早速サンプルマクロを作ってみました。以下のように操作してみて下さい。

1.商品台帳.xlsというブックと商品コードというブックを新規に作る。それぞれのブックのシート1のA1にコード・B1に商品名と入力する。
2.商品台帳.xlsのVBE画面を開き、VBEProjectの下にあるThisWorkbookをダブルクリックしてThisWorkbookのコードエディターを開く。
3.そのコードエディターに下記のコードをコピー・ペーストする。

Private Sub Workbook_Open()

Dim myBook As Workbook
Dim myWbn As String

For Each myBook In Workbooks
myWbn = myBook.Name
If myBook.Name = "商品コード.xls" Then Exit Sub
Next

Workbooks.Open ("C:\My Documents\商品コード.xls")
Workbooks("商品台帳.xls").Activate

End Sub

4.Sheet1のコードエディターを開き、下記のコードをコピー・ペーストをする。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myRow As Integer
Dim myWsn As Worksheet
Dim myCell As String
Dim myRange As Range

myRow = Target.Row
If Target.Address = Range("A" & myRow).Address _
Or Target.Address = Range("B" & myRow).Address Then
Set myWsn = Workbooks("商品コード.xls").Worksheets(1)
myCell = myWsn.Range("A1").CurrentRegion.SpecialCells(xlCellTypeLastCell).Address
Set myRange = myWsn.Range("A2:" & myCell).Find(Target.Value, lookat:=xlWhole)
Application.EnableEvents = False
If myRange Is Nothing Then
If Target.Address = Range("A" & myRow).Address Then
myWsn.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Target.Value
Else
myWsn.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Value = Target.Value
End If
Else
Target.Offset(0, 1).Value = myRange.Offset(0, 1).Value
Target.Offset(0, 1).Columns.EntireColumn.AutoFit
End If
Application.EnableEvents = True
End If

End Sub

あなた様のおやりになりたいことが、できます。

何か不都合なことがありましたら、ご遠慮なくお知らせ下さい。修正サンプルマクロを作りたいと思います。

補足に対するお手数をおかけいたしました。早速サンプルマクロを作ってみました。以下のように操作してみて下さい。

1.商品台帳.xlsというブックと商品コードというブックを新規に作る。それぞれのブックのシート1のA1にコード・B1に商品名と入力する。
2.商品台帳.xlsのVBE画面を開き、VBEProjectの下にあるThisWorkbookをダブルクリックしてThisWorkbookのコードエディターを開く。
3.そのコードエディターに下記のコードをコピー・ペーストする。

Private Sub Workbook_Open()

Dim m...続きを読む


人気Q&Aランキング