こんにちは。

エクセルで出欠表をつくろうと思っています。

役職ごとに並び替えたいのですが、役職で並び変えるにはどうしたらいいのでしょうか?
初心者なもので、初歩的なしつもんで申し訳ありません。

ちなみに、使用しているのはエクセル2007です。

宜しくお願いします。

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

A 回答 (3件)

列を1行つくって、そこに並べたい順番にナンバーを振ります。

あとはその列をキーにしてソートをかければその順に並びます。
ナンバーを振った列については表示しないという設定もできますし、先頭の列か最終列にして印刷する範囲から外してしまえばプリントしても紙には出力されません。
    • good
    • 0
この回答へのお礼

ありがとうございます!

お礼日時:2011/04/12 14:13

例えば、「役職」の部長・課長・係長順に並び替えるとすると、別列に数値(仮に部長は1、課長は2、係長は3)を入力、その列をキーに並び替え→昇順で如何でしょうか。

    • good
    • 0
この回答へのお礼

ありがとうございます!

お礼日時:2011/04/12 14:13

どのような表かわかりません。



役職の入っている列でソートしてください。
    • good
    • 0
この回答へのお礼

ありがとうございます!

お礼日時:2011/04/12 14:13

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

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

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

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

Qメール等での役職への様・殿は必要ですか?

メール宛先における肩書きは、役職名に様・殿は付ける事が礼儀ですか?
口頭では役職名で様・殿はつけていません。

Aベストアンサー

基本的には役職名の後には「様」や「殿」は付けません。
また、「殿」は同格以下の相手にしか付けませんので、その点も注意が必要です。

どうしても付けたければ、

株式会社○○ △△部長 □□様

ですね。

Qエクセルで似た数字を同じ行に並びかえる方法

エクセル初心者です。文章だけで説明できるか自信がないですが、どなたか助けてください。

隣接した列に時間とそれに対応した数値が打ち込まれた100行ほどのデータが2つある。

EX、A列(時間:秒)1行=2.003、2行=4.05、3行=8.002…(行が進む  ほど大きくなる) 
  B列(数値)1行=10、2行=5、3行=4(ランダム)
  
  C列(時間:秒)1行=1.001、2行=2.2、3行=7.9…(行が進む   ほど大きくなるがA列と一緒とは限らない) 
  D列(数値)ランダム

 このような場合に、時間に対応した数値はそのまま(AとB,CとDは連 動)で、時間を似た数字でそろえる(少数点1桁くらいの精度)場合
 どのような操作が最も簡便でしょうか?
 EX、
 A列1行=空欄、C列1行=1.001
 A列2行=2.003、C列2行=2.2
 A列3行=8.002、C列3行=7.9

 イメージがつきにくいと思いますが、補足で説明させていただきます
ので、どなたか、私に付き合って、上記のファイル処理を達成させて
ください。

実際には、時間と数値の組み合わせが20パターンほどあり、
似た時間で並べて解析したいのですが、一つずつ合わせていくのでは
膨大な時間がかかってしまいそうです。。。
何卒よろしくお願いします。

エクセル初心者です。文章だけで説明できるか自信がないですが、どなたか助けてください。

隣接した列に時間とそれに対応した数値が打ち込まれた100行ほどのデータが2つある。

EX、A列(時間:秒)1行=2.003、2行=4.05、3行=8.002…(行が進む  ほど大きくなる) 
  B列(数値)1行=10、2行=5、3行=4(ランダム)
  
  C列(時間:秒)1行=1.001、2行=2.2、3行=7.9…(行が進む   ほど大きくなるがA列と一緒とは限らない) 
  D列(数値)ランダム

 このような場合に、時間...続きを読む

Aベストアンサー

4組のデータに対応した修正版を紹介します。

使い方は2組の場合と同じように、インデックスの列を追加して、
それぞれ1、2、3、4の数値を入力してください。
カット&ペーストで<A,B>列にして、昇順で並び替えてください。

test3()を実行すれば、希望の結果が得られると思います。

データ組の数は変数にしています。2以上であれば問題なく動作するはずです。

注意点
1)検証が十分ではないので、プログラムに間違いがあるかもしれません。
  データ保存後、希望どおりの結果になっているか確認してください。
2)例えば、4組のデータの場合、24列(A~X)を作業列として使いますので、
  4組(A~H)以外は空白セルにしておいてください。
