|
>処理順番が逆転してしまいます
これは、アロケーションテーブル?かなんだか知らないところに記録されている順番で探すから(多分)、処理の順番は自分でソートするなりして決めた方が良いと思います。
この記録された順は、どんなタイミングだか良く解らないけど、移動しただけでも書き換えられていると思います。
だから、Dir関数の中で1回1回処理をしないで、パスは先に全部取得してソートしてから処理するとか。
>デパック処理と一括処理で画面表示の順番が変わるのかがわかりません。
これは、どういうことなのか、原因が良く解りませんでした。
>またデパック処理で困ったのですが、UserFormのコードを確認しながらシート画面を確認しようとしたら、画面切り替えが出来ませんでした。
これは正常なんでしょうか?UserFormのコードから抜け出すと大丈夫なんですが・・・。
これって、VBエディタのツールバーにある「EXCEL表示」ボタンの事でしょうか?
普段は、VBエディタを小さくして、ステップ実行しているのであまり気にした事はありませんが、「EXCEL表示」ボタンでVBエディタとエクセルが切り替わりました。
違う?
ユーザーフォームが邪魔だから閉じたい?
実行中は閉じられません。
Private Sub UserForm_Initialize()
With UserForm1 ←Me、もしくはない方が良いと思います。
CommandButton1.Caption = "A級"
CommandButton2.Caption = "B級"
CommandButton3.Caption = "×"
End With
With UserForm1 ←Me、もしくはない方が良いと思います。
.StartUpPosition = False
.Top = 400
.Left = 650
End With
End Sub
これも
UserForm1.Hide
↓
Me.Hide
> Worksheets("表示板").Activate
>If theVar = 6 Then
>With ActiveSheet.Pictures.
アクティブシートとかあいまいにしないで決まっているなら、
Worksheets("表示板").Pictures.Insert・・・
とかはっきり指定した方が良いです。
>写真の中央部だけが表示され
これは、イメージプロパティのPictureSizeModeとか他で全表示とか位置を指定できます。
長々と頓珍漢なことを書いていたらすみません。
|
|