エクセル2000です。

例えば、B2セルに 数字の 2 が入っていたときに、B2セルのフィルハンドルをCtrl+左ボタンでドラッグすれば、
B3セルに3、B4セルに4、… という具合にオートフィル機能で、並んだ数字が入力できます。

また、同じ場合に、フィルハンドルを右ボタンでドラッグして、右ボタンを離したときに現れるメニューから、「値のコピー」を選べば、
B2セルの罫線をコピーすることなく、値(2)をB3,B4,B5、、、にコピーすることが出来ます。

それでは、上記の2つの組み合わせ、つまり、
B2セルに 2 が入力されている状態で、B2セルに罫線があって、
B3、B4、B5、… に 3、4、5、… と入力し、且つ、
B3セル、B4セル、B5セル、… に、B2セルの罫線はコピーしない、
というようなことをするにはどうすればよいのでしょうか。

B2セルのフィルハンドルを、Ctrl+右ドラッグすればうまくいくかと思ったのですが、なぜかうまくいきません。
具体的にやり方をお教えください。

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

A 回答 (2件)

B2は2が入力されていて罫線で囲まれているとします。



(1)B3に『3』を入力します。(B3には罫線なし)
(2)B2とB3を選択します。
(3)右クリックしたままコピーする範囲を、フィルハンドルのドラッグをします。
(4)右クリックを離して、値のコピー(フィル)を選択。

(1)の『3』の入力を行えばこれくらいの操作でできるでしょう。(Excel2000です)
    • good
    • 0
この回答へのお礼

できました。ありがとうございました。

お礼日時:2002/03/08 22:47

ctrlキーを使ってのオートフィルではなく、別のオートフィルのやり方なら上手くいきますがどうでしょうか。


例えばひとつずつ増加する数字を連続データとして入力したい場合は、
セルA1に1、セルA2に2を入力します。その状態でA1からA2をドラッグして範囲選択し、オートフィルをするとA3には3、A4には4が…と連続データを入力できます。
(因みにA1に1、A2に3と入力して選択し、オートフィルすると1、3、5、7、9と
3ずつ増加する連続データができます。つまりはじめに選択するセルの数字の増加分ずつオートフィルできるわけですね)
 で、罫線がある場合ですが、それもコントロールキーを使わない値のコピーです。上のやり方で右ドラッグしてください。で値のコピーを選べばOKです。
    • good
    • 0

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

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

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

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

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

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

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

宜しくお願いします。

Aベストアンサー

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

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

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

Qフィルハンドルがドラッグできなくて、セルのコピーができない

EXCELでセルをコピーしようと、フィルハンドルをドラッグして、セルをコピーしようと思ったら、
フィルハンドルがドラッグできません。
フィルハンドルの機能が使えなくなっているみたいです。
どうしたら、使えるようになるのでしょうか?
教えてください。よろしく、お願いいたします。

Aベストアンサー

「ツール」→「オプション」→「編集」タブ内の「ドラッグアンドドロップ編集を行う」にチェックを入れます。

動作確認:Excel2000以降

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

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

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

Aベストアンサー

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

Qエクセルでフィルハンドルのドラッグについて

よろしくお願いします。

A1セルのフィルハンドルを下方向にドラッグして

A1「=IF(sheet1!AE5=1,sheet1!Y5,"")」
A2「=IF(sheet1!AE7=1,sheet1!Y7,"")」
A3「=IF(sheet1!AE9=1,sheet1!Y9,"")」

としたいのですが、なぜか連続してしまいます。
理由のわかる方、対処方法を教えていただきたいです。

Aベストアンサー

>A1=IF(MONTH(入力!AE5)=1,入力!Y5,"")
Sheet1の所が入力に変わるだけです。

ROW()関数は、数式のある行数を返します。
A1の場合は1になりますね。
OFFSET(基準,行移動,列移動,行数,列数)関数は、
基準から行,列移動した行数,列数の範囲を表示します。
OFFSET(Sheet1!$AE$5,(ROW()-1)*2,0)
A1の時は、Sheet1のAE5から0行,0列移動なのでAE5をそのまま表示
A2の時は、Sheet1のAE5から2行,0列移動なのでAE7を表示
となり後は2行ずつずれていきます。

INDIRECT関数は文字表示されたセル座標の内容を表示します。
INDIRECT("Sheet1!AE5")=Sheet1!AE5 となりますので
5の部分をROW関数を用いて計算させてます。

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

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

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

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

Aベストアンサー

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

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

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

Qフリー素材

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

Aベストアンサー

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

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

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

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

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

QセルA2に探したい文字列を入力し、B15:B376に入力されている文字を検索する

タイトル通りなのですが、可能でしょうか?
よろしくお願いします

Aベストアンサー

こんにちは!

VBAでの一例です。
そのセルへ飛ぶようにしてみました。

画面左下の操作したいシート見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
A2セルにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から//
Dim c As Range
With Target
If .Address = "$A$2" And .Count = 1 Then
If .Value <> "" Then
Set c = Range("B15:B376").Find(what:=.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
c.Select
Else
MsgBox "該当データなし"
.Select
End If
End If
End If
End With
End Sub 'この行まで//

※ 完全一致を前提としています。m(_ _)m

こんにちは!

VBAでの一例です。
そのセルへ飛ぶようにしてみました。

画面左下の操作したいシート見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
A2セルにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から//
Dim c As Range
With Target
If .Address = "$A$2" And .Count = 1 Then
If .Value <> "" Then
...続きを読む

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

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

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

Aベストアンサー

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

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

QA01セル>B01セルだったら、C01セルに+1

A01セル>B01セルだったら、C01セルに+1と表示
A01セル<B01セルだったら、C01セルに-1と表示

この方法を、教えてください。

Aベストアンサー

ついでに
=IF(OR(A1="",B1=""),"",IF(A1>B1,1,IF(A1<B1,-1,0)))


人気Q&Aランキング

おすすめ情報