エクセル2003PS3を使用しています。

オートフィルタでデータを絞っている状態で、数字をひとつづつ増やすようにしたいのですが、
たとえば1と2を選んでドラッグすると1212と数字を繰り返すだけで、増えていきません。

オートフィルタ中は数字増やせないんでしょうか?

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

A 回答 (2件)

オートフィルタ中はドラッグ操作などで数値を増やすことはできません。


お望みのことはオートフィルタを実施したときに該当するデータがたくさんあるときにそれに1から番号を振りたいということでしょうか?
それでしたら次のようにすればよいでしょう。
たとえばA2セルから下方に番号を振りたい。その場合に例えばB列のデータは最終の行まで空白のない状態になっているとします。そこでA2セルには次の式を入力して下方にオートフィルドラッグします。これはオートフィルタをしていない状態で行います。

=IF(B2="","",SUBTOTAL(3,B$2:B2))

このようにすることでA2セル以降にはオートフィルタがどの列で行われようとも1番からの番号が表示されることになります。
    • good
    • 0
この回答へのお礼

ありがとうございます。

お礼日時:2011/05/11 13:57

はい。

オートフィルタで絞っている中(行番号の数字が青くなる)は数字は増えず,コピーしかできません。
    • good
    • 0

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

このQ&Aを見た人はこんなQ&Aも見ています

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

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

Q数字の書き方

数字の書き方(1・4・5・6・7)について質問します。
添付した紙の左側に書いてある数字は、印刷物で見かける数字です。
添付した紙の右側に書いてある数字は、私が普段書く数字の書き方です。

印刷物で見かける数字と私が普段書く数字の書き方では、形がちょっと違います。書類に数字を書く時、
私が普段書く数字の書き方で書いた方がよいですか?

私が普段書く数字の書き方(1・4・5・6・7)は、正しく書けてますか?

細かい質問になりますが、宜しくお願いします。



                

Aベストアンサー

数字は実用的な目的で書かれると仮定します。つまり芸術ではなく、美を追求するものではないとします。そうすると誤解のない字であることが最大の条件になります。そのほかに早くかけるとか、親しめる文字であるとか、いくつかの付帯的な問題はありますが、この際それは無視しましょう。
 そういう条件で見ると質問者の数字は誤解される恐れはなく、「正しくかけている」といえます。
 書類に数字を書く時、
>私が普段書く数字の書き方で書いた方がよいですか?
これは何を聞きたいのか、わかりません。
 もっと左の字に似せたほうがよいかという質問ですか。それなら、その必要はないといえます。
 それとも個性の感じられる字の方が良いかということですか。別に取り立てて特徴があるとも見えないので、その場合もノーです。

Q2003でオートフィルタ(3条件以上)マクロ

EXCEL2007で組んでいて、困っています!
2003では、オートフィルタ、3条件までなので、
下記の場合どうすればよいでしょうか・・・
(IF文内、カ行までしかいれてません。
しかも、2007これだと止まってしまうのですが・・・)

Private Sub 検索_Click()
Dim S_Name As String
a_arr = Array("ア", "イ", "ウ", "エ", "オ")
k_arr = Array("カ", "キ", "ク", "ケ", "コ")
s_arr = Array("サ", "シ", "ス", "セ", "ソ")
t_arr = Array("タ", "チ", "ツ", "テ", "ト")
n_arr = Array("ナ", "ニ", "ヌ", "ネ", "ノ")
h_arr = Array("ハ", "ヒ", "フ", "ヘ", "ホ")
m_arr = Array("マ", "ミ", "ム", "メ", "モ")
y_arr = Array("ヤ", "ユ", "ヨ")
r_arr = Array("ラ", "リ", "ル", "レ", "ロ")
w_arr = Array("ワ", "ヲ", "ン")

'シートCOPYのデータを消去
ThisWorkbook.Sheets("copy").Visible = True
Sheets("copy").Cells.Clear
'仕入先名検索の値をコピー
Worksheets("仕入先マスタ").Activate
If 仕入先名検索.Value = "ア" Then
Worksheets("仕入先マスタ").Range("$A$1:$I$65536").AutoFilter Field:=9, Criteria1:=a_arr, Operator:=xlFilterValues
With Worksheets("仕入先マスタ").Range("B1").CurrentRegion
Set r = Cells(65536, .Cells(.Cells.Count).Column).End(xlUp)
Range("A1", r).Select
ElseIf 仕入先名検索.Value = "カ" Then
Worksheets("仕入先マスタ").Range("$A$1:$I$65536").AutoFilter Field:=9, Criteria1:=k_arr, Operator:=xlFilterValues
With Worksheets("仕入先マスタ").Range("A1").CurrentRegion
Set r = Cells(65536, Cells(.Cells.Count).Column).End(xlUp)
Range("A1", r).Select

