リサーチ１１５

質問
Excel2010 VBAのセルの操作についてです。シートの縦方向スクロールバーの長さが、実際のデータ行(100行)に比べて短くなってしまいました。(1000行分)プログラム中の参考ステートメントRange("A2:Z1000").ClearRange("A2:Z1000").Borders.LineStyle=xlNoneRange("A2:Z1000").ClearHyperLinkscellData=range("A2:Z1000")次で見ても100となります。Debug.Print Range("A1").End(xlDown).RowDebug.Print Range("A10000").End(xlUp).Rowやってみたこと。１）イミディエイト・ウィンドウで Range(A101:Z1000").Clear２）シートで、101行から1001行まで削除どちらも意味がありませんでした。 スクロールバーの長さを実際のデータ行数に合わせるにはどうすればよいでしょうか？

ベストアンサー
下記操作を試してください。使用していない行/列から最終行/最終列まで削除ブックを保存≪参考≫Excel で最後のセルをリセットする方法http://support.microsoft.com/kb/244435/ja≫≫補足ブックの保存はされましたか？

質問
派遣（パチンコ、ゲームセンター）の説明会へ行くのですが、その際服装はスーツになるんですか？ちなみに、イミディエイトという会社の説明会へ行きます。

ベストアンサー
説明会ですから、あまり派手でなければ私服で良いと思いますよ。派遣会社に登録後、条件に合う仕事が見つかれば、そこから派遣先へ面接と言う流れになると思いますので、その際にはスーツで行くのか私服で良いのか、派遣会社の方に相談すれば大丈夫です。

質問
VBAで日付の検索を実装したいのですが、デバッグモードとマクロ登録したオブジェクトクリックからの挙動が違います。何故か分かりますか？Sheet1の適当なセルに「2012/4/15」と打ち込み、モジュール画面からF5で実行すると「2012/04/15」がイミディエイトに表示されます。Excel画面に適当なオブジェクトを配置し、マクロ登録してから実行すると「検索に失敗」が返されます。どこが悪いか分かる方いらっしゃいますでしょうか。Sub test() Worksheets("Sheet1").Activate Dim FoundCell As Range Set FoundCell = Cells.Find(What:="2012/4", LookIn:=xlFormulas) If FoundCell Is Nothing Then Debug.Print "検索に失敗" Else Debug.Print FoundCell End If End Sub

ベストアンサー
---補足に対して---> VBA画面からF5ではうまくいくので謎です。What:="2012/4" でシリアル値の2012/4/15を検索ですか？見つかることは無いと思いますが・・・ やるまでもないことだが 実際出来ませんでした。何か 勘違いしているのでは・・・？> 年月で検索範囲はシート全体で見つかった最初のものだけですか？Findメソッド 以外でやったらどうですか？例えば、A1が 2012/4/15 と表示されているとして? InStr(Range("A1").Text, "2012/4") = 1とすると True が返ります。---------------> セルに「2012/4/15」と打ち込み> Find(What:="2012/4", ～ )では、どうやっても見つからないと思いますが・・・ > Excel画面に適当なオブジェクトを配置し～ちょっと 意味が・・・ ？？？何をしたいのか 良く分りませんが・・・まぁ、日付を検索するなら、Sub test()Worksheets("Sheet1").ActivateDim FoundCell As RangeSet FoundCell = Cells.Find(DateValue("2012/4/15"), LookIn:=xlValues)If FoundCell Is Nothing ThenDebug.Print "検索に失敗"ElseDebug.Print FoundCellEnd IfEnd Sub

質問
VBAからのShellコマンドの実行についてExcel VBAのイミディエイト ウィンドウで、Call Shell("xcopy /c /Y C:\Folder1\File.txt S:\Folder1")と実行すると、意図した動きをするのですが、ネットで調べた感じだと、これはCall Shell("cmd.exe /c xcopy /c /Y C:\Folder1\File.txt S:\Folder1")と書くのが正しいみたいです。最初の書き方だと、どのような問題が起こるのかわかる方がいれば教えてください。現在、最初の書き方だと、正常に動作するときと、しないときがあるという不思議な現象が起きていて、その理由が、cmd.exe /c を使っていないことなのかな？と予想しているのですが、どうして失敗するときと成功するときがあるのかが理解できません。どうか、よろしくお願いいたします。

ベストアンサー
CMD.EXEを使うのは、下記の場合です。①内部コマンド（COPY,DELなど)を使う場合②複数の処理を一度に指定する場合 XCOPYは「XCOPY.EXE」があるので①では無いため「Call Shell("xcopy」でも動きます。（が、書き方を統一するのであれば、cmd.comを入れる)失敗の原因は別の要因と思われますが、明確な答えは不明です。

質問
VB6でTypeOf ActiveControlでコントロールの種類を判定できません。自社で作成したコントロールの場合、TypeOf ActiveControlでコントロールの種類を判定できない場合があります。TypeOf ActiveControl以外で、コントロールの種類を判定するものはないでしょうか？また、TypeOf ActiveControlでコントロールの種類を判定できないのはなぜでしょうか？イミディエイトで、?TypeOf ActiveControl Is DateBox と行うとfalseがでます。DateBoxというのが自社で作成したコントロールです。ほかに作成した自社のコントロールは、TypeOf ActiveControlで正しく判定が行えるものがあります。

ベストアンサー
TypeName(ActiveControl)で確認してみてください。