ちょっと不可解な現象が起こりましたので、教えてください。
Excelで作られた表があります。(これは私が作った表ではありません。作成したExcelのバージョンも不明ですが、多分2000だと思います。)
Excel2000でこのファイルに加工しているのですが、表(罫線で囲ったもの)の右側の表で無い部分のセルに数値を入力したとき、セルの左に縦線が勝手に入力されることがあります。
例えば、A1~F10の範囲に表があって、B12のセルに入力したとき、という位置関係です。
何か、そんな設定があるのでしょうか。それともExcelのバグでしょうか。

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

A 回答 (2件)

Excel2000では上に2つ「あき」があっても同じ表と見なされて書式がコピーされます。



1.「ツール」メニューから「オプション」を選択
2.「編集」タブを選択
3.「リスト形式および数式を拡張する」のチェックボックスをOFFにする。

で、表の周囲に書式が拡張されなくなりますよ。
    • good
    • 0
この回答へのお礼

ありがとうございます。
教えていただいたチェックボックスがONになってました。これをOFFにすると見事に解決しました。助かりました。

お礼日時:2002/01/18 08:37

B12かA12あたりに条件付書式が設定されていませんか?


「書式」ー「条件付き書式」で調べてみられてはどうでしょうか。
    • good
    • 0
この回答へのお礼

回答ありがとうございます。しかしながら、条件付き書式は設定されてませんでした。

お礼日時:2002/01/18 08:35

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

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

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

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

Q葉書の罫線がある素材サイト

仕事柄人との交流が多く、名刺交換をした人にお礼状を手書きで書いています。
無地のインクジェット葉書に罫線を書きたいのですが、そういった罫線の
あるデザインをダウンロードできる素材サイトってありますでしょうか?

罫線だけでなく、ビジネス文書に差し障りない程度のうっすらとデザインが
入っていてもOKです。

宜しくお願いします。

Aベストアンサー

罫線入りの葉書って便利なのに、
テンプレートは少ないですよねぇ。

こちらのサイトはいかがでしょうか?

参考URL:http://ruriri.aisnet.jp/keisen.htm

Qエクセルでデータの入っているセルを罫線で囲みたいが結合セルの部分も罫線で囲みたい。

初心者ですが、データの入っているセルのみを罫線で囲むVBAをいろいろネットで参照させていただいて作ってみたのですが、結合セルを含めたセル範囲を選択すると、添付した写真のように結合しているセルは罫線で囲むことができません。この場合、結合セルにも罫線で囲む方法を教えていただきたく質問させていただきました。よろしくお願いします。

Sub test()

If TypeName(Selection) <> "Range" Then Exit Sub
For Each C In Selection
If C.Value <> "" Then
With C.Borders
C.Borders.LineStyle = True
C.BorderAround Weight:=xlThin
C.Borders.ColorIndex = xlAutomatic
End With
End If
Next C
End Sub

初心者ですが、データの入っているセルのみを罫線で囲むVBAをいろいろネットで参照させていただいて作ってみたのですが、結合セルを含めたセル範囲を選択すると、添付した写真のように結合しているセルは罫線で囲むことができません。この場合、結合セルにも罫線で囲む方法を教えていただきたく質問させていただきました。よろしくお願いします。

Sub test()

If TypeName(Selection) <> "Range" Then Exit Sub
...続きを読む

Aベストアンサー

こんにちは!

色々やり方はありますが、一例です。

Sub Sample1()
Dim c As Range, myRng As Range
For Each c In Selection
If c <> "" Then
If c.MergeCells Then
Set myRng = c.MergeArea
Else
Set myRng = c
End If
myRng.Borders.LineStyle = xlContinuous
End If
Next c
End Sub

こんな感じではどうでしょうか?m(_ _)m

QWindows 7で罫線又は表作成ができるフリーのワープロソフトを探し

Windows 7で罫線又は表作成ができるフリーのワープロソフトを探しています。

OpenOfficeのWriterは存じていますので、これ以外でお願いいたします。
イメージとしては、ワードパッドに追加で罫線又は表作成ができる軽いものを探しています。
表計算は不要です。
文書の体裁として縦横の線が要るだけで、印刷のみに使います。
教えていただけば、Windows 7で動くかどうかは調べられますので、どうぞよろしくお願いいたします。

