エクセル2007挿入からデータ範囲をテーブルに設定すると
Enterキーを押すと次の行の1列目に移動する、と
何かで読んだのですが
真下のセルにしか移動しません。
次の行のA列に移動するにはどうしたらいいですか?
別にテーブルでなくても次の行のA列に移動できれば何でもいいです

ちなみにテーブル範囲はA~AL列
列によっては関数や入力規則が設定されている。
あまり入力されない(空白)列もある。
一番多いのはA~P列まで入力して次の行に移動するパターン。
途中列でEnterしても最終列まで行ってEnterしても下のセルにしか
移動できませんでした。

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

A 回答 (4件)

#1,3です。


当方Version2002のため、2007テーブルについての知見がありません。
Version2002では列の範囲設定ができていれば
>15行目まで入力が済んでいる状態から
>A16セルに入力することができません
の現象はありません。テーブル設定が要因である可能性を感じます。
また参考URLの情報を見る限り、
>このように表の一部をテーブルに設定するという不思議なことをしても、特に集計などしないなら、
>影響はないのでしょうか?
について、テーブルと表が一致しないとテーブル機能が意図しない動作をする危険性を感じます。

あくまで2009を持たないものの推測です。

参考URL:http://office.microsoft.com/ja-jp/excel/HA100485 …
    • good
    • 0
この回答へのお礼

参考URLを教えて下さりありがとうございました。
Sinogiさんのおっしゃる通り、参考URLを読んで
私も素人ながら表の一部だけ
テーブルにするのは後々困った結果を招きそうな気がしました

今のところ、私が当初望んだような楽チンは
うまく見つかっていませんが、
とりあえずCtrl+←でその行のA列に戻り、↓で下のセルに移動、の2段構えでやり過ごします

お礼日時:2009/05/25 23:49

#2で示された範囲選択の意味を理解していないのでは?



例えば

A~P列の範囲選択は最上段(1行目より上)でA列をクリックしPまでドラッグ
選択範囲が色反転している状態で入力作業をする

ということです。

この回答への補足

すみません…よくわかりません
途中まで表が出来上がっている状態、たとえば
15行目まで入力が済んでいる状態から
「最上段(1行目より上)でA列をクリックしPまでドラッグ
選択範囲が色反転している状態」にしたままで
A16セルに入力することができません

補足日時:2009/05/22 23:29
    • good
    • 0

この点はエクセルの基本で2007でも変わってないと思う。


簡単な例で説明すると
ツールーオプションー編集ー入力後にセルを移動するー右に設定。
(質問例のA列ーB列-C列・・入力にあわせたもの)
A2:F3を範囲指定してA2から入力してF2でデータを入れてENTERを押すとA3に自動で行くでしょう。
入力後にセルを移動するー下と指定していれば、A3でデータを入れると、B2に行くでしょう。

この回答への補足

A~AL列まである表ですが、
imogasiさんが教えて下さったように、
頻繁に使う「A~P列までを範囲選択して右移動の設定」
というのはうまくいかなかったので、
A~P列までのみをテーブルに設定し
Officeボタンのオプションから入力後にセルを移動する→右に設定してみました。
p列まで入力した後、Enterしたら
次の行のA列に移動できました。
p列より右を入力したければ→キーで移動できました。
ありがとうございました。
ただ、このように表の一部をテーブルに設定するという不思議なことをしても、特に集計などしないなら、
影響はないのでしょうか?

補足日時:2009/05/21 22:58
    • good
    • 0

ツール→オプション→編集→入力後にセルを移動する方向:右



でいかが?

この回答への補足

エクセル2007なので、Officeボタン→エクセルのオプション→詳細設定→編集設定→Enterキーを押した後にセルを移動する方向を右
にしましたが、たとえばB5セル入力後Enterキーを押すとC5セルに移動するだけで
私の希望したように、その行の入力後、Enterキー一つで次の行のA列つまりA6セル、に移動するようにはなりませんでした。
ENTERキーでなくても、とにかくその行の入力が終わったら、
1操作で
次の行の冒頭に移動したいのです。
せっかく教えていただきましたが、ちょっと違うようです

補足日時:2009/05/21 21:16
    • good
    • 0

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

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

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

QPC連動タップを液晶テレビ周りの連動ON/OFF用途に使いたいのですが

PC連動タップを液晶テレビ周りの連動ON/OFF用途に使いたいのですが
テレビ周りのオーディオ・プレイヤーの自動電源ON/OFFにPC連動タップを使用して
自動ON/OFFと考えているんのですが、本来のPC用途とはかけ離れてますが
使用上問題はないでしょうか?

