ワークブックの変更は、自動的にバックアップされ、保存された
名前を付けて保存、thisWorkbook.SaveAs「D：\データ\は使用しないでください 1.xlsxを」
保存が完了したときにそう、それは自動的に保存されたファイル1.xlsxを開き、現在のファイルが変更されます1.xlsxは
、すべての操作は、元のファイルであることを保証するために、ユーザの操作に影響を与えることができません
密かに保存されたイベントがあります：
編集ブックファイル：ワークブック- beforeSave
thisWorkbook.savecopyas「D：\データ\ 1.xlsx」
あなたは時間[保存]をクリックすると、密かにバックアップファイル続けるだろう
：\データ」dは\ 1.xlsx :. \データ\ "D "に変更" ＆フォーマット（今（）、" YYYYMMDDHHMMSS "）＆" XLSX "
あなたは、思い出すことができないマクロを記録するために、コードをコピーする場合は、コードを変更することができます
すべての機能のセットは、ワークシート：
application.WorksheetFunction.CountA（sheet2.range（「A」））を表II非ヌル列の数
WorksheetFunction.CountIf（sheet2.range（ "F：F"）、 "男"）
WorksheetFunction.VLookup（sheet1.range（ "D9"）、sheet2.range（ "B"）、5、0）
VBAエラーが引き続き発生：
エラー回避：
エラー再開ON次
本文：デジタルにデジタルテキスト：ヴァル（L）
テキスト・ツー・デジタル：。（。掛け1）L = L * 1
IF vba.Information.IsNumeric（L）= FALSEもしくはL <0の場合
IsNumeric関数（L）IF =虚偽またはL <0の場合
私は、文字列として薄暗いです
得られた配列を分割する：スプリット（レンジ（ "A2"）を、 " - "）（0）
自定义公式：
関数zmj（整数として文字列、文字列としてSTR1、私のように文字列）
の場合、STR = "男"そして...
エンド機能
関数jqzf（整数として文字列、文字列としてSTR1、IのようなSTR）
jqzf ==スプリット（STR、STR1）、（I-1）
エンド機能
サブCJB（文字列として文字列）
...
End Subの
サブテスト（）
呼び出しCJB（sheet1.range（ "A1"））
End Subの
VBAはに優れますメインプログラムにロードされ
、デフォルトのアドオンXLAまたはxlamの名前を付けて保存
ファイルオプション、すべての文書のためのクイックアクセスツールバー
変数にテーブルを作成し
ます。Dim SHT ASワークシート
SET SHT = Sheets.Add
sht.name =「2月」
DIR：
ファイルの場合と（拡張子を含む）のファイル名を返し、空で返さない、（ノートサフィックスXLS、XLSX）
範囲（ "A1"）DIR =（ "D：\データ\ heheda.xls *"）
蘇州と蘇州の.xls .xlsxの
範囲（ "A1"）DIR =（ "D：\データ\蘇州.XLS *"）蘇州.XLS
レンジ（ "A2"）は、DIR =蘇州の.xlsx返し
レンジ（ "A2"を）= DIRはヌルを返し
範囲（ "A2"）= DIRエラー
すべてのファイル： DIR（ "D：。\ DATA \ * XLS *"）
ファイルを開き： Workbooks.Open（ "ファイルのアドレスを"）
点心WB AS wrokbook
SET WB = Workbooks.Open（ "ファイルのアドレスを"）
。。。
wb.close
複数のファイルをマージ
DIM WB wrokbook用として
セットWB = workbooks.open（ "文件地址"）
wb.sheets（1）の後.copy：= thisWorkbook.sheets（thisWorkbook.sheets.count）
thisWorkbook.sheets（thisWorkbook.sheets.count）.nameの=スプリット（wb.name、 ""）（0）
wb.close
式を検索し、エラーがセット使用しません、エラーを見つけることができません
範囲を（「D：dが」。 ）（「見つけるジョー・スミス」）.Select
「レンジ（ 『D：D』）。検索（レンジ（ 『L3』） ）.offset（0,3）
SET RNG =範囲（ "D：D"。）（レンジ（ "L3"の検索））
RNG IS何も、その後のIF
MsgBoxには、 "が見つかりません"
ワークシートとして薄暗いSHT
セットSHT = activesheet