Aベストアンサー

何度もすみません。
プログラムの追加と削除に登録されています。
「CYPAC BeatWord 3.0」として登録されていますのでそこから削除できます。
そそっかしくてすみませんでした(汗!)

Qアクティブセルの入力時に同時に右側のセルにも値を入力したい

いつもお世話になっております。

マクロでアクティブセル(カーソルのあるセル)に値を入力するときに
同時にアクティブセルの右側のセルにも値を自動入力したいのですが、
どうすれば良いのでしょうか?

土曜に http://bit.ly/2a30bGF で頂いた、コードを変更して、
最下段のmacro1のところまできました。
※前回ご解答頂いた方、ありがとうございます。

ですが、このマクロはカーソルがどこにあっても、
B列に日付、C列に「田中」と入力されます。
※行はカーソルの場所になります。

ではなくて、カーソルある場所に
日付が入力されて、そのとなりのセルに自動で「田中」と入力したいです。

ネットで調べてみたのですが、 http://bit.ly/29SGZNg といい、
前回の方のご解答といいアクティブセルのものが見つかりませんでした。 

もしかしたら出来ないかもしれませんが、もし出来るのでしたら教えて欲しいです。

すいませんが詳しい方、説明の上手な方、直接、コードで説明できる方、
お手数ですが教えて下さい。よろしくお願いします。

------------
Sub macro1()
With ActiveCell.EntireRow
.Columns("B") = Format(Date, "mm/dd")
.Columns("C") = "田中"
End With
End Sub
------------
このマクロはこちらのやりたいことを説明するために記載しました。
ご解答の際はコードを全部書き直しでもOKです。

いつもお世話になっております。

マクロでアクティブセル(カーソルのあるセル)に値を入力するときに
同時にアクティブセルの右側のセルにも値を自動入力したいのですが、
どうすれば良いのでしょうか?

土曜に http://bit.ly/2a30bGF で頂いた、コードを変更して、
最下段のmacro1のところまできました。
※前回ご解答頂いた方、ありがとうございます。

ですが、このマクロはカーソルがどこにあっても、
B列に日付、C列に「田中」と入力されます。
※行はカーソルの場所になります。

ではなく...続きを読む

Aベストアンサー

Activecell.Offset(0, 1).Value

Rangeオブジェクトの概念を理解する必要がありますね。
いろいろ試してみてください。

Q飾り枠・罫線をフリーで使えるHPを教えて下さい!

ビジネス用に使う飾り枠で見積書の外側を囲う飾り枠なのですが、
WORDの罫線では使えそうなのが見つかりません。

HP上でイメージにピタッ!っとくるようなのをフリーで探しています。
あくまでもビジネス用なので落ち着いた感じです・・。

フリーじゃないけどこれはいい!というようなものもあれば・・・。
よろしくお願いします。

Aベストアンサー

>ダウンロードするとすぐにクリップオーガナイザが起動され、

その時点で、ダウンロードしたものが表示されているはずです。
Office XPのクリップオーガナイザなら、それだけで、すでに分類もされていると思います。
どこに分類されているかは、ダウンロードした画像のカテゴリを自動判別しますので、自分が選択したものになります。
今回の場合で言えば、おそらく「罫線と飾り」か「境界線と枠」になっていると思います。
分類を変えたければ、表示させておいて、「コレクションの一覧」の好きな分類の上にドラッグ&ドロップすればコピーされます。
また、右の窓に適当なものが表示されていなければ、「コレクションの一覧」をクリックして切り替えてください。
MS-WORDなどの貼り付けるには、ドロップダウンメニューからコピーしてWORD上で貼り付けをするか、WORD上で「挿入」→「図」→「クリップアート」で検索・表示させておいて、図をクリックすれば挿入されます。

Q[Excel2000]セルの入力規則→リストのセルから出るドロップダウンリストが小さ過ぎなのは?

エクセル2000での質問です。
[ツールバー]→[データ]→[入力規則]→[リスト]のセルから出るドロップダウンリストが
小さ過ぎるのはなぜでしょう?

