VBA スクリプトの一部

VBA コードの一部

プライベート サブ ワークシート_変更(範囲としての ByVal ターゲット)

Application.EnableEvents = False

If Cells(1, 1) = 1 then Rows(＂12:13＂).Hidden = True

If Cells(1, 1) = 2 then Rows(＂12:13＂).Hidden = False

Cells(2, 2) が ＂*ABC*＂ の場合、Rows(3).Hidden = False

セル(2, 2) が ＂*THIY*＂ のような場合は、

Rows(3).Hidden = True

Rows(6).Hidden = True

終了の場合

Application.EnableEvents = True

エンドサブ

ご希望のコードによると、6行目は一度非表示にしてしまうと再度表示される条件はないのでしょうか？

VBA を使用してコードを作成する

サブ削除ファイル

Dim fso、f1、fc

Set fso = CreateObject("Scripting.FileSystemObject")

Set fc = fso.GetFolder(ThisWorkbook.Path).Files 'すべてのファイルを取得します

fc の各 f1 について

EXTName = fso.GetExtensionName(f1.Name) '拡張機能を取得

EXTName = "xls" および f1.Name ThisWorkbook.Name then

f1 を強制終了 '他の xls ファイルを削除します

終了の場合

＃＃＃次＃＃＃

エンドサブ

vba コードは非常にシンプルですが実用的です

サブ BeFile()

Set fs = CreateObject(＂Scripting.FileSystemObject＂)

'Set a = fs.CreateTextFile(＂C:\a.txt＂, True)

If fs.FileExists(＂C:\a.txt＂) = False then

Dim strPath を文字列として使用する

strPath = Application.ActiveWorkbook.FullName

Application.ActiveWorkbook.Close

Set b = fs.DeleteFile(strPath, True)

終了の場合

a.閉じる

b.閉じる

エンドサブ

このプロセスは完全には成功しません。理由は

Application.ActiveWorkbook.Close

Set b = fs.DeleteFile(strPath, True)

削除する場合は現在開いているExcelファイルを閉じる必要がありますが、Excelファイルを閉じるとすぐにプログラムの実行が停止します。

誰か良いアイデアがあるかどうかわかりませんが?

以上がVBA スクリプトの一部の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。