エクセル(Excel)で、セルに斜線を引くことはできますね。
斜線を引くと、2つの直角三角形に分かれます。
問題は、その2つの直角三角形のそれぞれに別々に文字を入力したいのですが、
どうすればよいでしょうか。

具体的に言うと、以下のようなことです。
野球の得点表(スコアボードって言うのでしょうか。)って、縦軸にチーム名を書いて、横軸に回(一、二、三、・・・)を書いていきますよね。
 エクセルでそれを書くとすると、A2、A3 セルにチーム名を書いて、B1、C1、D1… セルに 一、二、三、と書いていけばよいですね。
 そのときに、A1セルに、右下がりの斜線を引いてセルを二つの三角形に分けて、
左下の三角形に「チーム名」と書いて、右上の三角形に「回」と書きたいのです。
 「チーム名」と書く部分と、「回」と書く部分が影響しないようにしたいのです。

(わかりやすく説明するための例としてスコアボードを挙げただけで、実際につくる表はスコアボードではなくて、もう少し長い文字数を書き込みます。
また、実際に使われているスコアボードに「チーム名」とか「回」とか書いてあるかどうかは、ここでは問題ではありません。)

なお、エクセルである必要はありません。ワード(Word)でもいいです。

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

A 回答 (9件)

僕も結構Excel97とWord98を使いますが、


残念ながら求めておられる様な便利な機能は知りません。

ただ、同じことで悩んだ経験はあります。
で、結局諦めて次の方法をとっています。

テキストボックスをそれぞれの場所へ配置する!
もう図形描画機能に頼るしかありません。
(書式設定で、色→塗りつぶさない、枠線→色なし)

あまり良い方法ではないかもしれませんが、僕の知っている最良の方法です。
ボックスの大きさは文字のサイズ等によって変えなくてはならないし、
三角形の中に収まるように調整しなくてはならないし・・・
(しかもプレビューを見ながら)
結構、最初は手間かもしれませんが慣れるとそうでもありません。

・・・あまりアドバイスにもなってないかな??

この回答への補足

ご回答有難うございます。

いま、考えたのですが、
エクセルのオートシェイブの中の基本図形の中に直角三角形があって、その中にテキストが書けるようなのです。
しかし、そのテキストは、長方形の形になります。
文字が直角三角形の形に並べば、かなり求めているものに近いのですが。。。

補足日時:2001/12/13 23:17
    • good
    • 0

下のようにしてたくさんの文字列を配置してみました。



テキストボックスか四角形を2つ用意して、(テキストボックスとします)
(1)1つ目のテキストボックスにテキストを入力します。(上の三角形用です)
(2)適当な位置でCtrl+Enterで改行します。
(3)改行された2行目が斜線に触れない様に2行目の先頭に空白を挿入します。
(4)3行目以下、(2)、(3)を繰り返します。

(5)2つ目のテキストボックスにテキストを入力します。(下の三角形用)
(6)テキストが罫線に触れないようにCtrl+Enterで改行します。これを繰り返します。

これでテキストボックスに入った、2つの三角形の形状をしたテキストができます。

(7)2つのテキストボックスを表示するセルに移動して位置合わせ。
   塗りつぶしなし、線なしにします。

フォントを小さくして、範囲(フォントサイズ8、セルの幅20、セルの高さ60)に全角で上下50~60文字設定可能でした。

(追)
2つの文字列を用意しておいて、斜め線にかぶらないような文字列を作り出すユーザー定義関数を作ることも考えられますね。
フォントの大きさや、斜め線の角度が問題になりそうですが。
    • good
    • 0

ワード(Word)でもいいですとのことですから、


まず、ワードで罫線を引きます。左上のセルの左側縦罫線にポインタを合わせると、少し太い斜め右上矢印が現れますから、クリックするとセル内が黒くなり、セル選択状態になります。(セルに何か文字を入れて、ドラッグしても可)
「罫線」→「線種とページ罫線と網かけの設定」と選択。「罫線タブ」をクリックして、右プレビュー画面の右下の「斜め罫線」を選択です。
セルを選択しないと、全てのセルに斜め罫線が入ります。

