削除されません。
下記のとおりですが、どう考えても動きません、どなたか修正をお願いします。
初心者です。宜しくお願いします。
Sub Ksakujyo()
Dim ObjRange As Range
On Error Resume Next
Set ObjRange = Application.InputBox("削除範囲を選択して下さい。", "印刷範囲", Type:=8)
On Error GoTo 0
If ObjRange Is Nothing Then
MsgBox "キャンセルされました。"
End If
If Selection.Count = 1 Then Exit Sub
On Error Resume Next
Selection.SpecialCells(xlCellTypeBlanks).Delete shift:=xlShiftUp
Exit Sub
End Sub
Excelのシートコピーを複数つくるVBAを探しています。
Sheet1を10シートコピーする場合に方法はありますでしょうか？
本当は、それの名前もVBAで変更できればよいと考えているのですが、とりあえずシート名の変更は、以下のVBAでできました。
Sub シート名変更()
Const OrgSh = "Sheet2"
Dim Rw As Long
Dim Cnt As Integer
Sheets(OrgSh).Move Before:=Sheets(1)
For Cnt = 2 To Sheets.Count
Sheets(Cnt).Name = "Tentative" & Cnt
Next
For Cnt = 2 To Sheets.Count
Sheets(Cnt).Name = Cells(Cnt, 1).Value
Next
End Sub
なので、最初にシートをコピーして、名前を変更する、2段構えの覚悟はできています。
シートコピーのみでもよいので、だれか教えていただけませんか？
Excelのシートコピーを複数つくるVBAを探しています。
Sheet1を10シートコピーする場合に方法はありますでしょうか？
本当は、それの名前もVBAで変更できればよいと考えているのですが、とりあえずシート名の変更は、以下のVBAでできました。
Sub シート名変更()
Const OrgSh = "Sheet2"
Dim Rw As Long
Dim Cnt As Integer
Sheets(OrgSh).Move Before:=Sheets(1)
For Cnt = 2 To Sheets.Count
Sheets(Cnt).Name = "Tentative" & Cnt
Next
For Cnt = 2 To Sheets.Count
Sheets(Cnt).Name = Cells(Cnt, 1).Value
Next
End Sub
なので、最初にシートをコピーして、名前を変更する、2段構えの覚悟はできています。
シートコピーのみでもよいので、だれか教えていただけませんか？
●質問の主旨
開いたダイアロボックス内のファイルについてエクセルファイル（.xlsxのみ)を
対象としたいと考えています。
下記コードをどのように書き換えればよいでしょうか？
ご存知の方ご教示願います。私はＶＢＡ初心者です
●質問の補足
作成した下記のコードでは
「実行時エラー1004：GetOpenFilenameメソッドに失敗しました」
と表示されます。
参考書2冊読んで全くその通りに引用していて、なぜエラー表示に
なるのかよく分かりません。
またTarget = Application.GetOpenFilename("Excelブック,*,xlsx")を
Target = Application.GetOpenFilename()にするとダイアロボックスは
表示され、その中にあるエクセルファイルは表示されます。
●コード
Sub Sample3()
Dim Target As String
Target = Application.GetOpenFilename("Excelブック,*,xlsx")
If Target <> "False" Then
Workbooks.Open Target
Else
MsgBox "キャンセルされました"
End If
End Sub