3)列幅が足りず、表示が狂う(見かけ上桁落ちする)場合があります。
  最終的に列幅を調整してください。
4)前準備も自動化が可能です。興味があれば勉強して、
  自動化を試みてください。



Sub test3()
 '4組データ対応版
 Dim k As Integer
 Dim k0 As Integer
 Dim m As Integer
 Dim p As Integer
 Dim r As Integer
 Dim s As Integer
 Dim DATA_Set As Integer
 Dim threshold As Double

 DATA_Set = 4 'データの組の数
 threshold = 0.1 '閾値を変更するときはココを変えてください
 k0 = 1 'データ探索開始行です。見出し行がある場合は2にしてください


'近似データの抽出
 k = k0
 Do
  If Cells(k + 1, "A").Value < Cells(k, "A").Value + threshold Then
   r = Application.WorksheetFunction.CountA(Range(Cells(k, "A"), Cells(k, "A").End(xlToRight)))
   For p = 1 To 3
    Cells(k, p + r).Value = Cells(k + 1, p).Value
   Next p
   Rows(k + 1).Delete
  Else
   k = k + 1
  End If
 Loop Until Cells(k + 1, "A") = ""

'データ位置の復元
 For m = 1 To DATA_Set
  For s = 1 To DATA_Set
   k = k0
   Do
    If Cells(k, m * 3).Value = s Then
     For p = 1 To 3
      Cells(k, 3 * DATA_Set - 3 + 3 * s + p).Value = Cells(k, m * 3 - 3 + p).Value
     Next p
    End If
    k = k + 1
   Loop Until Cells(k, "A") = ""
  Next s
 Next m

'作業カラムの削除
 Range(Cells(1, 1), Cells(k - 1, DATA_Set * 3)).Columns.Delete
 For m = DATA_Set To 1 Step -1
  Range(Cells(1, m * 3), Cells(k - 1, m * 3)).Columns.Delete
 Next m

End Sub

4組のデータに対応した修正版を紹介します。

使い方は2組の場合と同じように、インデックスの列を追加して、
それぞれ1、2、3、4の数値を入力してください。
カット&ペーストで<A,B>列にして、昇順で並び替えてください。

test3()を実行すれば、希望の結果が得られると思います。

データ組の数は変数にしています。2以上であれば問題なく動作するはずです。

注意点
1)検証が十分ではないので、プログラムに間違いがあるかもしれません。
  データ保存後、希望どおりの結果になって...続きを読む

Q役職の後の様は必要?

郵便物などで ~課長様 ~常務様
というふうに役職の後に様は必要ですか?

Aベストアンサー

No.2です。
何度もスミマセン

同じグループ会社であれば、
○○常務 殿とか ○○課長 殿
でOKだと思いますよ。

Qエクセル表の並び替えに関して

エクセル2002です。

--- K1|K2|K3|K4|
----------------
9/2|A |- |B |- |
9/3|- |A |A |B |
9/4|B |- |A |B |
9/5|- |- |- |A |



A|K1|9/2|---|---|
A|K2|9/3|---|---|
A|K3|9/3|9/4|---|
A|K4|9/5|---|---|
B|K1|9/4|---|---|
B|K2|---|---|---|
B|K3|9/2|---|---|
B|K4|9/3|9/4|---|

と別の場所あるいはべつのシートに並び替える方法はあるでしょうか?--の部分は空白です。
元表の列も行も増える可能性があります。
すみませんがぜひよろしくお願いいたします。

Aベストアンサー

Public Sub convert()
Dim r As Range
Dim base As Range

Set r = ActiveCell.CurrentRegion 'アクティブセルのある範囲
'Set r = Selection '範囲を指定
SYMBOLS = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
SYMLEN = Len(SYMBOLS)

Set base = Range("sheet2!A1") '書き込みの基準位置
ActiveWorkbook.Sheets("sheet2").Range("1:65536").ClearContents '書き込み先の消去

xMax = r.Columns.Count
yMax = r.Rows.Count
dataC = 0
valueC = 0