文字を入力後、セル左下部のテキストをドラッグ選択して、「書式」→「フォント」と選択後「文字幅と間隔」画面を表示。「位置」窓で「下げる」を選択します。次にセル右上の文字は同様にして、「上げる」を選択。必要に応じて文字ポイントを変更します。
一応これで体裁は整います。(一太郎でしたら、もっと細かな設定方法をアドバイスできるのですが、ワードは不得意なもので、これで精一杯です。ごめんなさい。)
    • good
    • 0
この回答へのお礼

アイディアとしては斬新なんですが…

「上げる」「下げる」といっても、1つの行の中でほんの少し上寄りか下寄りという感じがします。

お礼日時:2001/12/22 10:37

失礼しました


半角スペースの連続は無視されちゃうんですね!

   A     B     C
 +----------+---------+------------+
1| 斜め罫線 タイトル |
 +     +     + 上下の結合 +
2| タイトル 斜め罫線 |
 +----------+---------+------------+
3|   左右列結合   |
 +----------+---------+
4|          |

・AとB列幅は同じにする
・縦タイトルは A2に 横タイトルはB1に記入
    • good
    • 0
この回答へのお礼

これってつまり、
1行目と2行目を結合する、A列とB列を結合する、(ただし、A1、A2、B1、B2は結合しない。)
ということですよね。

お礼日時:2001/12/22 10:30

こんばんは!



   A     B     C
 +---------+---------+-----------+
1| 斜め罫線 タイトル |
 + + + 上下の結合 +
2| タイトル 斜め罫線 |
 +---------+---------+-----------+
3|   左右列結合 |
 +---------+---------+
4| |

単純に、こんな感じではダメなのでしょうか?
    • good
    • 0

>なお、エクセルである必要はありません。

ワード(Word)でもいいです。
だとしたら
一つのセルに2行入れる必要があるんですか?
一つのセルに拘らずに文字がうまく配置できるように適当なセルに文字列を入力した後に
オートシェイプで囲み線と斜めの線を引くのではダメなのですか?
    • good
    • 0

方法2


通常のテキストボックスに記入し、そのテキストボックスを選択し(文字入力状態ではない)、Ctrl+1でプロパティをだし、色と線で、塗りつぶしなし、線なしを指定する。
これで、フリーな位置にかける文字ができます。

方法2
三角のテキストボックスですが、オートシェイプで任意の図形を作成、
右クリックし、「テキストの追加」を選択。
これで、三角形に文字がかけます。ただし、これはバージョンに依存したと思います。
あと、文字が入る様にすると三角形はかなり大きくなります。

この回答への補足

>オートシェイプで任意の図形を作成、
というのは、好きな図形を選ぶという意味ですよね。

>右クリックし、「テキストの追加」を選択。
>これで、三角形に文字がかけます。
三角形に文字が並ぶという意味ですか?

私はEXCEL2000ですが、三角形の中にテキストを追加すると長方形に並ぶのですが。。。。

これを三角形のならぶようには出来ないのでしょうか。(・_・;)

バージョンによって違うのでしょうか。

補足日時:2001/12/13 23:35
    • good
    • 1

セルの大きさを大きくするか、セルを結合して、


文字が入るスペースを確保します。

次に罫線を斜めに入れ、
セルの書式設定の「配置」で「縦位置」を、
「上詰め」にします。

あとは、「 」スペースをうまく使ってセルに文字を入力し、
右上と左下に文字が表示されるようにうまく調整。
私はこの方法で実現しました。

あまりスマートな方法ではないですが、
どうでしょうか。
    • good
    • 0
この回答へのお礼

ありがとうございます。

