[[20060805234941]]　『シート間での連続数値の入力』（ラビィ）　ページの最後に飛ぶ

『シート間での連続数値の入力』（ラビィ）

いろいろ検索したんですが自分では見つけ出す事が出来なくて
教えていただけないでしょうか？

複数のシートの同じ場所に１，２，３，４、や月、火、水、木
と簡単に入力する方法はないでしょうか？

sheet1 のＡ１に月
sheet2 のＡ１に火
sheet3 のＡ１に水
といった具合です。
よろしくお願いいたします。

 >簡単に入力する方法....
 VBAなら簡単だけど.. (seiya)

 ◆こんな方法はいかがでしょうか
 ■手順■
 １）シート名タブを右クリックして、「すべてのシートを選択」をクリックします
 ２）そうしておいて、Sheet1のA1に式
 A1=CHOOSE(--REPLACE(CELL("FILENAME",A1),1,FIND("Sheet",CELL("FILENAME",A1))+4,),"月","火","水","木","金","土","日")
 ３）各シートに式が入力されて、「sheet1 のＡ１に月 sheet2 のＡ１に火 sheet3 のＡ１に水といった具合」になっているはずです
 ４）ついでに、同じようにして、B1に
 B1=--REPLACE(CELL("FILENAME",A1),1,FIND("Sheet",CELL("FILENAME",A1))+4,)
 ５）とすると、Sheetの番号が表示され、Sheet1のB1は「1」、Sheet2のB1は「2」、Sheet3のB1は「4」になります
 ６）これを、利用すればいかがでしょうか
 (Maron)

 Maronさんと同じく関数を使用する方法ですが、
 そのままアップします。

 同じアドレスのセルに
 1、2、3・・・と連番を入力する方法です。

 シートをグループ化した状態で、
 =substitute(MID(CELL("FILENAME",A1),FIND("]",CELL("FILENAME",A1))+1,256),"Sheet","")
 と入力。

 ※シート名を
 Sheet1、Sheet2から変更してたらこの方法は使えません。
 シート名から"Sheet"を削除したものを利用しますので。
 あと、一度も保存していないブックではエラー表示が出ます。
 ブックを保存しF9で再計算させたら数式が反映されます。
 (MARBIN)

 今度は曜日を表示する方法です。
 Maronさんの式に比べて冗長なので恥ずかしい限りですが・・・。

 ↑と同じくシートをグループ化して行います。

 =TEXT(WEEKDAY(SUBSTITUTE(MID(CELL("FILENAME",A1),FIND("]",CELL("FILENAME",A1))+1,256),"Sheet","")),"aaa")
 ※日曜から始まります。
 　月曜から始めたい場合は↓にしてください。
 =TEXT(WEEKDAY(SUBSTITUTE(MID(CELL("FILENAME",A1),FIND("]",CELL("FILENAME",A1))+1,256),"Sheet","")+1),"aaa")
 (MARBIN)

Maronさん、MARBINさん、ありがとうございました。
数式の意味は私には解かりませんでしたがｗコピペしたら出来ました。
これで仕事がかなりはかどります。
（ラビィ）

コメント返信：

[ 一覧(最新更新順) ]

[[20060805234941]] 『シート間での連続数値の入力』（ラビィ） ページの最後に飛ぶ

[[20060805234941]]　『シート間での連続数値の入力』（ラビィ）　ページの最後に飛ぶ