For i = 1 To SYMLEN
code = Mid$(SYMBOLS, i, 1)
For x = 2 To xMax
For y = 2 To yMax
If r.Cells(y, x) = code Then
If valueC = 0 Then
base.Offset(dataC, 0).Value = code
base.Offset(dataC, 1).Value = r.Cells(1, x)
base.Offset(dataC, 2).Value = r.Cells(y, 1)
base.Offset(dataC, 2).NumberFormatLocal = "m/d" '書式の設定
valueC = 3
Else
If base.Offset(dataC, 0) = code And base.Offset(dataC, 1) = r.Cells(1, x) Then
base.Offset(dataC, valueC).Value = r.Cells(y, 1)
base.Offset(dataC, valueC).NumberFormatLocal = "m/d" '書式の設定
valueC = valueC + 1
Else
dataC = dataC + 1
base.Offset(dataC, 0).Value = code
base.Offset(dataC, 1).Value = r.Cells(1, x)
base.Offset(dataC, 2).Value = r.Cells(y, 1)
base.Offset(dataC, 2).NumberFormatLocal = "m/d" '書式の設定
valueC = 3
End If
End If
End If
Next y
Next x
Next i
End Sub
とりあえず、作ってみました。
B|K2は、データなしで表示(処理)しないようになっています。
該当の表の中のセルをセレクトしておいてマクロを呼び出します。
結果は、"sheet2"へ書き出します

Public Sub convert()
Dim r As Range
Dim base As Range

Set r = ActiveCell.CurrentRegion 'アクティブセルのある範囲
'Set r = Selection '範囲を指定
SYMBOLS = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
SYMLEN = Len(SYMBOLS)

Set base = Range("sheet2!A1") '書き込みの基準位置
ActiveWorkbook.Sheets("sheet2").Range("1:65536").ClearContents '書き込み先の消去

xMax = r.Columns.Count
yMax = r.Rows.Count
dataC = 0
valueC = 0

For i = 1 To SYMLEN
code = Mid$(SYMBOLS, i, 1)
...続きを読む

Q年賀状や郵送物について質問します。 法人名 株式会社〇〇 御中 役職名 代表取締役 〇〇〇〇 様 御

年賀状や郵送物について質問します。
法人名 株式会社〇〇 御中
役職名 代表取締役 〇〇〇〇 様

御中 と様両方つけていいんでしょうか?
教えてくださいm(_ _)m

Aベストアンサー

個人名で送るのであれば、会社名に御中は付けません

法人名 株式会社〇〇
役職名 代表取締役 〇〇〇〇 様

Qエクセルの関数です。列に数字が並んでいる表。

エクセルの関数です。列に数字が並んでいる表。

ある列内のセルにある数字を指定し、その数字から下一列にある数字をすべて選択したような状態でその中の数字の平均値を求める方法はあるのでしょうか?


数値
3210※例えば
3211 3212と3215とあるセルに入力したら自動的に3212~3215の平均値の結果が返るような  3333 関数です。
3212
3213
3214
3215
3217
3218
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
3233
3234
3235

Aベストアンサー

No.2です!
投稿した後でNo.1さんの補足を読ませてもらいました。

>3211 3215とある別々のセルに入力したら 自動的に3212~3215の間んぽ・・・
とあるのですが
3211と入力するとその値を超えたものから3215までの平均を出したいという意味なのですかね?

もしそうであれば、その下にある
>3211 3215 が 3219 3226  に変えたら 3219~3226間の数字の平均がでるような・・・

が違う事になってしまいますが・・・

一応参考として
前回のD3セルの数式を
=IF(COUNTBLANK(D1:D2),"",SUMPRODUCT((A1:A1000>D1)*(A1:A1000<=D2)*(A1:A1000))/SUMPRODUCT((A1:A1000>D1)*(A1:A1000<=D2)))

に訂正すれば、D1セルの値を超えて~D2セルの値までの平均が出ると思います。

以上、お役に立てば良いのですが
何度もごめんなさいね。m(__)m

Q役職に”様”は必要ですか?

こんにちは(^o^)

会社で手紙、電話、FAX等で得意先の役職のある方を呼ぶ時、〇〇会社△△部長の後に様と付けるのは失礼なのでしょうか?

私は△△部長様・・といつも様付けするのですが同僚は部長だけで良いと習ったと言います。

どちらが正解なのでしょう?

Aベストアンサー

一般常識ではつけなくてよいことになっています。

しかしそうとは知っていながら、以前勤めていた会社では、
「~~部長様」
とかくことが慣習化していました。

つけて失礼といったことは無いと思います。
例えばあなたの同僚や上司はどのようにされていますか?
同じようにするのが得策です。

Qエクセルで順位表を並び替えたい。同順位表示方法は?