End With
End If
Selection.Copy
Worksheets("copy").Select
Range("A1").Select
Worksheets("copy").Paste
Application.CutCopyMode = False

Dim myDCount As Long, myDRange As String
myDCount = Worksheets("copy").Range("B1").CurrentRegion.Rows.Count 'データの最終行を取得
myDRange = "copy!B2:C" & myDCount
With 仕入先名
.ColumnCount = 2
.ColumnWidths = "100;20"
.RowSource = myDRange
End With
ThisWorkbook.Sheets("copy").Visible = False
Worksheets("商品マスタ").Activate
End Sub

EXCEL2007で組んでいて、困っています!
2003では、オートフィルタ、3条件までなので、
下記の場合どうすればよいでしょうか・・・
(IF文内、カ行までしかいれてません。
しかも、2007これだと止まってしまうのですが・・・)

Private Sub 検索_Click()
Dim S_Name As String
a_arr = Array("ア", "イ", "ウ", "エ", "オ")
k_arr = Array("カ", "キ", "ク", "ケ", "コ")
s_arr = Array("サ", "シ", "ス", "セ", "ソ")
t_arr = Array("タ", "チ", "ツ", "テ", "ト")
n_arr = Array("ナ", "ニ", "ヌ",...続きを読む

Aベストアンサー

こんばんは。

コードの間違いがあるようですね。2007でも、2003でも、そのコードは通りません。説明なしでは意味が不明な部分が何点もあります。

こういう場合、だいたい、逆に質問して教えてもらっても、余計に分からなくなるので、こちらの想像で詰めるしかないようです。

たぶん、UserForm から行うように思えるのです。そうしないと、親オブジェクトのない部分で不整合があるから、UserForm が立ち上がっていないと無理があります。ただ、それぐらいは説明していただかないと、突然出てきたオブジェクトで混乱してしまいます。

それと、仕入先名はUserFormのListBox かComboBox 辺りでしょうか? 説明がないと分かりにくいです。

With 仕入先名
    .ColumnCount = 2
    .ColumnWidths = "100;20"
    .RowSource = myDRange
End With

一度、こちらの書いたコードを見てみてください。参考になるべき部分があれば、写してください。ご質問者さんの意図するものと同じかは分かりませんが、読み取れるコードから直してみました。

'-------------------------------------------

Sub Kensaku_Click()
  Dim S_Name As String
  Dim a_arr As Variant, k_arr As Variant, s_arr As Variant, t_arr As Variant
  Dim n_arr As Variant, h_arr As Variant, m_arr As Variant, y_arr As Variant
  Dim r_arr As Variant, w_arr As Variant
  Dim 仕入先名検索 As Variant
  a_arr = Array("ア", "イ", "ウ", "エ", "オ")
  k_arr = Array("カ", "キ", "ク", "ケ", "コ")
  s_arr = Array("サ", "シ", "ス", "セ", "ソ")
  t_arr = Array("タ", "チ", "ツ", "テ", "ト")
  n_arr = Array("ナ", "ニ", "ヌ", "ネ", "ノ")
  h_arr = Array("ハ", "ヒ", "フ", "ヘ", "ホ")
  m_arr = Array("マ", "ミ", "ム", "メ", "モ")
  y_arr = Array("ヤ", "ユ", "ヨ")
  r_arr = Array("ラ", "リ", "ル", "レ", "ロ")
  w_arr = Array("ワ", "ヲ", "ン")
   '仕入先名検索 ''TextBox か?
  'シートCOPYのデータを消去
  ThisWorkbook.Worksheets("Copy").Visible = True
  Worksheets("copy").Cells.Clear
  '仕入先名検索の値をコピー
  With Worksheets("仕入先マスタ")
    .Activate
    .AutoFilterMode = False
  End With
  Select Case 仕入先名検索.Value
    Case "ア": AutoFilterPro (a_arr)
    Case "カ": AutoFilterPro (k_arr)
    Case "サ": AutoFilterPro (s_arr)
    Case "タ": AutoFilterPro (t_arr)
    Case "ナ": AutoFilterPro (n_arr)
    Case "ハ": AutoFilterPro (h_arr)
    Case "マ": AutoFilterPro (m_arr)
    Case "ヤ": AutoFilterPro (y_arr)
    Case "ラ": AutoFilterPro (r_arr)
    Case "ワ": AutoFilterPro (w_arr)
    Case Else : Exit Sub
  End Select
  Call ArrangeListBox
End Sub

Sub AutoFilterPro(arg As Variant)
  Dim c As Variant
  Dim k As Variant
  Dim v As Long
  Application.ScreenUpdating = False
  With Worksheets("仕入先マスタ")
    v = Val(Application.Version)
    'バージョンの違いは、ディレクティブ分岐にする
    #If v <= 11 Then
    For Each c In .Range("I1", .Range("I65536").End(xlUp))
      k = Application.Match(c.Value, arg, 0)
      c.Offset(, 1).Value = IsNumeric(k) * -1
    Next
    .Range("A1", .Range("J65536").End(xlUp)).AutoFilter _
    Field:=10, Criteria1:=1
    #Else
    .Range(.Cells(1, 1), Cells(Rows.Count, 9).End(xlUp)).AutoFilter _
    Field:=9, Criteria1:=arg, Operator:=xlFilterValues
    #End If
    With .AutoFilter.Range
      .Resize(, .Columns.Count - 1).Copy Worksheets("Copy").Range("A1")
    End With
    .AutoFilterMode = False
    #If v <= 11 Then
    .Range("J1", Range("J65536").End(xlUp)).ClearContents
    #End If
  End With
  Application.ScreenUpdating = True
End Sub

Sub ArrangeListBox()
Dim myDCount As Long
Dim sRange As String '変数名を変えた

  myDCount = Worksheets("copy").Range("B1").CurrentRegion.Rows.Count 'データの最終行を取得
  sRange = "copy!B2:C" & myDCount
  
  With 仕入先名 'UserForm のListBox ?
    .ColumnCount = 2
    .ColumnWidths = "100;20"
    .RowSource = sRange
  End With 
  ThisWorkbook.Sheets("copy").Visible = False
  Worksheets("商品マスタ").Activate
End Sub

こんばんは。

コードの間違いがあるようですね。2007でも、2003でも、そのコードは通りません。説明なしでは意味が不明な部分が何点もあります。

こういう場合、だいたい、逆に質問して教えてもらっても、余計に分からなくなるので、こちらの想像で詰めるしかないようです。

たぶん、UserForm から行うように思えるのです。そうしないと、親オブジェクトのない部分で不整合があるから、UserForm が立ち上がっていないと無理があります。ただ、それぐらいは説明していただかないと、突然出てきたオブジェ...続きを読む

Q正式な数字の書き方

普通の数字(アラビア数字?)には、正式な書き方があったとおもうのですが、
それらをまとめたようなサイトはないでしょうか?

正式な書き方とは、3本か4本の線上に数字を書く書き方です。
説明が下手ですみません。よろしくお願いします。

Aベストアンサー

No.2です。
数字が上下に出入りするスタイルは"non-lining figures" というらしいですね。
これは小文字と一緒に使うもので、大文字と混ぜるときはベースラインをそろえるのだと説明がありました。
http://typo.lomo.jp/typo_13.html
http://www.fontsite.com/Pages/RulesOfType/ROT1297.html
http://www.emigre.com/EFoGC.php
http://www.usgennet.org/family/smoot/oldhand/romannumerals.html

質問の意味自体わかっていないので、「それのことだ」とか、「そんなのじゃない」とか、補足をください。

参考URL:http://www.fontsite.com/Pages/RulesOfType/ROT1297.html

Qエクセル「3つの数字の合計がある数字になる組み合わせ」を調べたい。

こんにちは。
エクセルで、以下のような問題を解くことはできますでしょうか?
基本的な関数しかできず、自分で調べたところ。ソルバーやVBAを使えばできるのかもしれないとは思ったのですが、なかなか良い類似例を見つけられず、苦戦しています。

<問題>
「3」「5」「6」「8」…といったランダムな数字が合計になる3つの数字のすべての組み合わせを知りたいです。
たとえば、
「3」なら答えは「1+1+1」
「5」なら答えは「2+1+1」「1+2+1」「1+1+2」
「6」なら答え「4+1+1」「1+4+1」「1+1+4」「3+2+1」「2+3+1」「1+2+3」「3+2+1」…のような形です。

※実は子どもの名付けで、画数の組み合わせを出そうと思っています。

わかりづらい点があるかとは存じますが、お力添え何卒よろしくお願い致します。

Aベストアンサー

A1に合計[下の例では10]を入れておくとして

●関数利用

   A B C D
1 10 1 1 8
2   1 2 7
3   1 3 6
4   1 4 5
5   1 5 4
6   1 6 3
7   1 7 2
8   1 8 1
9   2 1 7
36   8 1 1

B1,C1に1
D1
=A$1-SUM(B1:C1)
下方向・↓
B2
=B1+(D1=1)
下方向・↓
C2
=IF(D1=1,1,C1+1)
下方向・↓

●VBA利用
Sub test()
Dim a As Long
Dim b As Long
Dim c As Long
Dim mySum As Long
Dim WsfC As Long
Dim myRow As Long
Dim newSum As Long
Dim myVar() As Long
Dim myRng As Range
 mySum = Range("A1").Value '合計
 newSum = mySum - 3 '合計から3を引く
 WsfC = Application.WorksheetFunction.Combin(mySum - 1, 2)
 ReDim myVar(1 To WsfC, 1 To 3)
 Set myRng = Range("B1:D" & WsfC)
 Application.ScreenUpdating = False
 For a = 0 To newSum
  For b = 0 To newSum - a
   c = newSum - a - b
   myRow = myRow + 1
   myVar(myRow, 1) = a + 1
   myVar(myRow, 2) = b + 1
   myVar(myRow, 3) = c + 1
  Next b
 Next a
 myRng.Value = myVar
 Application.ScreenUpdating = True
End Sub

A1に合計[下の例では10]を入れておくとして

●関数利用

   A B C D
1 10 1 1 8
2   1 2 7
3   1 3 6
4   1 4 5
5   1 5 4
6   1 6 3
7   1 7 2
8   1 8 1
9   2 1 7
36   8 1 1

B1,C1に1
D1
=A$1-SUM(B1:C1)
下方向・↓
B2
=B1+(D1=1)
下方向・↓
C2
=IF(D1=1,1,C1+1)
下方向・↓

●VBA利用
Sub test()
Dim a As Long
Dim b As Long
Dim c As Long
Dim mySum As Long
Dim WsfC As Long
Dim myRow As...続きを読む

Q外国語で数字の「0(ゼロ)」の書き方と読み方を教えて下さい。

どこの国の言葉でもいいのですが、外国語で数字の「0(ゼロ)」の書き方と読み方を教えて下さい。いろんな種類の「0(ゼロ)」を探しております。宜しくお願い致します。

Aベストアンサー

書き方というと、文字の形のことでしょうか?
…多分違いますね。でも一応書いておきます。

ゼロは大抵の言語で「○」型をしていますね。
例外的にアラビア語では「・」で表します。
また、マラヤーラム語という言語のゼロはσが右に伸びたような形をしているようです。
あとは「零」。

読み方では、大抵ヌル系かゼロ系です。
ロシア語でноль[ノリ], нуль[ヌリ]
フランス語でZe´ro[ゼロ]
他には
ギリシャ語でΜηδε´ν[メーぜン](←"ぜ"は英語のth)
韓国語で零[ヨン(yeong)]
中国語で零[リン(ling)]
など。

参考URL左下の「他の言語」から各国のゼロの表記が分かります。
発音は分かりませんがローマ字なら大体想像がつくでしょう。

参考URL:http://ja.wikipedia.org/wiki/0

Qエクセル2003:小数点で数字を揃えたい

エクセル2003:小数点で数字を揃えたい
エクセル2003のソフトを使用しています。小数点で数字を揃えたい

たとえば、縦のセルに、上から10.56重量%、7.52重量%、75.2重量%、0.254重量%と入力したい。数字を小数点で揃えたい。ワードの小数点揃えタブのような機能はあるのでしょうか。右寄せするのでなくて。真ん中に数字を寄せるとき。
よろしくお願いします。

Aベストアンサー

一例です。
セルの書式設定→表示形式→ユーザ定義で#,##0.0??"重量%"は如何でしょうか。

Q調剤薬局事務に適した数字の書き方とは

 調剤薬局で働くため調剤薬局事務の資格を取るつもりです。
しかし、最近、知人に調剤薬局で働くためには、資格より調剤薬局で働くのに適した文字があると聞きました。具体的には簿記の資格を持っておられる方、経理の仕事をされている方の様な数字の書き方が必要だと。初めて聞きました。私は決して上手な字を書くとは言えません。その分、丁寧な字を書く事を心がけてはおりますが・・・そこで質問です。やはり調剤薬局事務の仕事をするためには、簿記の資格を持っておられる方、経理の仕事をされている方の様な数字の書き方が必要なのでしょうか。また、その書き方とはどの様なものなのでしょうか。お教え頂ければ幸いです。よろしくお願いします。 

Aベストアンサー

医療系の仕事をしています。
が、そんな話は聞いたことはありません。
ただ、経理などには文字のかきかたはありましたけど・・・・

自分が思うに、きちんとだれでも読める字ならありではないかと思います。
私も自慢できるような字ではないですけど、メモなど残すときはちゃんと
識別できるような文字を書くように心がけています。
それでいいと思いますよ。
調剤など医療系は命にかかわることですし、同じようなお薬はたくさんあります。
その読みを間違えただけで・・・ぞっとしますね。
それがなければいいのではと思いますよ。
レセプトなどはシステムがするので書くことはまずないし…。

Qエクセルで法則に従って増える数字を作るには…

エクセルがまったくわからない初心者です。
A1に「00001」と入力してセル右下の「+」を下にドラッグすると00002、00003…と増える機能?を利用して、
00001
00051
00101
00151
00201
00002
00052
00102
00152
00202
00003
…以下略
のような50ずつ増えて、200番台に達すると00002からまた50ずつ増えて、また200番台に達すると次は00003から増えていく…のような文字列は出来るのでしょうか…?

全くの素人なのでわかりやすく教えてくださる方、いらっしゃいましたらお願い致します。

Aベストアンサー

まず、これらの数値を入力するセルの書式を

【セルの書式設定】の 【表示形式】 で 【ユーザ定義】を選択し、
【種類】に  00000   を設定してください。


仮に、00001 を入力するセルが A1 なら そのすぐ下の A2 に次の数式を
入力します。

=if(A1+50>=250,A1-200+1,A1+50)

あとは、A2セルを選択し、セル右下の「+」を下にドラッグしてください。

Q数字の書き方色々

7に横棒を入れたり、4の横棒をつきださなかったり、9を反対に書いたり、国によって数字の書き方が違いますね。

それらの一覧できるサイトはないでしょうか。

自分で探したのですが、うまく見つかりません。

情報よろしくお願いします。

Aベストアンサー

国によって数字(1234567890)の書き方が『違う』ことはありません。全世界共通です。

実際に手書きで、「7」に横棒を入れるのは、「1」との区別がその人の筆跡(というよりも「クセ」)で混同し易いので、横棒を入れているものです。私の実体験では、フランス人は「1」を、左上部分を大きく(長く)書く傾向にあり、一般日本人の目では「7」のようにも見えます。同国人でも多分同様で、誰かが横棒を入れることを思いつき、これが一般化したものでしょう。しかし横棒つきの「7」は、あくまでも便宜的な区別で『正しい』字ではありません。日本人でもそのように書く人が(まれですが)います。

「z」の中央にヽを付けるケースも少なくないようですが、これは「2」と区別するためです。

手書きでは一般化していませんが、「0」(ゼロ)と「O」(大文字のオー)を区別するために、前者に斜線を加えるのも同ケースでしょう。ただ(私の知る範囲で)「1」と「l」(小文字のエル)を区別する便宜的方法は、日本でも欧米でも無いようです。

古い欧文タイプライターでは、「1」キーが存在せず、小文字のエルや大文字のアイに代えるのが普通でした。「0」も同様です。もちろんその当時、斜線入りの「0」は存在していませんでした。

「9」の反対、というのは目にした体験がありません。ただ、欧米人は「8」を日本人のようにひと筆で書かず、マル2つで書く人が少なくありません。時として上のマルとしたのマルが離れてしまって、それこそ目をマルくします。ことによると、マルを書いて、その下に棒を引いて「9」にしているので、そのように見えるのかもしれません。

国によって数字(1234567890)の書き方が『違う』ことはありません。全世界共通です。

実際に手書きで、「7」に横棒を入れるのは、「1」との区別がその人の筆跡(というよりも「クセ」)で混同し易いので、横棒を入れているものです。私の実体験では、フランス人は「1」を、左上部分を大きく(長く)書く傾向にあり、一般日本人の目では「7」のようにも見えます。同国人でも多分同様で、誰かが横棒を入れることを思いつき、これが一般化したものでしょう。しかし横棒つきの「7」は、あくまでも便宜的な区別で『...続きを読む

Qアクセス初心者です。(2003を使用)エクセルからデータをインポートす

アクセス初心者です。(2003を使用)エクセルからデータをインポートする際、エラーも何も出無いのですが、結果データがインポート出来てません。フィールド名やデータ型等テキストどおりやってるので、間違いないと思うのですが、なぜ出来ないのかわかりません。
解決法をよろしくお願いします。

Aベストアンサー

(1)
どのような方法をとっているのか。
(2)
Accessにコードを書いているなら
そのコードの内容を。

そのようなことを提供すればいいレスが
つくと思われます。


人気Q&Aランキング

おすすめ情報