- ベストアンサー
インプトボックス関数を使って・・
merlionXXの回答
- merlionXX
- ベストアンサー率48% (1930/4007)
どう、うまくいかないんでしょうか？ Sheet1のＡ1からデータが入っている場合、以下のような感じになると思いますが。 Sub test() ans = Application.InputBox("番号を入力してね", type1) Sheet2.Cells(1, 3) = Sheet1.Cells(1, 2).Offset(ans - 1) Sheet2.Cells(1, 5) = Sheet1.Cells(1, 3).Offset(ans - 1) End Sub
関連するQ&A
- Excelの関数を使ったら出来ますか？
いま、Excelで以下のような表を作成しています。 （Sheet1） A列 該当者氏名 B列 該当者整理番号 C列 D列 （Sheet2） A列 書類番号 B列 該当者氏名 C列 該当者整理番号 （Sheet1）の該当者番号を入力したとき （Sheet2）に、（Sheet1）に入力した該当者番号と同じものがあった場合 （Sheet1）の C列に「○」を自動的に表示させたいです。 さらに、できれば同様に （Sheet1）の該当者番号を入力したとき （Sheet2）に、（Sheet1）に入力した該当者番号と同じものがあった場合 （Sheet1）の D列に（Sheet2）のC列の書類番号を自動的に表示させたいです。 関数でできるようであれば、教えてください。 自分なりに考えついたもので試してみたのですが どうも、うまくいかないんです。。。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCEL関数について
EXCEL関数について EXCEL2003を使用しております。 お知恵を拝借願います。 Sheet1、A列、A2～A100セルに「1～10」の数字がランダムに入力されています。 数字は「グループ1」、「グループ2」・・・「グループ10」という意味です。 Sheet1、B列、A2～A100セルに「1～20」及び、「OK」、「NG」がランダムに入力されています。 Sheet2、A列、A2～A21セルに「1～10」までの数字（グループ）が順に入力されており、 Sheet2、1行目、B1～W1セルに、「1～20」及び「OK」、「NG」が順に入力されております。 ここで、Sheet2のB2セルに、Sheet1にて「グループ1」は 「1」をいくつ選択しているかを返す式を入れたいのですが、 SUMIF？COUNTIF？等でいろいろと試してみたのですが、うまくいきません。 同じように、C2セルであれば、「グループ1」は「2」をいくつ選んでいるか。 W5であれば、「グループ4」は「NG」をいくつ選んでいるかの式を入力したいのです。 拙文乱文、大変恐縮ですが、ご教示頂きたく何卒宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルでこんなジャンプ出来ますか
Sheet2 A B C D E F G H 3 no. 氏名 no. 氏名 no. 氏名 4 100001 山本A 102001 104001 伊藤F 5 100002 102002 佐藤D 104002 6 100003 鈴木B 102003 104003 中村G 7 100004 高橋C 102004 山田E 104004 ： ： ： ： ： ： ： Sheet1 A B C 3 no. 氏名 回数 4 104003 中村G 3 5 100004 高橋C 5 6 102003 ： ： ： ： Sheet2の表を基にSheet1のような表を作成したい。 Sheet2には約２万件の番号が登録されています。 Sheet1のA列のno.は番号順に入力されるわけではない。 Sheet1のA列にno.を入力するとSheet2より該当の氏名をB列に表示、 該当氏名が空白の場合は、Sheet2の該当セルにジャンプし、氏名入力後Sheet1のC列にジャンプして戻る。 また、Sheet2において例えば、B1に104001を入力するとH4にジャンプしEnterを押すとB1に戻り、100002を入力するとB5にジャンプ氏名入力後Enterを押しB1に戻る。・・・ということもしたいのですがマクロではなく関数で出来るでしょうか？
- 締切済み
- オフィス系ソフト
- if関数とVLOOKUP関数について
if関数とVLOOKUP関数について エクセル2003で以下のような表を2枚 （シート1とシート2です）作成しています。 上段がシート1で、左上「NO」からA1セルに なっています。 下段がシート2で、特別番号が付番される 人の対象者リストで、「氏名」 がA1セルです。 図が乱れてすいません。 シート1のB列の売上日、C列の氏名は 別ファイルから貼り付けています。 シート2は、特別番号を付番する人の 氏名リストですが、ここでは、便宜上 小文字のアルファベットにしています。 ここでしたい処理ですが、売上日及び氏名を シート1に貼り付けた際に、特別番号対象者 （シート2のリストに挙がっている人） が入ってきたとき、自動的にシート1の A列のNOの列に「特別番号」 との文言を表示させたいのです。 実際に数字を表示するのではなく、 「特別番号」の文字列を表示させたいです。 IF関数とVLOOKUP関数でできると思うのですが よくわかりませんでしたので、教えてください。 NO 売上日 氏名 1 1月1日 A 2 1月2日 B 特別番号 1月3日 a 特別番号 1月4日 b 特別番号 1月5日 c 3 1月6日 D 4 1月7日 E 特別番号 1月8日 e 特別番号リスト（シート2） 氏名 住所 a 東京都 b 大阪府 c 神奈川県
- ベストアンサー
- オフィス系ソフト
- エクセル関数について
こんばんは。 エクセル関数に関して、質問させてください。 今現在、エクセルであるデータを作っているのですが、 そこに例えばＢ２セルに東京、Ｃ２セルに３という数字が、またＢ３セルに大阪、Ｃ３セルは空欄になっているとします。 そこで、Ｃ列に数字が入っている場合のみ、Ｂ列の都道府県名と、それに対応するＣ列の数字を他のシート(同じシートでも可)に書き出すようにしたいのですが、そのような関数はあるのでしょうか。 最終的には、マクロを組んで、自動化させたいのですが… 長々と申し訳ありませんが、よろしくお願いいたします。
- ベストアンサー
- Windows NT・2000
- EXCELでの検索マクロを作りたいのですが
マクロの初心者です。氏名の検索マクロを作成したいのですが分かりません。 A列:名前 B列:郵便番号 C列：住所 と 名前等のデータを（ランダムに）入力したシート１を作成し、 シート２にシート１の「A列:名前」から性（たとえば青木）で検索して検索ボタン（マクロボタン）を押して該当データを表示させるようにしたいのですが。
- ベストアンサー
- オフィス系ソフト
- エクセルのVLOOKUP関数で・・・
３時間ほど色々頑張ったのですが、もうお手上げなので教えて下さい・・・。 エクセルでシートが２つあり、シート２から一致するデータのみをシート１に持って行きたいのです。 具体的にはシート１には「F列/カナ氏名・G列/漢字氏名・H列/顧客番号・I列/生年月日」が設定されています。 ただしH列には顧客番号が入力されていません。 シート２より生年月日をキーにして引っ張ってくる予定です。 シート１には１０００件データがあり、シート２に載っている該当者が２００件程ヒットする予定です。 シート２には「A列/生年月日・B列/カナ氏名・C列/漢字氏名・E列/顧客番号」が設定されています。 仮に１行目からデータが入っているものとして、シート１のＨ１のセルに次の式を入れました。 =VLOOKUP(I1,'シート2'!範囲,5,FALSE) 範囲には実際の範囲を指定し、５列目がシート２の生年月日なので合ってると思うのですが・・・。 エラーは＃N/Aというのが出てしまいます。 何処に問題があるのか分かりません。 説明が下手かもしれませんが、分かる方教えて下さい！
- ベストアンサー
- オフィス系ソフト
- MATCH関数とINDEX関数の組み合わせ方
あるシートから別ファイルのシートへ、"金額の値"をコピーしたいのですが、 条件セルが元データでは縦2行(地域と商品名）、コピー先では（列）に配置されているため、 どうやって関数を組んだら良いのかわかりません。 関数ではなく、マクロにしないと無理でしょうか？ （マクロでもいいのですが、コードがよくわからないので…） 又、地域はコードで番号順に並んでいますが、商品名はアルファベットと数字が混ざっており、 ソートされていない並び（変更不可）になっています。 Sheet1(元データ） A B C 1 地域 商品名 金額 2 (01関東) (AS01) (200) 3 (01関東) (333B) (250) このSheet1の金額データを別ファイル：Sheet2の該当欄に表示させたい。 Sheet2(コピー先） A B C D 1 地域＼ 商品名 (AS0100) (9999B) (AF205) 2 (01関東) （200） （300） （250） 3 (02中部） (50) (250) (290) どなたか、お知恵を拝借できれば幸いです。
- ベストアンサー
- オフィス系ソフト
- 複数のシートから該当セルをアクティブにするマクロ
インプットボックスなどに郵便番号、もしくは電話番号を入力し、 それに該当する部分がアクティブになるようなマクロを組みたいと思います。 会社名、住所、電話番号などを記載したデータが、 いくつかのシートに分かれて管理されています。 会社が１０件ほど記載されているシートもあれば、 ４０件ほど記載されているシートもあります。 探すのが大変なので、 郵便番号や電話番号などを入力すれば、 該当のシート、該当の会社の場所に飛ぶようなマクロを作成したいのですが・・・ 詳しい方がいらっしゃれば、教えてください。 よろしくお願いします。
- ベストアンサー
- Windows Vista
- インプット関数を使って・・（応用）
インプット関数を使って・・でご教授頂き、解決したのに複雑になったら何故か転記できません。すみませんが、ふたたびご教授をいただきたいです。 シート１（データシート） A列に通し番号（80001,80002,・・）B列に氏名、C列以降もデータがあり J列に電話番号があります。インプットボックスに通し番号（80001などの番号）を入力すると80001に対応する氏名を（B２９へ）、電話番号を（F２９へ）としたいのですが、シート２（転記シート）へが表示できません。（一応「転記しました」と表示するのですが？） データシートの２行目に項目、３行目からデータが入っています。 Sub 転記() Dim Numv As Variant Dim FindNum As Long Dim wsNum As Long Dim sNumv As Range '検索する受付番号を取得 FindNum = InputBox("受付番号は", "番号の入力") 'キャンセルの場合の処理 If Len(Trim(FindNum)) = 0 Then Exit Sub '"受付番号"列番号の自動取得 Set sNumv = Worksheets("データシート").Cells.Find(What:="受付番号") '該当する受付番号は見つかったか? If sNumv Is Nothing Then MsgBox "受付番号がありません！", vbOKOnly, "エラー" 'プログラム終了 Exit Sub Else End If '該当番号があった場合転記 With sNumv .Copy.Offset(0, 2).Value = Worksheets("転記シート").Range("B29").Value .Copy.Offset(0, 10).Value = Worksheets("転記シート").Range("F29").Value End With '転記成功メッセージを表示 MsgBox "転記しました", vbInformation Worksheets("転記シート").Select End Sub
- ベストアンサー
- オフィス系ソフト