エクセルで順位表を別シートに並び替えたいと考えていますが、同点になった場合はどうしたらよいでしょうか?

シート1で集計した結果を参照し、シート2に上から順に1位から表示させる表を作りたいです。

試行錯誤の結果、下記まで作業しました。
=========
<シート1>
    A        B       C       
   (1)商品名  (2)販売額  (3)ランキング 
1    a     1000       2
2   b     1500      1
3  c     1000      2
4  d     500      4
5  e     300      5

(1)手入力
(2)SUM関数で集計した値
(3)RANK関数

<シート2>
    A        B    C
(3) ランキング  (1)商品名 (2)販売額
1
2
3
4
5

(3)手入力
(2)INDEXとMATCH関数
(3)INDEXとMATCH関数
=========

1)シート2の(3)ランキングをシート1を参照し降順で自動表示させる方法を教えてください。
今は手入力なので、同順位があった場合にずれが生じてしまいます。

2)シート2に同順位表示のまま並び替えする方法を教えてください。
INDEX関数とMATCH関数を使っていましたが、
シート1で同順位表示されていた箇所が、シート2で表示できませんでした。

どうぞ宜しくお願いいたします。

エクセルで順位表を別シートに並び替えたいと考えていますが、同点になった場合はどうしたらよいでしょうか?

シート1で集計した結果を参照し、シート2に上から順に1位から表示させる表を作りたいです。

試行錯誤の結果、下記まで作業しました。
=========
<シート1>
    A        B       C       
   (1)商品名  (2)販売額  (3)ランキング 
1    a     1000       2
2   b     1500      1
3  c ...続きを読む

Aベストアンサー

順位の数字に細工をしておくだけで、簡単にできます。

添付図:
C2に
=RANK(B2,B:B)+ROW()/1000
と記入、カンマ区切りの書式設定を取り付けて以下コピーしておく

これで同順も違う数字が計算できるので、あとはINDEXとMATCHで持ってくるだけです。


E2:
簡単に1番からの連番を記入
ROW関数とか使ってもいいですが、手で記入するので十分

F2:順位の数字の小さい順に取ってくる
=INDEX(A:A,MATCH(SMALL($C:$C,$E2),$C:$C,0))
右にコピー、下にコピー。


実際に手を動かして、できることを確認してください。

Q課長等の役職者につけるのは様?

社内の役職者(課長や取締役等)にメールを送る際
様ですか、殿ですか?
それとも ○○課長や○○取締役でいいのでしょうか?
よろしくお願いします。

Aベストアンサー

本来課長というのは役職名であると同時に敬称の意味も持っています。
しかし敬語の目減り?があって文書では○○課長とはなかなか書けません。

便法は2つ有ります。
1.経理課長 吉田様
2.吉田経理課長殿
3.吉田課長殿

私は適宜この3つを使い分けてました。
名前の下は様、課長の下は殿が収まりがいいです。

Qエクセルで複数列に並んでいるものを1列で表すには?

エクセルで例えば
NO、店、商品・・・
1「Aスーパ」「リンゴ」「バナナ」「ミカン」
2「Bコンビニ」「ナシ」「モモ」
3「C百貨店」「クリ」「ブドウ」
のように各セルに文字列が入っているものを
下記のように、「店」と「商品」がそれぞれ対応するように
一列に並べるにはどのようにしたらよいでしょうか?
1「Aスーパ」「リンゴ」
2「Aスーパ」「バナナ」
・・・
8「C百貨店」「ブドウ」

条件としては、
一つの行に店は1つだけ
ただし、商品の数はばらばら
です。

Aベストアンサー

◆Sheet2の式
A1=IF(ROW(A1)>COUNTA(Sheet1!$B$1:$F$3),"",INDEX(Sheet1!A:F,SMALL(INDEX(SUBSTITUTE((Sheet1!$B$1:$F$3<>"")*1,0,10^3)*ROW($B$1:$F$3),),ROW(A1)),1))
★下にコピー

B1=IF(ROW(A1)>COUNTA(Sheet1!$B$1:$F$3),"",INDEX(Sheet1!B:F,SMALL(INDEX(SUBSTITUTE((Sheet1!$B$1:$F$3<>"")*1,0,10^3)*ROW($B$1:$F$3),),ROW(A1)),COUNTIF($A$1:A1,A1)))
★下にコピー


人気Q&Aランキング