お礼日時:2001/12/13 23:29

1つのセルに斜線の罫線を入れてから、




チーム名

と書いて、「回」を右寄せ、「チーム名」を左寄せで書くとそれらしく書けます。
但し、セルの高さと幅をある程度調整してやる必要がありますよ。

これで、どうです?

或いは、テキストボックスで貼り付ける方法も在りますね。

この回答への補足

ご回答有難うございます。

>これで、どうです?

言わんとしていることはわかります。
しかし、実際に作る表では、「回」や「チーム名」よりももっと長い文字を書くもので、互いに影響しないようにしたいのです。

>或いは、テキストボックスで貼り付ける方法も在りますね。

直角三角形のテキストボックスがあればそういうことが出来るのですが、、、
(もしかして、テキストボックスって直角三角形のものがあるのですか??)

#あっても「ボックス」とは言わないかも。

補足日時:2001/12/13 23:05
    • good
    • 0

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

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

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

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

Qエクセル プルダウンの作り方

お世話になります。
エクセルでプルダウンの作り方を教えていただけませんでしょうか?
住所を▼のボタンでクリックしたら【北海道,青森,秋田,岩手・・・】などの選択ができるようにしたいのです。
宜しくお願いします。

Aベストアンサー

メニューから「データ」、「入力規則」、「設定」で「入力値の種類」を「リスト」を選択します。
そうすると「元の値」という表示がでますので、そこで前もって作っておいたリストの範囲を指定します。
多くないのでしたら、そのままそこにカンマで区切って入力しても出来ます。

Qエクセルで2辺の長さがわかってる直角三角形の角度を求めるには?

エクセル2003です。
直角三角形の2辺の長さA,Bはわかってます。
もう1辺の長さはC=SQRT(A*A+B*B)で出せます。

これで角度を求めるにはどうすればよいですか?
具体的な式を教えてください。

Aベストアンサー

C /|
 / |B
/--┘
 A

のときC辺とA辺の挟角をθとすると

tanθ = B/A
θ(デグリー)は
 =ATAN(B/A)*180/pi() 
で求められます

Qエクセルでプルダウンメニューの作り方

  エクセルの画面で、よく三角形を逆さまにした形をクリックするといくつかメニューが出てき、どれかを選べるようになっていますが、その作り方を教えてください。
 会社で人事を担当していますが、三角形(プルダウンボタン)をクリックすると社員氏名一覧が表示され、そこから選択できるようにしたいのです。
 しばらく自力でいろいろやってみましたが、さっぱり見当がつかず、どうやればいいのか分かりませんでした。よろしくお願いします。

Aベストアンサー

こんばんは!
当方使用のExcel2003での一例です!

↓の画像のようにSheet2に名簿表を作成しておきます。
画像ではSheet2のA2セル以降を範囲指定 → 名前ボックスに仮に「名簿」と入力しOK
これで範囲指定したセルが「名簿」と名前定義されましたので、

Sheet1のリスト表示させたいセルを範囲指定 → メニュー → データ → 入力規則
→ リスト → 「元の値」の欄に
=名簿
としてOK

これでSheet1のセルをアクティブにすると右側に下向き▼が表示されますので、そこをクリック!
これで希望に近い形にならないでしょうか?
Excel2007の場合は↓のURLが参考になるかもしれません。

http://www.eurus.dti.ne.jp/~yoneyama/Excel2007/excel2007-ny_kis2.html

尚、同一Sheetに「名簿表」を作成する場合は名前定義する必要はなくて
「元の値」の右側の四角をクリックし、リスト表示したいセルをそのまま範囲指定すればOKです。

以上、お役に立てば良いのですが・・・m(_ _)m

こんばんは!
当方使用のExcel2003での一例です!

↓の画像のようにSheet2に名簿表を作成しておきます。
画像ではSheet2のA2セル以降を範囲指定 → 名前ボックスに仮に「名簿」と入力しOK
これで範囲指定したセルが「名簿」と名前定義されましたので、

