[Excel][VBA]エクセルファイルからマクロを除去する | DevAchieveではWith ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close(False)
End With 
できる逆引き Excel VBAを極める 勝ちワザ700
Sub CreateNoMacroBook()
Dim fname As String
Dim ns As Integer
Dim cnt As Integer
'マクロありブックの名前を取得
fname = ActiveWorkbook.Name
'マクロありブックのシート数を取得
cnt = ActiveWorkbook.Worksheets.Count
'すべてのシートをMoveするとエラーになるのでシートを追加
Worksheets.Add After:=Worksheets(Worksheets.Count)
'新規ブック作成時のデフォルトのシート数を保管
ns = Application.SheetsInNewWorkbook
'新規ブック作成時のシート数を変更
Application.SheetsInNewWorkbook = 1
'新規ブック作成
Workbooks.Add
'新規ブック作成時のデフォルトのシート数に戻す
Application.SheetsInNewWorkbook = ns
'マクロありブックのシートを新規ブックの"Sheet1"シートの前に移動
For i = 1 To cnt
Workbooks(fname).Worksheets(1).Move Before:=Workbooks(Workbooks.Count).Worksheets("Sheet1")
Next i
'表示用に新規ブックの一枚目のシートをアクティブにする
Workbooks(Workbooks.Count).Worksheets(1).Activate
Application.DisplayAlerts = False
'新規ブックのデフォルトシート"Sheet1"を削除する
Workbooks(Workbooks.Count).Worksheets("Sheet1").Delete
'マクロありブックを保存せずに終了
Workbooks(fname).Close SaveChanges:=False
Application.DisplayAlerts = True
End Sub
できる逆引き Excel VBAを極める 勝ちワザ700
Function LoadCSV()
Dim FileType, Prompt As String
Dim FileNamePath As Variant
Dim textline, CsvArray() As String
Dim RowCnt As Long
Dim ch1 As Long
FileType = "CSV ﾌｧｲﾙ (*.csv),*.csv"
Prompt = "CSV File を選択してください"
FileNamePath = Application.GetOpenFilename(FileType, , Prompt)
'キャンセルされた
If FileNamePath = False Then End Funciton
'空いているファイル番号の取得
ch1 = FreeFile
'FileNamePath のファイルをオープンします
Open FileNamePath For Input As #ch1
'エラーが発生したらファイルを閉じます
On Error GoTo CloseFile
'表の行番号の初期化
RowCnt = 1
'ファイルの終端まで
Do Until EOF(ch1)
'1行読み込む
Line Input #ch1, textline
'CSVをパース
textline = Mid(textline, 2, Len(textline) - 2)
CsvArray = Split(textline, """,""")
'配列渡しでセルに代入
Range(Cells(RowCnt, 1), Cells(RowCnt, UBound(CsvArray()) + 1)) = CsvArray()
RowCnt = RowCnt + 1
Loop
CloseFile:
Close #ch1 'ファイルのクローズ
End Functionシート名を渡すとそのシート名のシートが存在するかどうかチェックする。
2010/2007/2003/2002対応 (「できる逆引き」シリーズ)
国本 温子
インプレスジャパン
発売日：2012-02-09
Function IsExistSheet(SheetName As String) As Boolean
Dim ws As Worksheet, flag As Boolean
flag = False
For Each ws In Worksheets
If ws.Name = SheetName Then flag = True
Next ws
IsExistSheet = flag
End Function
2010/2007/2003/2002対応 (「できる逆引き」シリーズ)
国本 温子
インプレスジャパン
発売日：2012-02-09
With ActiveCell.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=名前付き範囲"
End With
2010/2007/2003/2002対応 (「できる逆引き」シリーズ)
国本 温子
インプレスジャパン
発売日：2012-02-09
BackgroundChecking
EmptyCellReferences
EvaluateToError
InconsistentFormula
NumberAsText
OmittedCells
TextDate
UnlockedFormulaCells
ErrorCheckingOptions プロパティ (Microsoft.Office.Interop.Excel)
2010/2007/2003/2002対応 (「できる逆引き」シリーズ)
国本 温子
インプレスジャパン
発売日：2012-02-09
2010/2007/2003/2002対応 (「できる逆引き」シリーズ)
国本 温子
インプレスジャパン
発売日：2012-02-09
Function getColumn(row As Long, column As Long) As Long
getColumn = Cells(row, column).End(xlToRight).Column
End FunctionFunction getRow(row As Long, column As Long) As Long
getRow = Cells(row, column).End(xlDown).Row
End Function欠点としては途中に空白セルがある場合には空白セルの一つで前で止まる。Function getColumn(row As Long) As Long
getColumn = Range("IV" & row).End(xlToLeft).Column
End FunctionFunction getRow(column As Long) As Long
getRow = Range(column & "65536").End(xlUp).Row
End Function途中で空白セルもある場合はコチラを使えば本当の終端で取得できる。
| マクロの実行 | ユーザー定義関数 | 戻り値 | |
| Sub | 表示される | 表示されない | 返すことができない |
|---|---|---|---|
| Private Sub | 表示されない | 表示されない | 返すことができない |
| Function | 表示されない | 表示される | 返すことができる |
| Private Function | 表示されない | 表示されない | 返すことができる |
できる逆引き Excel VBAを極める 勝ちワザ700国本 温子
インプレスジャパン
発売日：2012-02-09
できる逆引き Excel VBAを極める 勝ちワザ700
国本 温子
インプレスジャパン
発売日：2012-02-09
Range("B2").EntireRow.Hidden = False '表示
Range("B2").EntireRow.Hidden = True '非表示Rows(2).Hidden = False
Rows("2:2").Hidden = True
Rows("2:3").Hidden = False
Cells(2, 2).EntireRow.Hidden = True
Range("2:2").EntireRow.Hidden = False
Range("B2").EntireRow.Hidden = TrueRange("B2").EntireColumn.Hidden = False '表示
Range("B2").EntireColumn.Hidden = True '非表示Columns(2).Hidden = False
Columns("B:B").Hidden = True
Columns("B:C").Hidden = False
Cells(2, 2).EntireColumn.Hidden = True
Range("2:2").EntireColumn.Hidden = False
Range("B2").EntireColumn.Hidden = True
できる逆引き Excel VBAを極める 勝ちワザ700国本 温子
インプレスジャパン
発売日：2012-02-09
2010/2007/2003/2002対応 (「できる逆引き」シリーズ)
国本 温子
インプレスジャパン
発売日：2012-02-09
ブクログでレビューを見る»
ネット上に散らばる対応バージョンもわからない情報を参考にするより
コレ一冊ある方が圧倒的に安心できる。
大抵の事はググるより本を見る方が早く見つかるし説明が詳しいので
Excel VBAをガリガリやる人は持っておいたほうが良いと思う。
