- ベストアンサー
別シートからの氏名の日付を入力
imogasiの回答
- imogasi
- ベストアンサー率27% (4737/17068)
これは関数ではむつかしいと思う。 関数では２回目以後の該当分を探すのに適当な関数がない。 また熊谷、江藤、・・の社員氏名一覧を出すのもむつかしい。 Ｃ列以下、多数列に散らばっているのでフィルタでもむつかしい。 シートＢの氏名（Ｂ列）は、人間が手打ちする、でよいのか。 そうしないと複雑さが増す。 ーー この部分をＶＢＡでやる一案は、参考に下記。 ーー それでＶＢＡでやることになるが、相当ＶＢＡコードが複雑で、ＶＢＡを 相当長期にやっているものでないと難しい。 ということは回答者にコードを全的に書いてもらって丸写しするほかなくなる。 このコーナーは、仕事のためなどの、ＶＢＡなりのコードを作ってもらう 場所ではないはず。 またＶＢＳのDictionaryなどを持ち出した回答も出ているが、VBSの勉強も 望むらくは必要。 ーー 社員氏名一覧をＶＢＡでやると ＶＢＳのＤｉｃｔｉｏｎａｒｙなど使わないでやると データ例は Ｂ２：Ｄ５とB9:D１２に 山田 大下 大野 今井 木村 山田 木下 大野 大野 山田 今井 大下 山田 大村 大野 今井 木村 山田 木下 大木 大野 山村 今井 大下 として ーー 標準モジュールに Sub test02() r = 1 For Each cl In Range("B2:D5", "B9:D12") If cl <> "" Then If Application.WorksheetFunction.CountIf(Range("h1:H100"), cl) = 0 Then Cells(r, "H") = cl r = r + 1 End If End If Next End Sub ーー 実行結果 Ｈ列に 山田 大下 大野 今井 木村 木下 大村 大木 山村 ーー 質問ではＣ４：Ｅ８のような塊が複数個あるので Range("B2:D5")の部分をRange("B2:D5", "B9:D12")にした。 このように本番では、複数個を、カンマで区切って付け加える。 すでに回答もあり、長くなるのでと、りあえず望む最終結果＝後半は略。
関連するQ&A
- テキスト氏名、日付とExcel表の連動
ユーザーフォームのテキスト氏名、日付１、日付２を入力したらExcel表のマッチした氏名行の日付を○印で入力するようなVBAのコードがありますでしょうか。どなたかご教授のほどよろしくお願いします。
- ベストアンサー
- Visual Basic
- シート１の氏名日付がした記号をシート２に反映
シート１のマークを入力コマンドボタンでシート２に氏名、日付マッチしたセルに画像のように入力したいのですがコードがお解りになる方どうかよろしくお願いします。
- ベストアンサー
- Visual Basic
- 別シートへの飛ばし方
毎月、売上内容をエクセルで表に入力しています。 元表にはバラバラに日付を入力していますが、別のシートに月毎にまとめたいんですが、 元表に入力すれば、自動に月毎のシートに内容が反映される関数、マクロを教えて下さい。
- 締切済み
- その他（ビジネス・キャリア）
- Excelで氏名を入れ替えながら印刷をしたい。
仕事で使っている表があるのですが、毎回印刷に手間取るので知恵をお貸し下さい。 Sheet1に名簿（入力表）があり、Sheet2が請求書になっています。 請求書は1人分ずつ出すようにしておりSheet2の氏名欄を書き換えればその人の請求書が完成するようになっていますが、 名前を何度も入れ替えながら印刷するとかなりの時間かかってしまいます。 名簿から請求書の氏名欄に氏名を順番にコピーして印刷をしていき、 氏名欄が空白だった場合には印刷を止めるような方法は無いものでしょうか？ 環境はWindowsXP(SP2) Excel2000です。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 別シートを参照しNoを記入で氏名を返す
大変お世話になります。 以下の様な表が別シートで作成してあります。 No 組 氏名 1 赤 太郎 2 ピンク 花子 そこで別のシートにNo2をインプットする事により”花子”という文字を自動入力させたい。 必要理由は表が大きく都度氏名を記入するのが面倒なのでNoで記入させたいのです。 宜しくお願いします。（EXCELの関数が良く解りませんので宜しくお願いします。）
- ベストアンサー
- Windows系OS
- 入力されたセルのみを別シートにリンク
EXCEL2Kです。入門者ですのでご指導下さい。あるシートに日付け毎に入力表（一部リスト選択）があります。毎日入力はありませんので、入力されたセルのみ（空欄は除外）別シートにリンクさせたいのですが、可能でしょうか？添付図のイメージです。宜しくお願いします。
- ベストアンサー
- その他MS Office製品
- Excel：日付で選択するシートを選ぶ方法
今仕事で作りながら質問しています。 日報みたいなものを作っており、 １、２、３…３１という感じで、３１個のシートに名前をつけ、 別シートから日付によってそのシートの内容を引っ張るような表を作りたいのですが、 シートの選択をどのようにすればいいのか迷っています。 ='1'!A1 の'1'の部分が日付により'2'になったり'3'になったり することはできないのでしょうか？ できれば、関数で処理したいのですが、 VBAでも構いません。 すみませんが、よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルで参照する別シート名をセルに入力したい
エクセルで参照する別シート名をセルに入力したいです。 (1) sheet2とsheet3にそれぞれA1：B10の表があります。 A列には氏名がB列には数値が入力してあります。 （同じ表で月度が違います。） (2) vlookup関数を使ってsheet1のA列に氏名を入力して対応する数値を B列に求めたいです。 (3) この時、sheet1のC1に「sheet2」「sheet3」と入力することで 参照するシートを変えたいのですが、方法が解りません。 そもそも可能かどうかも解らず、悩んでいます。 ご教授お願いいたします。
- ベストアンサー
- その他MS Office製品
- 日付を入れたら該当するセルに文字を入力する方法
一度調べたのですが、思う通りのものが見つからなかったので 質問させてください。 判りにくいかも知れないのですが、 1月 2月 ・・・・・ 日付A｜日付B｜1234567・・・・・・29 30｜ 31 1 2・・・・・・28｜ という表があります。 その日付の欄に値を入力したら、自動で該当する月日の欄に 『１』と入力する方法は無いでしょうか？ 例えば、 1月 2月 ・・・・・ 日付A｜日付B｜1234567・・・・・・29 30 31 ｜ 1 2・・・・・・28｜ 1/3 1/30 1111111111 1 1 という感じです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
有難うございます。勉強になりました。