2行目から、最終行までEmptyにしたいのにならないです。
1行目はフィールド行なのに、そのままにしたいのですが
2行目から最終行は空白にしたいです。
なので
Sub TEST()
With Sheets("log")
lastRow = .Cells(.Rows.Count, "b").End(xlUp).Row
LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
.Range(.Cells(2, LastCol), .Cells(lastRow, LastCol)) = Empty
End With
End Sub
としたのですが、何も起こりません。
lastRowは100、LastColは5なのですが、
このマクロを実行しても何も起こらないです。
なぜでしょうか?
エクセル2003で作成した住所録があります。
県名(3文字)のみを抽出して、新たに設けたD列に表示させたいと考えています。
Sub 県名の列作成()
Dim myStr As String
myStr = ActiveCell.Value
Range("D2").Value = Left(myStr,3)
End Sub
ここまで、できたのですが・・・・
B列の2行目から順に処理をして、一覧表の最後まで行って、
空白セルの行が見つかったら終了させる方法が分かりません。
どうかよろしくお願いします。
Sub test()
Dim int1 As Integer
Dim int2 As Integer
int1 = 1
int2 = 2
Cells(3, 1) = "=A" & int1 & "*B" & int2
End Sub
このような場合、列番号のAやBも、
数値で指定するにはどうすればいいでしょうか?
Sub ブックを開く()
Workbooks.Open Filename:="D:\顧客データ\" _
& Range("B1").Value & ".xls"
End Sub
上記のマクロでファイルを開き作業をしています。
作業後にファイルを上書保存して閉じるには
どのようなマクロになるのでしょうか。
よろしくお願いします。
Sub test()
Dim i As Long
i = InputBox("値をいれてください")
'キャンセルなら
'if then exit sub
End Sub
このような状態で、キャンセルボタンを押すかescキーを押したら、
'キャンセルなら
'if then exit sub
でプロシージャーを抜けたいのですが、
キャンセルボタンを押すと、実行時エラー13になります。
(_型が一致しません。(Error13))
エラーを発生させずに、キャンセルさせるにはどうすればいいですか?
A1セルの値をシート名にするマクロは以下のとおりだと思います。
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value
End Sub
では、E6セルの値をシート名にすることは可能でしょうか?
よろしくお願いします。