Sheet1のリスト表示させたいセルを範囲指定 → メニュー → データ → 入力規則
→ リスト → 「元の値」の欄に
=名簿
としてOK

これでSheet1のセルをアクティブにすると右側に下向き▼が表示されますので、そこをクリック!
これで希望に近い形にならない...続きを読む

QExcelのセルに斜線を引くマクロ

Excel2007を使用しています。
画像のように,「印刷」シートと「データ」シートがあります。
画像のように,「印刷」シートのAO112~BZ112のセルを結合しています。

そのセルには,VLOOKUP関数で,「データ」シート10列目のデータを返すようにしています。
関数を見てもらえば分かるとおり,
もし10列目にデータがなければ(VLOOKUPで値が0なら)””(空白)を返すようにしています。


以上のようなシートで,このセルにデータが無い場合,
画像のAO113~BZ113のように右上がりの斜線を引きたいのです。
もちろん,データが入っている場合は,斜線は消します。

マクロに関しては,まだまだ初心者のため,
ほとんど分からないので,分かりやすく教えていただけませんでしょうか?
お願いします。

Aベストアンサー

No.2です。

次のように変更しました。

If Target.Column = 81 And Target.Row = 2 Then
'Stop
myR = Application.VLookup(Range("$CC$2"), Sheets("データ").Range("1:1048576"), 10, False)
If IsError(myR) Then
Range("AO113:BZ113").Borders(xlDiagonalUp).LineStyle = xlContinuous
Range("AO113:BZ113").ClearContents
Else
Range("AO113:BZ113").Borders(xlDiagonalUp).LineStyle = xlNone
Range("AO113:BZ113").Value = myR
End If

Qエクセル(Excel) 納品書の作り方【画像修正版

昨日http://oshiete.goo.ne.jp/qa/7348426.htmlで質問させていただき、詳しくご回答いただき少し進んだのですが、状況が変わったので改めて質問させていただきます。

■エクセル(Excel)で納品書の作成をしています。
シート1に納品書、シート2に商品マスタ(一覧)を作っていて、シート2の一覧を反映させて
納品書に番号を打ち込むだけで、商品名・単価までが出るシステムを作りたいのですが、
昨日のご回答の中の「VLOOKUP」?を入れて、自分なりにマス目の数字を変えてやってみたのですが
反映されずN/?のようなエラーになってしまいます。

※画像が見にくかったのでシート<CENTER></CENTER>だけにしました。

1、上記のように、シート2との関連付けの係数を、写真の場合の数字で教えてください。

2、合計と、合計から20%を引いた数値を割り出す関数も、写真の数字で御願いします。

宜しくご教授お願い致します。

Aベストアンサー

こんばんは!
前回投稿した者です。

当方もかなり古い(人間も古い!なぁ~んちゃって!)Excel2003を使用しています。
↓の画像のようにSheet2にデータを作成しておきます。

#N/A というエラーは、「検索値」がない!ということですので
お示しの画像のB列にSheet2のA列にないデータを入力するとそういったエラーが表示されます。

画像のセル配置ですと
C4セルに
=IF($B4="","",VLOOKUP($B4,Sheet2!$A:$C,COLUMN(B1),0))
(「$」マークの位置に気を付けてください)
という数式を入れD4セルまでオートフィルでコピー!
そのまま最後の24行目までコピーしておきます。

F4セルには
=IF(COUNTBLANK(B4:E4),"",D4*E4)
という数式を入れ、F24までオートフィルでコピー!

これでB列に商品番号を入力すればSheet2のデータが反映され、
E列に数量を入力でF列に金額が表示されると思います。

最後に合計金額のF26セルは
=IF(COUNT(F4:F24),SUM(F4:F24),"")
手数料のF27セルは
=IF(F26="","",F26*0.2)