入力規則を設定したセルも、設定時の元の値のセルでも書式を変更してみたのですが、
ドロップダウンリストは大変小さく変更されません。

ドロップダウンリストの書式(フォントサイズ)を変更する方法をご存知の方が
おられましたらどうぞご教授ください。
お願いいたします。

Aベストアンサー

> ドロップダウンリストの書式(フォントサイズ)を変更する方法をご存知の方が
> おられましたらどうぞご教授ください。

入力規則のリストに表示されるフォントサイズ変更するには、レジストリーを
操作する必要があります。
ただし、入力規則だけでなくExcelの各ダイアログの大きさも変わります。

それで良かったら、次の手順で操作してみてください。
操作は慎重に!! あくまでも自己責任で・・・

[スタート]-->[ファイル名を指定して実行]で「名前」欄に regedit と
入力して[OK]します。

次のキーを開きます。

(Excel2000)
HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Excel\Options
(Excel2002は 10.0、 2003は 11.0)

メニューから[編集]-->[新規]-->[文字列値]を指定すると「名前」欄に「新しい値 #1」が
追加になり、反転していますので、その名前を「DlgFont」という文字列に修正します。

その名前をWクリックして表示されたダイアログの「値のデータ」に以下に示す
ようにフォント種とサイズをカンマで区切った文字列を入力し、[OK]します。
(全角/半角やスペースに注意。 できれば最初は、これをコピペしてください。)
(サイズ13の数字がフォントサイズです。かなり大きいです。11~13でテストしてみて
適当な値を決めてください。値を変更した時は、Excelを再起動して確認します。
また、regeditを再起動した場合は、追加した「DlgFont」の位置は、変って
いますので、探してWクリックすると値を変更することが出来ます。)

MS Pゴシック,13

Excelの各ダイアログにも影響が出ていますので、
例えば、メニューから[ファイル]-->[開く]のダイアログで確認してみてください。
サイズを15にするとダイアログが画面からはみ出しています。

> ドロップダウンリストの書式(フォントサイズ)を変更する方法をご存知の方が
> おられましたらどうぞご教授ください。

入力規則のリストに表示されるフォントサイズ変更するには、レジストリーを
操作する必要があります。
ただし、入力規則だけでなくExcelの各ダイアログの大きさも変わります。

それで良かったら、次の手順で操作してみてください。
操作は慎重に!! あくまでも自己責任で・・・

[スタート]-->[ファイル名を指定して実行]で「名前」欄に regedit と
入力して[OK]します。

次...続きを読む

Qフリー素材

フリー素材を探しています。
花柄で、小さな花模様でフリーの素材はないでしょうか?
ポスターとかはがきにその花柄を印刷しまして、
そのポスターやはがきを販売しますので、
印刷物に使用でき、販売目的でもOKのフリー素材は
ないでしょうか。教えてください。

Aベストアンサー

素材辞典
http://www.sozaijiten.com/

プロの素材
http://www.hakata-good.co.jp/

満タンWEB
http://www.dex.ne.jp/mantan/index.html

上記は、商用OKのロイヤリティフリー素材を販売されているサイトです。
使えそうな画像がある素材集を購入すればご要望の用途にかなうかもしれません。

また、検索エンジンなどで、キーワードを「ロイヤリティフリー」「素材」「商用」などで検索されれば、その他の商用可能なフリー素材も見つかるかもしれません。

QA1セルにAと入力すると、A2セルに3000A3セルに2000A4セルに1000と表示させたい。

A1セルに「A」と入力する1回だけで、
A2セルに「3000」
A3セルに「2000」
A4セルに「1000」
A5セルに「合計数字」を表示させたいのですが、
式をご教授願いたいです。

よろしくお願いします。

Aベストアンサー

D1:G3
A500030001000
B500300130
C1200800300
A1にA,B,Cのどれかを入れる。
A2に =VLOOKUP($A$1,$D$1:$G$2,ROW(),FALSE)と入れて、
A4まで(G-D-1列数だけの行数)式を複写する。
結果
A1がBの場合A1:A4は
B
500
300
130

A1の空白の場合に対処して
=IF(A1="","",VLOOKUP($A$1,$D$1:$G$2,ROW(),FALSE))
が良いでしょう。
(既回答とほぼ同じ式ですが、1箇所違うところがあります。)

