。
タイトルだけでは、VLOOKUPなどの方法が連想されるかもしれませんが、違います（多分）。
会社で使われているExcelデータに、私が疑問に思っている方法が使われているようです。
途中の行まではちゃんと設定されているようですが、ある行を超えると、部分的な列にのみ設定されています。
古いデータのようで、最初に作った人を探すのは困難です。
どうにかして、設定が消えている（？）列にも設定したいので、ご存知の方がおられたら、教えてください。
《状況》
1.セルＡ１に入力すると、セルＥ１〜Ｎ１にデータが現れる。
2.セルＥ１〜Ｎ１を選択しても、データは何も入っていない。
3.セルＡ１に入力すると、セルＥ１〜Ｎ１に現れるのは、VLOOKUP関数で、
同一シート内に参照表がある。
4.セルＡ１に一旦入力して、一度でもセルＥ１〜Ｎ１にデータが現れると、
セルＡ１のデータを消しても、セルＥ１〜Ｎ１のデータは消えない。
5.セルＡ１、Ｅ１〜Ｎ１には、条件付き書式は設定されていない。
6.Excelは2003
7.セルＥ１〜Ｎ１を選択してDeleteしても、上記1〜4の結果は変わらない。
8.セルＦ１をセルＥ１にコピーペーストしても、上記1〜4の結果は変わらない。
書式のコピーをしても同じ。
9.セルＥ１〜Ｎ１に何か文字を入力しておくと、セルＡ１に入力しても、
セルＥ１〜Ｎ１には入力した文字のまま（入力した文字は、それが表示される）
といった状況です。
関係ないかもしれませんが、マクロが一つ設定されていて、ボタンを押すと、同一ファイル内の別シートにデータをコピーするようになっています。
それ以外にマクロはありません。
思いつくことはいくつか試してみましたし、ネット検索も何パターンかしましたが、
このような状況のものは見つけられませんでした。
すでにどこかに書かれてましたら、そのトピックへの誘導でもかまいません。
どうぞよろしくお願いします。
（ものすごく初歩的なことだったらどうしようと、ちょっとドキドキしつつ…）
会社で使われているExcelデータに、私が疑問に思っている方法が使われているようです。
途中の行まではちゃんと設定されているようですが、ある行を超えると、部分的な列にのみ設定されています。
古いデータのようで、最初に作った人を探すのは困難です。
どうにかして、設定が消えている（？）列にも設定したいので、ご存知の方がおられたら、教えてください。
《状況》
1.セルＡ１に入力すると、セルＥ１〜Ｎ１にデータが現れる。
2.セルＥ１〜Ｎ１を選択しても、データは何も入っていない。
3.セルＡ１に入力すると、セルＥ１〜Ｎ１に現れるのは、VLOOKUP関数で、
同一シート内に参照表がある。
4.セルＡ１に一旦入力して、一度でもセルＥ１〜Ｎ１にデータが現れると、
セルＡ１のデータを消しても、セルＥ１〜Ｎ１のデータは消えない。
5.セルＡ１、Ｅ１〜Ｎ１には、条件付き書式は設定されていない。
6.Excelは2003
7.セルＥ１〜Ｎ１を選択してDeleteしても、上記1〜4の結果は変わらない。
8.セルＦ１をセルＥ１にコピーペーストしても、上記1〜4の結果は変わらない。
書式のコピーをしても同じ。
9.セルＥ１〜Ｎ１に何か文字を入力しておくと、セルＡ１に入力しても、
セルＥ１〜Ｎ１には入力した文字のまま（入力した文字は、それが表示される）
といった状況です。
関係ないかもしれませんが、マクロが一つ設定されていて、ボタンを押すと、同一ファイル内の別シートにデータをコピーするようになっています。
それ以外にマクロはありません。
思いつくことはいくつか試してみましたし、ネット検索も何パターンかしましたが、
このような状況のものは見つけられませんでした。
すでにどこかに書かれてましたら、そのトピックへの誘導でもかまいません。
どうぞよろしくお願いします。
（ものすごく初歩的なことだったらどうしようと、ちょっとドキドキしつつ…）
|
|
|
|
コメント(33)
>>[1] >>[2] マリ男さん
さっそくの回答ありがとうございます。
お二人とも内容が同じと思われますので、一緒にお返事させてくださいませ。
＞実際にはワークシートオブジェクト側に転記のためのコードが記述されているという事は
＞ありませんか？
＞シートモジュール(標準モジュールではない)にも
＞VBAは組まれていないのでしょうか？
とのことですが、すみません、未確認です。
シートモジュールというものがあるんですね！
……お二人のご想像通り、標準モジュールのみを想定しておりました。
データは月曜日に会社に行かないと確認できないので、
確認してからのお返事とさせてくださいませ。
さっそくの回答ありがとうございます。
お二人とも内容が同じと思われますので、一緒にお返事させてくださいませ。
＞実際にはワークシートオブジェクト側に転記のためのコードが記述されているという事は
＞ありませんか？
＞シートモジュール(標準モジュールではない)にも
＞VBAは組まれていないのでしょうか？
とのことですが、すみません、未確認です。
シートモジュールというものがあるんですね！
……お二人のご想像通り、標準モジュールのみを想定しておりました。
データは月曜日に会社に行かないと確認できないので、
確認してからのお返事とさせてくださいませ。
ご報告です。
本日会社でデータを確認してみました。
が、シートモジュールにも、ThisWorkbookにも、
なんの記述もされていませんでした…。
確認方法は、Visual Bacicを起動（？）して、左側にある、ウィンドウの
Sheet1(*****),Sheet2(****),・・・・・・
とあるものの、問題のシートのものをダブルクリックして、コードを表示しました。
（ThisWorkbookも、問題のファイルの一番下にあるものを開きました）
何度も開いてみましたが中身が何もなかったので、問題のファイル一つのみを開いての確認もしています。
一つ思いついて、トピックトップの確認の他にもう一つ確認しました。
セルＡ１に入力する文字は、確認の最中は、正しい文字列を入力していましたので、
本日は、意味のない羅列をしてみました。
と、セルＥ１〜Ｎ１には何も現れませんでした。
改めて正しい文字列を入れたところ、現れました。
それから、関係ないかもしれませんが、Ｅ１〜Ｎ１に入っていたのは、ＶＬＯＯＫＵＰではなく、ＬＯＯＫＵＰでした。
確認方法の間違いなどありましたら、指摘いただけたらと思います。
あるいは、別の方法がある、ということでしたら、教えていただけたら助かります。
引き続き、よろしくお願いいたしますm(__)m
本日会社でデータを確認してみました。
が、シートモジュールにも、ThisWorkbookにも、
なんの記述もされていませんでした…。
確認方法は、Visual Bacicを起動（？）して、左側にある、ウィンドウの
Sheet1(*****),Sheet2(****),・・・・・・
とあるものの、問題のシートのものをダブルクリックして、コードを表示しました。
（ThisWorkbookも、問題のファイルの一番下にあるものを開きました）
何度も開いてみましたが中身が何もなかったので、問題のファイル一つのみを開いての確認もしています。
一つ思いついて、トピックトップの確認の他にもう一つ確認しました。
セルＡ１に入力する文字は、確認の最中は、正しい文字列を入力していましたので、
本日は、意味のない羅列をしてみました。
と、セルＥ１〜Ｎ１には何も現れませんでした。
改めて正しい文字列を入れたところ、現れました。
それから、関係ないかもしれませんが、Ｅ１〜Ｎ１に入っていたのは、ＶＬＯＯＫＵＰではなく、ＬＯＯＫＵＰでした。
確認方法の間違いなどありましたら、指摘いただけたらと思います。
あるいは、別の方法がある、ということでしたら、教えていただけたら助かります。
引き続き、よろしくお願いいたしますm(__)m
念のため、もう一度確認
(1)セルＡ１に入力すると、セルＥ１〜Ｎ１にデータが現れる。
これは、(3)と共通していて、
(3)セルＡ１に入力すると、セルＥ１〜Ｎ１に現れるのは、VLOOKUP関数で、 同一シート内に参照表がある。
これは、A1セルに「1」と入力すると、E1〜N1セルに、それぞれVLOOKUP関数で得られる結果と同じ
「文字列」などのデータで、VLOOKUP関数などの数式ではないということなのでしょうか？
でも、すると、
(2)セルＥ１〜Ｎ１を選択しても、データは何も入っていない。
とつじつまが合いません。
そうではなく、
(1)元々、セルＥ１〜Ｎ１には、データも数式も何も入っていない。
(2)セルＡ１に入力すると、セルＥ１〜Ｎ１にデータが入力される
このセルE1〜N1に表示されるのは、別途入力される表を参照して、VLOOKUP関数で得られる結果と同等の内容のデータである（数式ではない）
ということでしょうか？
実際にE1〜N1セルには、「何も入っていない」のに、何かデータが現れるというのであれば、通常想定される使い方とまったく異なってくるので。そんなこと実際に可能なのか、という問題はありますが。
あと、Visual Basic Editorを開いてみたとき、自分で開いた覚えのないファイル名が左上に表示されてないかもチェックしてみてください。
(1)セルＡ１に入力すると、セルＥ１〜Ｎ１にデータが現れる。
これは、(3)と共通していて、
(3)セルＡ１に入力すると、セルＥ１〜Ｎ１に現れるのは、VLOOKUP関数で、 同一シート内に参照表がある。
これは、A1セルに「1」と入力すると、E1〜N1セルに、それぞれVLOOKUP関数で得られる結果と同じ
「文字列」などのデータで、VLOOKUP関数などの数式ではないということなのでしょうか？
でも、すると、
(2)セルＥ１〜Ｎ１を選択しても、データは何も入っていない。
とつじつまが合いません。
そうではなく、
(1)元々、セルＥ１〜Ｎ１には、データも数式も何も入っていない。
(2)セルＡ１に入力すると、セルＥ１〜Ｎ１にデータが入力される
このセルE1〜N1に表示されるのは、別途入力される表を参照して、VLOOKUP関数で得られる結果と同等の内容のデータである（数式ではない）
ということでしょうか？
実際にE1〜N1セルには、「何も入っていない」のに、何かデータが現れるというのであれば、通常想定される使い方とまったく異なってくるので。そんなこと実際に可能なのか、という問題はありますが。
あと、Visual Basic Editorを開いてみたとき、自分で開いた覚えのないファイル名が左上に表示されてないかもチェックしてみてください。
>>[12]
コメントありがとうございます。
ご質問の件ですが、
＞そうではなく、
＞(1)元々、セルＥ１〜Ｎ１には、データも数式も何も入っていない。
＞(2)セルＡ１に入力すると、セルＥ１〜Ｎ１にデータが入力される
＞ このセルE1〜N1に表示されるのは、別途入力される表を参照して、
＞VLOOKUP関数で得られる結果と同等の内容のデータである（数式ではない）
＞ということでしょうか？
(1)はその通りで、セルには何も入っておらず、
(2)については、セルＥ１〜Ｎ１に現れるデータは、数式で、
その数式の結果がセルには表示されます。
紛らわしい書き方をしてしまい、申し訳ありませんm(__)m
それから、
＞あと、Visual Basic Editorを開いてみたとき、自分で開いた覚えのないファイル名が左上に表示されてないかもチェックしてみてください。
あ、自動的に何かが開いた可能性もあるかもしれないってことですね…。
くどいくらいに、どのファイルのシートか、モジュールかを確認しながらしていましたが、
確かに、そういう確認はしていませんでした。
明日会社で見てみます。
ありがとうございます。
コメントありがとうございます。
ご質問の件ですが、
＞そうではなく、
＞(1)元々、セルＥ１〜Ｎ１には、データも数式も何も入っていない。
＞(2)セルＡ１に入力すると、セルＥ１〜Ｎ１にデータが入力される
＞ このセルE1〜N1に表示されるのは、別途入力される表を参照して、
＞VLOOKUP関数で得られる結果と同等の内容のデータである（数式ではない）
＞ということでしょうか？
(1)はその通りで、セルには何も入っておらず、
(2)については、セルＥ１〜Ｎ１に現れるデータは、数式で、
その数式の結果がセルには表示されます。
紛らわしい書き方をしてしまい、申し訳ありませんm(__)m
それから、
＞あと、Visual Basic Editorを開いてみたとき、自分で開いた覚えのないファイル名が左上に表示されてないかもチェックしてみてください。
あ、自動的に何かが開いた可能性もあるかもしれないってことですね…。
くどいくらいに、どのファイルのシートか、モジュールかを確認しながらしていましたが、
確かに、そういう確認はしていませんでした。
明日会社で見てみます。
ありがとうございます。
以下のコードは現在のブック(のアクティブなVBAプロジェクト)に
含まれるVBAコードをイミディエイトウィンドウに出力するものです。
もし隠れたコードがあるなら、実行する事で
見当たらなかったコードが見つかるかも知れません。
'[オプション]-[セキュリティ]-[マクロセキュリティ]で
'[Visual Basicプロジェクトへのアクセスを信頼する]チェックを有効にしておく必要あり
Sub CodeDumper()
For Each a In Application.VBE.ActiveVBProject.VBComponents
Debug.Print ">>" & a.name & "<< (" & a.Type & ")"
With a.CodeModule
For i = 1 To .CountOfLines
Debug.Print .Lines(i, 1)
Next i
End With
Next a
End Sub
含まれるVBAコードをイミディエイトウィンドウに出力するものです。
もし隠れたコードがあるなら、実行する事で
見当たらなかったコードが見つかるかも知れません。
'[オプション]-[セキュリティ]-[マクロセキュリティ]で
'[Visual Basicプロジェクトへのアクセスを信頼する]チェックを有効にしておく必要あり
Sub CodeDumper()
For Each a In Application.VBE.ActiveVBProject.VBComponents
Debug.Print ">>" & a.name & "<< (" & a.Type & ")"
With a.CodeModule
For i = 1 To .CountOfLines
Debug.Print .Lines(i, 1)
Next i
End With
Next a
End Sub
>>[32]
わぁっ[ｍ:78]
違うんですー。
先頭行じゃなかったんです[ｍ:78]
上の行の数式をコピーしてくれるような機能があると思ってもいなかったので、
とりあえず説明するために、１行目にしてしまったんです…
恥ずかしながらデータをきちんと確認したのも、数式の自動適用機能について教えていただいてからで…
どうも、新しい月用にデータを用意する際には、最初のほうの数行は数式をコピーしていたようです。
本当に、考えが足りなくて、Minonさんはじめ、皆さまにはご苦労をおかけいたしました。
でも、いろいろ教えていただいたことは、これからの仕事にも役立てられそうです。
ありがとうございました。
わぁっ[ｍ:78]
違うんですー。
先頭行じゃなかったんです[ｍ:78]
上の行の数式をコピーしてくれるような機能があると思ってもいなかったので、
とりあえず説明するために、１行目にしてしまったんです…
恥ずかしながらデータをきちんと確認したのも、数式の自動適用機能について教えていただいてからで…
どうも、新しい月用にデータを用意する際には、最初のほうの数行は数式をコピーしていたようです。
本当に、考えが足りなくて、Minonさんはじめ、皆さまにはご苦労をおかけいたしました。
でも、いろいろ教えていただいたことは、これからの仕事にも役立てられそうです。
ありがとうございました。
- mixiユーザー
- ログインしてコメントしよう！
|
|
|
|