Aベストアンサー

問題はありません、構造上では普通のモノよりは性能が高いはずですから、
蛸足をしない限りは問題はありません。
自分もPCショップや量販店など、製造メーカーに問い合わせをした所では、
「問題は無い」との回答されました。

QExcel2013 VBA A列とB列の文字をA列とB列とC列に移動させる方法

A列とB列に文字が入っているのですが、下記のようにA列とB列とC列に文字を移動させたいです。
(A列の数字は必ず奇数のA列に入っています。)
VBAのコードを教えて下さい。

例えば
A1 1  B1 cat
A2 空白 B2 猫
A3 空白 B3 dog
A4 空白 B4 犬
A5 2  B5 whale
A6 空白 B6 クジラ
A7 3  B7 rabbit
A8 空白 B8 ウサギ

とデータがある場合

A1 1  B1 cat  C1 猫
A2 空白 B2 dog  C2 犬
A3 2  B3 whale  C3 クジラ
A4 3  B4 rabbit C4 ウサギ

としたいです。

実際、データは、A5196まであります。

Aベストアンサー

No.1です。

>実際、データは、A5196まであります。

前回のコードは一つずつカット&ペーストしていますので
かなりの時間を要すると思います。
↓のコードに変更してみてください。

Sub Sample2()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
With Range(Cells(1, "C"), Cells(lastRow, "C"))
.Formula = "=IF(MOD(ROW(),2)=1,B2,"""")"
.Value = .Value
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
Application.ScreenUpdating = True
MsgBox "完了"
End Sub

少しは短縮できると思います。m(_ _)m

No.1です。

>実際、データは、A5196まであります。

前回のコードは一つずつカット&ペーストしていますので
かなりの時間を要すると思います。
↓のコードに変更してみてください。

Sub Sample2()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
With Range(Cells(1, "C"), Cells(lastRow, "C"))
.Formula = "=IF(MOD(ROW(),2)=1,B2,"""")"
.Value = .Value
.SpecialCells(xlCellTypeB...続きを読む

Qタップに詳しい方 おおしえください。

自動機で下穴をあけた後タップをとうしました。バリが出たため ハンドドリルでタップをとうしたのですが、ネジ山が二重になったり、ハ゛リもでてしまいました、油を付けながら 逆回転させながら 慎重に入れ 軽く入ったつもりですが、だめです。どうしてですか、おしえてください。再、再、回答できる方おねがいします。

Aベストアンサー

acha51補足です

質問を読み返してみるとタップも自動機で切った後の事でしょうか。
出るバリは表面だったら先の回答のバリ取り
ねじ山のバリだったら、
・自動機のタップへたりの場合はタップを交換し新規にやり直しましょう
・制御プログラムの場合は回転数と送りの関係を見直しましょう。
・わずかな場合はsusなどの固い材料のボルトを2-3回通す
・多いバリだったら先の1-3番をタップハンドルで順に通す
  職人技ですのでトレーニングしてやります

いずれにしても材料と深さ、径くらいははっきり書いた方が良いでしょう

QエクセルでB列の数値がA列(A1:A10)の範囲に存在するかどうかを知りたい

こんばんは。
エクセルでこのようなことができるのかどうか分からないので、教えてください。

B列の数値がA列(A1:A10)の範囲に含まれる数値なら○、含まれない数値なら×と、C列に表示したいのですが、エクセルでそのようなことはできるのでしょうか。
できるのであれば方法を教えていただけますでしょうか。
よろしくお願いいたします。

<<最終的な結果は以下のように表示したいです>>

  A B C

1 12 19 ○

2 15 20 ○

3 19 28 ○

4 20 30 ×

5 23 34 ○

6 28 35 ×

7 32 38 ×

8 34 39 ○

9 39

10 40

Aベストアンサー

セル C1 に式 =IF(COUNTIF(A:A,B1),"○","×") を入力して、此れを下方にズズーッと複写

QPC連動タップについて

こんにちは

私はADSLモデム、ルーター及びプリンタの3種類の周辺機器をパソコンのON/OFFと連動してON/OFFしたいと考えています。(通常はパソコン及びこれら周辺機器の電源はOFFにしておき、パソコンを立ち上げると自動的に周辺機器の電源もONになり使える状態になる様にしたい)

ここで各メーカーから発売されているPC運動タップについて質問なのですが、このタップにこれら周辺機器をつなげば上述の私のやりたい事が実現するのでしょうか?(特に私が知りたいことは、PC運動タップは、単にタップを通電させるだけでなく、それにつながったパソコン周辺機器自体の電子スイッチをONにして周辺機器を使える状態にさせることが可能かどうかという点です。(機械式(手動式)スイッチ付タップとは違うか?という点です)

実際にPC運動タップを使用し周辺機器のPC運動起動を実現されている方がいらっしゃったらぜひ教えて下さい。

よろしくお願いします。

Aベストアンサー

PC連動タップは、「PC専用コンセント」に接続されたPCの電源が入って電流が流れると、他の「連動コンセント」がONになる仕組みです。
http://www.sanwa.co.jp/product/oatap/rendo.html

連動させるには電源スイッチがONの状態で、「コンセントを差せば電源が入る」周辺装置でないと使用できません。
(コンセントを差した後、onのボタンを押さないといけないプリンタは×です)

Qエクセル A列500行に入力された文字列を50行ずつ列換えしたい。

エクセル2003です。
A列に文字列が500行ほど入っているシートが20シシートほどあります。シート毎にB列からI列の1行から50行までに50行ずつ移動させ1ページに収めたいのですがその方法を教えて下さい。
50行ずつ切り取り、貼付では時間がかかるのでできれば関数で移動させる方法があれば教えてください。前期高齢者のためマクロはできません。よろしく御願いします

Aベストアンサー

> 前期高齢者のためマクロはできません。

わたしの存じている後期高齢者の方は70の手習いでエクセルを始め、今では立派にマクロを使いこなしてますよ。(わたしが教えました)
そのファイルのすべてのシートのA列のデータをB列以降に50行ずつ移動させればいいのでしょうか?
それならば簡単ですので以下の手順を試してみてください。

1.AltキーとF11キーを同時におして Visual Basic Editor画面を呼び出します。

2.画面上部のメニューバーから「挿入」、「標準モジュール」で出てきた右側の白い広い部分に以下のコードをコピして貼り付けます。

'*****ここから下をコピペ*****

Sub test01()
Dim st As Worksheet
Dim x As Long, n As Long, i As Long
For Each st In Worksheets
x = Cells(Rows.Count, "A").End(xlUp).Row
n = 1
For i = 51 To x Step 50
n = n + 1
Cells(1, n).Resize(50, 1).Value = Cells(i, "A").Resize(50, 1).Value
Next i
Range(Cells(51, "A"), Cells(x, "A")).ClearContents
Next st
End Sub

'*****ここより上までをコピー貼り付け*****

3.AltキーとF11キーでワークシートへもどります.

4.メニューから、ツール、マクロ、マクロで出てきたマクロ名(test01)を選択して実行

これでできます。

最初は、ファイルを複製してテストしてみてくださいね。
がんばってください!

> 前期高齢者のためマクロはできません。

わたしの存じている後期高齢者の方は70の手習いでエクセルを始め、今では立派にマクロを使いこなしてますよ。(わたしが教えました)
そのファイルのすべてのシートのA列のデータをB列以降に50行ずつ移動させればいいのでしょうか?
それならば簡単ですので以下の手順を試してみてください。

1.AltキーとF11キーを同時におして Visual Basic Editor画面を呼び出します。

2.画面上部のメニューバーから「挿入」、「標準モジュール」で出てきた右側の白い広い部...続きを読む

QHSHギターのタップ

 HSHギターのタップですが、5wayセレクターの両端いずれかを選択して、そこからスイッチなどで片方のコイルをアースに流すのが定番になっていますよね? そこでふと疑問に思ったことが。

 普通、HSH配列のギターは、ハーフポジションの時は自動でタップされています。故に、HSHの真ん中のPUをオフにするスイッチを付けた場合でも、リア(フロント)のシングル単体の音がでるのではないか、ということです。

 これなら通常の2WAYのスイッチで切り替えることができるので、手っ取り早いと思うのですが……知っている限りこの配線でタップをしている機種はありません。なにか理由があるのでしょうか?(特に音質面で)

Aベストアンサー

「ストラトでもハムバッキングPUのパワフルかつウォームな音がほしいが、(ストラトの売りの一つである)ハーフトーンはシングルコイル同士のパラレルがいい」というユーザーを優先している為でしょう。

>普通、HSH配列のギターは、ハーフポジションの時は自動でタップされています。故に、HSHの真ん中のPUをオフにするスイッチを付けた場合でも、リア(フロント)のシングル単体の音がでるのではないか、ということです。
→可能だと思います。ただスイッチが2個存在することに変わりありません。ですので「手っ取り早い」とは私は思いませんが(笑)。
尚、これは私の推測ですが、音が出ないスイッチポジションが存在するギターをメーカーが好まないのではないでしょうかね。ブライアン・メイのRed Specialは自作だけあって特殊なケースですね。

QエクセルVBAにてA列の数字の合計をA列のラスト行に入力したい。

お世話になります。
表題通りです。

エクセルにてセルのA.1~2・3と順番に数字が入っています。但し、終わりが決まっていません。
このA列のデータの入っていないセルにA列の合計を自動で入れたいのですが、
Range("A100").End(xlUp).Offset.Select
ラスト行のセルを所得して、このセルにSUM(上)を入れたいのですが、


どのように書けばよいか教えて下さい。宜しくお願い致します。

Aベストアンサー

こんな感じになると思います。

Sub test()
  Range("A100").End(xlUp).Offset(1).Select
  ActiveCell.Formula = "=SUM(A1:A" & ActiveCell.Row - 1 & ")"
End Sub

ただ、これですと、何回も実行すると、SUM関数の数式を入れたセルも次々加算する
ことになりますので、これを防ぐため、一番下が数式のときは、そのセルに
上書きするようにするのであれば、こんな感じになると思います。

Sub test2()
With Range("A100").End(xlUp)
  If .HasFormula Then
    .Formula = "=SUM(A1:A" & .Row - 1 & ")"
  Else
    .Offset(1).Formula = "=SUM(A1:A" & .Row & ")"
  End If
End With
End Sub

Qパソコンが自動的に立ち上がる

いつもお世話になっております。現在デスクトップパソコンを10年ほど使用しております。パソコン、モニター、プリンターをOAタップにつなぎ、タップの電源でシャットダウンした後、電源を切っていたのですが、最近OAタップの電源をオンにしたと同時にパソコンの電源が自動的に入り、BIOSセットアップメニューが立ち上がるようになり、また時刻も1998年の1月1日の0時となってしまうのです。マニュアルとか引っ張り出して読んでみたのですが、症例も載っておらず悩んでます。対処方法等ご存じの方おられましたら、ご教示お願いします。

Aベストアンサー

電池切れのためです。
Biosのセットアップ情報のバックアップや、RTC(時計)を駆動する
電池(CR2032など)が、PCの中に入っていますが、この電池が
消耗したのです。
PC内部を見て、コイン型の銀色の丸型の電池を探して同じものに
交換してください。

NECのPC90x1だと、ニッカド電池(充電式電池)の場合もあります。
この場合なら、OAタップの電源を入れたままにしてください。
省エネ(エコ)の為に電源を切っていると思いますが、毎日の
使用時間が少ないために、充電不足になっていると思われます。
(OAタップで電源を切らなければ、PCを使わなくても充電される)

当時のPCの待機電力は3W程度ですので、一月約50円位です。

QExcelを分割 A列には日付、A列以外には営業担当者や商品や金額などが入力された列があります。 営

Excelを分割

A列には日付、A列以外には営業担当者や商品や金額などが入力された列があります。

営業担当者毎に、ファイルを分割するマクロをおしえてください。10人いれば、10ファイルできることになります。

営業担当者が入力されている列が資料により、異なるので、C列に営業担当者が入っている場合は、それをセルとかに入力して指定できる様にしたいです。

また、ファイルの出力先も指定できる様にしたいです。

よろしくお願いします。

Aベストアンサー

No.2 mike_gさんの質問ですが、回答者側から言わせてもらうと非常に重要なことです。
何故なら、質問者のレベルに合わせて回答しないと何の役にも立たないからです。
今回は、マクロの知識があると云うことなので、その前提で回答させていただきました。
こんな感じです。

Sub sample()
Set ws = ActiveSheet
ce = Range("営業担当者セル").Value
fp = Range("出力先").Value
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To Cells(Rows.Count, ce).End(xlUp).Row
Set d.Item(Cells(i, ce).Value) = Cells(i, ce)
Next i
For Each i In d.keys
ws.Copy
Columns(ce).ColumnDifferences(d.Item(i)).EntireRow.Delete
ActiveWorkbook.SaveAs Filename:=fp & "\" & i & ".xlsx"
ActiveWorkbook.Close
Next i
End Sub

No.2 mike_gさんの質問ですが、回答者側から言わせてもらうと非常に重要なことです。
何故なら、質問者のレベルに合わせて回答しないと何の役にも立たないからです。
今回は、マクロの知識があると云うことなので、その前提で回答させていただきました。
こんな感じです。

Sub sample()
Set ws = ActiveSheet
ce = Range("営業担当者セル").Value
fp = Range("出力先").Value
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To Cells(Rows.Count, ce).End(xlUp).Row
Set d...続きを読む


人気Q&Aランキング

おすすめ情報