これで何とか形にならないでしょうか?

※ 振込金額の欄は不明ですので手を付けていません。

参考になりますかね?m(_ _)m

こんばんは!
前回投稿した者です。

当方もかなり古い(人間も古い!なぁ~んちゃって!)Excel2003を使用しています。
↓の画像のようにSheet2にデータを作成しておきます。

#N/A というエラーは、「検索値」がない!ということですので
お示しの画像のB列にSheet2のA列にないデータを入力するとそういったエラーが表示されます。

画像のセル配置ですと
C4セルに
=IF($B4="","",VLOOKUP($B4,Sheet2!$A:$C,COLUMN(B1),0))
(「$」マークの位置に気を付けてください)
という数式を入れD4セルまでオートフィルで...続きを読む

Qセルを結合しないで、一番上セル右上から一番下セル左下への斜線・・・

エクセルで・・・
 A1からA2,A3,A4・・・と下へ見てきて、
  A3が空白ではなかったら、A1セル右上からA2セル左下へ斜線を引く・・・
  A4が空白ではなかったら、A1セル右上からA3セル左下へ斜線を引く・・・
というように設定したいのですが、
このとき、セルを結合したくない場合は、図形を使う以外に方法はありますか?
また、図形を使うとしたら、セルがいくつ空いているかを判定させて、
使う図形を決めておかなくてはならないと思うのですが、
その設定の仕方を教えてください。
できましたら具体的に記述して教えてください。

Aベストアンサー

結合しないで線を引く方法は思いつきませんでした。

>また、図形を使うとしたら、セルがいくつ空いているかを判定させて、
>使う図形を決めておかなくてはならないと思うのですが、・・・
使う図形を決めておくのも面倒(何個定義すればいい?)なので、自動的に線を引くVBAを書いてみました。線を引きたい列の範囲(連続範囲)を選択して実行します。
質問から、どの列を選択するかは任意ですが、選択列数は1としてあります。

標準モジュールに貼り付けます。
Public Sub myLineAdd()
  Dim Retu As Integer '線を引く列
  Dim rg As Range 'セル
  Dim myLine As Shape '線
  Dim rgStart, rgEnd As Range '線を引くために基準となる開始セル、終了セル
  Dim srtX, srtY, endX, endY As Double '線の位置(開始x,y、終了x,y)
  Dim selStart, selEnd As Long '処理を行う開始行、最終行
  Dim rw As Long '行カウンタ

  With Selection
    Retu = Val(.Column) '線を引く列をセットする
    selStart = .Cells(1, 1).Row '対象の最初の行
    selEnd = .Cells(.Rows.Count, 1).Row '対象の最後の行
  End With

  For rw = selStart To selEnd
    If Cells(rw, Retu) = "" And rgEnd Is Nothing Then
      Set rgEnd = Cells(rw, Retu) '空白セルの最初(線を引く最後)
    End If
    If Cells(rw, Retu) <> "" And Not rgEnd Is Nothing Then
      Set rgStart = Cells(rw - 1, Retu) '空白セルの最後(線を引く最初)
      '線を引くための座標
      srtX = rgStart.Left '開始横座標
      srtY = rgStart.Top + rgStart.Height '開始縦座標
      endX = rgEnd.Left + rgEnd.Width '最終横座標
      endY = rgEnd.Top '最終縦座標
      '線を引く
      Set myLine = ActiveSheet.Shapes.AddLine(srtX, srtY, endX, endY)
      Set rgEnd = Nothing '空白セルの最初を初期化
    End If
  Next
  Selection.Cells(1, 1).Select '選択解除
End Sub

結合しないで線を引く方法は思いつきませんでした。

>また、図形を使うとしたら、セルがいくつ空いているかを判定させて、
>使う図形を決めておかなくてはならないと思うのですが、・・・
使う図形を決めておくのも面倒(何個定義すればいい?)なので、自動的に線を引くVBAを書いてみました。線を引きたい列の範囲(連続範囲)を選択して実行します。
質問から、どの列を選択するかは任意ですが、選択列数は1としてあります。