Qフリーソフトで簡単に罫線が引けるソフト

1 簡単に罫線を引くことができる
2 線と線の間に文字を書くことができる。
3 表計算のように表に入力した数字を計算しなくてもい  い
4 印刷機能がある

というフリーソフトはありますでしょうか?

Aベストアンサー

フリーですべてを満たすのはOpenOfficeでしょうね。

参考URL:http://ja.openoffice.org/start/

QExcelの特定のセルに入力した値に応じた罫線を引いたり、結合をしたい

こんにちは。

エクセルのマクロについてあまり詳しくないため、お力添えを頂けたらと思います。

したいことは
・A列で入力した値の分だけ、E列からJ列の範囲に罫線を引く
・B列で入力した値に応じて、罫線を引いてある範囲のセルを等分(結合)する、もしくはE列からJ列の範囲のセルを等分する。
・C列で入力した値の分だけ、点線を引く

数値を入力することで画像の様になるのが理想なのですが、自分でしてもA列の部分しか上手くいかずに悩んでいます。

もしよろしければ知恵をかして下さると助かります。

Aベストアンサー

毎回E列以降の罫線を消すようにしてみました。(多少時間がかかります)
--------------------------------------------------------------------------
Sub Sample()
Dim 行 As Long
Dim 終 As Long
Dim 列 As Long
Dim 結 As Long
Dim 点 As Long
Cells.EntireRow.Hidden = False
終 = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(3, 4), Cells(終, 4)).ClearContents
For 行 = 3 To 終
If Cells(行, 2).Value <> 0 Then
If Cells(行, 1).Value Mod Cells(行, 2).Value <> 0 Then
Cells(行, 4).Value = "A列をB列で割り切れません。"
End If
End If
If Cells(行, 1).Value <= Cells(行, 2).Value Then
Cells(行, 4).Value = Cells(行, 4).Value & "A列よりB列が大きい。"
End If
If Cells(行, 1).Value < Cells(行, 3).Value Then
Cells(行, 4).Value = Cells(行, 4).Value & "A列よりC列が大きい。"
End If
If Cells(行, 4).Value = "" Then Rows(行).EntireRow.Hidden = True
Next
If Cells(Rows.Count, 4).End(xlUp).Row >= 3 Then Exit Sub
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = False
With Range(Cells(3, 5), Cells(Rows.Count, Columns.Count))
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
For 行 = 3 To 終
Rows(行).MergeCells = False
With Range(Cells(行, 5), Cells(行, Cells(行, 1).Value + 4))
If Cells(行, 1).Value > 1 Then
.Borders(xlInsideVertical).LineStyle = xlContinuous
End If
If Cells(行, 2).Value <> 0 Then
結 = Cells(行, 1).Value / Cells(行, 2).Value
For 列 = 5 To Cells(行, 1).Value + 4 Step 結
Range(Cells(行, 列), Cells(行, 列 + 結 - 1)).MergeCells = True
Next
End If
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
End With
点 = Cells(行, 3).Value
列 = 5
Do While 点 > 0
Cells(行, 列).MergeArea.Columns.Borders(xlEdgeRight).LineStyle = xlDot
点 = 点 - 1
列 = 列 + 結
Loop
Next
Application.ScreenUpdating = True
End Sub
--------------------------------------------------------------------------
※ レスポンスが悪いので、余りお勧めできませんが対象のシートモジュールに以下のコードを追加すればセルに値をセットするごとに書き換えるようになります。
--------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 3 Then Exit Sub
Call Sample
End Sub
--------------------------------------------------------------------------

毎回E列以降の罫線を消すようにしてみました。(多少時間がかかります)
--------------------------------------------------------------------------
Sub Sample()
Dim 行 As Long
Dim 終 As Long
Dim 列 As Long
Dim 結 As Long
Dim 点 As Long
Cells.EntireRow.Hidden = False
終 = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(3, 4), Cells(終, 4)).ClearContents
For 行 = 3 To 終
If Cells(行, 2).Value <> 0 Then
If Cells(行, 1).Value Mod Cells(行, 2).Value <> 0 Then
...続きを読む


人気Q&Aランキング

おすすめ情報