No.12ベストアンサー
- 回答日時:
No.5の回答者です。
> 「三段」は「三行三列」のことです。
難しい課題ですね。
他の回答者さんも書いているように、図形の[直線]を使わないで罫線を
引けるのは、三行を結合していない場合だけですよね。
列においても、3列を結合していると[文字の割り付け]が使えません。
この場合は、列の結合も解除するなどして、[文字の割り付け]を三列に
配置するように、他の方法を検討するしかないと思います。
私なりの考えた方法:
三行三列の範囲で結合してある状態を解除します。
これで左上だけに入力した文章が残ります。
三行三列を選択して、[セルの書式設定]の[配置]タブを開きます。
[横位置]のプルダウンメニューから[選択範囲内で中央]を選択します。
左上から複数列にまたがっていた文章が、最初の行の三列のみになり、
文章の前後が見えない状態になったと思います。
その状態で[文字の割り付け]を実行。
三列内での三行に文字が割り付けられたと思います。
罫線を行単位で点線で設定。これで希望している三段という状態になり、
結合されなくても配置できていると思います。
このままだと最終行の文字列が中央配置のままなので、[横位置]に設定
されている[選択範囲内で中央]を[標準]などに戻します。
たぶん、これで希望していることと同じになると思います。
ありがとうございました。できました。難点はセルの幅を変えた時に文字列が自動的には調整されないことですね。文章が完成した後にこの方法ですると良いと思いました。
No.11
- 回答日時:
No.4です。
No.8さんのお礼欄に
>文章と文章の中間に点線を引きたいのですが
とありますが、
どうしてもExcelでないとダメなのですか?
細かい体裁を整えたい場合はWordにはかなわないと思います。
Excelは表計算ソフトですので、表の細かい加工は不得手です。
どうしてもとなれば前回同様VBAになりますが、
前回のSample1を消去し、↓のコードに変更してみてください。
Sub Sample1() 'この行から//
Dim k As Long, cnt As Long, c As Range
Set c = Selection
cnt = c.Rows.Count
For k = 1 To cnt - 1
With Shapes.AddLine(c.Left, c.Top + c.Height / cnt * k, c.Left + c.Width, c.Top + c.Height / cnt * k).Line
.ForeColor.RGB = vbBlack
.DashStyle = msoLineDash '←追加★
.Weight = 0.5
End With
Next k
End Sub 'この行まで//
なんとかこれで破線が表示されると思います。m(_ _)m
ありがとうございます。エクセルで作られた定型文書に入力しています。VBAを使えるとなんでもできて便利そうですね。楽しいでしょうね。
No.8
- 回答日時:
①そのセルを右クリックする
②「セルの書式設定」を選択する
③メニュー「フォント」を選択後、サブメニューの「下線」から文字の下に引きたい線の種類を選択します。
No.6
- 回答日時:
結合したセルに罫線は引けませんので、結合していないセルの上に、問題のセルの内容を画像としてリンク貼り付けしては如何でしょう?
その操作例を下記します。
1. 同じSheetの邪魔にならない場所 または 別なSheetの任意の場所に、接合したセルをコピペして、罫線なしに設定しておきます。
(単に、そのSheetをコピーするだけでも良いと思います。)
2. セルを結合したセルの結合を解除します。
3. 「クイック アクセス ツールバー」に「カメラ」ボタンを表示します。
「カメラボタン」
http://hamachan.info/excel/kamera.html
4. 結合したセルを選択して、「カメラ」ボタンを押しますと、セルをコピーした時と同様の点滅する破線が表示され、マウスポインタが小さな十字に変化します。
5. マウスポインタを結合したセルの左上の罫線の交点に重ね、[Alt]キー押しながら、クリックしますと、画像が貼り付けされます。
6. 最後に、貼り付けられた図が貼り付けられた状態で、「図ツール」-「書式」の「図のスタイル」グループの右端にある小さな四角形(ダイアログボックス 起動ボタン)をクリックして、表示されるダイアロブボックスの左窓にある「塗りつぶし」で、「塗りつぶしなし」に、「線の色」で、「線なし」を設定して「閉じる」ボタンを押します。
(画像で隠れた罫線が見えるようになります。)
ありがとうございました。カメラがあるんですね。場面によっては便利に使えそうですね。元のセルを消去すると新たなセルも消去されてしまうので、元のセルをどこかにとっておかなければならないのが難点だと思いました。
No.5
- 回答日時:
三段とは、三行一列のセル範囲という意味ですよね。
これを結合して折り返しする方法でないと駄目ですか?
Excelの機能にある[文字の割り付け]を使う方法なら、希望していることに
近いと思います。
http://ciao.aoten.jp/ciao/2012/03/post-d2c6.html
http://hamachan.info/win7/Excel/warituke.html
http://www4.synapse.ne.jp/yone/excel2010/excel20 …
ありがとうございました。こんな方法もあるんですね。ただ例えば三行三列ですので「結合されたセルの一部を変更することはできません。」との表示が出てしまいました。
No.4
- 回答日時:
こんばんは!
VBAになりますが一例です。
オートシェイプの直線をセル上に配置する方法です。
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
マクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub Sample1() 'この行から//
Dim k As Long, cnt As Long, c As Range
Set c = Selection
cnt = c.Rows.Count
For k = 1 To cnt - 1
With Shapes.AddLine(c.Left, c.Top + c.Height / cnt * k, c.Left + c.Width, c.Top + c.Height / cnt * k).Line
.ForeColor.RGB = vbBlack
.Weight = 0.5
End With
Next k
End Sub 'この行まで//
※ 必ず結合されているセルを選択し、マクロを実行してください。
※ 仮に3行結合している場合、3行の文字列が入力されているという前提です。
(何行結合されていても構いません)
尚、消去するコードも必要だと思いますので、
同じVBA画面の前述のコードが記載されている行の下に
↓のコードを追加し、「削除」のマクロを実行すると
直線が消えます。
Sub 削除()
Dim mySp As Shape, myRng As Range
Set myRng = Selection
For Each mySp In ActiveSheet.Shapes
If mySp.Top >= myRng.Top And mySp.Top <= myRng.Top + myRng.Height Then
If mySp.Left >= myRng.Left And mySp.Left + mySp.Width <= myRng.Left + myRng.Width Then
mySp.Delete
End If
End If
Next mySp
End Sub
こんな感じではどうでしょうか?m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Windows 10 エクセルの罫線がパワポに貼り付けると見えなくなる。 3 2022/12/27 15:23
- Excel(エクセル) エクセル2016で、セル全てが消えました。 3 2023/01/03 08:27
- Excel(エクセル) 罫線の横棒の隣に文字を書きたい 5 2022/11/28 17:31
- Excel(エクセル) エクセルにおいてセル内の文字を出来るだけ大きく表示する方法を教えてください。 4 2022/07/30 08:08
- Google Drive googleスプレッドシートで文章がセルにきれいに収まらなくて困っています 2 2022/07/31 16:00
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/04/21 08:59
- Excel(エクセル) vba セルの罫線について教えてください 2 2022/12/28 17:14
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/03/09 16:55
- Excel(エクセル) エクセルでA列セル内で折り返すことなく、文字列を、B列C列・・・側に一行に 2 2022/07/23 02:02
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセルで結合したセルに罫線を引きたい
Windows Me・NT・2000
-
EXCELのオートフィルタで罫線が表示されないのを直したい
PowerPoint(パワーポイント)
-
【VBA】結合セルの罫線処理について
Excel(エクセル)
-
-
4
Excel 数行分セル結合したあと、結合した一番下の行を非表示にしたら、罫線が印刷されません。
Excel(エクセル)
-
5
エクセル、空白に下線について 回答お願いいたします。画像の¥10,000の後の空白にも下線を引きたい
Excel(エクセル)
-
6
エクセルのオートフィルタで罫線が消える!
Excel(エクセル)
-
7
エクセルで、結合したセルが改ページにかかっても、罫線が印刷されるように
Excel(エクセル)
-
8
エクセルでセルの罫線を半分にすることは?
Excel(エクセル)
-
9
エクセル、ページをまたがった際の罫線
Excel(エクセル)
-
10
PowerPointで表の1つの列だけ幅を変える方法
Illustrator(イラストレーター)
-
11
Excelの標準機能「文字の割付」は結合セルに対しては使用不可ですが、同様の機能を結合セルに対して行
Excel(エクセル)
-
12
Wordでこのような三角が出てくるようになってしまったのですがどうやったら消せますか?
Word(ワード)
-
13
WORDの作成内容を固定したい(文字を入力してもずれないように)
Word(ワード)
-
14
エクセルで画面では罫線が出て印刷はしない方法
Excel(エクセル)
-
15
空白セル内の数式を残したままで空白セル扱いとしたいのですが
Excel(エクセル)
-
16
テプラプロで一行で文字の大きさを変えるには
その他(パソコン・スマホ・電化製品)
-
17
セルを結合したA4とA5の条件付き書式を結合しない行にも適用する方法を教えて下さい。
Excel(エクセル)
-
18
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
19
エクセル 全ての文字の間に半角スペースを入れたい
Excel(エクセル)
-
20
Excelの関数について、特定の文字を入れると斜線や線を入れることは出来ますか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セル入力文字が、「右のセルに...
-
エクセルで知らない間に行がず...
-
あるセルに色を付けた時、別の...
-
Wordで、表のセルが変なところ...
-
Excelのセル内の文字の頭に半角...
-
エクセルでセルの中の文字が削...
-
WORDで表の行を2行に分けたい
-
Wordの表で逆L字型のセルを作成...
-
エクセル 結合したセルの間にセ...
-
ワードの表で中央揃えが出来ない
-
エクセルで捺印をもらう欄を別...
-
Wordでセルに文字を入力すると...
-
ワードで表を作ってセル内で改...
-
エクセル2010で、結合したセル...
-
検索でヒットしたセルの表示位...
-
エクセルで複数行を括弧でくく...
-
Word 表のセル塗りつぶし
-
エクセルで条件付きで罫線の斜...
-
エクセルで1列おきのデータのみ...
-
ピボットで作成した表は、セル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セル入力文字が、「右のセルに...
-
Wordで、表のセルが変なところ...
-
あるセルに色を付けた時、別の...
-
エクセルで知らない間に行がず...
-
エクセルでセルの中の文字が削...
-
エクセル2010で、結合したセル...
-
ワードで表を作ってセル内で改...
-
Excelのセル内の文字の頭に半角...
-
ワードの表で中央揃えが出来ない
-
エクセル 結合したセルの間にセ...
-
Wordでセルに文字を入力すると...
-
エクセルで1列おきのデータのみ...
-
WORDで表の行を2行に分けたい
-
エクセルで捺印をもらう欄を別...
-
Word 表のセル塗りつぶし
-
エクセルの一つのセル内に2つの...
-
Wordの表で逆L字型のセルを作成...
-
Wordの表をExcelの表に貼り付ける
-
エクセルで複数行を括弧でくく...
-
ワードで表の中の文字がセンタ...
おすすめ情報
皆さんありがとうございます。例えばの「三段」は「三行三列」のことです。説明不足で申し分けありません。
皆さんありがとうございました。色んな方法を学習させて頂きました。VBAがパーフェクトでとても良かったんですが、私にはVBAは使えなくて残念でした。