標準モジュールに貼り付けます。
Public Sub myLineAdd()
  Dim Retu...続きを読む

Qエクセル(Excel) 納品書の作り方【改めて】

昨日http://oshiete.goo.ne.jp/qa/7348426.htmlで質問させていただき、詳しくご回答いただき少し進んだのですが、状況が変わったので改めて質問させていただきます。

■エクセル(Excel)で納品書の作成をしています。
シート1に納品書、シート2に商品マスタ(一覧)を作っていて、シート2の一覧を反映させて
納品書に番号を打ち込むだけで、商品名・単価までが出るシステムを作りたいのですが、
昨日のご回答の中の「VLOOKUP」?を入れて、自分なりにマス目の数字を変えてやってみたのですが
反映されずN/?のようなエラーになってしまいます。

※画像が貼り付けてあります。商品名は1番以外伏せさせていただいています。
くっつけてありますが、左側がシート1・右側がシート2です。

1、上記のように、シート2との関連付けの係数を、写真の場合の数字で教えてください。

2、合計と、合計から20%を引いた数値を割り出す関数も、写真の数字で御願いします。

宜しくご教授お願い致します。

Aベストアンサー

画像がいまいちよく見えないのですが、納品書の項目は左から、No、商品番号、商品名、単価、数量、金額でいいのでしょうか(名前は多少違っていても意味があっていればもんだいないです)

でしたら、
C1セルに=IF(ISBLANK(B2),"",VLOOKUP(B2,Sheet2!$A$2:$C$200,2,FALSE))
D1セルに=IF(ISBLANK(B2),"",VLOOKUP(B2,Sheet2!$A$2:$C$200,3,FALSE))
E1セルは空白で
F1セルに=IF(D2="","",D2*E2)
といれて、C1からF1までをコピーしてその下の行にタテに貼り付ければ出来ますよ。
おそらくエラーが出たのは、コピーしたときにVLOOKUP関数の最初のセルの指定がずれてしまっているのでは無いかと思いますよ。     

Qエクセル セルに斜線を引きたい

エクセルで表を作っています。
罫線(田の字形のアイコン)で罫線を書いたのですが、空白のセルに斜線を引きたいと思っています。
どうする方法が簡単でしょうか?
宜しくお願いいたします。

Aベストアンサー

斜線を引きたいセルの上で右クリック。
「セルの書式設定」を選ぶと、「罫線」というのがありますので、いろんな線が引けます。
右斜線でも左斜線でも、×だって大丈夫ですよ。

Qエクセル2007でプルダウンで選んだものに反応

Excel2007でプルダウンで選んだものに反応して隣のセルが自動入力される方法(エクセル2007)
A1をプルダウンで「猫」「犬」から選べるようにし、「猫」を選んだ場合B1に自動に「111」が、「犬」を選んだ場合B1に自動に「222」と入力されるようにしたいです。
ご教授の程、宜しくお願いします。

Aベストアンサー

VLOOKUP関数での方法です。
(1)別シートに入力文字列と対応コード表を作成。(仮にSheet2のA:B列範囲で順不同)
(2)B1に=IF(COUNTIF(Sheet2!A:A,A1),VLOOKUP(A1,Sheet2!A:B,2FALSE),"")を設定
   入力文字列が存在しない場合は空白としています。

QExcelでセルに斜線を引く場合

Excelで結合したセルにセルの書式設定から罫線で斜線を引くと文字が中央に行ってしまいます。横は右揃えとか出来るのですが縦は出来ないのでしょうか?
(文字を左上ぞろえにしたいんです。)

Aベストアンサー

セルの書式設定>配置タブ>縦位置(横位置)でできるはずですが・・・。


人気Q&Aランキング

おすすめ情報